[英]Couldnt connect to Oracle Database using VB script
嗨,請幫我以下。 我使用下面的VB代碼將文本文件上傳到oracle數據庫。運行腳本時,出現錯誤消息“未定義類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
請提供您的見解
你的
Set Obj_DBConn = New ADODB.Connection
是VBA,而不是VBScript。 采用
Set Obj_DBConn = CreateObject("ADODB.Connection")
使這一行通過解釋器。
如果您承諾刪除邪惡的“ On Error Resume Next”,則可以從此處獲得更多啟發。
更新:
如果您用Google搜索“ 80004005 odbc oracle”之類的內容,則會發現此故障排除程序,並提供詳細的分步說明來處理連接問題。 下一站可能應該是connectionstrings.com 。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.