with query do begin close; sql.clear; sql.text:='update table set aa='+''''+trim(edit1.text) +''''+','+'bb='+''''+trim(edit2.text)+''''+','+'cc='+''''+trim(edit2.text)+''''...... prepare; execsql; end;
update table set aa = :x ,bb=:y , cc=:z where .... parambyname('x').asstring := Edit1.Text;
直接赋值就行了!
begin
close;
sql.clear;
sql.text:='update table set aa='+''''+trim(edit1.text) +''''+','+'bb='+''''+trim(edit2.text)+''''+','+'cc='+''''+trim(edit2.text)+''''......
prepare;
execsql;
end;
parambyname('x').asstring := Edit1.Text;