使用 instantclient_11_2 和 VBScript 连接 Oracle 远程数据库

Connecting Oracle remote database using instantclient_11_2 and VBScript

操作系统是windows10 64位

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

连接成功

现在我尝试连接 VBscript 文件,但 return 是一个错误

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager]Data source name not found and no default driver specified.

如何解决这个问题?

   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  

Setting up an Oracle ODBC Driver and Data Source

Last version 64-bit ODAC 12.2c Release 1 (12.2.0.1.1) for Windows x64

Oracle in OraClient11g_home1 connection strings

   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