Hallo Avax2k.
Dein DBEdit-Feld stört da ein wenig, da du ja mit
SQL kopierst - oder? Wenn du da ein Edit-Feld draus machst, dann kannst du dein
SQL-Statement zum Kopieren etwa so erweitern, wie ich es an meinem Demo-Beispiel zeige:
Delphi-Quellcode:
const
SQL_COPY
= '
INSERT INTO kopie (id, nachname, vorname, groesse) '
+ '
SELECT id, nachname, vorname, %s FROM original '
+ '
WHERE id = :id';
procedure TDemoForm.btnCopyClick(Sender: TObject);
var
id: integer;
begin
id := ADODataSet1.FieldValues['
id'];
with ADOQuery
do
begin
SQL.Text := Format(SQL_COPY, [Edit1.Text]);
Parameters.ParseSQL(
SQL.Text, true);
Parameters.ParamValues['
id'] := id;
try
ExecSQL;
ADODataSet2.Requery([]);
except
on E:
Exception do
ShowMessage(E.
Message);
end;
end;
end;
Grüße vom marabu