检测ADO.Recordset中的最后一条记录？

Question

如果我循环访问ADO.Recordset（使用而不是recordSet.EOF ），有没有办法检测到我在最后一条记录上？

Answer 1

`

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。

我希望这对你有所帮助。

Answer 2

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

或者您可以调用MoveLast。