# TNSNAMES.ORA Network Configuration File: F:\oracle\ora92\network\admin\tnsnames.ora
# Generated by Oracle configuration tools.
THADB.WORLD =
(DESCRIPTION =
(ADDRESS_LIST =
(ADDRESS = (PROTOCOL = TCP)(HOST = 172.30.56.69)(PORT = 1521))
(ADDRESS = (PROTOCOL = TCP)(Host = 172.30.56.69)(Port = 1526)))
(CONNECT_DATA = (SID = THADB)))
замечу, что связь вежется через впн.
Был написан следующий код:
call oracle_GetProviderString()
call sql_GetOraConnection("HA_MAIN_USER","hamain1","172.30.56.69:1521/THADB")
Function oracle_GetProviderString()
oracle_GetProviderString = "Provider=MSDAORA;Persist Security Info=False;" ' Microsoft
' oracle_GetProviderString = "Provider=OraOLEDB.Oracle;Persist Security Info=False;" ' Oracle
end function
'Возвращает объект ADOConnection. Что с ним делать - см. MSDN
Function sql_GetOraConnection(UName,UPwd,Source)
Dim CNN
Set CNN = CreateObject("Adodb.Connection")
With CNN
.ConnectionString = oracle_GetProviderString() & "User ID="+UName+";Password="+UPwd+"ata Source="+Source
On Error Resume Next
.Open
If err.number<>0 Then
MsgBox "Error: "&Err.Description
Set sql_GetOraConnection = Nothing
Reporter.ReportEvent micFail,"Cannot Establish oracle connection!",CStr(Err.Description)
On Error Goto 0
Set sql_GetOraConnection=Nothing
Exit Function
End If
On Error Goto 0
End With
Set sql_GetOraConnection = CNN
End Function
При выполнении появляется следующий эксепшен:
ORA-12560: TNS:ошибка адаптера протокола
Не пойму, в чем дело
