ADO\SQLServer\Transactions

From: JR (JR65403_at_att.net)
Date: 06/05/04 

Date: Sat, 05 Jun 2004 08:54:26 -0500

I am using Delphi 7, SQLServer 2000, and ADO

I use the ADODatasets in the application to select, insert, update and
delete records. Is the correct place to setup the
ADOConnect.BeginTrans, ADOConnect.CommitTrans and ADOConnect.rollback in
the onclick event of the save button.

procedure TfrmDemographicis.btnSaveClick(Sender: TObject);
var
   Save_Cursor:TCursor;
begin

    Save_Cursor := Screen.Cursor;
    Screen.Cursor := crSQLWait;
    adoConn.BeginTrans;
      try
        adoConn.CommitTrans;
      except
         on Exception do
           begin
              MessageDlg('Exception Message Unable to Update Tables: ' ,
mtInformation, [mbOK],0);
            raise;
            adoConn.RollbackTrans;
            exit;
          end; //on exception
        end; //try
            Screen.Cursor := Save_Cursor;//
  end;

TIA