Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

Achtung: Dies ist nicht der vollständige Artikel, sondern nur ein paar Seiten davon. Wenn Sie hier nicht erfahren, was Sie wissen möchten, finden Sie am Ende Informationen darüber, wie Sie den ganzen Artikel lesen können.

Kompletten Artikel lesen?

Einfach für den Newsletter anmelden, dann lesen Sie schon in einer Minute den kompletten Artikel und erhalten die Beispieldatenbanken.

E-Mail:

Gedrucktes Heft

Diesen Beitrag finden Sie in Ausgabe 2/2017.

Unser Angebot für Sie!

Lesen Sie diesen Beitrag und 500 andere sofort im Onlinearchiv, und erhalten Sie alle zwei Monate brandheißes Access-Know-how auf 72 gedruckten Seiten! Plus attraktive Präsente, zum Beispiel das bald erscheinende Buch 'Access 2010 - Das Grundlagenbuch für Entwickler'!

Diesen Beitrag twittern

RDBMS-Zugriff per VBA: Fehlerbehandlung

Im Beitrag »RDBMS-Zugriff per VBA: Verbindungen« haben wir die Grundlage für den Zugriff auf SQL Server-Datenbanken geschaffen, »RDBMS-Zugriff per VBA: Daten abfragen« zeigt, wie Sie die Daten einer SQL Server-Datenbank ermitteln. Im vorliegenden Teil dieser Beitragsreihe erfahren Sie, wie Sie die Daten einer SQL Server-Datenbank bearbeiten.

Fehlerbehandlung

Wie bereits im vorherigen Teil der Beitragsreihe (RDBMS-Zugriff per VBA: Daten bearbeiten, www.access-im-unternehmen.de/1074) an einem kleinen Beispiel demonstriert, können Sie die durch den SQL Server ausgelösten Fehler zwar wie üblich über das Err-Objekt von VBA auslesen. Allerdings hält dieses nur eine einzige Fehlernummer für SQL Server-Fehler vor. Genauere Informationen erhalten Sie über die Errors-Auflistung. Wenn Ihre Anwendung eine Fehlerbehandlung enthält, müssen Sie Informationen über solche Fehler etwas anders aufzeichnen oder bearbeiten als zuvor.

Als Ausgangsbasis verwenden wir eine einfache Fehlerbehandlungsfunktion wie die aus Listing 1. Diese erwartet das Modul, die Prozedur, die Zeile und eine optionale Bemerkung als Pa­ra­meter, die Eigenschaften des Err-Objekts sind ja bereits global verfügbar. Die gesammelten In­for­ma­tio­nen werden dann in eine Textdatei geschrieben. Sie können diese auch direkt in einer Meldung ausgeben, per Mail an den Entwickler schicken et cetera – an dieser Stelle sollen die Daten jedoch erst mal in einer Textdatei landen.

Public Function Fehlerbehandlung(strModul As String, strRoutine As String, lngZeile As Long, _
         Optional strBemerkungen As String)
     Open CurrentProject.Path & "\Fehler.log" For Append As #1
     Print #1, "Datum:              " & Format(Now, "yyyy-mm-dd, hh:nn:ss")
     Print #1, "Datenbankpfad:      " & CurrentDb.Name
     Print #1, "Modul:              " & strModul
     Print #1, "Routine:            " & strRoutine
     Print #1, "Benutzer:           " & CurrentUser()
     Print #1, "Fehlernummer:       " & Err.Number
     Print #1, "Fehlerbeschreibung: " & Err.Description
     Print #1, "Zeile:              " & lngZeile
     Print #1, "Bemerkungen:        " & strBemerkungen
     Close #1
     Reset
     MsgBox "Es ist ein Fehler aufgetreten. " & vbCrLf & "Weitere Informationen finden " _
         "Sie in der Datei Fehler.log  im Verzeichnis dieser Datenbank."
End Function

Listing 1: Ausgangsprozedur zur Fehlerbehandlung

Diese wird beispielsweise wie folgt ausgelöst – in diesem Fall durch das erneute Anlegen eines Wertes in einem eindeutig indizierten Feld. Dazu fügen wir die Fehlerbehandlung in eine Prozedur ein, die wie in Listing 2 aussieht. Dabei wollen wir einen Eintrag für ein eindeutig indiziertes Feld zwei Mal anlegen, was einen Fehler auf Seiten des SQL Servers auslösen sollte. Die Prozedur erstellt ein leeres QueryDef-Objekt und ermittelt die Standardverbindungszeichenfolge mit der Funktion Standardverbindungszeichenfolge, die Sie in dieser Beitragsreihe bereits mehrfach eingesetzt haben. Diese landet in der Connect-Eigenschaft des QueryDef-Objekts – ebenso wie der Wert False für die Eigenschaft ReturnsRecords.

Sie haben das Ende des frei verfügbaren Teils des Artikels erreicht. Lesen Sie weiter, um zu erfahren, wie Sie den vollständigen Artikel lesen und auf viele hundert weitere Artikel zugreifen können.

Sind Sie Abonnent?Jetzt einloggen ...
 

Kompletten Artikel lesen?

Einfach für den Newsletter anmelden, dann lesen Sie schon in einer Minute den kompletten Artikel und erhalten die Beispieldatenbanken.

E-Mail:

© 2003-2015 André Minhorst Alle Rechte vorbehalten.