Clase OLEDBError - un error OLE DB devuelto por la última consulta OLE DB (Excel VBA)

La clase OLEDBError representa un error OLE DB devuelto por la última consulta OLE DB. Para usar una variable de clase OLEDBError, primero debe ser instanciado, por ejemplo

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

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos OLEDBError en una colección.

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

ErrorString

Devuelve un valor de tipo String que representa la cadena de error de ODBC.

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

Native

Devuelve un valor numérico específico del proveedor que indica un error.

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

Number

Devuelve un valor numérico que especifica un error.

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

SqlState

Devuelve el error de estado de SQL.

Para obtener una explicación del error específico, consulte la documentación de SQL.

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

Stage

Devuelve un valor numérico que especifica la etapa de un error generado tras la consulta OLE DB más reciente.

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