運行時錯誤：嘗試通過Excel宏連接到oracle數據庫時出現自動化錯誤

Question

我是一名初學者，擅長於2007年。我嘗試連接到Oracle數據庫10G並從中提取數據。我得到「運行時錯誤：' - 2147467259（80004005）'： 自動化錯誤未指定錯誤」。此代碼正在爲我的老人工作。請幫助！

Sub build_database_connection() 

Dim cn As ADODB.Connection 
Set cn= New ADODB.Connection 
servername = example.com 
UserName = example 
pass = example 

cn_cdcp.Open "Provider=MSDAORA.1;Data Source=" & servername & ";User ID=" & UserName & "Password=" & pass & ";" 

End Sub 

Answer 1

乍一看有與你上面代碼中的一些問題，我不知道，如果它只是一個問題的複製，但在這裏我去反正。

Sub build_database_connection() 

    Dim cn As ADODB.Connection 
    Set cn = New ADODB.Connection 
    servername = "example.com" '<~~ the ".." defines a string 
    UserName = "example" '<~~ the ".." defines a string 
    pass = "example" '<~~ the ".." defines a string 

    'cn_cdcp doesn't exist use cn instead 
    'correct connection string should be 
    '"Provider=msdaora;Data Source=MyOracleDB;User Id=myUsername;Password=myPassword;" 
    '<~~ you missed a ; 
    cn.Open "Provider=MSDAORA.1;Data Source=" & servername & _ 
     ";User ID=" & UserName & ";Password=" & pass & ";" 

End Sub 

在說上述我認爲你的問題是在連接字符串。有關更多信息，請參閱Connection Strings。

你應該是Provider=msdaora;Data Source=MyOracleDB;User Id=myUsername;Password=myPassword;