Edit

Share via

Application.ODBCErrors property (Excel)

  • Article

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

Syntax

expression.ODBCErrors

expression A variable that represents an Application object.

Remarks

If there's more than one query running at the same time, the ODBCErrors collection contains the ODBC errors from the query that 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

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.