|
|
|
Количество записей
|
|||
|---|---|---|---|
|
#18+
У меня такой вопрос. Чтобы увидеть количество записей в одном поле в 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 = "что можно писать сюда" Заранее благодарю. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 31.05.2004, 10:56:18 |
|
||
|
Количество записей
|
|||
|---|---|---|---|
|
#18+
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" ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 31.05.2004, 11:06:25 |
|
||
|
Количество записей
|
|||
|---|---|---|---|
|
#18+
Если я правильно понял то : кол-во записей показывает св-во RecordCount, т.е. ado.RecordCount. db.CursorLocation - это нонсенс, так как у Вас идет определение Set db = New Connection, а CursorLocation - это св-во курсора. По умолчанию курсор идет в режиме adOpenForwardOnly. Так что ставьте сл. параметры для курсора CursorType = adOpenDynamic CursorLocation = adUseClient LockType = adLockOptimistic и тогда в ado.recordcount и даст вам кол-во записей. Подробней написать не могу так как никогда не работал с DataSource и DataField. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 31.05.2004, 11:10:55 |
|
||
|
Количество записей
|
|||
|---|---|---|---|
|
#18+
Спасибо за совет все получается. 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" Этот запрос работает нормально Всем спасибо за советы. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 31.05.2004, 11:36:21 |
|
||
|
|

start [/forum/topic.php?fid=60&fpage=370&tid=2169469]: |
0ms |
get settings: |
5ms |
get forum list: |
12ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
58ms |
get topic data: |
8ms |
get forum data: |
1ms |
get page messages: |
37ms |
get tp. blocked users: |
1ms |
| others: | 183ms |
| total: | 309ms |

| 0 / 0 |
