Man könnte das so machen , ist vorallem bei vielen Feldern übersichtlicher
Delphi-Quellcode:
With AdsQuery2
do Begin
Try
close;
Sql.Clear;
Sql.Add('
Update Dict_43000 set Umschreibung= :P0 , P = :P1 Where RowID = '+ZeileVar );
Params[0].Value:=EditDlg.Memo1.Text;
Params[1].Value:=PVar;
execsql;
Except
end;
end;
[edit=Christian Seehase]BB-Codes aktiviert. Bitte das Profil mal dahingehend überprüfen. Danke. Mfg, Christian Seehase[/edit]