ODBCError 对象

Application ODBCErrors (ODBCError)

代表一个由上一次 ODBC 查询产生的 ODBC 错误。ODBCError 对象是 ODBCErrors 集合的成员。如果指定的 ODBC 查询运行过程没有错误，则 ODBCErrors 集合为空。集合中的错误按 ODBC 数据源产生的次序进行索引。

ODBCError 对象的用法

可用 ODBCErrors(index) 返回单个 ODBCError对象，其中 index 为错误的索引号。下例刷新查询表一并显示产生的第一个 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