ODBCErrors 集合对象

Application ODBCErrors (ODBCError)

ODBCError 对象的集合。每个 ODBCError 对象表示由上一次 ODBC 查询返回的错误。如果指定的 ODBC 查询运行过程没有错误，则 ODBCErrors 集合为空。集合中的错误按 ODBC 数据源产生的次序进行索引。不能向该集合中添加成员。

ODBCErrors 集合对象的用法

可用 ODBCErrors 属性返回 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