在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在我们的数据库中。

我希望这对你有所帮助。