Dim con As Object
Dim rs As Object
Dim cmd As Object
Dim query As String
Set con = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Set cmd = CreateObject("ADODB.Command")
col = 2
strcon = "Provider=OraOLEDB.Oracle;" _
& "Data Source= (DESCRIPTION = (ADDRESS = (PROTOCOL = TCP)(HOST = SERVER_IP)(PORT = 1521)) (CONNECT_DATA = (SERVER = DEDICATED) (SERVICE_NAME = orcl.Multi-Act.Local))); " _
& "Initial Catalog=DatabaseName;" _
& "Trusted_connection=yes"
con.Open (strcon)
我收到一个名为“运行时错误'-2147217887 (80040e21)”的错误:自动化错误
如果没有受信任的连接,此代码可以正常工作。但是受信任的连接无法建立连接。我安装了 ODAC122010Xcopy_x64。