返回一个
ODBCErrors
集合,该集合包含由最近的查询表或数据透视表操作生成的所有 ODBC 错误。只读。
语法
表达式.ODBCErrors
表达式 一个代表 Application 对象的变量。
说明
如果同时有多个查询在运行,那么 ODBCErrors 集合包含从最后完成的查询开始的所有 ODBC 错误。
示例
本示例刷新查询表一,并显示产生的所有 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
|