Question

我的应用程序如下：我使用Access 2007数据库进行数据存储，并使用Excel 2007作为前端。我正在使用Microsoft.ACE.OLEDB.12.0进行ADODB连接，并引用了此所需的库（dll）。我的下面的代码在Excel模块中，适用于12台机器中的9台。另一个是获取“运行时错误429”并且在尝试创建ADODB对象的代码的第25行上失败。任何人都可以帮我解决问题，找出这些机器的问题吗？我认为这可能是一个注册问题，但想看看你们有什么要说的。所有计算机都安装了XP SP3 OS和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

运行时错误429;无法创建对象（Excel 2007）

0 个答案: