事务的用法,急!在线等!!

Question

事务在delphi里怎么用啊,急!

Answer 1

AdoConnection1.BeginTrans;
  try
    {数据库更新代码}
    AdoConnection1.CommitTrans;
  except
    AdoConnection1.RollbackTrans;
    {错误提示代码~~~}
  end;

Answer 2

AdoConnection.begintrans;
try
..
..
..
AdoQuery1.ExecSQL;
AdoConnection.committrans;
except
AdoConnection.rollbacktrans;
end;

Answer 3

AdoConnection.begintrans;
try
..
..AdoConnection.committrans;
except
AdoConnection.rollbacktrans;
end;

Answer 4

DataBase1.StartTransaction;
try
...
...
...
  DataBase1.Commit;
except
  DataBase1.RollBack;
end;