Я вообще-то ADO использую. Там в ADOConnection есть необходимые свойства. Вот небольшой примерчик. Может поможет.
Код:
//********************************************************
Procedure Save_Data(LDB_ConnString:string);
var
t_sp:TAdoStoredProc;
t_conn:TAdoConnection;
Begin
t_conn:=TAdoConnection.Create(nil);
t_conn.LoginPrompt:=false;
try
t_conn.ConnectionString:=LDB_ConnString;
try
t_conn.Connected:=true;
except
on E:Exception do
begin
MESSAGEDLG(E.Message,mtError,[mbOK],0);
Exit;
end;
end;
t_sp:=TAdoStoredProc.Create(t_conn);
t_sp.Connection:=t_conn;
t_conn.BeginTrans;
Try
----тело процедуры
t_conn.RollbackTrans; //откатывает все несохраненные изменения
t_conn.CommitTrans; //комитует транзакцию
----
Finally
If t_conn.InTransaction then t_conn.CommitTrans;
End;
Finally
t_conn.Free;
End;
End;