du schreibst ja super beiträge, der andere mit den tabellen senkrecht ist genauso klasse.
machs mit ner abfrage:
Delphi-Quellcode:
with TADOQuery.Create
do
try
Connection := ...
SQL.Clear;
SQL.Add('
INSERT INTO tab2 (SELECT * FROM tab1 WHERE whereclause)');
if ExecSQL > 0
then
begin
SQL.Clear;
SQL.Add('
DELETE FROM tab1 WHERE whereclause');
ExecSQL;
end;
finally
Free;
end;
Irgendwie so müsste es klappen. Wobei die Tabellen gleiche Felder haben müssen. Und mit dem DELETE-Befehl solltest Du vorsichtig sein: Wenn der vorherige INSERT-Befehl fehlgeschlagen ist, dann löschst Du Daten die Du nicht löschen willst.