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;