Classe OLEDBError - une erreur OLE DB renvoyée par la requête OLE DB la plus récente (Excel VBA)

Cet objet représente une erreur OLE DB renvoyée par la requête OLE DB la plus récente. 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)

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

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