Проблема с SQL запросом

[Emzari]

Имеется база данных из которого надо получить те записи которые удовлетворяют определеныые условия. Для этого исползуется SQL запрос но почемута оно возврашает только первую запис. Тотже запрос при выполнении из Accsses-а возврашает все нужные записи.

Привожу фрагмент кода:

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

Dim wrkJet As Workspace
Dim rstTemp As Recordset
Dim myBase As Database
Dim qryTemp As QueryDef

Private Sub Form_Load()
    Set wrkJet = CreateWorkspace("", "Admin", "", dbUseJet)
    Set myBase = wrkJet.OpenDatabase(strPath)
    Set qryTemp = myBase.CreateQueryDef("", _
                "SELECT Classes.ClasID, Classes.Date_1 " & _
                "From Classes " & _
                "WHERE (((Classes.Status)=True))")
    Set rstTemp = qryTemp.OpenRecordset
    Label1.Caption = rstTemp.RecordCount
End Sub


Спасибо всем

[codemaster]

почемута оно возврашает только первую запис.

Привожу фрагмент кода:



Label1.Caption = rstTemp.RecordCount

однако!!! а что ты хочеш получить на выходе?

[Al Khamid]

lll

[Emzari]

спасибо Al Khamid всё получилос

[Tin]

Вот за что я люблю АДО - там рекорд каунт можно узнать сразу...

[GSerg]

Да ну? Даже при серверном курсоре?

[Tin]

э.... Ну не знаю если честно...