Handling SQLDMO errors gracefully in VB6

[cnicho]

Hi
I would like to intercept a login failure and display a message accordingly.
I am using SQLDMO in VB6. The ServerMessage event does not process messages with a severity higher than 10 so the procedures error handler processes it as a vb error.

The Err.Number is a large negative number and the Err.Source property value contains the generic ODBC error 28000.

Is it possible to read the SQLState/native sql error number via some property somewhere in SQLDMO i.e. a parallel to the ADO Error object?

Regards
Craig

 

[cnicho]

I found the answer buried in an MSDN article.
You subtract vbObjectError constant from the Err.Number value.