powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Количество записей
4 сообщений из 4, страница 1 из 1
Количество записей
    #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
Количество записей
    #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
Количество записей
    #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
Количество записей
    #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
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Количество записей
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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