Firebird Ist Tablle verändert worden

[Walter Landwehr]

Hallo an alle Firebird Experten,

gibt es in Delphi XE2 eine Möglichkeit abzufragen, ob eine Tabelle verändert worden ist.

Vielen Dank für eine Antwort im Voraus.

[mkinzler]

Was meinst Du mit verändert? Daten in der Tabelle oder die Struktur?

[Walter Landwehr]

Daten in der Tabelle hinzugeführt oder verändert.

[DeddyH]

Kann es sein, dass Du IB_Events suchst?

[haentschman]

Moin...

Wenn du nicht mit Events arbeiten willst, ist nicht ganz trivial, hier noch eine Idee zum Ausschlachten:

1. zusätzliches Feld (Integer) in der entsprechenden Tabelle namens "CHANGED" ... oder so.
2. bei jeder Schreiboperation (Insert, Update) wird über einen Trigger in "CHANGED" eine 1 geschrieben.
3. Dann schaust du nach wenn du wissen möchtest ob sich was geändert hat....quasi jedes "CHANGED" mit 1 drin.
4. Nach der Auswertung setzt du "CHANGED" zurück.

... damit hast du immer die Änderungen zum letzten Guck. 8-)

[tsteinmaurer]

Klappt halt nicht mit DELETE, wenn man den Datensatz wirklich löscht und nicht nur als gelöscht markiert.

[DeddyH]

Irgendwie logisch, wie soll man auch in einen Datensatz schreiben, den es gar nicht mehr gibt?

[haentschman]

Ausschlachten... hatte ich doch gesagt. :zwinker:

Dann markiert man den halt als DELETE und nimmt ihn erst beim Rücksetzen wirklich weg. Wo ein Wille ist, ist ein Gebüsch. :stupid:

[Walter Landwehr]

Hallo,

setze zur Zeit TIB_Events ein. Nur die Komponente zeigt keine Reaktion.

Delphi-Quellcode:

procedure TTagesKalenderFrm.TerminEventsEventAlert(Sender: TObject;
  AEventName: string; AEventCount: Integer);
begin
  if (AEventName = 'TerminInsert')
  or (aEventName = 'TerminUpdate')
  or (aEventName = 'TerminDelete') then
    refreshEvents;
end;

[DeddyH]

Deine DB löst aber Events aus? http://www.firebirdsql.org/file/docu...ird_events.pdf

[p80286]

ggf. könnte man über einen Trigger eine Logdatei füllen?

Gruß
K-H

[Walter Landwehr]

Danke DeddyH das war es.

[Perlsau]

Zitat:

Zitat von Walter Landwehr (Beitrag 1287019)

Hallo an alle Firebird Experten, gibt es in Delphi XE2 eine Möglichkeit abzufragen, ob eine Tabelle verändert worden ist.

In Anwendungen, in denen es relevant ist zu wissen, wann welcher User welchen Eintrag in der DB getätigt hat, setze ich eine Log-Tabelle ein. Die protokolliert alle Änderungen in der Datenbank, vom An- und Abmelden eines Benutzers über das Löschen und Einfügen neuer Datensätze bis zu Änderungen an Datensätzen. Das wäre die applicationstechnische Lösung. Ansonsten kannst du auch datenbankseitige Lösungen installieren, indem du mit den Triggern AfterDelete, AfterInsert und AfterUpdate arbeitest und in den jeweiligen Proceduren einfach einen neuen Datensatz in deiner Log-Tabelle anlegst.

Beispiel einer Log-Tabelle:

Code:

CREATE TABLE LOGTAB (
    ID_LOGTAB    INTEGER NOT NULL,
    BENUTZER     INTEGER DEFAULT 0 NOT NULL,
    AKTION       INTEGER DEFAULT 0 NOT NULL,
    TABELLE      INTEGER DEFAULT 0 NOT NULL,
    ZEITSTEMPEL  TIMESTAMP);

[Neumann]

Man könnte auch mit einer Checksumme und einem Lastchange arbeiten, z.B. über select sum(ID),max(Lastchange) from Table. Lastchange könnte man über einen Trigger setzen.ID müsste dann z.B. der Primärschlüssel (Int) sein.

Sum(id) sollte sich immer ändern, wenn ein Datensatz hinzugefügt oder gelöscht wird, das Lastchange bei Insert und Update.