Classe OLEDBError - um erro OLE DB retornado pela consulta OLE DB mais recente (Excel VBA)

A classe OLEDBError representa um erro OLE DB retornado pela consulta OLE DB mais recente. Para usar uma variável de classe OLEDBError, ela primeiro precisa ser instanciada por exemplo

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

For Each

Aqui está um exemplo de processamento dos itens OLEDBError em uma coleção.

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

ErrorString

Retorna um valor String que representa a sequência de erros ODBC.

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

Native

Retorna um valor numérico específico do provedor que determina um erro. O número do erro corresponde a uma condição de erro resultante da consulta mais recente ao banco de dados OLE. Long somente leitura.

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

Number

Retorna um valor numérico que especifica um erro. O número do erro está relacionado a um número de trap que corresponde a uma condição de erro resultante da consulta mais recente ao banco de dados OLE. Long somente leitura.

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

SqlState

Retorna o erro de estado SQL. String somente leitura.

Para obter uma explicação sobre o erro específico, consulte a documentação do SQL.

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

Stage

Retorna um valor numérico que especifica o estágio de um erro resultante da consulta mais recente ao banco de dados OLE. Long somente leitura.

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