Classe OLEDBError (Excel VBA)

Cet objet représente une erreur OLE DB renvoyée par la requête OLE DB la plus récente.

Set

Pour utiliser une variable de classe OLEDBError, elle doit d'abord être instanciée, par exemple

Dim oleer as OLEDBError
Set oleer = Application.OLEDBErrors(Index:=1)

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

For Each

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

Dim oleer As OLEDBError
For Each oleer In Application.OLEDBErrors
	
Next oleer

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.OLEDBErrors(1).ErrorString

Native

Cette propriété renvoie une valeur numérique, spécifique au fournisseur, précisant une erreur. Le numéro d'erreur correspond à celle survenue après la requête OLE DB la plus récente. Type de données Long en lecture seule.

Dim lngNative As Long
lngNative = Application.OLEDBErrors(1).Native

Number

Renvoie une valeur numérique qui indique une erreur. Le numéro d’erreur correspond à un numéro de piège unique correspondant à une condition d’erreur résultante après la requête OLE DB la plus récente. Type de données Long en lecture seule.

Dim lngNumber As Long
lngNumber = Application.OLEDBErrors(1).Number

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.

Dim strSqlState As String
strSqlState = Application.OLEDBErrors(1).SqlState

Stage

Cette propriété renvoie une valeur numérique indiquant l'étape d'une erreur survenue à la suite de la dernière requête de base de données OLE. Type de données Long en lecture seule.

Dim lngStage As Long
lngStage = Application.OLEDBErrors(1).Stage

OLEDBErrors.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.OLEDBErrors.Count

OLEDBErrors.Item

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

Syntaxe : expression.Item (Index)

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

Dim oleer As OLEDBError
Set oleer = Application.OLEDBErrors(Index:=1)

OLEDBErrors.Parent

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