Объект ODBCError (Excel)
Представляет ошибку ODBC, созданную последним запросом ODBC.
Объект ODBCError является членом коллекции ODBCErrors . Если указанный запрос ODBC выполняется без ошибок, коллекция ODBCErrors пуста. Ошибки в коллекции индексируются в том порядке, в котором они создаются источником данных ODBC.
Используйте ODBCErrors (index), где index — это номер индекса ошибки, чтобы вернуть один объект ODBCError . В следующем примере обновляется первая таблица запросов и отображается первая ошибка ODBC.
With Worksheets(1).QueryTables(1)
.Refresh
If Application.ODBCErrors.Count > 0 Then
Set er = Application.ODBCErrors(1)
MsgBox "The following error occurred:" &
er.ErrorString & " : " & er.SqlState
Else
MsgBox "Query complete: all records returned."
End If
End With
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.