1
    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。

4

0 回答 0