如何在ADO中统计数据表中的 所有记录的条数 和 当前记录是第几条 ？

Question

如果用Adodc这个控件很好实现，只需读取RecordCount和AbsoultePosition的属性值就可以得到，可是在我的程序中并没有添加Adodc这个控件，请问如何用ADO来统计数据表中的[所有记录的条数]和[当前记录是第几条]？

Answer 1

用 ADO 也同樣可以使用 RecordCount和AbsoultePosition,例如:Private Sub Command1_Click()
    Dim cnADO as New ADODB.Connection
    Dim rsADO as new ADODB.Recordset    cnADO.CursorLocation = adUseClient
    cnADO.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb"
    
    rsADO.Open "Select * From Orders",cnADO
    
    MsgBox "共有" & rsADO.RecordCount & "條紀錄"
    MsgBox "當前位置是" & rsADO.AbsoultePosition    
End Sub