Прочитать на английском

Поделиться через


Объект 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 

Методы

Свойства

См. также

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

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