Mit gelöschte Zeilen arbeiten (ZEOS, CachedUpdates)

[Soner]

Ich verwende ZEOS-Komponenten und benutze CachedUpdates und möchte von den gelöschten Zeilen die Indizien zugreifen. Die existieren ja noch bis man TZQuery.ApplyUpdates aufruft.
Hat jemand schon mal das gemacht und kennt die Lösung?

Das Problem mit TZQuery.OnBeforeDelete Event ist, dass es aufgerufen wird, sobald man TZQuery.Delete aufruft und solange TZQuery.ApplyUpdates nicht aufgerufen wird, ist es noch nicht gelöscht.

Code: Alles auswählen

  ZQuery1.First;
  while not ZQuery1.EOF do begin
    if (usInserted=ZQuery1.UpdateStatus) then   //das geht 
        Beep; 
    if r(usDeleted=ZQuery1.UpdateStatus) then    //das geht nicht weil gelöschte Zeilen Übersprungen werden.  Es fiel mir zu spät ein.
       Beep;
    ZQuery1.Next;
  end;

[Soner]

Ich glaube TZUpdateSQL.OnBeforeDeleteSQLStatement- oder TZUpdateSQL.OnBeforeDeleteSQL-Event scheint richtig zu sein. Die werden nur bei TZQuery.ApplyUpdates aufgerufen. Jetzt muss ich noch an die Werte rankommen.

[mhe]

Ich glaub, mit RecNo solltest auf Records mit Löschvormerkung zugreifen können.

Code: Alles auswählen

var
  i: Integer;
begin
  for i := 1 to Query1.RecordCount do
  begin
    Query1.RecNo := i;
    if Query1.UpdateStatus = usDeleted then
    begin
      ShowMessage('Deleted record: ' + Query1.FieldByName('name').AsString);
    end;
  end;
end;

[Soner]

Ich glaub, mit RecNo solltest auf Records mit Löschvormerkung zugreifen können.
...

Ausprobiert, geht nicht, gleicher Effekt. Ich benutze ZEOS.

Jetzt erinnere ich mich, ZEOS arbeitet mit internen Listen. Ich hatte vor Jahren TZAbstractCachedResultSet erweitert um alte Werte anzuzeigen. Ich muss mal schauen wie ich es damals gemacht habe.

Falls jemand vor ähnlichem Problem steht und dieses Thema stirbt, wäre eine einfache Lösung bei TZQuery.OnBeforeDelete-Event die Indizien der gelöschten Zeilen in einer Liste zu speichern.
Nach TZQuery.ApplyUpdates sind die tatsächlich gelöscht, weil man zwischendurch als Benutzer gelöschte Zeilen nicht zurückholen kann. Man könnte noch mit TZQuery.Locate kontrollieren, aber das wäre überflüssig, vielleicht höchstens sinvoll, wenn zwischendurch Exception auftritt oder der Benutzer refresh macht. Das ist mir eben eingefallen, vielleicht die Lösung für mich.

Elegant ist das natürlich, wenn man bei TZUpdateSQL-Events gelösche Index bekommen kann, dann muss man nicht komplette Datentabelle von Anfang bis Ende durchlaufen sondern nur gelöschte und hinzugefügte Zeilen.

[af0815]

Bei so speziellen Themen würde ich ins Zeos Forum direkt gehen. Die sind sehr bemüht und man bekommt oft schnell eine Antwort.