Description、NativeError、Number、Source 和 SQLState 屬性范例

Description、NativeError、Number、Source 和 SQLState 屬性范例

該范例觸發(fā)并捕獲錯誤，同時顯示產(chǎn)生的 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

   ' 有意觸發(fā)錯誤。

   Set cnn1 = New ADODB.Connection

   cnn1.Open "nothing"

   Exit Sub

ErrorHandler:

   ' 枚舉錯誤集合并顯示每個 Error 對象的屬性。

   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

End Sub