Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Количество записей / 4 сообщений из 4, страница 1 из 1
31.05.2004, 10:56
    #32540594
volna
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Количество записей
У меня такой вопрос.
Чтобы увидеть количество записей в одном поле в SQL SERVER 2000
можно писать запрос select count (поле). SQL SERVER показывает сколько
записей в одном поле. Но в Visual Basic 6.0 если пишишь этот запрос
выдает сообщение об ошибке. Так как количество записей не отображается
ни в одном поле база данных. Как высвечивать количество записей в Visual
Basic 6.0 используя этот запрос. У меня код такой

Private Sub Command1_Click()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;dsn=tr;uid=;pwd=;"
Set ado = New Recordset
Dim sql As String
sql = "select count (*) from dbo.tr where Pol= '" & Text1.Text & "' and Ia='" & text2.Text & "'"
ado.Open sql, db, adOpenStatic, adLockOptimistic
Set text3.DataSource = ado
text3.DataField = "что можно писать сюда"

Заранее благодарю.
...
Рейтинг: 0 / 0
31.05.2004, 11:06
    #32540616
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Количество записей
sql = "select count (*) as xxx from dbo.tr where Pol= '" & Text1.Text & "' and Ia='" & text2.Text & "'"
ado.Open sql, db, adOpenStatic, adLockOptimistic
Set text3.DataSource = ado
text3.DataField = "xxx"

?
...
Рейтинг: 0 / 0
31.05.2004, 11:10
    #32540629
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Количество записей
Если я правильно понял то :
кол-во записей показывает св-во RecordCount, т.е. ado.RecordCount.
db.CursorLocation - это нонсенс, так как у Вас идет определение Set db = New Connection, а CursorLocation - это св-во курсора.
По умолчанию курсор идет в режиме adOpenForwardOnly. Так что ставьте сл. параметры для курсора

CursorType = adOpenDynamic
CursorLocation = adUseClient
LockType = adLockOptimistic
и тогда в ado.recordcount и даст вам кол-во записей.
Подробней написать не могу так как никогда не работал с DataSource и DataField.


...
Рейтинг: 0 / 0
31.05.2004, 11:36
    #32540700
volna
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Количество записей
Спасибо за совет все получается.
sql = "select count (*) as xxx from dbo.tr where Pol= '" & Text1.Text & "' and Ia='" & text2.Text & "'"
ado.Open sql, db, adOpenStatic, adLockOptimistic
Set text3.DataSource = ado
text3.DataField = "xxx"
Этот запрос работает нормально Всем спасибо за советы.
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Количество записей / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]