Objeto ODBCErrors (Excel)

Uma coleção de objetos ODBCError .

Comentários

Cada objeto ODBCError representa um erro retornado pela consulta ODBC mais recente. Se a consulta ODBC especificada for executada sem erros, a coleção ODBCErrors permanecerá vazia. Os erros na coleção são indexados na ordem em que são gerados pela fonte de dados ODBC. Não é possível adicionar membros à coleção.

Exemplo

Use a propriedade ODBCErrors do objeto Application para retornar a coleção ODBCErrors . O exemplo a seguir atualiza a tabela de consulta um e exibe qualquer erro ODBC que ocorrer.

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 

Métodos

Propriedades

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.