Hiho,
Ich erzeuge eine TIBDatabase, eine TIBTransaction und ein TIBDataset. Im TIBDataset steht sowas wie 'select * from Daten'.
Ich öffne das TIBDataset, lese alle Zeilen ein, merke mir die IDs, schließe das TIBDataset und dann baue ich mir aus den gemerkten IDs ein Delete-Statement zusammen:
Delphi-Quellcode:
const
szDelete = 'Delete from %s where ID in (%s)';
var
sData: string;
sDeleteList: string;
begin
fQuery.Dataset.Active := True; // fQuery ist ein privates Feld einer 'TFoobarQuery', die widerum das TIBDataset kapselt
sDeleteList := '';
try
fQuery.Dataset.First;
while not fQuery.Dataset.Eof do begin
sDeleteList := sDeleteList + VarToStr (fQuery.Dataset['ID']) + ',';
fQuery.Dataset.Next;
end;
finally
fQuery.Dataset.Active := False;
if sDeleteList <> '' then begin
SetLength(sDeleteList, Length(sDeleteList) - 1);
fConnection.Execute(Format(szDelete, [fTableName, sDeleteList])); // fConnection ist eine TFoobarConnection, die
end; // eine TIBDatabase kapselt.
end;
end;
...
procedure TConnection.Execute(const sSQL: string);
var
cmd: TIBScript;
begin
cmd := TIBScript.Create(nil);
try
fTransaction.StartTransaction;
try
cmd.Database := fDatabase;
cmd.Script.Text := sSQL;
cmd.ExecuteScript;
fTransaction.Commit;
except
fTransaction.Rollback;
raise;
end;
finally
cmd.Free;
end;
end;
Beim 1. Aufruf werden alle Zeilen eingelesen, das Delete-Statement gebastelt und alle Zeilen gelöscht. Toll.
Nun füge ich eine Zeile ein und rufe die o.g. Routine nochmal auf. Was soll ich sagen, das Dataset enthält die selben Daten, wie eben, obwohl die gelöscht sind (per IBExpert nachgeschaut).
Wie muss ich das anstellen, das so etwas Einfaches funktioniert, also das beim 2.Lesen mal zur Abwechslung andere Daten im Dateset stehen?
Danke und Grüße