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