Esempio delle proprietà Description, HelpContext, HelpFile, NativeError, Number, Source e SQLState (VB)

  • Articolo

In questo esempio viene attivato un errore, viene intercettato e vengono visualizzate le proprietà Description, HelpContext, HelpFile, NativeError, Number, Source e SQLState dell'oggetto Error risultante.

'BeginDescriptionVB  
Public Sub Main()  
  
    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"  
  
    Set Cnxn = 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

Vedere anche

Proprietà Description
Oggetto Error
Proprietà HelpContext e HelpFile
Proprietà HelpContext e HelpFile
Proprietà NativeError (ADO)
Proprietà Number (ADO)
Proprietà Source (Error - ADO)
Proprietà SQLState