Объект ODBCErrors (Excel)

Коллекция объектов ODBCError .

Примечания

Каждый объект ODBCError представляет ошибку, возвращенную последним запросом ODBC. Если указанный запрос ODBC выполняется без ошибок, коллекция ODBCErrors пуста. Ошибки в коллекции индексируются в порядке, в котором они были созданы источником данных ODBC. Вы не можете добавлять участников в коллекцию.

Пример

Используйте свойство ODBCErrors объекта Application для возврата коллекции ODBCErrors . В приведенном ниже примере обновляется первая таблица запроса и отображаются все возникшие ошибки ODBC.

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 

Методы

• Элемент

Свойства

• Application
• Count
• Creator
• Parent

См. также

• Справочник по объектной модели Excel

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.