MariaDB: Event bei neuem Datensatz

[Helmi]

der ESP schreibt gemütlich in die Datenbank rein
ein Delphi-Programm holt sich die Daten und zeigt sie grafisch an

[Frickler]

Dann wird das wohl auf Polling hinauslaufen. Das Delphi Prg schaut regelmäßig nach, obs was neues gibt.

[DaCoda]

Ich mache das bei MariaDB mit einem Trigger, wenn es neue Daten gibt, oder etwas verändert wurrde und setze dann ein Flag. Das Delphi Programm schaut zyklisch auf das Flag und reagiert entsprechend.

[DaCoda]

Oder wenn du es ganz simpel machen möchtest, dann vielleicht so in der Art:

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  FDQuery1.SQL.Text := 'SELECT MAX(last_modified) FROM deine_tabelle';
  FDQuery1.Open;
  if FDQuery1.Fields[0].AsDateTime > LetzterZeitstempel then
  begin
    // Änderung erkannt – aktualisiere Anzeige
    LetzterZeitstempel := FDQuery1.Fields[0].AsDateTime;
    AktualisiereDaten();
  end;
end;

[Helmi]

Zitat von DaCoda:

Ich mache das bei MariaDB mit einem Trigger, wenn es neue Daten gibt, oder etwas verändert wurrde und setze dann ein Flag. Das Delphi Programm schaut zyklisch auf das Flag und reagiert entsprechend.

das hört sich sehr interessant an

Hättest du hierfür vielleicht ein Beispiel?

[DaCoda]

Ja das machst du in etwa so:

Die zusätzliche Log-Table:

Code:

CREATE TABLE table_log (
  id INT AUTO_INCREMENT PRIMARY KEY,
  aktion VARCHAR(10),           -- z. B. 'INSERT', 'UPDATE', 'DELETE'
  zeitpunkt DATETIME DEFAULT NOW()
);

Die TRIGGER:

Code:

-- INSERT Trigger
CREATE TRIGGER table_insert AFTER INSERT ON kunden
FOR EACH ROW
BEGIN
  INSERT INTO table_log (aktion, zeitpunkt) VALUES ('INSERT', NOW());
END;

-- UPDATE Trigger
CREATE TRIGGER table_update AFTER UPDATE ON kunden
FOR EACH ROW
BEGIN
  INSERT INTO lable_log (aktion, zeitpunkt) VALUES ('UPDATE', NOW());
END;

-- DELETE Trigger
CREATE TRIGGER kunden_delete AFTER DELETE ON kunden
FOR EACH ROW
BEGIN
  INSERT INTO table_log (aktion, zeitpunkt) VALUES ('DELETE', NOW());
END;

Abfrage der Einträge in Delphi:

Code:

FDQuery.SQL.Text := 'SELECT * FROM table_log ORDER BY zeitpunkt DESC';
FDQuery.Open;

Und entfernen der Einträge in Delphi:

Code:

FDQuery.SQL.Text := 'DELETE FROM table_log';
FDQuery.ExecSQL;

Das musst du entsprechend deiner Anforderung etwas anpassen, aber grundsätzlich ginge das so.

[Helmi]

Zitat von DaCoda:

Ja das machst du in etwa so:

Abfrage der Einträge in Delphi:

Code:

FDQuery.SQL.Text := 'SELECT * FROM table_log ORDER BY zeitpunkt DESC';
FDQuery.Open;

Und entfernen der Einträge in Delphi:

Code:

FDQuery.SQL.Text := 'DELETE FROM table_log';
FDQuery.ExecSQL;

Das musst du entsprechend deiner Anforderung etwas anpassen, aber grundsätzlich ginge das so.

schaut interessant aus - werd ich ausprobieren
Im Delphi-Programm schaust du dann, ob Daten aus der table_log vorhanden sind?

[DaCoda]

Zitat von Helmi:

schaut interessant aus - werd ich ausprobieren
Im Delphi-Programm schaust du dann, ob Daten aus der table_log vorhanden sind?

Ja genau mit den beiden Querys behandel ich das, eine zum feststellen, ob es Änderungen gab und die Andere zum löschen der Einträge.

Es gibt sicher noch weitere Möglichkeiten. Wenn du volle Change Notification-Unterstützung brauchst, wäre ein Wechsel zu z. B. InterBase oder Oracle eine Überlegung wert – dort funktioniert das direkt über FireDAC