L'objet ADO Error contient les détails des erreurs d'accès des bases de données qui concerne une unique opération impliquant le fournisseur.

Objet_Error.Propriété

Chaque objet ADO est susceptible de générer une ou plusieurs erreurs spécifiques au fournisseur.

A chaque fois qu'une erreur se produit, un ou plusieurs objets Error sont créés dans la collection Errors de l'objet Connection. Ainsi lorsqu'une opération ADO provoque une autre erreur, la collection Errors est réinitialisée afin d'accueillir le jeu d'erreurs en cours.

Certaines propriétés ou méthodes peuvent retourner des messages d'avertissments qui apparaissent dans la collection Errors à l'image des objets Error. Néanmoins, ces messages n'entraînent pas l'arrêt de l'exécution du programme.

Les Propriétés
Propriété
Description
Objet_Error.Description = Texte
retourne une description textuelle de l'erreur.
Objet_Error.HelpContext = ID_Contexte
retourne un entier long représentant l'identificateur contextuel pour atteindre un thème dans un fichier d'aide.
Objet_Error.HelpFile = Chemin_Fichier_Aide
retourne une chaîne de caractères représentant le chemin complet du fichier d'aide.
Objet_Error.NativeError = Code_Erreur_Fournisseur
retourne un entier long représentant le code d'erreur spécifique au fournisseur.
Objet_Error.Number = Numéro_Erreur
retourne un entier long représentant le numéro de l'erreur.
Objet_Error.Source = Nom_Objet
retourne l'identificateur de l'objet ou de l'application qui a provoqué l'erreur.
Objet_Error.SQLState = Etat_SQL
indique l'état SQL d'un objet Error.
Exemple [voir] 
<html>
 <head>
 <%
     Function Verif_coll_Errors(obj_Connection)
     Dim obj_Error
     If Err.Number <> obj_Connection.Errors(0).Number Then
       Exit Function
     End If
     If obj_Connection.Errors.Count > 0 Then
       For Each obj_Error in obj_Connection.Errors
       If obj_Error.Number <> 0 Then
         Response.Write "" & _
           "<table border="0" cellpadding=1 cellspacing=2 border=1>" & _
           "<tr><th>Propriété</th><th>Valeur</th>" & _
           "</tr><tr><th>Numéro</th><td>" & obj_Error.Number & "</td></tr>" & _
           "<tr><th>Erreur native</th><td>" & obj_Error.NativeError & "</td></tr>" & _
           "<tr><th>Etat SQL</th><td>" & obj_Error.SQLState & "</td></tr>" & _
           "<tr><th>Source</th><td>" & obj_Error.Source & "</td></tr>" & _
           "<tr><th>Description</th><td>" & obj_Error.Description & "</td></tr>" & _
           "</table>"
         Verif_coll_Errors = True
       End If
       Next
     Else
       Verif_coll_Errors = False
     End If
     End Function

     On Error Resume Next
 %>
 </head>
 <body>
 <%
     Dim Ch_SQL
     Ch_SQL = "SELECT Noms, Prenom, Age, Qualites, eMail, Adresse" _
            & "FROM Fiche","DSN=personnel"
     Set obj_Recordset = Server.CreateObject("ADODB.Recordset")
     obj_Recordset.Open Ch_SQL
       If Verif_coll_Errors(obj_Recordset.ActiveConnection) = False Then
 %>
       <table border="1" cellpadding="3" align="center">
       <tr>
         <td colspan="6">Fiches signalétiques des personnels</td>
       </tr>
       <tr>
         <td>Nom</td>
         <td>Prénom</td>
         <td>Age</td>
         <td>Qualité</td>
         <td>eMail</td>
         <td>Adresse</td>
       </tr>
 <%
       Do While Not obj_Recordset.EOF
 %>
       <tr>
         <td><%=obj_Recordset("Nom")%></td>
         <td><%=obj_Recordset("Prenom")%></td>
         <td><%=obj_Recordset("Age")%></td>
         <td><%=obj_Recordset("Qualite")%></td>
         <td><%=obj_Recordset("eMail")%></td>
         <td><%=obj_Recordset("Adresse")%></td>
       </tr>
 <%
       obj_Recordset.MoveNext
       Loop
       End If
     obj_Recordset.Close
     Set obj_Recordset = Nothing
 %>
     </tr>
 </table>
 </body>
</html>