BeginTrans,CommitTrans,RollBackTrans

1. BeginTrans
Gunakan perintah BeginTrans untuk memulai suatu transaksi atau perubahan pada database, BeginTrans berguna untuk menjaga integritas data dan pengendalian kesalahan yang berasal dari pengguna maupun dari system.

Contoh
Procedure TForm1.BtAddClick (Sender:Tobject);
Begin
ADOconnection1.BeginTrans;
ADOTable1.append;
ADOTable1.Field[0].Asstring := Edit1.Text;
ADOTable1.Field[1].AsInteger:= StrToInt(Edit2.text)
end;

2. CommitTrans
Gunakan perintah CommitTrans untuk menyimpan perubahan yang dilakukan dan untuk mengakhiri perintah dari BeginTrans. CommitTrans berguna untuk memastikan data yang dimasukkan benar sehingga akan disimpan oleh CommitTrans.

Contoh
Procedure TForm1.BtSaveClick(Sender:TObject);
Begin
If Length(Edit1.Text)<>0 and Length(Edit2.Text)<>0 Then
Begin
ADOConnection1.CommitTrans;
AdoTable1.Post;
End
Else
ShowMessage('Data yang dimasukkan tidak Valid');

End;

3. RollBackTrans
Gunakan perintah RollBackTrans untuk membatalkan semua perubahan yang dilakukan, Fungsi RollBackTrans mirip dengan fungsi undo. Dengan menggunakan fungsi RollBackTrans bisa melalukan pembatalan perubahan yang dilakukan dari mulai fungsi BeginTrans bekerja. ketika fungsi RollBackTrans dikerjakan maka perubahan yang disimpan hilang dan sekaligus menutup fungsi BeginTrans.

Contoh
Procedure TForm1.BtUndoClick (Sender : TObject)
Begin
ADOTable1.Cancel;
ADOConnection1.RollBackTrans;
End;