修改dbgrideh中某条数据的值 ( 积分: 0 )

with adoquery1 do
begin
close;
sql.Clear ;
sql.Add('update yaoid set dsl=:dsl where yaoid='''+dbgrideh1.Fields[0].Value +'''');
Parameters.ParamByName('dsl').Value:=edit2.Text ;
ExecSQL ;
end;
我要修改dbgrid中某条数据 我的代码不行，提示地址错误 也就是修改当前我选中的一行某列的值

with adoquery1 do
begin
Edit;
FieldByName('dsl').asstring :=edit2.Text ;
Post;
end;