Показать сообщение отдельно
  #2  
Старый 17.07.2008, 13:52
YERokez YERokez вне форума
Прохожий
 
Регистрация: 27.10.2007
Сообщения: 22
Репутация: 10
По умолчанию

Я вообще-то 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;
Ответить с цитированием