急……如何成批保存数据？谢谢！

Question

假设使用AdoQuery组件，
button1onClick事件下：      
AdoQuery.append;//增加第一条记录
AdoQuery.fieldbyname('name').asstring := 'a';
adoquery.append;//增加第二条记录
adoquery.fieldbyname('name').asstring :='b';
...
假设有100条记录，我想要这100记录要吗全部保存到数据库要吗全部保存失败！
采用我上面的方法，比如保存到第30条的时候如果出错了，那吗前30条保存到
数据库中了，而后70条却没有保存上去。
该怎么做？

Answer 1

把ADOQuery1的属性：locktype:=itbactchoptimistic,usorlocation:=cluserclient
cursortype:=keyset
sql: select * from 表名 where 1=0保存时：（显式提交）
with adoconnection1 do
begin
  begintrans;  //事务开始
  try
   adoquery1.updatebatch;  //批量保存
   committrans;     //提交事务
  except
   rollbacktrans;必  //失败回滚
   rasise;
   exit;
 end;
end;