Lire en anglais

Partager via


Objet ODBCErrors (Excel)

Collection d’objets ODBCError .

Remarques

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.

Exemple

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 

Méthodes

Propriétés

Voir aussi

Assistance et commentaires

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.