Как определить количество записей в наборе - VB

Формулировка задачи:

Привет знатокам VB! Подскажите пожалуйста, как определить количество записей в наборе. У меня всегда показывает значение -1 Вот мой код:

Dim lTotRec As Integer
 
On Error GoTo err_TotRec
 
 With rs_user
  If (.RecordCount < 0) Then
   .MoveLast
   lTotRec = .RecordCount
   .MoveFirst
   lblTotRec.Caption = lTotRec
   End If
 End With
 
err_TotRec:

Никак не могу понять, почему у меня показывает не верное количество записей в наборе Спасибо все )

Решение задачи: «Как определить количество записей в наборе»

textual
                            Листинг программы 
                        

                            On Error Resume Next
  With rs_user
   .MoveLast
   lblTotRec.Caption = rs_user.Recordset.RecordCount
 End With
                        

Оцени полезность:

5 голосов , оценка 4.2 из 5

Похожие ответы