DELPHI+ADO中：如果想将表1中的记录逐条地插入表2，用如下语句，能否完成如在未全部完成时(比

DELPHI+ADO中：
如果想将表1中的记录逐条地插入表2，用如下语句，能否完成如在未全部完成时(比如共要完成10条，而在完成6条时出错了)而出错时，回滚至初始态，即将已插入的记录也回滚掉？如不行，应怎样？3Q
DataModule1.AdoConnection1.BeginTrans; //开始事务
try
while i<DataModule1.ADOQuery1.RecordCount do
begin
sql:='';
......//这句为组装sql的语句
DataModule1.AdoConnection1.Execute(sql);
end;
DataModule1.AdoConnection1.CommitTrans; //结束事务Except
DataModule1.AdoConnection1.RollbackTrans; //回滚end;