標籤: transaction

[pascal]
begin
ADOConnection1.BeginTrans;
try
// 資料庫相關操作
ADOConnection1.CommitTrans;
except
on E:Exception do Begin
ADOConnection1.RollbackTrans;
End;
end;
end;
[/pascal]