<\/p>\n
Im Beitrag „Datenhistorie per Trigger“ haben wir gezeigt, welche Anweisungen nötig sind, um eine Archivtabelle anzulegen und der Originaltabelle einen Trigger hinzuzufügen, der beim Ändern oder Löschen eines Datensatzes die vorherige Version in einer Archivtabelle speichert. Im vorliegenden Beitrag wollen wir eine VBA-Prozedur entwickeln, mit der Sie zu einer Tabelle mit einem einfachen Aufruf die Archivtabelle und den Trigger in einem Rutsch anlegen können. Damit sichern Sie Ihre Daten bei Änderungen auch für mehrere Tabellen ganz schnell ab.<\/b><\/p>\n
Voraussetzungen<\/b><\/p>\n
In diesem Beitrag kommen die bereits im Beitrag Datenhistorie per Trigger <\/b>(siehe www.access-im-unternehmen.de\/1211<\/b>) erwähnten Access-SQL-Tools zum Einsatz. Diese haben wir wiederum bereits im Beitrag SQL Server-Tools <\/b>vorgestellt (siehe www.access-im-unternehmen.de\/1061<\/b>).<\/p>\n
Ziel des Beitrags<\/b><\/p>\n
Das Ziel ist es nun, eine Prozedur zu entwickeln, der Sie nur den Namen der Tabelle übergeben, für welche eine Archivtabelle erstellt werden soll und die einen Trigger erhalten soll, der beim Ändern oder Löschen von Datensätzen aus dieser Tabelle die vorherige Version des Datensatzes in der Archivtabelle speichert.<\/p>\n
Dazu haben wir zunächst alle Elemente der SQL Server-Tools in die Beispieldatenbank integriert.<\/p>\n
Prozedur zum Erstellen der Archivtabelle<\/b><\/p>\n
Im oben genannten Beitrag Datenhistorie per Trigger <\/b>haben wir eine Archivtabelle mit einer SQL-Anweisung wie der folgenden erstellt:<\/p>\n Diese Anweisung wollen wir nun parametrisieren, damit wir diese für beliebige Tabellennamen erstellen können. Dazu benötigen wir etwas Wissen über die Tabelle, für die wir die Archivtabelle anlegen wollen. Da wir nicht davon ausgehen können, dass es eine per ODBC erstellte Verknüpfung auf diese Tabelle gibt, wollen wir die Felder und ihre Eigenschaften direkt vom SQL Server beziehen. Um die Feldnamen und die Datentypen zu ermitteln, können wir die folgende Abfrage nutzen, die wir direkt an den SQL Server absetzen:<\/p>\n Im SQL Server sieht das Ergebnis für die Tabelle tblKunden <\/b>wie in Bild 1 aus.<\/p>\n Bild 1: Ausgabe der Abfrage der Eigenschaften der Felder einer Tabelle<\/span><\/b><\/p>\n Funktion zum Einlesen der Feldliste für CREATE TABLE<\/b><\/p>\n Wir benötigen eine Funktion, mit der wir die in der Archivtabelle anzulegenden Felder ermitteln.<\/p>\n Diese heißt FeldlisteZusammenstellen <\/b>und sieht wie in Listing 1 aus.<\/p>\n Listing 1: Funktion zum Ermitteln der Feldliste<\/span><\/b><\/p>\n Die Funktion nimmt den Namen der zu untersuchenden Tabelle sowie die Verbindungszeichenfolge der SQL Server-Datenbank als Parameter entgegen und liefert einen String als Ergebnis zurück. Die Funktion verwendet die Funktion SQLRecordset <\/b>des Moduls mdlToolsSQLServer<\/b>, um die Datensätze der Tabelle INFORMATION_SCHEMA.COLUMNS <\/b>zurückzuliefern.<\/p>\n Dabei wollen wir nach dem Feld TABLE_NAME <\/b>filtern, das die Datensätze auf diejenigen einschränken soll, deren Tabellenname dem Wert des Parameters strTabelle <\/b>entspricht. Auch diese Funktion nimmt wieder die Verbindungszeichenfolge als Parameter entgegen.<\/p>\n Danach stellt die Funktion FeldlisteZusammenstellen <\/b>in der Variablen strFeldliste <\/b>die Liste der anzulegenden Felder für die Archivtabelle zusammen. Bevor wir die Datensätze des Recordsets rst <\/b>durchlaufen, fügen wir dort bereits als ersten Eintrag den folgenden hinzu:<\/p>\n Dies entspricht dem Primärschlüsselfeld für die Archivtabelle. Das Komma am Ende deutet bereits an, dass nun weitere Felder folgen. Diese stellen wir in einer Do While<\/b>-Schleife über alle Datensätze der Tabelle zusammen. Ein Feld wird nur hinzugefügt, wenn es nicht den Datentyp Timestamp <\/b>hat, was wir in einer If…Then<\/b>-Bedingung prüfen.<\/p>\n Ist das nicht der Fall, berücksichtigen wir als Erstes den Inhalt des Feldes COLUMN_NAME <\/b>und damit den Feldnamen des anzulegenden Feldes, den wir in eckige Klammern einfassen.<\/p>\n Dann folgt der Datentyp, den wir aus dem Feld DATA_TYPE <\/b>des Recordsets entnehmen und den wir durch ein Leerzeichen vom Feldnamen getrennt ebenfalls in eckige Klammern einfassen. Dann prüfen wir, ob das Feld CHAR-ACTER_MAXIMUM_LENGTH <\/b>einen Wert enthält. Dieses liefert die Anzahl der Zeichen für Textfelder. Liegt ein Wert vor, fügen wir diesen in runde Klammern eingefasst zum Ausdruck in strFeldListe <\/b>ein. Aber es kann auch sein, dass der Wert -1 <\/b>beträgt. Dieser tritt auf, wenn der eigentliche Wert max <\/b>lautet, was auf ein langes Textfeld hinweist. In diesem Fall wollen wir nicht -1<\/b>, sondern max <\/b>in runden Klammern zur Felddefinition hinzufügen.<\/p>\n Schließlich folgt das Feld ISNULLABLE<\/b>, das mit den Werten YES <\/b>und NO <\/b>angibt, ob das Feld Nullwerte aufnehmen darf oder nicht. Im Falle von YES <\/b>fügen wir NULL <\/b>zur Felddefinition hinzu, anderenfalls NOT NULL<\/b>. Anschließend hängen wir noch ein abschließendes Komma an die Beschreibung dieses Feldes an und gehen dann in die nächste Runde der Do While<\/b>-Schleife.<\/p>\n Sind alle Felder durchlaufen, fehlen noch die beiden Felder Loeschdatum <\/b>und Aenderungsdatum<\/b>, die beide mit dem Datentyp datetime <\/b>angelegt werden sollen und Nullwerte enthalten dürfen.<\/p>\n Jeder Felddefinition fügen wir außerdem noch einen Zeilenumbruch hinzu, sodass das Ergebnis der Funktion beispielsweise für die Tabelle tblKunden <\/b>wie folgt aussieht:<\/p>\n Diese Zeichenkette wird dann als Ergebnis der Funktion zurückgegeben. Den Aufruf der Funktion zum Testen können Sie so gestalten:<\/p>\n Hier nutzen wir die Funktion VerbindungszeichenfolgeNachID<\/b>, um die Verbindungszeichenfolge zu ermitteln. Die SQL Server-Tools enthalten eine Tabelle namens tblVerbindungszeichenfolgen<\/b>, welche die Informationen für die Verbindungszeichenfolgen speichert.<\/p>\n Mit dem Formular frmVerbindungszeichenfolgen <\/b>können Sie die Verbindungszeichenfolge zusammenstellen und auch testen. Merken Sie sich die ID der dabei gespeicherten Verbindungszeichenfolge und übergeben Sie diese der Funktion VerbindungszeichenfolgeNachID <\/b>als Parameter.<\/p>\n Funktion CreateTableZusammenstellen<\/b><\/p>\n Die Funktion aus Listing 2 stellt die aus der Funktion FeldlisteZusammenstellen <\/b>ermittelten Felder mit einigen weiteren Zeilen zu der kompletten CREATE TABLE<\/b>-Anweisung zusammen. Diese Funktion erwartet die gleichen Parameter wie die Funktion FeldlisteZusammenstellen<\/b>.<\/p>\n Listing 2: Funktion zum Ermitteln der Definition der Archivtabelle<\/span><\/b><\/p>\n Archivtabelle erstellen<\/b><\/p>\n Mit dem Ergebnis können wir nun bereits die Archivtabelle erstellen. Während wir die hier zusammengestellte CREATE TABLE<\/b>-Anweisung normalerweise im SQL Server Management Studio ausführen würden, wollen wir dies auch von Access aus erledigen. Dazu liefern die SQL Server Tools auch eine Funktion. Diese heißt SQLAktionsabfrageOhneErgebnis <\/b>und erwartet die auszuführende Abfrage sowie die Verbindungszeichenfolge als Parameter und einen optionalen Parameter für die Rückgabe einer eventuellen Fehlermeldung.<\/p>\n Diese Funktion rufen wir von einer anderen Funktion namens ArchivtabelleErstellen<\/b> auf, die Sie in Listing 3 finden. Diese ermittelt zunächst die Verbindungszeichenfolge und mit der Funktion CreateTableZusammenstellen <\/b>die SQL-Anweisung zum Erstellen der Archivtabelle. Dann ruft sie die Funktion SQLAktionsabfrageOhneErgebnis <\/b>auf und speichert das Ergebnis in der Variablen lngErgebnis<\/b>. Außerdem verwendet sie als Rückgabeparameter die Variable strFehlermeldung<\/b>. Liefert SQLAktionsabfrageOhneErgebnis <\/b>einen Wert ungleich 0<\/b>, können Sie der Variablen strFehlermeldung <\/b>den Text der Meldung des aufgetretenen Fehlers entnehmen.<\/p>\n <\/p>\n Listing 3: Funktion zum Anlegen der Archivtabelle<\/span><\/b><\/p>\n Ob das Ausführen der Abfrage erfolgreich war, prüfen wir in einer If…Then<\/b>-Bedingung, in der wir gegebenenfalls die Fehlermeldung im Direktfenster ausgeben. Außerdem wird der Rückgabewert der Funktion ArchivtabelleErstellen <\/b>nur dann auf True <\/b>eingestellt, wenn kein Fehler aufgetreten ist. Ein Fehler tritt beispielsweise auf, wenn wir eine Archivtabelle erstellen wollen, die bereits vorhanden ist. Die Meldung lautet dann:<\/p>\n Prozedur zum Erstellen des Triggers<\/b><\/p>\n Nun wollen wir die Funktion zum Erstellen des Triggers zusammenstellen. Der Trigger soll, am Beispiel der Tabelle tblKunden<\/b>, gekürzt wie folgt aussehen:<\/p>\n Dazu benötigen wir zunächst einmal wieder eine Liste aller Felder der Tabelle. Diese lesen wir mithilfe der Funktion FeldlisteTriggerZusammenstellen <\/b>aus Listing 4 ein. Die Funktion arbeitet grundsätzlich wie die bereits weiter oben vorgestellte Funktion FeldlisteZusammenstellen<\/b>, mit der wir die Felddefinitionen für die CREATE TABLE<\/b>-Anweisung zusammengestellt haben. In diesem Fall stellen wir allerdings lediglich eine kommaseparierte Liste aller Felder der per Parameter übergebenen Tabelle zusammen. Die Feldnamen sollen dabei wieder in eckige Klammern eingefasst werden. Nach dem Durchlaufen aller Datensätze des Recordsets mit den Feldern der zu untersuchenden Tabelle, bei dem wir jedem Feld ein Komma vorangestellt haben, wird das Komma vor dem ersten Feld entfernt. Das Ergebnis dieser Funktion lautet am Beispiel der Tabelle tblKunden <\/b>wie folgt:<\/p>\n Listing 4: Funktion zum Zusammenstellen der Feldliste für den Trigger<\/span><\/b><\/p>\n Diese Funktion können Sie mit der folgenden Prozedur testen:<\/p>\n Funktion zum Zusammenstellen der CREATE TRIGGER-Anweisung<\/b><\/p>\n Die Funktion CREATETRIGGERZusammenstellen<\/b> aus Listing 5 stellt die CREATE TRIGGER<\/b>-Anweisung zusammen. Dabei erwartet sie wie die anderen Funktionen den Namen der zu verwendenden Tabelle sowie die Verbindungszeichenfolge als Parameter.<\/p>\n Listing 5: Funktion zum Zusammenstellen der Abfrage zum Zusammenstellen der CREATE TRIGGER-Anweisung<\/span><\/b><\/p>\n Dann ermittelt sie zunächst mit der Funktion Feldliste-TriggerZusammenstellen <\/b>die Feldliste für den Trigger.<\/p>\n Dann stellt sie in der Variablen strCreateTrigger <\/b>die übrigen Zeilen des Triggers zusammen. Dabei fügt sie an einigen Stellen den Namen der Tabelle aus strTabelle <\/b>ein.<\/p>\n Den Trigger erstellen wir dann mit der Funktion aus Listing 6. Diese arbeitet ähnlich wie die Funktion zum Anlegen der Archivtabelle und liefert wieder eine Fehlermeldung, wenn das Anlegen des Triggers nicht funktioniert hat.<\/p>\n Listing 6: Funktion zum Anlegen des Triggers, der beim Aktualisieren oder Löschen eines Datensatzes ausgelöst werden soll.<\/span><\/b><\/p>\n Das kann beispielsweise geschehen, wenn bereits ein gleichnamiger Trigger vorhanden ist. Sollte dies bei Ihnen vorkommen, können Sie folgendes Skript im Formular frmSQLBefehle <\/b>ausführen, um die vorhandenen Trigger aufzulisten:<\/p>\n Mit der DROP<\/b>-Anweisung können Sie den Trigger dann löschen:<\/p>\n Im Formular sieht dies dann wie in Bild 2 aus.<\/p>\n Bild 2: Auflisten der Trigger im Access-Formular<\/span><\/b><\/p>\n Wenn Sie möchten, können Sie die Prozedur zum Erstellen des Triggers auch direkt mit einer DROP TRIGGER<\/b>-Anweisung ausstatten. Damit wird der zu erstellende Trigger vor dem Erstellen gelöscht.<\/p>\n Allerdings löst auch dies wieder einen Fehler aus. Daher prüfen wir, ob der Trigger vorhanden ist, bevor wir diesen löschen, und zwar mit folgendem T-SQL-Skript – hier für die Tabelle tblKunden<\/b>:<\/p>\n Dieses fügen wir wie in Listing 7 zur Funktion TriggerErstellen <\/b>hinzu. Dazu verwenden wir eine Variable namens strDropTrigger<\/b>, in der wir die T-SQL-Anweisungen speichern, wobei wir den Namen der Tabelle über die Variable strTabelle <\/b>in die Bezeichnung für den zu prüfenden und zu löschenden Trigger integrieren.<\/p>\nCREATE TABLE [dbo].[tblKunden_Archiv](\r\n [ArchivID] [int] IDENTITY(1,1) NOT NULL,\r\n [KundeID] [int] NULL,\r\n ...\r\n [Loeschdatum] [datetime] NULL,\r\n [Aenderungsdatum] [datetime] NULL\r\nCONSTRAINT [tblKunden_Archiv$PrimaryKey] PRIMARY KEY CLUSTERED \r\n(\r\n [ArchivID] ASC\r\n)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]\r\n) ON [PRIMARY]<\/pre>\n
SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'tblKunden'<\/pre>\n
![\"Ausgabe](\"..\/fileadmin\/_temp_\/2019_06\/pic_1212_001.png\")
<\/p>\nPublic Function <\/span>FeldlisteZusammenstellen(strTabelle As String<\/span>, strVerbindungszeichenfolge As String<\/span>) As String<\/span>\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>strFeldliste As String<\/span>\r\n Set<\/span> rst = mdlToolsSQLServer.SQLRecordset(\"SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = '\" _\r\n & strTabelle & \"'\", strVerbindungszeichenfolge)\r\n strFeldliste = \" [ArchivID] [int] IDENTITY(1,1) NOT NULL,\" & vbCrLf<\/span>\r\n Do While<\/span> Not<\/span> rst.EOF\r\n If <\/span>Not<\/span> rst!DATA_TYPE = \"Timestamp\" Then<\/span>\r\n strFeldliste = strFeldliste & \" [\" & rst!COLUMN_NAME & \"]\"\r\n strFeldliste = strFeldliste & \" [\" & rst!DATA_TYPE & \"]\"\r\n If <\/span>Not<\/span> IsNull(rst!Character_maximum_Length) Then<\/span>\r\n If <\/span>Not<\/span> rst!Character_maximum_Length = -1 Then<\/span>\r\n strFeldliste = strFeldliste & \"(\" & rst!Character_maximum_Length & \")\"\r\n Else<\/span>\r\n strFeldliste = strFeldliste & \"(max)\"\r\n End If<\/span>\r\n End If<\/span>\r\n If <\/span>rst!IS_NULLABLE = \"YES\" Then<\/span>\r\n strFeldliste = strFeldliste & \" NULL\"\r\n Else<\/span>\r\n strFeldliste = strFeldliste & \" NOT NULL\"\r\n End If<\/span>\r\n strFeldliste = strFeldliste & \",\" & vbCrLf<\/span>\r\n End If<\/span>\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n strFeldliste = strFeldliste & \" [Loeschdatum] [datetime] NULL,\" & vbCrLf<\/span>\r\n strFeldliste = strFeldliste & \" [Aenderungsdatum] [datetime] NULL\"\r\n FeldlisteZusammenstellen = strFeldliste\r\nEnd Function<\/span><\/pre>\n[ArchivID] [int] IDENTITY(1,1) NOT NULL,<\/pre>\n
[ArchivID] [int] IDENTITY(1,1) NOT NULL,\r\n [KundeID] [int] NOT NULL,\r\n [KundenCode] [nvarchar](5) NULL,\r\n [Firma] [nvarchar](40) NOT NULL,\r\n [AnredeID] [int] NULL,\r\n [Vorname] [nvarchar](255) NULL,\r\n [Nachname] [nvarchar](255) NULL,\r\n [Position] [nvarchar](30) NULL,\r\n [PLZ] [nvarchar](10) NULL,\r\n [Strasse] [nvarchar](255) NULL,\r\n [Ort] [nvarchar](15) NULL,\r\n [Region] [nvarchar](15) NULL,\r\n [Land] [nvarchar](15) NULL,\r\n [Telefon] [nvarchar](24) NULL,\r\n [Telefax] [nvarchar](24) NULL,\r\n [Loeschdatum] [datetime] NULL,\r\n [Aenderungsdatum] [datetime] NULL<\/pre>\n
Public Sub <\/span>FieldlisteCreate_Test()\r\n Dim <\/span>strVerbindungszeichenfolge As String<\/span>\r\n strVerbindungszeichenfolge = VerbindungszeichenfolgeNachID(10)\r\n Debug.Print<\/span> FieldlistCreate(\"tblKunden\", strVerbindungszeichenfolge)\r\nEnd Sub<\/span><\/pre>\nPublic Function <\/span>CreateTableZusammenstellen(strTabelle As String<\/span>, strVerbindungszeichenfolge As String<\/span>) As String<\/span>\r\n Dim <\/span>strCreateTable As String<\/span>\r\n strCreateTable = \"CREATE TABLE [dbo].[\" & strTabelle & \"_Archiv](\" & vbCrLf<\/span>\r\n strCreateTable = strCreateTable & FeldlisteZusammenstellen(strTabelle, strVerbindungszeichenfolge) & vbCrLf<\/span>\r\n strCreateTable = strCreateTable & \"CONSTRAINT [\" & strTabelle & \"_Archiv$PrimaryKey] PRIMARY KEY CLUSTERED\" _\r\n & vbCrLf<\/span>\r\n strCreateTable = strCreateTable & \"(\" & vbCrLf<\/span>\r\n strCreateTable = strCreateTable & \" [ArchivID] Asc\" & vbCrLf<\/span>\r\n strCreateTable = strCreateTable & \")WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, \" _\r\n & \"ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]\" & vbCrLf<\/span>\r\n strCreateTable = strCreateTable & \") ON [PRIMARY]\"\r\n CreateTableZusammenstellen = strCreateTable\r\nEnd Function<\/span><\/pre>\nPublic Function <\/span>ArchivtabelleErstellen() As Boolean<\/span>\r\n Dim <\/span>strTabelle As String<\/span>\r\n Dim <\/span>strCreateTable As String<\/span>\r\n Dim <\/span>strVerbindungszeichenfolge As String<\/span>\r\n Dim <\/span>strFehlermeldung As String<\/span>\r\n Dim <\/span>lngErgebnis As Long<\/span>\r\n strTabelle = \"tblKunden\"\r\n strVerbindungszeichenfolge = VerbindungszeichenfolgeNachID(10)\r\n strCreateTable = CREATETABLEZusammenstellen(strTabelle, strVerbindungszeichenfolge)\r\n lngErgebnis = SQLAktionsabfrageOhneErgebnis(strCreateTable, strVerbindungszeichenfolge, strFehlermeldung)\r\n If <\/span>Not<\/span> lngErgebnis = 0 Then<\/span>\r\n Debug.Print<\/span> lngErgebnis, strFehlermeldung\r\n Else<\/span>\r\n ArchivtabelleErstellen = True<\/span>\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\n[Microsoft][SQL Server Native Client 11.0][SQL Server]There is already an object named 'tblKunden_Archiv' in the database.<\/pre>\n
CREATE TRIGGER [dbo].[tblKunden_DeleteUpdate] \r\n ON [dbo].[tblKunden] \r\n AFTER DELETE, UPDATE\r\nAS \r\nBEGIN\r\n SET NOCOUNT ON;\r\n INSERT INTO dbo.tblKunden_Archiv([KundeID], \r\n [KundenCode], ...) SELECT [KundeID], \r\n [KundenCode], ... FROM deleted;\r\n IF EXISTS(SELECT 1 FROM inserted)\r\n UPDATE dbo.tblKunden_Archiv \r\n SET Aenderungsdatum = GETDATE() \r\n WHERE tblKunden_Archiv.ArchivID = @@IDENTITY\r\n ELSE\r\n UPDATE dbo.tblKunden_Archiv \r\n SET Loeschdatum = GETDATE() \r\n WHERE tblKunden_Archiv.ArchivID = @@IDENTITY\r\nEND<\/pre>\n
Public Function <\/span>FeldlisteTriggerZusammenstellen(strTabelle As String<\/span>, strVerbindungszeichenfolge As String<\/span>) As String<\/span>\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>strFeldliste As String<\/span>\r\n Set<\/span> rst = mdlToolsSQLServer.SQLRecordset(\"SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = '\" _\r\n & strTabelle & \"'\", strVerbindungszeichenfolge)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n If <\/span>Not<\/span> rst!DATA_TYPE = \"timestamp\" Then<\/span>\r\n strFeldliste = strFeldliste & \", [\" & rst!COLUMN_NAME & \"]\"\r\n End If<\/span>\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n strFeldliste = Mid<\/span>(strFeldliste, 3)\r\n FeldlisteTriggerZusammenstellen = strFeldliste\r\nEnd Function<\/span><\/pre>\n[KundeID], [KundenCode], [Firma], [AnredeID], [Vorname], [Nachname], [Position], [PLZ], [Strasse], [Ort], [Region], [Land], [Telefon], [Telefax]<\/pre>\n
Public Function <\/span>FeldlisteTriggerZusammenstellen_Test()\r\n Dim <\/span>strVerbindungszeichenfolge As String<\/span>\r\n strVerbindungszeichenfolge = VerbindungszeichenfolgeNachID(10)\r\n Debug.Print<\/span> FeldlisteTriggerZusammenstellen( \"tblKunden\", strVerbindungszeichenfolge)\r\nEnd Function<\/span><\/pre>\nPublic Function <\/span>CREATETRIGGERZusammenstellen(strTabelle As String<\/span>, strVerbindungszeichenfolge As String<\/span>)\r\n Dim <\/span>strCreateTrigger As String<\/span>\r\n Dim <\/span>strFeldliste As String<\/span>\r\n strFeldliste = FeldlisteTriggerZusammenstellen(strTabelle, strVerbindungszeichenfolge)\r\n strCreateTrigger = \"CREATE TRIGGER [dbo].[\" & strTabelle & \"_DeleteUpdate]\" & vbCrLf<\/span>\r\n strCreateTrigger = strCreateTrigger & \" ON [dbo].[\" & strTabelle & \"]\" & vbCrLf<\/span>\r\n strCreateTrigger = strCreateTrigger & \" AFTER Delete, Update\" & vbCrLf<\/span>\r\n strCreateTrigger = strCreateTrigger & \"AS\" & vbCrLf<\/span>\r\n strCreateTrigger = strCreateTrigger & \"BEGIN\" & vbCrLf<\/span>\r\n strCreateTrigger = strCreateTrigger & \" SET NOCOUNT ON;\" & vbCrLf<\/span>\r\n strCreateTrigger = strCreateTrigger & \" INSERT INTO dbo.\" & strTabelle & \"_Archiv(\" & strFeldliste _\r\n & \") SELECT \" & strFeldliste & \" FROM deleted;\" & vbCrLf<\/span>\r\n strCreateTrigger = strCreateTrigger & \" IF EXISTS(SELECT 1 FROM inserted)\" & vbCrLf<\/span>\r\n strCreateTrigger = strCreateTrigger & \" UPDATE dbo.\" & strTabelle & \"_Archiv SET Aenderungsdatum = \" _\r\n & \"GETDATE() WHERE \" & strTabelle & \"_Archiv.ArchivID = @@IDENTITY\" & vbCrLf<\/span>\r\n strCreateTrigger = strCreateTrigger & \" Else\" & vbCrLf<\/span>\r\n strCreateTrigger = strCreateTrigger & \" UPDATE dbo.\" & strTabelle & \"_Archiv SET Loeschdatum = \" _\r\n & \"GETDATE() WHERE \" & strTabelle & \"_Archiv.ArchivID = @@IDENTITY\" & vbCrLf<\/span>\r\n strCreateTrigger = strCreateTrigger & \"End\" & vbCrLf<\/span>\r\n CREATETRIGGERZusammenstellen = strCreateTrigger\r\nEnd Function<\/span><\/pre>\nPublic Function <\/span>TriggerErstellen()\r\n Dim <\/span>strTabelle As String<\/span>\r\n Dim <\/span>strCreateTrigger As String<\/span>\r\n Dim <\/span>strVerbindungszeichenfolge As String<\/span>\r\n Dim <\/span>strFehlermeldung As String<\/span>\r\n Dim <\/span>lngErgebnis As Long<\/span>\r\n strTabelle = \"tblKunden\"\r\n strVerbindungszeichenfolge = VerbindungszeichenfolgeNachID(10)\r\n strCreateTrigger = CREATETRIGGERZusammenstellen(strTabelle, strVerbindungszeichenfolge)\r\n lngErgebnis = SQLAktionsabfrageOhneErgebnis(strCreateTrigger, strVerbindungszeichenfolge, strFehlermeldung)\r\n If <\/span>Not<\/span> lngErgebnis = 0 Then<\/span>\r\n Debug.Print<\/span> lngErgebnis, strFehlermeldung\r\n Else<\/span>\r\n TriggerErstellen = True<\/span>\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nSELECT \r\n name,\r\n is_instead_of_trigger\r\nFROM \r\n sys.triggers \r\nWHERE \r\n type = 'TR';<\/pre>\n
DROP TRIGGER tblKunden_DeleteUpdate<\/pre>\n
![\"Auflisten](\"..\/fileadmin\/_temp_\/2019_06\/pic_1212_002.png\")
<\/p>\nIF EXISTS (SELECT 1 FROM sys.triggers WHERE Name = 'tblKunden_DeleteUpdate'\r\nBEGIN\r\n DROP TRIGGER tblKunden_DeleteUpdate\r\nEND<\/pre>\n
Public Function <\/span>TriggerErstellen()\r\n Dim <\/span>strTabelle As String<\/span>\r\n Dim <\/span>strCreateTrigger As String<\/span>\r\n Dim <\/span>strVerbindungszeichenfolge As String<\/span>\r\n Dim <\/span>strFehlermeldung As String<\/span>\r\n Dim <\/span>strDropTrigger As String<\/span>\r\n Dim <\/span>lngErgebnis As Long<\/span>\r\n strTabelle = \"tblKunden\"\r\n strVerbindungszeichenfolge = VerbindungszeichenfolgeNachID(10)\r\n strDropTrigger = \"IF EXISTS (SELECT 1 FROM sys.triggers WHERE Name = '\" & strTabelle & \"_DeleteUpdate')\" & vbCrLf<\/span>\r\n strDropTrigger = strDropTrigger & \"BEGIN\" & vbCrLf<\/span>\r\n strDropTrigger = strDropTrigger & \" DROP TRIGGER \" & strTabelle & \"_DeleteUpdate\" & vbCrLf<\/span>\r\n strDropTrigger = strDropTrigger & \"END\" & vbCrLf<\/span>\r\n lngErgebnis = SQLAktionsabfrageOhneErgebnis(strDropTrigger, strVerbindungszeichenfolge, strFehlermeldung)\r\n If <\/span>Not<\/span> lngErgebnis = 0 Then<\/span>\r\n Debug.Print<\/span> lngErgebnis, strFehlermeldung\r\n Else<\/span>\r\n strCreateTrigger = CREATETRIGGERZusammenstellen(strTabelle, strVerbindungszeichenfolge)\r\n lngErgebnis = SQLAktionsabfrageOhneErgebnis(strCreateTrigger, strVerbindungszeichenfolge, strFehlermeldung)\r\n If <\/span>Not<\/span> lngErgebnis = 0 Then<\/span>\r\n Debug.Print<\/span> lngErgebnis, strFehlermeldung\r\n Else<\/span>\r\n TriggerErstellen = True<\/span>\r\n End If<\/span>\r\n