将VBA与Oracle 11g企业版连接

Question

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

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

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

任何人都可以帮忙吗？

代码：

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

您HABE初始化Connection对象，然后才能使用它。

set connectdb = New ADODB.Connection 

也许你就必须使用这个语法（我不知道）：

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