MS Access中的DAO方法

我無法通過打開Ms Access Query來獲取記錄數，我使用以下代碼。MS Access中的DAO方法

Private Sub CmdGetData_Click() 
Dim WRK As Workspace 
Dim db As DAO.Database 
Dim rs As DAO.Recordset 
Dim StrSql As String 

Set WRK = DBEngine.Workspaces(0) 
Set db = CurrentDb 
StrSql = "select * from [QrySalePatti]" 

Set rs = db.OpenRecordset(StrSql, dbOpenDynaset) 

Do While (Not rs.EOF) 
    rs.MoveFirst 
    rs.MoveLast 
    MsgBox rs.RecordCount 
Loop 

exitRoutine: 
If Not (db Is Nothing) Then 
    db.Close 
    Set db = Nothing 
End If 

Set WRK = Nothing 
End Sub

來源

2014-01-23 user3228341

歡迎來到StackOverflow。你已經很好地添加了有問題的代碼，但仍然缺少重要的細節：程序的* expected *輸出是什麼，你得到的* actual *輸出是什麼？請使用您問題下方的「編輯」鏈接添加該信息。 – Heinzi

您不應該需要Do While循環才能獲得RecordCount。

Set rs = db.OpenRecordset(StrSql, dbOpenDynaset) 
With rs 
    If Not (.BOF And .EOF) Then 
     .MoveLast 
    End If 
    MsgBox .RecordCount 
End With

但是，如果你的目標只是從QrySalePatti計算行數，你可以使用一個SELECT Count(*)查詢並讀取返回的值。

StrSql = "SELECT Count(*) AS row_count FROM [QrySalePatti]" 
Set rs = db.OpenRecordset(StrSql) 
MsgBox rs!row_count

或者你可以使用一個DCount表達。

MsgBox DCount("*", "QrySalePatti")

來源

2014-01-23 16:22:45 HansUp

MS Access中的DAO方法

回答

相關問題