Deskripsi, HelpContext, HelpFile, NativeError, Number, Source, dan SQLState Properties Example (VB)

  • Artikel

Contoh ini memicu kesalahan, menjebaknya, dan menampilkan properti Deskripsi, HelpContext, HelpFile, NativeError, Number, Source, dan SQLState dari objek Kesalahan yang dihasilkan.

'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

Lihat juga

Properti Deskripsi
Objek Kesalahan
Properti HelpContext, HelpFile
Properti HelpContext, HelpFile
Properti NativeError (ADO)
Properti Angka (ADO)
Properti Sumber (Kesalahan ADO)
Properti SQLState