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

【问题标题】：detect last record in ADO.Recordset?检测 ADO.Recordset 中的最后一条记录？
【发布时间】：2010-04-23 20:21:34
【问题描述】：

如果我正在循环通过 ADO.Recordset（使用 while not recordSet.EOF），有没有办法检测到我在最后一条记录上？

【问题讨论】：

【解决方案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。

希望对你有所帮助。

【讨论】：

【解决方案2】：

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

或者你可以直接调用 MoveLast。

【讨论】：

MoveLast 不是我想要的...我想检测最后一个，而不是让它成为最后一个