' Vorhandensein eines Feldes pr?fen mit ADO
Public Function dbRecordCount(Table As String) As Long
Dim rst As ADODB.Recordset
On Error GoTo ErrHandler
Set rst = New ADODB.Recordset
rst.Open "SELECT * FROM " & Table, cnt 'Create the recordset.
Set rst.ActiveConnection = Nothing 'Disconnect the recordset.
dbRecordCount = rst.RecordCount
rst.Close
Set rst = Nothing
Exit Function
ErrHandler:
gErrors.DisplayError csErrSource & ".AddNewRecord"
Stop
End Function
uj5u.com熱心網友回復：
沒說哪報錯，報啥錯，就扔一片代碼上來。就好像到醫院往診療床上一躺跟醫生說：我不舒服，給瞧瞧。看你這段代碼猜測你的幾個可能報錯點：
1、沒有參考ADO類別庫
2、這段代碼里面cnt顯然是一個connection，但看你這段代碼的外文注釋，應該是網上拷貝過來的吧，是不是cnt物件根本沒有宣告也沒有和資料庫連接
3、如果ADO參考、connection都創建好了，那么接下來一個報錯基本上就是那句SQL陳述句執行報錯了。你的資料庫里到底有沒有 Table這個字串所指向的表名。
問題應該是說編譯錯誤吧，上述 1、2會引起編譯錯誤，3是執行程序中產生的錯誤。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/16822.html
標籤：VBA