Classe ODBCError (Excel VBA)

Cet objet représente une erreur ODBC générée par la requête ODBC la plus récente.

Set

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)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe ODBCError : ODBCErrors.Item et Application.ODBCErrors

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

Parent

Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

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

ODBCErrors.Count

Cette propriété renvoie une valeur de type Long qui représente le nombre d’objets de la collection.

Dim lngCount As Long
lngCount = Application.ODBCErrors.Count

ODBCErrors.Item

Cette méthode renvoie un seul objet d'une collection.

Syntaxe : expression.Item (Index)

Index: Numéro d'index de l'objet.

ODBCErrors.Parent

Renvoie l’objet parent pour l’objet spécifié. En lecture seule.