ADO-Fehler effektiver auswerten Mit Hilfe des ADODB.Error-Objekts lassen sich Fehler beim ADO-Datenbankzugriff effizienter auswerten.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  19.427
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 27 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.1 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

In aller Regel verwendet man zur Fehlerauswetung in VB das Err-Objekt. Beim ADO-Datenbankzugriff allerdings sollte man das ADODB.Error-Objekt verwenden, da man über dieses Objekt alle seit der letzten DB-Aktion aufgetretenen Fehler abfragen und somit auch besser auswerten kann. Zudem bekommt man über spezielle Eigenschaften eine detailiertere Fehlerbeschreibung.

Beispiel:
Statt Fehler beim ADO-Zugriff wie folgt abzufangen...

' ADO-Datenbankaktion
On Error Resume Next
...
 
If Err.Number <> 0 Then
  MsgBox "Fehler: " & CStr(Err.Number) & " " & Err.Description
End If

... sollte man besser das ADODB.Error-Objekt verwenden:

Dim oError As ADODB.Error
 
' ADO-Datenbankaktion
On Error Resume Next
...
 
If oConn.Errors.Count > 0 Then
  ' alle ADO-Fehler des Connection-Objektes durchlaufen
  Dim sError As String
  For Each oError In oConn.Errors
    sError = sError & "Fehler: " & CStr(oError.Number) & " " & oError.Description & vbCrLf & _
      "NativeError: " & oError.NativeError & vbCrLf & _
      "SQL-Status: " & oError.SQLState & vbCrLf & _
      "Quelle: " & oError.Source & vbCrLf & vbCrLf
  Next 
  MsgBox sError
End If