2
我有我用來連接到一個MDB數據庫後續VBA代碼，但我得到一個429錯誤，當我嘗試連接DAO.OpenDatabase（DBFILE）錯誤429時連接DAO訪問
我是不是之前得到這個錯誤，但現在它正在發生。在我的其他電腦上，這個連接工作正常。
我檢查MDB的路徑是正確的。
我使用的參考文獻：
- Visual Basic應用程序
- 微軟的Excel 15.0對象庫
- OLE自動化
- 微軟Office 15.0對象庫
- Microsoft DAO 3.6對象庫
我用Excel 2013（在另一臺電腦是Excel 2010中），但正如我說，這是2013年
工作之前沒有人知道如何得到這個PR問題解決了嗎？
Private Sub IniciaDB()
Dim rs As Recordset
Dim fld As Variant
Dim DbFile as String
DbFile = "D:\Documentos\PMbox\PPMdatabase2.MDB"
On Error Resume Next
Set OpenConn = DAO.OpenDatabase(DbFile)
If Err.Number = 3024 Then MsgBox "Check connection string in the VBA StaticClass object", vbOKOnly
Set ObjAccess = CreateObject("Access.Application")
ObjAccess.Visible = False
ObjAccess.OpenCurrentDatabase (DbFile)
'runSQL ("INSERT INTO tabela_teste VALUES ('My name', 34)")
Set rs = runCursorSQL("SELECT * FROM tabela_teste")
Do While Not rs.EOF
For Each fld In rs.Fields
Debug.Print fld.Value & ";";
Next
rs.MoveNext
Loop
closeResources
End Sub
哪一行拋出這個錯誤？什麼是錯誤描述？ – shahkalpesh 2015-02-07 19:26:32
該行是：設置OpenConn = DAO。OpenDatabase（DbFile） – Braulio 2015-02-07 19:27:08
錯誤描述是：「ActiveX組件無法創建對象」 – Braulio 2015-02-07 19:27:37