Objet ODBCErrors (Excel)
Collection d’objets ODBCError .
Chaque objet ODBCError représente une erreur renvoyée par la requête ODBC la plus récente. Si la requête ODBC spécifiée s'exécute sans erreur, la collection ODBCErrors est vide. Les erreurs de la collection sont indexées dans l’ordre dans lequel elles sont générées par la source de données ODBC. Vous ne pouvez pas ajouter de membre à la collection.
Utilisez la propriété ODBCErrors de l’objet Application pour renvoyer la collection ODBCErrors . L'exemple suivant montre comment mettre à jour la table de requête 1 et afficher toutes les erreurs ODBC.
With Worksheets(1).QueryTables(1)
.Refresh
Set errs = Application.ODBCErrors
If errs.Count > 0 Then
Set r = .Destination.Cells(1)
r.Value = "The following errors occurred:"
c = 0
For Each er In errs
c = c + 1
r.offset(c, 0).value = er.ErrorString
r.offset(c, 1).value = er.SqlState
Next
Else
MsgBox "Query complete: all records returned."
End If
End With
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.