Partager via

Propriété Application.ODBCErrors (Excel)

  • Article

Retourne une collection ODBCErrors qui contient toutes les erreurs ODBC générées par la table de requête ou l’opération de rapport de tableau croisé dynamique la plus récente. En lecture seule.

Syntaxe

expression. ODBCErrors

expressionUne variable qui représente un objetApplication.

Remarques

Si plusieurs requêtes s’exécutent en même temps, la collection ODBCErrors contient les erreurs ODBC de la requête qui s’est terminée en dernier.

Exemple

Cet exemple montre comment actualiser 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

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.