Description、NativeError、Number、Source 和 SQLState 属性范例 (VB)

本范例触发并捕获错误，并显示结果 Error 对象的 Description、HelpContext、HelpFile、NativeError、Number、Source 和 SQLState 属性。

Public Sub DescriptionX()

    Dim cnn1 As ADODB.Connection
    Dim errLoop As ADODB.Error
    Dim strError As String

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

ErrorHandler:

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

    Debug.Print strError
    Next

    Resume Next