vba - 连接DAO访问时出现错误429

Question

我有以下 VBA 代码，用于连接到 MDB 数据库，但当我尝试连接 DAO.OpenDatabase(DbFile) 时收到 429 错误

我以前没有收到此错误，但现在发生了。在我的另一台计算机上，此连接工作正常。

我检查了MDB的路径，是正确的。

我使用的引用文献是:
- Visual Basic 应用程序
- Microsoft Excel 15.0 对象库
- OLE 自动化
- Microsoft Office 15.0 对象库
- Microsoft DAO 3.6 对象库

我使用的是 Excel 2013(在其他计算机上是 Excel 2010)，但正如我所说，它在 2013 年之前可以工作。

请问有谁知道如何解决这个问题吗？

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

Answer 1

我已经为同样的问题苦苦挣扎了很长一段时间。
事实证明，我的 Office 是 64 位，因此引用的 Microsoft DAO 3.6 对象库不起作用。

通过引用资料，我们发现使用 Microsoft Office 15.0 Access 数据库引擎对象 (ACEDAO.DLL) 而不是 DAO360> 解决了问题。

链接到一个类似的答案，如果我早点发现它就可以解决我的问题 Writing Excel VBA to receive data from Access