Compartilhar via

Propriedade Application.ODBCErrors (Excel)

  • Artigo

Retorna uma coleção ODBCErrors que contém todos os erros ODBC gerados pela tabela de consulta mais recente ou pela operação de relatório de tabela dinâmica. Somente leitura.

Sintaxe

expressão. ODBCErrors

expressão Uma variável que representa um Aplicativo objeto.

Comentários

Se houver mais de uma consulta em execução ao mesmo tempo, a coleção ODBCErrors contém os erros ODBC da consulta que terminou em último.

Exemplo

Este exemplo atualiza a tabela de consulta um e exibe os erros ODBC que ocorrerem.

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

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.