[oracle_br] Re: Isolation Level.

Fri, 25 Nov 2016 09:10:25 -0800 

Olá a todos, boa tarde ! 

   Eduardo, um pequeno exemplo..
 

 

     public
      { Public declarations }
     TD: TTransactionDesc;
 

  
 botão Incluir..
 

    TD.TransactionID := 1;
    TD.IsolationLevel := xilDIRTYREAD;
    SQLConnection1.StartTransaction(TD);
    ClientDataSet1.CommandText:='INSERT INTO MARCACAO SELECT 2,3,GETDATE() ';
    ClientDataSet1.Execute;
 

    ClientDataSet1.Close;
    ClientDataSet1.CommandText:=' SELECT * FROM MARCACAO ';
    ClientDataSet1.Open;
 

   Coloquei um Grid e está mostrando o que foi incluído...
 

 botão Commit
 

    SQLConnection1.Commit(TD);
    ClientDataSet1.Close;
    ClientDataSet1.CommandText:=' SELECT * FROM MARCACAO ';
    ClientDataSet1.Open;
 

   Perfeito, confirma a inclusão do novo registro
 

 

 botão Rollback
 

    SQLConnection1.Rollback(TD);
    ClientDataSet1.Close;
    ClientDataSet1.CommandText:=' SELECT * FROM MARCACAO ';
    ClientDataSet1.Open;
 


   **Cancela** a inclusão.
 

    Somente testei com xilDIRTYREAD
 

 

    Um abraço,
 

    Carlos

Responder a