Exemple des propriétés Description, HelpContext, HelpFile, NativeError, Number, Source, et SQLState (VB)
Cet exemple déclenche une erreur, l’intercepte et affiche les propriétés Description, HelpContext, HelpFile, NativeError, Number, Source et SQLState de l’objet Error résultant.
'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
Voir aussi
Description, propriété
Error, objet
HelpContext, HelpFile, propriétés
HelpContext, HelpFile, propriétés
NativeError, propriété (ADO)
Number, propriété (ADO)
Source, propriété (objet Error ADO)
SQLState, propriété
Commentaires
https://aka.ms/ContentUserFeedback.
Prochainement : Tout au long de l'année 2024, nous supprimerons progressivement les GitHub Issues en tant que mécanisme de retour d'information pour le contenu et nous les remplacerons par un nouveau système de retour d'information. Pour plus d’informations, voir:Soumettre et afficher des commentaires pour