将VBA与oracle 11g企业版连接起来

Question

我正在尝试将VBA连接到Oracle 11g-我正在检查连接字符串是否正常。

在尝试下面的代码时，我在打开连接时出错。

运行时错误-3706应用程序定义或对象-defined错误。

有人能帮忙吗？

代码：

Sub getdatafromOracle()
Dim connectdb As ADODB.Connection

connectdb.ConnectionString = "PROVIDER= OraOLEDB.Oracle;DATA SOURCE=DBname;USER ID=uname;PASSWORD=Pword"

connectdb.Open
connectdb.Close

End Sub

Answer 1

必须先初始化连接对象，然后才能使用它。

set connectdb = New ADODB.Connection

也许您必须使用这个语法(我不确定)：

connectdb.Open("PROVIDER=OraOLEDB.Oracle;DATA SOURCE=DBname", "uname", "Pword")