如何取得DAO方式的记录数？

Question

DAO+ACCESS
打开表后，如何知道表的记录数？？

Answer 1

'给你一个例子'工程->引用 Microsoft DAO3.x Object Library
Option Explicit
    Public mDbs As Database
    Public mWrk As WorkspacePrivate Sub Form_Load()
Dim mRst As Recordset
    Set mWrk = CreateWorkspace("", "admin", "", dbUseJet)
    Set mDbs = mWrk.OpenDatabase(App.Path & "\db1.mdb")
    Set mRst = mDbs.OpenRecordset("Select * From Table1", dbOpenDynaset, dbDenyWrite)
    Do While Not mRst.EOF
        MsgBox mRst.Field(0)
        mRst.MoveNext
    Loop
    mRst.Close
    Set mRst = Nothing
End SubPrivate Sub Command1_Click()
    MsgBox mRst.RecordCount     '也是RecordCount属性
End Sub

Answer 2

修改一下：'给你一个例子'工程->引用 Microsoft DAO3.x Object Library
Option Explicit
    Public mDbs As Database
    Public mWrk As Workspace
    Dim mRst As RecordsetPrivate Sub Form_Load()
    Set mWrk = CreateWorkspace("", "admin", "", dbUseJet)
    Set mDbs = mWrk.OpenDatabase(App.Path & "\db1.mdb")
    Set mRst = mDbs.OpenRecordset("Select * From Table1", dbOpenDynaset, dbDenyWrite)
    MsgBox mRst.RecordCount     '也是RecordCount属性
    Do While Not mRst.EOF
        MsgBox mRst.Field(0)
        mRst.MoveNext
    Loop
    mRst.Close
    Set mRst = Nothing
End Sub

Answer 3

別的方法打開數表也是這樣，都是.RecordCount     這個屬性取得記錄數

Answer 4

谢谢大家，我找到毛病了，是SQL有问题