La collection ADO Errors contient tous les objets Error créés en réponse à un seul échec relatif au fournisseur.
Objet_Connection.Errors.Propriété | Méthode
Seul l'objet Connection permet d'accéder à la collection Errors. Bien que paraissant restrictif, il n'est pas obligatoire de faire appel à un objet Connection explicite puisque la propriété ActiveConnection des objets Command, Record ou Recordset autorise l'accès à la collection Errors.
Objet.ActiveConnection.Errors
Lorsqu'une seconde erreur relative à un autre objet ADO intervient, la collection Errors est réinitialisée et à nouveau remplie par les caractéristiques de la nouvelle erreur.
Le fournisseur OLE DB peut également insérer des informations ou des avertissements à l'index zéro de la collection Errors.
Les Propriétés| Propriété |
|---|
| Description |
| Errors.Count |
| indique le nombre d'objets Error d'une collection. |
| Errors.Item(Index) |
| retourne un élément de la collection. |
| Méthode |
|---|
| Description |
| Errors.Clear |
| supprime tous les objet Error de la collection. |
| Errors.Refresh |
| met à jour les objets Error dans la collection afin de reflèter les objets disponibles à partir du fournisseur et propre à ce-dernier. |
<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> |