ADODB.Recordset (recordcount =-1) ???

[Alex404]

Такая вот штуковина...
Dim Base As New ADODB.Connection
Dim RS1 As ADODB.Recordset, RS2 as ADODB.Recordset

Base.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=base.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"

SQL1="SELECT ..."
SQL2="SELECT ..."

Set rs1 = Base.Execute(SQL1)
Set rs2 = Base.Execute(SQL2)

Один из RS - ОБЯЗАТЕЛЬНО будет пустой, другой ОБЯЗАТЕЛЬНО будет содержать одну запись.

Задача определить непустой.

Первое что приходит в голову это сравнить RS1.recordcount и RS2.recordcount. Удивительно, но оба эти значения получаются = -1 (?).
Причем если зайти с другого конца и сравнить RS1.EOF и RS2.EOF то пустой сразу кричит TRUE (как и положено), а непустой FALSE соответственно.
Т.е. задача с принципе решается, а все равно интересно, что там с recordcount происходит?

[Cyrax]

нужно проверить два свойства рекордсета

Код: Выделить всё

If Recordset.BOF = True And Recordset.EOF = True Then
    ' рекордсет пустой
End If

BOF - начало рекордсета
EOF - ну ты знаешь

..., что там с recordcount происходит?

а Recordcount обновится если ты дойдеш до конца набора записей
Recordset.MoveLast, после чего нужно вернутся в начало. Но это не всегда так, если мне не изменяет склероз, то в статическом рекордсете, Recordcount сразу возвращает количество записей, а в остальных только после того, как ты пролистаешь все записи.

[Alex404]

Спасибо! Все так и есть!
За BOF спасибо отдельное - как то выпало, понимаешь, из внимания...

[Шмульке]

Что называется - похвалю себя, что дочитал аж до предпоследней страницы форума...не хотелось новый топик заводить из-за пустякового вопроса...

Вопрос к товорищу Cyrax:

нельзя ли поподробней об RecordSet ?

если для Alex404 было не принципиально значение RecordCount, то для меня имеет (!)

суть вопроса: как заставить RecordSet "говорить правду" вместо стандартного значения -1 ???

..., что там с recordcount происходит?

а Recordcount обновится если ты дойдеш до конца набора записей
Recordset.MoveLast, после чего нужно вернутся в начало. Но это не всегда так, если мне не изменяет склероз, то в статическом рекордсете, Recordcount сразу возвращает количество записей, а в остальных только после того, как ты пролистаешь все записи.

------
убейте меня, но не нашел я свойства отвечающего за "статику"....

код бы поглядеть

[Cyrax]

черт, не хотел же в сеть лезть... так ведь заставили...
ладно ща попробую чё-нибудь сообразить

давненько я уже не использовал свойство RecordCount... и ни одной книги, как назло, под рукой нет... значит так объект Recordset может возвращать несколько типов наборов записей. каждый из них имеет свои преимущества и недостатки. лично я чаще всего использую два из них (блин бежать через весь кабинет к бейсику... ну ладно сбегаю ) - adOpenKeyset и adOpenDynamic. (ладно хоть RemoteControl настроил...)
первый из них я использую когда мне нужно только прочитать данные, а второй - когда мне требуется данные не только читать, но и изменять.
еще есть adOpenForwardOnly и adOpenStatic.
это константы из библиотеки ADO. и указывают они тип курсора для открываемого набора.

Код: Выделить всё

RS.Open [Source], [ActiveConnection], [CursorType = adOpenDynamic|adOpenKeyset|adOpenForwardOnly|adOpenStatic],...

ой блин... надеюсь, поймешь...

что касается RecordCount - я точно не помню, как именно на значение этого свойства влияет CursorType. но то, что влияет - это точно

за подробностями лучше загляни в MSDN...
еще рекомендую почитать книги "Руководство разработчика баз данных на Visual Basic 6" (Роджер Дженнингс) и "Обработка баз данных на Visual Basic 6" (Джеффри П. Мак-Манус)