{"id":55000354,"date":"2017-06-01T00:00:00","date_gmt":"2020-01-24T15:59:49","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=354"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Transaktionen_in_Access","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Transaktionen_in_Access.html","title":{"rendered":"Transaktionen in Access"},"content":{"rendered":"

Wenn Sie Datenbankaktionen per Code ausführen, also beispielsweise mit der Methode Execute <\/b>des Database<\/b>-Objekts oder mit den DAO-Methoden AddNew oder Edit, setzen Sie in der Regel immer nur eine einzige Anweisung ab und ändern so Daten oder auch Tabellen. Was aber, wenn Sie mehrere Aktionen ausführen wollen, die nur dann ausgeführt werden sollen, wenn die Ausführung jeder einzelnen Aktion erfolgreich ist Dann kommen Transaktionen ins Spiel. Hierbei handelt es sich um einen Kontext über eine oder mehrere Datenbankänderungen, der nach dem Ausführung aller änderungen entweder komplett abgeschlossen oder verworfen werden kann.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1703_Transaktionen.accdb<\/b>.<\/p>\n

Möglichkeiten der änderung von Daten<\/h2>\n

Unter DAO gibt es verschiedene Möglichkeiten, per Code Daten zu ändern. Die erste Variante nutzt etwa die AddNew<\/b>-Methode, um einen neuen Datensatz zu einem Recordset hinzuzufügen und schließt den Vorgang nach dem Festlegen der Feldinhalte mit der Update<\/b>-Methode ab:<\/p>\n

Public Sub <\/span>Datenaenderungen()\r\n    Dim <\/span>db As <\/span>DAO.Database\r\n    Dim <\/span>rst As <\/span>DAO.Recordset\r\n    Set<\/span> db = CurrentDb\r\n    Set<\/span> rst = db.OpenRecordset(\"tblKategorien\", dbOpenDynaset)\r\n    rst.AddNew<\/span>\r\n    rst!Kategoriename = \"Neue Kategorie\"\r\n    rst.Update\r\nEnd Sub<\/span><\/pre>\n
Hier gibt es keine offenen Fragen: Wenn keine Fehlermeldung erscheint, speichert die Prozedur den Datensatz wie gewünscht in der Datenbank. Ein Fehler tritt beispielsweise auf, wenn Sie zwei Mal den gleichen Wert für das Feld Kategoriename in der Datenbank speichern und den eindeutigen Index für dieses Feld verletzen. In diese Fall wird der Datensatz dann einfach nicht gespeichert.<\/p>\n
Etwas anders sieht es aus, wenn Sie die Aufgaben mit der Execute<\/b>-Methode ausführen und dazu eine entsprechende SQL-Abfrage formulieren. Ein ganz einfaches Beispiel sieht wie folgt aus:<\/p>\n
Public Sub <\/span>NeuerDatensatzExecute()\r\n    Dim <\/span>db As <\/span>DAO.Database\r\n    Set<\/span> db = CurrentDb\r\n    db.Execute \"INSERT INTO tblKategorien          (Kategoriename) VALUES('Noch eine Kategorie')\"\r\nEnd Sub<\/span><\/pre>\n
Auch hier gilt: Der Datensatz wird entweder eingetragen oder auch nicht. über letzteres werden wir allerdings nicht informiert, denn wir haben den Wert dbFailOnError <\/b>für den zweiten Parameter der Execute<\/b>-Methode vergessen. Erst damit setzt es eine Fehlermeldung, wenn Sie beispielsweise versuchen, den gleichen Kategorienamen zwei Mal hintereinander einzufügen (siehe Bild 1).<\/p>\n
\"Fehlermeldung<\/a><\/p>\n
Bild 1: Fehlermeldung beim Anlegen eines bereits vorhandenen Kategorienamens<\/p>\n
Probleme mit mehreren betroffenen Datensätzen<\/h2>\n
Nun schauen wir uns an, was passiert, wenn wir mit einer Aktionsabfrage gleich mehrere Datensätze ändern wollen – beispielsweise, indem wir versuchen, alle Einzelpreise in der Tabelle tblArtikel <\/b>um 10 EUR zu senken:<\/p>\n
Public Sub <\/span>MehrereDatensaetze()\r\n    Dim <\/span>db As <\/span>DAO.Database\r\n    Set<\/span> db = CurrentDb\r\n    db.Execute \"UPDATE tblArtikel SET Einzelpreis =                                        Einzelpreis - 10\"\r\n    Debug.Print<\/span> \"Betroffene Datensätze: \" _\r\n        & db.RecordsAffected\r\nEnd Sub<\/span><\/pre>\n
Wir verwenden bewusst noch einmal die Variante der Execute<\/b>-Methode ohnen den Wert dbFailOnError<\/b>. Was geschieht Es wird natürlich keine Fehlermeldung ausgelöst und wir erhalten im Direktfenster die folgende Ausgabe:<\/p>\n
Betroffene Datensätze: 38<\/pre>\n
Das heißt, dass von den 77 Datensätzen dieser Tabelle nur 38 geändert wurden. Bei den übrigen hat die Gültigkeitsregel gegriffen, die besagt, dass nur Werte größer oder gleich 0 <\/b>in das Feld eingegeben werden dürfen. Welche Erkenntnis ziehen wir daraus Aktionsabfragen, die sich auf mehrere Datensätze beziehen, werden unter Umständen nicht komplett ausgeführt.<\/p>\n
Fügen wir dem Aufruf der Execute<\/b>-Methode hingegen wieder den Wert dbFailOnError <\/b>als zweiten Parameter hinzu, wird die Abfrage insgesamt nicht ausgeführt, sondern die Gültigkeitsmeldung erscheint (siehe Bild 2):<\/p>\n
\"Fehlermeldung<\/a><\/p>\n
Bild 2: Fehlermeldung bei Verletzung der Gültigkeitsregel bei mindestem einem der betroffenen Datensätze<\/p>\n
db.Execute \"UPDATE tblArtikel SET Einzelpreis = Einzelpreis - 10\", dbFailOnError<\/pre>\n
Wenn Sie eine solche Abfrage über die Benutzeroberfläche über den Abfrageentwurf formulieren und starten, erhalten Sie eine Fehlermeldung wie in Bild 3. Hier erhalten Sie zwar keine genaue Angabe, warum die Daten nicht aktualisiert werden können, aber immerhin haben Sie die Möglichkeit, die Aktualisierung abzubrechen.<\/p>\n
\"Fehlermeldung,<\/a><\/p>\n
Bild 3: Fehlermeldung, wenn nicht alle Daten geändert werden können<\/p>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t
\n\n\t\t\n\t\t