获得记录集的记录数RecordCount

时　间:2024-01-01 10:46:49
作　者:张志   ID：8  城市：上海  QQ：3059255
摘　要:用ADO访问记录时，CursorType的默认值是adOpenForwardOnly，只向前的游标不支持RecordCount属性。
正　文:

有一个【tbl员工明细】表，当我们采用ADO访问时，利用RecordCount来获得记录数，下面的代码不能成功。

    '需要在VBA引用中引用 Microsoft ActiveX Data Objects 2.8，这里的2.8是版本号，大家可引用你有的版本号
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset
    rst.ActiveConnection = CurrentProject.Connection
    rst.Open "select * from tbl员工明细"
    Me.txt记录数 = rst.RecordCount
    rst.Close
    Set rst = Nothing

对代码作一下改动，就可以支持RecordCount属性了，示例代码如下：

    '需要在VBA引用中引用 Microsoft ActiveX Data Objects 2.8，这里的2.8是版本号，大家可引用你有的版本号
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset
    rst.ActiveConnection = CurrentProject.Connection
    rst.CursorType = adOpenStatic 'CursorType 设置为 adOpenStatic，由于静态游标支持RecordCount，所以可以得到记录数
    rst.Open "select * from tbl员工明细"
    Me.txt记录数2 = rst.RecordCount
    rst.Close
    Set rst = Nothing

点击下载此附件

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店