版本:3012
两个query用的时同一个connection,连接不同表,事务该如何控制??
with query1 do
begin
while not eof do
begin
edit;
filedbyName('nam').asstring := '333'
post;
next;
end;
end;
with query2do
begin
while not eof do
begin
edit;
filedbyName('rem_txt').asstring := '333'
post;
next;
end;
end;
with query1.Connection.Transaction do
begin
TransactionHandle := Start(false);
try
query1.applyupdates; // 事实证明在这已经把数据提交了
query2.applyupdates;// 事实证明在这已经把数据提交了
Commit(lTransactionHandle); // 如果这里提交不成功,数据并没有发生回滚
except
Rollback(lTransactionHandle); // 对query没起作用。。。
end;
end;