Classe ODBCError (Excel VBA)

A classe ODBCError representa um erro ODBC gerado pela consulta ODBC mais recente.

Set

Para usar uma variável de classe ODBCError, ela primeiro precisa ser instanciada por exemplo

Dim odber as ODBCError
Set odber = Application.ODBCErrors(Index:=1)

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

For Each

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

Dim odber As ODBCError
For Each odber In Application.ODBCErrors
	
Next odber

ErrorString

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

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

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.

With Worksheets(1).QueryTables(1) 
 .Refresh 
 Set errs = Application.ODBCErrors 
 If errs.Count > 0 Then 
 Set r = .Destination.Cells(1) 
 r.Value = "The following errors occurred:" 
 c = 0 
 For Each er In errs 
 c = c + 1 
 r.offset(c, 0).value = er.ErrorString 
 r.offset(c, 1).value = er.SqlState 
 Next 
 Else 
 MsgBox "Query complete: all records returned." 
 End If 
End With

ODBCErrors.Count

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

Dim lngCount As Long
lngCount = Application.ODBCErrors.Count

ODBCErrors.Item

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

Sintaxe : expression.Item (Index)

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

ODBCErrors.Parent

Retorna o objeto pai do objeto especificado. Somente leitura.