|
|
Represents an ODBC error generated by the most recent ODBC query. The ODBCError object is a member of the ODBCErrors collection. If the specified ODBC query runs without error, the ODBCErrors collection is empty. The errors in the collection are indexed in the order in which they’re generated by the ODBC data source.
Using the ODBCError Object
Use ODBCErrors(index), where index is the index number of the error, to return a single ODBCError object. The following example refreshes query table one and displays the first ODBC error that occurs.
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