Classe OLEDBError (Excel VBA)

A classe OLEDBError representa um erro OLE DB retornado pela consulta OLE DB mais recente.

Set

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)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo OLEDBError: OLEDBErrors.Item e Application.OLEDBErrors

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

Parent

Retorna o objeto pai do objeto especificado. Somente leitura.

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

OLEDBErrors.Count

Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = Application.OLEDBErrors.Count

OLEDBErrors.Item

Retorna um único objeto de uma coleção.

Sintaxe : expression.Item (Index)

Index: O número de índice do objeto.

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

OLEDBErrors.Parent

Retorna o objeto pai do objeto especificado. Somente leitura.