(gelöst) SQL Befehl zum löschen aller Datensätze einer Tabelle in ein Makro einbauen

[Stegull]

Sehr geehrte Helfer,

das Löschen aller Datensätze einer Tabelle1 gelingt mir mit dem direkt eingegebenen SQL-Befehl DELETE FROM "Tabelle1". Ich würde diese Funktion gern auf einer Schaltfläche eines Formulars mit einem Klick durchführen können. Dazu bräuchte ich ein Makro. Ich habe mir das Makro Handbuch heruntergeladen und muss konsternierend feststellen dass mir zuviel Grundwissen fehlt um das dort Aufgeschriebene zu verstehen.

Wie müsste das Makro aussehen, welches mir alle Datensätze in Tabelle1 löscht, die Definition aber erhält?

Vielen Dank im Vorraus

[RobertG]

Meinst Du das Kapitel Makros aus dem Base-Handbuch oder die Kurzanleitung zur Makroprogrammierung?

Code: Alles auswählen

SUB DeleteWholeContent(oEvent AS OBJECT)
oForm = oEvent.Source.Model.Parent
oConnection = oForm.activeConnection()
oSQL_Statement = oConnection.createStatement()
stSql = "DELETE FROM ""Tabelle1"""
oSQL_Statement.executeUpdate(stSql)
END SUB

Die Doppelung der doppelten Anführungszeichen dient dazu, das nachfolgende doppelte Anführungszeichen zu maskieren. Du musst also in dem SQL-Code bei allen doppelten Anführungszeichen ein weiteres doppeltes Anführungszeichen hinzufügen.

[Stegull]

Danke Robert,

ganz fantastisch!

Ich habe mir das Handbuch Base_09_Makros_V72 heruntergeladen. Das soll keine Kritik an den Autor darstellen, sondern meine Unfähigkeit verdeutlichen, dieses Thema leicht aufzunehmen.

Vielen vielen Dank!

[RobertG]

… und der Autor liest und berät hier ja mit. Bis auf den Anfang des Macro-Kapitels stammt der gesamte Inhalt des Handbuches von mir.

[Stegull]

Das ist mir vollkommen klar.
Respekt!