ParamByName geht und geht mal nicht

[Sir Rufo]

Mal ganz abgesehen von Normalisierung oder der direkten Ausführung auf dem Server:

Bevor ich so einen langen Rattenschwanz programmieren müsste, würde ich mir einfach eine Schleife bauen:

Delphi-Quellcode:

while not qryBildAlt.eof do
begin
  Query_Quelle.close;
  Query_Quelle.ParamByName('PATIENTNR').AsInteger:= qryBildAlt.FieldByName('PATIENTNR').AsInteger;
  Query_Quelle.Open;

  // sag es mit drei Zeilen, statt mit n Zeilen

  for LFieldName in LFieldNames do
  begin
    Query_Ziel.ParamByName( LFieldName ).Value := Query_Quelle.FieldByName( LFieldName ).Value;
  end;

  Query_Ziel.ExecSQL;
end;