TADOQUERY组件更新记录(我在大富翁问了一天了还没有解决呢)

Question

代码先贴出来
 procedure UpdateClient(GPRSID:Integer;GPRSName:string;GPRSNumber:string;GPRsAddr:string;GPRSDescript:string);
begin
   dbmodule.GPRS_Query.Close;
   dbModule.GPRS_Query.SQL.Clear;
   dbmodule.GPRS_Query.SQL.Add('select * from GprsClient Where ID='+IntToStr(GPRSID));
   dbmodule.GPRS_Query.Open;
       if dbmodule.GPRS_Query.Eof=False then//如果记录不为空
         begin
         if not (dbmodule.GPRS_Query.State in [dsInsert, dsEdit]) then
         dbmodule.GPRS_Query.Edit;//将数据集改为编辑状态
        dbmodule.GPRS_Query.FieldValues['GPRSName']:=GPRSName;
        dbmodule.GPRS_Query.FieldValues['PhoneNumber']:=GPRSNUmber;
        dbmodule.GPRS_Query.FieldValues['GPRSAddr']:=GPRSAddr;
        dbmodule.GPRS_Query.FieldValues['GPRSDescript']:=GPRSDescript;
        dbmodule.GPRS_Query.Post;
        end;
    dbmodule.GPRS_Query.Close;
end;
代码执行正常，每一句都执行了，可就是记录怎么弄也不更新!刚开始学DELPHI就碰了这么一个钉子!大侠们不要嫌分少啊!

Answer 1

问题解决了!少了一句dbmodule.GPRS_Query.UpdateBatch!

Answer 2

我也是刚学也遇上这样的问题
ADOQuery1.Close;
ADOQuery1.SQL.Add('insert into users (cusername) values (:username)');
ADOQuery1.Parameters.ParamByName('username').Value:= Edit1.Text;
ADOQuery1.ExecSQL;
能添加数据，但添加完了之后就更新不了了