1

私のアプリケーションは次のとおりです。データ ストレージに Access 2007 データベースを使用し、フロント エンドとして Excel 2007 を使用しています。ADODB 接続に Microsoft.ACE.OLEDB.12.0 を使用しており、これに必要なライブラリ (dll) を参照しています。以下のコードは Excel モジュール内にあり、12 台中 9 台のマシンで動作します。もう 1 つは「実行時エラー 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
4

0 に答える 0