1

我的应用程序如下：我使用 Access 2007 数据库进行数据存储，并使用 Excel 2007 作为前端。我正在使用 Microsoft.ACE.OLEDB.12.0 进行 ADODB 连接，并引用了为此所需的库（dll）。我下面的代码位于 Excel 模块中，可在 12 台机器中的 9 台上运行。另一个正在获取“运行时错误 429”，并且在尝试创建 ADODB 对象的代码的第 25 行失败。谁能帮我制定一个故障排除计划来找出这些机器出了什么问题？我认为这可能是一个注册表问题，但想看看你们要说什么。所有机器都安装了 XP SP3 操作系统和 Office 2007。感谢您的任何帮助。

交叉发布在http://www.mrexcel.com/forum/excel-questions/723189-runtime-error-429%3B-cant-create-object.html

Public Sub AccessData()
Dim UserID As String
Dim adoConn As ADODB.Connection
Dim adoRS As ADODB.Recordset
Dim sSQL, ConnSQL As String
Dim IDName As String
On Error GoTo err_handler
10:    UserID = Environ("USERNAME") 
20:    pwd = Worksheets(2).Cells(8, 2).Value
25:    Set adoConn = CreateObject("ADODB.connection")
26:    Set adoRS = CreateObject("ADODB.Recordset")
30:    ConnSQL = Worksheets(2).Cells(10, 3).Value
35:    adoConn.ConnectionString = ConnSQL
40:    adoConn.Open
50:    adoRS.CursorType = adOpenDynamic
60:    adoRS.CursorLocation = adUseClient
70:    adoRS.ActiveConnection = adoConn 
90:    sSQL = "SELECT fname, lname FROM Staff WHERE userid ='" & UserID & "'"   
100:    adoRS.Source = sSQL     
110:    adoRS.Open
120:    Worksheets(2).Cells(2, 2).CopyFromRecordset adoRS
130:    adoRS.Close    
140:    adoConn.Close
150:    Set adoRS = Nothing
160    Set adoConn = Nothing
170:    Call GetPlans(UserID)
err_handler:
    MsgBox "The code failed at line " & Erl, vbCritical
End Sub
4

0 回答 0