updata 的问题

Question

本人是刚开始学习delphi,基础很差，请各大侠多帮忙。
我最近编了一个请假管理的，使用ACCESS数据庫，所有的请假记录放在JL的表中，ID是请假的申请单号（类型：自动编号，长整型，并设为主键）,以下代码的作用是：完成销假，对指定的申请单进行销假处理。
aq3.close;
aq3.sql.clear;
aq3.sql.Add('update jl ');
aq3.Parameters.AddParameter.Name:='us1';  aq3.Parameters.AddParameter.Name:='ps1'; 
aq3.Parameters.ParamByName('us1').Value  :=strtodate(edit2.text);//销假时间
aq3.Parameters.ParamByName('ps1').Value  :=strtoint(edit1.text);//输入假单号
aq3.sql.Add('set XJSHIJIAN=:us1 ');
aq3.sql.Add('where id=：ps1);
  aq3.ExecSQL;
现在的问题是的执行后，没有一点反应，数据没有实现更新。

Answer 1

aq3.close;
aq3.sql.clear;
aq3.Parameters.AddParameter.Name:='us1'; 
aq3.Parameters.AddParameter.Name:='ps1';
aq3.Parameters.ParamByName('us1').Value :=strtodate(edit2.text);//销假时间
aq3.Parameters.ParamByName('ps1').Value :=strtoint(edit1.text);//输入假单号
aq3.sql.Add('update jl set XJSHIJIAN=:us1 where id=：ps1');
aq3.ExecSQL;

Answer 2

aq3.close;
aq3.sql.clear;
aq3.sql.Add('update jl set XJSHIJIAN=:us1 where id=:ps1');
try
begin
aq3.Parameters.ParamByName('us1').Value :=strtodate(edit2.text);//销假时间
aq3.Parameters.ParamByName('ps1').Value :=strtoint(edit1.text);//输入假单号
aq3.ExecSQL;
end;
except
showmessage('出错！');
end;