Clase OLEDBError (Excel VBA)

La clase OLEDBError representa un error OLE DB devuelto por la última consulta OLE DB.

Set

Para usar una variable de clase OLEDBError, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase OLEDBError : OLEDBErrors.Item y Application.OLEDBErrors

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

Parent

Devuelve el objeto primario del objeto especificado.

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

OLEDBErrors.Count

Devuelve un valor Long que representa el número de objetos de la colección.

Dim lngCount As Long
lngCount = Application.OLEDBErrors.Count

OLEDBErrors.Item

Devuelve un solo objeto de una colección.

Sintaxis : expression.Item (Index)

Index: Número de índice del objeto.

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

OLEDBErrors.Parent

Devuelve el objeto primario del objeto especificado.