0

こんにちは、次のことを手伝ってください。以下の VB コードを使用して、テキスト ファイルを Oracle データベースにアップロードしました。スクリプトを実行すると、「Class not defined ADODB」というエラー メッセージが表示されます。

Set Obj_DBConn = New ADODB.Connection
Set cat = New ADOX.Catalog



Obj_DBConn.ConnectionString ="Driver={Microsoft ODBC for Oracle}; " & _
                             "CONNECTSTRING=(DESCRIPTION=" & _
                             "(ADDRESS=(PROTOCOL=TCP)" & _
                             "(HOST=##test##)(PORT=##test##))" & _
                             "(CONNECT_DATA=(SERVICE_NAME=##test##))); " & _
                             "uid=test;pwd=test;"


Obj_DBConn.Open Database_Path


Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")




Set f = Nothing

Set f = fso.OpenTextFile("C:\Documents and Settings\test.txt", ForReading, True)

For i = 1 To 10000

v_Line_String = f.ReadLine


v_Output_Each_part = Split(v_Line_String,";",-1,1)

v_Col_A = v_Output_Each_part(0)
v_Col_B = v_Output_Each_part(1)
v_Col_C = v_Output_Each_part(2)



Obj_DBConn.Execute "INSERT INTO  test_me (ID_Q, NAME, ROLLNO) VALUES ('"       & v_Output_Each_part(0) & "','" & v_Output_Each_part(1) & "','" & v_Output_Each_part(2) & "')"



Next

あなたの洞察を提供してください 事前に感謝します

4

1 に答える 1

1

あなたの

Set Obj_DBConn = New ADODB.Connection

VBScriptではなくVBAです。使用する

Set Obj_DBConn = CreateObject("ADODB.Connection")

この行をインタープリターに渡してもらいます。

邪悪な「OnErrorResumeNext」を削除することを約束した場合は、ここからさらにインスピレーションを得ることができます。

アップデート:

「80004005odbcoracle」のようなものをグーグルで検索すると、接続の問題に対処するための詳細な手順が記載されたこのトラブルシューターが見つかります。次の停車駅はおそらくconnectionstrings.comです。

于 2013-03-12T08:11:03.630 に答える