Class OLEDBError (Excel VBA)

The class OLEDBError represents an OLE DB error returned by the most recent OLE DB query.

Item

To use a OLEDBError class variable it first needs to be instantiated, for example

Dim oleer as OLEDBError
Set oleer = Application.OLEDBErrors(Index:=1)

OLEDBError class variables can be set using the OLEDBErrors.Item procedure.

For Each

Here is an example of processing the OLEDBError items in a collection.

Dim oleer As OLEDBError
For Each oleer In Application.OLEDBErrors
	
Next oleer

ErrorString

Returns a String value that represents the ODBC error string.

Dim strErrorString As String
strErrorString = Application.OLEDBErrors(1).ErrorString

Native

Returns a provider-specific numeric value that specifies an error. The error number corresponds to an error condition that resulted after the most recent OLE DB query.

Dim lngNative As Long
lngNative = Application.OLEDBErrors(1).Native

Number

Returns a numeric value that specifies an error. The error number corresponds to a unique trap number corresponding to an error condition that resulted after the most recent OLE DB query.

Dim lngNumber As Long
lngNumber = Application.OLEDBErrors(1).Number

SqlState

Returns the SQL state error.

For an explanation of the specific error, see your SQL documentation.

Dim strSqlState As String
strSqlState = Application.OLEDBErrors(1).SqlState

Stage

Returns a numeric value specifying the stage of an error that resulted after the most recent OLE DB query.

Dim lngStage As Long
lngStage = Application.OLEDBErrors(1).Stage

OLEDBErrors.Count

Returns a Long value that represents the number of objects in the collection.

Dim lngCount As Long
lngCount = Application.OLEDBErrors.Count

OLEDBErrors.Item

Returns a single object from a collection.

Item (Index)

Index: The index number for the object.

Dim oleer As OLEDBError
Set oleer = Application.OLEDBErrors(Index:=1)