检测 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。