Description, HelpContext, HelpFile, NativeError, Number, Source, and SQLState Properties Example (VB)

This example triggers an error, traps it, and displays the Description, HelpContext, HelpFile, NativeError, Number, Source, and SQLState properties of the resulting Error object.

'BeginDescriptionVB
Public Sub DescriptionX()

   Dim Cnxn As ADODB.Connection
   Dim Err As ADODB.Error
   Dim strError As String

   On Error GoTo ErrorHandler
   
   ' Intentionally trigger an error
   Set Cnxn = New ADODB.Connection
   Cnxn.Open "nothing"
   
   Exit Sub

ErrorHandler:

   ' Enumerate Errors collection and display
   ' properties of each Error object
   For Each Err In Cnxn.Errors
      
      strError = "Error #" & Err.Number & vbCr & _
         "   " & Err.Description & vbCr & _
         "   (Source: " & Err.Source & ")" & vbCr & _
         "   (SQL State: " & Err.SQLState & ")" & vbCr & _
         "   (NativeError: " & Err.NativeError & ")" & vbCr
      If Err.HelpFile = "" Then
         strError = strError & "   No Help file available"
      Else
         strError = strError & _
            "   (HelpFile: " & Err.HelpFile & ")" & vbCr & _
            "   (HelpContext: " & Err.HelpContext & ")" & _
            vbCr & vbCr
      End If
         
   Debug.Print strError
   Next

   Resume Next

End Sub
'EndDescriptionVB

See Also

Description Property | Error Object | HelpContext Property | HelpFile Property | NativeError Property | Number Property | Source Property (ADO Error) | SQLState Property

© 1998-2001 Microsoft Corporation. All rights reserved.