ich hatte den Code in mehreren Schleifen drinnen und da hat er "Schrott" kopiert. Nachdem ich den Code rausgenommen habe und einzeln durchlaufen lassen habe, tut es... Man muss nicht alles verstehen.
Code:
With ZQ1 do begin
Active := False;
SQL.Clear;
SQL.Text := ' Insert Into bilder (artikelbild, artikel_id, path, bild, size, bildnummer) Values '+
' (:p1, :p2, :p3, :p4, :p5, :p6)';
ParamCheck := True;
ParamByName('p1').Value := AQ2.FieldByName('a_artikelbild').Value;;
ParamByName('p2').Value := AQ2.FieldByName('a_artikel_id').Value;
ParamByName('p3').Value := AQ2.FieldByName('a_path').Value;
ParamByName('p4').Value := AQ2.FieldByName('a_bild').Value;
ParamByName('p5').Value := AQ2.FieldByName('a_size').Value;
ParamByName('p6').Value := AQ2.FieldByName('a_bildnummer').Value;
ExecSQL;
end;
Fehler lag also zwischen den Ohren. Danke für die Hilfe...