S
sundart
Unregistered / Unconfirmed
GUEST, unregistred user!
begin
IBTransaction1.StartTransaction
try
sSQL := 'Insert Into Master(iNo, sName) Values(%d, ''%s'')';
ibQuery.SQL.Text := Format(sSQL, 1, 'Test');
ibQuery.ExecSQL ;
sSQL := 'Insert Into List(iNo,fValue) Values(%d, %n)';
ibQuery.SQL.Text := Format(sSQL, 1, 100);
IBQuery.ExecSQL
IBTransaction1.Commit;
except
IBTransaction1.Rollback;
end;
但执行IBTransaction1.StartTransaction出错,说已有事务启动,说明它是自动启动事务的,
我想在提交数据出错时回滚两个表的数据,请问应如何做。
IBTransaction1.StartTransaction
try
sSQL := 'Insert Into Master(iNo, sName) Values(%d, ''%s'')';
ibQuery.SQL.Text := Format(sSQL, 1, 'Test');
ibQuery.ExecSQL ;
sSQL := 'Insert Into List(iNo,fValue) Values(%d, %n)';
ibQuery.SQL.Text := Format(sSQL, 1, 100);
IBQuery.ExecSQL
IBTransaction1.Commit;
except
IBTransaction1.Rollback;
end;
但执行IBTransaction1.StartTransaction出错,说已有事务启动,说明它是自动启动事务的,
我想在提交数据出错时回滚两个表的数据,请问应如何做。