обнаружение последней записи в ADO.Recordset?

Question

Если я перебираю ADO.Recordset (с , а не recordSet.EOF), есть ли способ обнаружить, что я на последней записи?

Answer 1

rs.Index == (rs.RecordCount - 1) 

Или вы могли бы просто вызвать MoveLast.

Answer 2

`

Private Sub cmdForw_Click() 
dataControl.Recordset.MoveNext 
    If dataControl.Recordset.AbsolutePosition = adPosEOF Then 
     answer = MsgBox("Add new record?", vbExclamation + vbYesNo, "There are no more records") 
     If answer = vbYes Then 
      dataControl.Recordset.AddNew 
      txtTEXT.SetFocus 
     End If 
    End If 
End Sub 

'

AbsolutePosition Свойство записей дают три значения: adPosBOF, adPosEOF и adPosUnknown, это последнее для NO-RECORDS в нашей БД.

Я надеюсь, что это поможет вам.