Help Error 3146 ODBC call failed (1 Viewer)

[fernando.rosales]

Hi guys I am having an issue with a database when creating a Oracle DSN.

I am getting an error 3146 ODBC call failed. Source DAO.dbEngine

This is only happening on 1 computer, I've tried on 9 others and they work fine, only this specific error on 1 computer.

I have call a module to create the DSN

 Call UserDSN.CreateOracleDSN("XXX XXXX", "XXXX", "xxxxxxx", "xxxxxx", True)

Public Sub CreateOracleDSN(dsnName As String, tnsServiceName As String _
, DESCRIPTION As String, userID As String _
, silentInstall As Boolean)
Dim driverName As String
driverName = "Oracle in OraHome92"
Dim myDSN As DSNSettings

With myDSN
.dsnName = dsnName
.driverName = driverName
.silentInstall = silentInstall

.attributes = "Description=" & DESCRIPTION & vbCr & _
"ServerName=" & tnsServiceName & vbCr & _
"UserID=" & userID
End With

Call RegisterDB(myDSN)
End Sub

Private Sub RegisterDB(args As DSNSettings)
On Error GoTo errregfail:
With args
DBEngine.RegisterDatabase .dsnName, .driverName, .silentInstall, .attributes
End With
Exit Sub

errregfail:
MsgBox "An error has occurred and I was not able to create the DSN. " & vbCrLf & _
"Error: " & Err.Number & ": " & Err.DESCRIPTION & vbCrLf & _
"Source: " & Err.Source
End Sub

This last piece is where it gets the error message. Why would this happen on only 1 computer?

 

[ByteMyzer]

You might try enumerating the DBEngine.Errors for more detailed information on that specific computer.

Example:

errregfail:
[COLOR="Navy"]Dim[/COLOR] vError [COLOR="navy"]As Variant
For Each[/COLOR] vError [COLOR="navy"]In[/COLOR] DBEngine.Errors
    MsgBox "An error has occurred and I was not able to create the DSN. " & vbCrLf & _
        "Error: " & vError.Number & ": " & vError.Description & vbCrLf & _
        "Source: " & vError.Source
[COLOR="navy"]Next[/COLOR] vError