<\/p>\n
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.<\/b><\/p>\nFehlerbehandlung<\/h2>\n
Wie bereits im vorherigen Teil der Beitragsreihe (RDBMS-Zugriff per VBA: Daten bearbeiten<\/b>, www.access-im-unternehmen.de\/1074<\/b>) an einem kleinen Beispiel demonstriert, können Sie die durch den SQL Server ausgelösten Fehler zwar wie üblich über das Err<\/b>-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<\/b>-Auflistung. Wenn Ihre Anwendung eine Fehlerbehandlung enthält, müssen Sie Informationen über solche Fehler etwas anders aufzeichnen oder bearbeiten als zuvor.<\/p>\n
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<\/b>-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.<\/p>\n Listing 1: Ausgangsprozedur zur Fehlerbehandlung<\/span><\/b><\/p>\n 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<\/b>-Objekt und ermittelt die Standardverbindungszeichenfolge mit der Funktion Standardverbindungszeichenfolge<\/b>, die Sie in dieser Beitragsreihe bereits mehrfach eingesetzt haben. Diese landet in der Connect<\/b>-Eigenschaft des QueryDef<\/b>-Objekts – ebenso wie der Wert False <\/b>für die Eigenschaft ReturnsRecords<\/b>.<\/p>\n <\/p>\n Listing 2: Fehlerauslösende Prozedur<\/span><\/b><\/p>\n Die erste SQL-Anweisung löscht den eventuell bereits vorhandenen Eintrag der Tabelle tblKategorien <\/b>mit dem Kategorienamen Test<\/b>. Dann fügt sie diesen zwei Mal hinzu – oder versucht dies zumindest. Es erscheint das in der Fehlerbehandlungsprozedur Fehlerbehandlung ausgelöste Meldungsfenster, außerdem legt die Prozedur eine Datei mit der Fehlermeldung an. Diese sieht wie in Bild 1 aus.<\/p>\n Bild 1: Durch die Fehlerbehandlung generierte Fehlerdatei<\/span><\/b><\/p>\n Mit der hier angebotenen Fehlermeldung kann man natürlich nicht viel anfangen, also erweitern wir die Fehlerbehandlung so, dass diese die Fehler im SQL Server erkennt und gesondert ausgibt. Fehler auf SQL Server-Seite haben die Fehlernummer 3146<\/b>, sodass wir gezielt nach solchen Fehlern suchen können – in diesem Fall durch die Prüfung innerhalb einer If…Then<\/b>-Bedingung. Ist die Bedingung erfüllt, durchläuft die Prozedur eine Schleife über die Anzahl der Elemente der Errors<\/b>-Auflistung, wobei wir mit dem Index 0 <\/b>beginnen. In dieser Schleife gibt die Prozedur die Nummer, die Beschreibung und die Quelle des Fehlers eingerückt aus. Die neue Version der Fehlerbehandlung sieht nun in gekürzter Form wie in Listing 3 aus.<\/p>\nPublic Function <\/span>Fehlerbehandlung(strModul As String<\/span>, strRoutine As String<\/span>, lngZeile As Long<\/span>, _\r\n Optional<\/span> strBemerkungen As String<\/span>)\r\n Open CurrentProject.Path & \"\\Fehler.log\" For Append As <\/span>#1\r\n Print #1, \"Datum: \" & Format(Now, \"yyyy-mm-dd, hh:nn:ss\")\r\n Print #1, \"Datenbankpfad: \" & CurrentDb.Name\r\n Print #1, \"Modul: \" & strModul\r\n Print #1, \"Routine: \" & strRoutine\r\n Print #1, \"Benutzer: \" & CurrentUser()\r\n Print #1, \"Fehlernummer: \" & Err.Number\r\n Print #1, \"Fehlerbeschreibung: \" & Err.Description\r\n Print #1, \"Zeile: \" & lngZeile\r\n Print #1, \"Bemerkungen: \" & strBemerkungen\r\n Close #1\r\n Reset\r\n MsgBox<\/span> \"Es ist ein Fehler aufgetreten. \" & vbCrLf<\/span> & \"Weitere Informationen finden " _\r\n "Sie in der Datei Fehler.log im Verzeichnis dieser Datenbank.\"\r\nEnd Function<\/span><\/pre>\nPublic Sub <\/span>FehlerAusloesen()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>qdf As <\/span>DAO.QueryDef\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> qdf = db.CreateQueryDef(\"\")\r\n With<\/span> qdf\r\n On Error GoTo<\/span> Fehler\r\n .Connect = Standardverbindungszeichenfolge\r\n .ReturnsRecords = False<\/span>\r\n .SQL = \"DELETE FROM tblKategorien WHERE Kategoriename = ''Test''\"\r\n .Execute\r\n .SQL = \"INSERT INTO tblKategorien(Kategoriename) VALUES(''Test'')\"\r\n .Execute\r\n .SQL = \"INSERT INTO tblKategorien(Kategoriename) VALUES(''Test'')\"\r\n .Execute\r\n End With<\/span>\r\nEnde:\r\n Exit Sub<\/span>\r\nFehler:\r\n Fehlerbehandlung \"mdlFehlerbehandlung\", \"FehlerAusloesen\", Erl\r\n Resume Ende\r\nEnd Sub<\/span><\/pre>\n![\"Durch](\"..\/fileadmin\/_temp_\/2017_02\/pic_1082_001.png\")
<\/p>\nPublic Function <\/span>Fehlerbehandlung(strModul As String<\/span>, strRoutine As String<\/span>, lngZeile As Long<\/span>, _\r\n Optional<\/span> strBemerkungen As String<\/span>)\r\n Dim <\/span>i As Integer<\/span>\r\n ...\r\n Print #1, \"Fehlerbeschreibung: \" & Err.Description\r\n If <\/span>Err.Number = 3146 Then<\/span>\r\n Print #1, \" Fehler im Backend-System:\"\r\n For i = 0 To Errors.Count - 1\r\n Print #1, \" Fehlernummer: \" & Errors(i).Number\r\n Print #1, \" Fehlerbeschreibung: \" & Errors(i).Description\r\n Print #1, \" Quelle: \" & Errors(i).Source\r\n Next<\/span> i\r\n End If<\/span>\r\n ...\r\nEnd Function<\/span><\/pre>\n
![\"Neue,](\"..\/fileadmin\/_temp_\/2017_02\/pic_1082_003.png\")
<\/p>\n