Delphi 事务处理的问题（急）

[wojiuxihuan]

sql := 'Insert Into Project(ProjectId) Values(3)';
sql := 'Update Bill set ItemCode = '''+aaa+''' Where BillID=1';
这两条插语句用TADOConnection的事务处理
怎么写啊
with FDataDM.ADOConn2 do
begin
Open;
BeginTrans;
try
sql := 'Insert Into Project(ProjectId) Values(3)';
Execute(sql);
sql := 'Update Bill set ItemCode = '''+aaa+''' Where BillID=1';
Execute(sql);
CommitTrans;
finally
RollbackTrans;
end;
end;
为什么这样写会提示“试着不先使用BeginTrans而提交或退回事务”
是不是跟Access数据库有关

在线等！！！！！！！！！！！！！

[hsmserver]

try
except
end;

[Bear_hx]

你要先开始事务

[天行归来]

with FDataDM.ADOConn2 do
begin
Open;
BeginTrans;
try
sql := 'Insert Into Project(ProjectId) Values(3) ';
Execute(sql);
sql := 'Update Bill set ItemCode = ' ' '+aaa+ ' ' ' Where BillID=1 ';
Execute(sql);
CommitTrans;
finally //应该是异常才回滚。修改成 except
RollbackTrans;
end;
end;

出现问题：程序正常执行情况下，会提交事务，而后又执行了RollbackTrans，此时，事务已经结束，就出现你的错误提示了。

[wojiuxihuan]

谢谢各位了