Classe ODBCError - une erreur ODBC générée par la requête ODBC la plus récente (Excel VBA)

Cet objet représente une erreur ODBC générée par la requête ODBC la plus récente. Pour utiliser une variable de classe ODBCError, elle doit d'abord être instanciée, par exemple

Dim odber as ODBCError
Set odber = Application.ODBCErrors(Index:=1)

For Each

Voici un exemple de traitement des éléments ODBCError dans une collection

Dim odber As ODBCError
For Each odber In Application.ODBCErrors
	
Next odber

ErrorString

Cette propriété renvoie une valeur de type String qui représente la chaîne d'erreur ODBC.

Dim strErrorString As String
strErrorString = Application.ODBCErrors(1).ErrorString

SqlState

Cette propriété renvoie l’erreur de l’état SQL. Type de données String en lecture seule.

Pour obtenir une explication de l'erreur spécifique, consultez votre documentation SQL.

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