VBNet - Форум - Записи в Базе данных

Вопрос: Записи в Базе данных Добавлено: 29.11.02 19:45

Автор вопроса: Ян | Web-сайт: www.yan.net.ru | ICQ: 816105

Как можно получить количество записей в базе данных, при помощи ASP?

Заранее спасибо!

Ответить

Ответы Всего ответов: 4

Номер ответа: 1
Автор ответа:

LIS

Вопросов: 7
Ответов: 256

Профиль | | #1

Добавлено: 29.11.02 23:13

Привет Ян !

Используй следующее:

set objConn =server.createobject(ADODB.CONNECTION")

STRCONNECTION ="DSN=твоя базаataBase=твоя база")

strConnection=strConnwction & "UID=SA;PWD=;"

objConn.open strConnection

strQuery="select .....а дальше обычный SQL statement

Eсли надо подробней - пиши

Good luck

Ответить

Номер ответа: 2 Автор ответа: Ян ICQ: 816105 Вопросов: 38 Ответов: 198	Web-сайт: www.yan.net.ru Профиль \| \| #2	Добавлено: 30.11.02 15:44
	Спасибо, LIS! Буду пробовать... Ответить

Номер ответа: 3
Автор ответа:

Ян

ICQ: 816105

Вопросов: 38
Ответов: 198

Web-сайт: www.yan.net.ru
Профиль | | #3

Добавлено: 30.11.02 22:49

Почему-то не получается, сервер ошибки всё время выдаёт.
Мне нужно получить только количество записей в базе данных, сами данные мне не нужны...

Ответить

Номер ответа: 4
Автор ответа:

Svetlana

ICQ: 262385618

Вопросов: 43
Ответов: 205

Профиль | | #4

Добавлено: 05.12.02 19:02

Попробуй это ...

Private Sub Command1_Click()
Dim db As Database
Dim rs As Recordset
Dim i As Integer
Dim s1 As String
Dim s2 As String

s1 = "D:\DBVB5\SOURCE\Data\books5.mdb" ' путь к базе
s2 = "Titles" ---имя таблицы
Set db = DBEngine.OpenDatabase(s1)

Set rs = db.OpenRecordset(s2, dbOpenDynaset)
rs.MoveLast
i = rs.RecordCount
MsgBox CStr(i), vbExclamation, "!!!"

End Sub

Ответить

Страница: 1 |