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.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour