用instantclient_11_2和VBScript连接Oracle数据库

Question

操作系统是windows 10 64位。

我在c:\windows\syswow64\odbcad32上配置了新的用户DSN，使用instantclient_11_2中的驱动程序Oracle连接远程Oracle数据库。

​

​

连接是成功的

​

​

现在我尝试在VBscript文件上连接，但是返回是一个错误。

未找到用于ODBC驱动程序的Microsoft提供程序错误“80004005”MicrosoftData源名称，也未指定默认驱动程序。

如何解决这个问题？

   Set cn = CreateObject("ADODB.Connection")  
   cn.Open "Driver={Oracle in instantclient_11_2}; " & _
           "CONNECTSTRING=(DESCRIPTION=" & _
           "(ADDRESS=(PROTOCOL=TCP)" & _
           "(HOST=XXX)(PORT=1521))" & _
           "(CONNECT_DATA=(SERVICE_NAME=XXX))); uid=XXX;pwd=XX;"
  
   cn.CommandTimeout = 10000
   
   cn.Close()
   Set cn = Nothing  

Answer 1

设置Oracle ODBC驱动程序和数据源

最新版本64位ODAC 12.2c第1版(12.2.0.1.1)适用于Windows x64

home1连接字符串

   Set cn = CreateObject("ADODB.Connection")  
   cn.Open "Driver={Oracle in OraClient12home1}; " & _
           "CONNECTSTRING=(DESCRIPTION=" & _
           "(ADDRESS=(PROTOCOL=TCP)" & _
           "(HOST=XXX)(PORT=1521))" & _
           "(CONNECT_DATA=(SERVICE_NAME=XXX))); uid=XXX;pwd=XX;"
  
   cn.CommandTimeout = 10000
   
   cn.Close()
   Set cn = Nothing