-
New Error message ...
Hi,
I did some minor changes to my connectionstring, please see below:
Private Sub Class_Initialize()
sProvider = "OraOLEDB.Oracle"
sDSN = "ABC"
sUserName = "Test"
sPassword = "Test"
sConnect = "Provider=" & sProvider & ";" & _
"Data Source=" & sDSN & ";" & _
"User Id=" & sUserName & ";" & _
"Password=" & sPassword & ";"
Set mConnection = New ADODB.Connection
With mConnection
.ConnectionString = sConnect
.ConnectionTimeout = 10
.CursorLocation = adUseNone
.Open
End With
End Sub
and now I am getting this error:
TSN: could not resolve service name
I checked and my listener is running???
-
check your tnsnames.ora by doing a tns ping, if its okey, try logging in to sqlplus to check the userid, password as well as the host, if you can login, check also your provider driver.
strCON = "Provider=MSDAORA.1;Password=" & xPassword & ";User ID=" & xUserID & ";Data Source=" & DSN & ";Persist Security Info=True"
Set adoDME = New ADODB.Connection
With adoDME
.ConnectionString = strCON
.CursorLocation = adUseServer
.Open
End With
On Error GoTo 0