Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

VBA-Begriff: OLEDBErrors-Auflistungsobjekt

Application-Objekt
OLEDBErrors-Auflistung (OLEDBError-Objekt)

Eine Auflistung von OLEDBError-Objekten. Jedes OLEDBError-Objekt stellt einen Fehler dar, der von der letzten OLE DB-Abfrage zurückgegeben wurde. Wird die OLE DB-Abfrage fehlerfrei ausgeführt, ist die OLEDBErrors-Auflistung leer. Die Fehler in der Auflistung sind in der Reihenfolge indiziert, in der sie vom OLE DB-Provider erzeugt werden. Sie können der Auflistung keine Mitglieder hinzufügen.

Verwenden der OLEDBErrors-Auflistung

Verwenden Sie die OLEDBErrors-Eigenschaft, um die OLEDBErrors-Auflistung zurückzugeben. In dem folgenden Beispiel wird die Fehlerbeschreibung und der Wert der SqlState-Eigenschaft für alle OLE DB-Fehler in der Auflistung angezeigt.

For Each objEr in Application.OLEDBErrors
    MsgBox "The following error occurred:" & _
        objEr.ErrorString & " : " & objEr.SqlState
Next objEr

Verwenden Sie OLEDBErrors(Index), wobei Index die Indexnummer des OLE DB-Fehlers ist, um ein einzelnes OLEDBError-Objekt zurückzugeben. In dem folgenden Beispiel wird die Fehlerbeschreibung und der Wert der SqlState-Eigenschaft für den ersten Fehler angezeigt, der von der letzten OLE DB-Abfrage zurückgegeben wurde.

Set objEr = Application.OLEDBErrors(1)
MsgBox "The following error occurred:" & _
    objEr.ErrorString & " : " & objEr.SqlState