Delphi 使用ADOQuery组件怎么更新数据

Delphi 使用ADOQuery组件如何更新数据？
在做一个存储系统
名为ck表的 数据要进行数据更新，每次单击按钮之后
名为'edit6'上编号的仓库，他的Sused 内的数据要加上edit4的数据。
ADOQuery组件
With ADOQuery1 do 
begin 
Close; 
SQL.Clear;
ADOQuery.SQL.Text:='Update ckdb where Sno=:trim(edit6.text)';
fieldbyname(Sused).asstring:=fieldbyname(Sused).asstring:trim(edit4.text);
ExecSQL; 
end;

这样对么？  ADOQuery组件 还需要设置别的么？  
------解决方案--------------------
你代码错误多多，试试这个吧：

With ADOQuery1 do  

begin  

  Edit;

  fieldbyname('Sused').asstring:=fieldbyname('Sused').asstring+trim(edit4.text);

  Post; 

end;

------解决方案--------------------
With ADOQuery1 do  
begin  
Close;  
SQL.Clear;
ADOQuery.SQL.Text:='Update ck set Sno=:P1';
ADOQuery.Parameters.ParamByName('P1').Value:=ADOQuery.fieldbyname('Sused').asstring+trim(Edit4.text);  
ExecSQL;  
end;
------解决方案--------------------

引用:

引用:

With ADOQuery1 do
begin
Close;
SQL.Clear;
ADOQuery.SQL.Text:='Update ck set Sno=:P1';
ADOQuery.Parameters.ParamByName('P1').Value:=ADOQuery.fieldbyname('Sused').asstring+trim(Edi……

With ADOQuery1 do  

begin  

Close;  

SQL.Clear;

ADOQuery.SQL.Text:='Update ck set  Sused =:P2 where Sno=:P1';

ADOQuery.Parameters.ParamByName('P1').Value:= quotedstr(edit6.text);

ADOQuery.Parameters.ParamByName('P2').Value:= ADOQuery.fieldbyname('Sused').asinteger+strtointdef(Edit4.text,0);  

ExecSQL;  


end;