ODBCErrors Property [Excel 2003 VBA Language Reference]

Returns an ODBCErrors collection that contains all the ODBC errors generated by the most recent query table or PivotTable report operation. Read-only.

For more information about returning a single object from a collection, see Returning an Object from a Collection .

Remarks

If there's more than one query running at the same time, the ODBCErrors collection contains the ODBC errors from the query that's finished last.

Example

This example refreshes query table one and displays any ODBC errors that occur.

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

Applies to | Application Object