How to trap an OpenDatabase Error

[neemi]

I am using

Set dbODBC = wsApp.OpenDatabase("", False, False, sODBC)

to connect to the SQL Server

And just wanted to know how is the best way to check that a connection is made..

Ie.. getting back a True Or False for a successfuil connection rather than gettng the SQL Server Error.

 

[AlexCuse]

Not a lot of choices in Access (that I know of).

I would just add an error handler to your sub.

Hope this helps,

Alex

Ignorance of certain subjects is a great part of wisdom

 

[neemi]

have you got an example of the error trapping please?

 

[JoeAtWork]

Public Sub OpenTheDB()

  On Error Goto ErrHandler

  Set dbODBC = wsApp.OpenDatabase("", False, False, sODBC)

  'This prevents you from  falling through to the error handler
  Exit Sub   

ErrHandler:
  MsgBox "Error #" & Err.Number & ": " & Err.Description

End Sub

 

[maxhugen]

I have no idea if this will work, but it's worth a try...

Check if the LastDllError property of the error object returns something useful, eg:

ErrHandler:
    MsgBox "Error #" & Err.Number & ": " & Err.Description & vbcrlf & _
           "External error: " & err.LastDllError

Max Hugen
Australia