Insert mit Where Klausel

[mkinzler]

Am Besten als parametrisierte Abfrage in einer Schleife

SQL-Code:

insert into TBL_KETTEN (VERSICHERERNR, KETTENNAME, FAVORIT, ANLAGE, ANLAGEBENUTZER)
Values (:VERSICHERERNR, :KETTENNAME, :FAVORIT, :ANLAGE, :ANLAGEBENUTZER);

Delphi-Quellcode:

sl: TStrings;
i: Integer;
...

sl := TStringList.Create;

Query.ParamByName('KETTENNAME').Value := <Kettenname>';
... // Alle Felder aus VERSICHERERNR

sl.CommaText := '20,21,22,23,24,25,26,72,73,74,75,76,77,78,79,80,81,82,83,84,85,8';

for i := 0 to sl.Count-1 do
begin
  Query.ParamByName('VERSICHERERNR').asString := sl[i];
  Query.ExecSQL;
end;