ClientDataSets X Transa��es... Como �/deve ser o controle ?

Question

Amigos,Poderiam me esclarecer duas d�vidas relacionadas � Transa��es com ClientDataSets ?Eu utilizo os ClientDataSets apenas para exibi��o da dados onde necessito de navega��o bidirecional, nas demais...

Afarias · Answer

|-> Mas e se eu quisesse utilizar-me de componentes data-aware e
|trabalhar o insert/edit/delete diretamente no CDS, existiria a
|necessidade ou seria recomend�vel controlar a transa��o?

N�o e N�o

|N�o me recordo onde, mas vi uma coloca��o de que a Midas controla
|sozinha a transa��o...

Sim

|-> A segunda d�vida � que j� vi colegas controlarem as transa��es at�
|mesmo em selects (unidirecionais, sem CDS ligados), e isso eu n�o
|fa�o... � necess�rio, ou � recomend�vel ?

� bom sempre controlar as transa��es... nos casos de consulta, o importante � manter a transa��o aberta o menor tempo poss�vel e sempre fech�-la com commit.

|Fiz um pequeno teste e se eu tentar controlar a transa��o de um select
|num SQLDataSet que tem um ClientDataSet ligado � ele ocorre um erro
|de �Cursor not returned�, o que sugere a resposta da minha d�vida
|anterior que, neste caso, a transa��o fica por conta da Midas, mas n�o
|tenho certeza...

Sim, desde que vc n�o controle a transa��o ela ser� aberta e encerrada automaticamente pelo midas/dbx.

� importante q transa��es ligadas a DataSets com CDS *nunca* sejam usadas por DataSets q n�o est�o ligados a CDSs.

T+

Vinicius2k · Answer

Obrigado afarias ! Esclareceu muita coisa !

Mas ainda ficou uma d�vida... veja minha fun��o para abertura de um DataSet usando transa��o e com CDS ligado :

function dbxDSOpen(aDataSet: TSQLDataSet; aClientDataSet: TClientDataSet; aTransactionID: Integer = 1): Boolean;
var SC: TSQLConnection;
    TD: TTransactionDesc;
    CR: TCursor;
begin
  Result:= False;
  CR:= Screen.Cursor;
  Screen.Cursor:= crSQLWait;
  SC:= aDataSet.SQLConnection;
  TD.TransactionID:= aTransactionID;
  TD.IsolationLevel:= xilReadCommitted;
  try
    SC.StartTransaction(TD);
    try
      with aDataSet do
        begin
          Prepared:= True;
          Open;
        end;
      aClientDataSet.Open;  // antes aqui era o Commit(TD)
      SC.Commit(TD);        //  antes aqui era o CDS.Open;
      Result:= True;
    except
      on E: Exception do
        begin
          MsgErro(�bl�... bl�... bl�... � + #13 +  E.Message);
          SC.Rollback(TD);
        end;
    end;
  except
    on E: Exception do
      begin
        MsgErro(�bl�... bl�... bl�... � + 13 +  E.Message);
      end;
  end;
  Screen.Cursor:= CR;
end;

Nas duas linhas q eu assinalei com �//� as posi��es eram invertidas... primeiro eu commitava a transa��o e depois abria o CDS, da� ocorria o erro �Cursor Unknow� (e n�o �not returned�, como eu havia descrito) a partir da segunda abertura do DataSet, a primeira funcionava perfeitamente... invertidas as posi��es tudo passou a funcionar normalmente...

A causa do problema era essa invers�o, mas porque? ou n�o estava errado e da forma atual o CDS n�o est� envolto na transa��o?

T+

Afarias · Answer

|| SC.StartTransaction(TD);

n�o deveria abrir a transa��o

|| Prepared:= True;

N�o � necess�rio preparar

|| Open;

N�o deveria nunca Abrir o SQLDataSet (ou qualquer DataSet ligado a um CDS)

||SC.Commit(TD); // antes aqui era o CDS.Open;

N�o deveria �commitar�

olha, tirando os detalhes do DBX (que n�o uso ou conhe�o pq meu delphi � o 5) -- todo seu c�digo deveria ser resumido a no m�ximo::

  Result:= False; 
  Screen.Cursor:= crSQLWait; 
  try
    try
      aClientDataSet.Open;
      Result := True; 
    except 
      on E: Exception do 
        MsgErro(�bl�... bl�... bl�... � + #13 +  E.Message); 
    end; 
  finally
    Screen.Cursor := crDefault;
  end;

tudo isso desde que vc n�o tenha antes aberto �manualmente� a transa��o. o q � importante entender � q, na linha::

aClientDataSet.Open;

o q acontece �::

1- atransa��o do SQLDataSet � �startada�
2- o SQLDataSet � aberto
3- o SQLDataSet � �corrido� at� o fim e todos os registros s�o enviados ao provider (e dai ao buffer CDS)
4- o SQLDataSet � fechado
5- a transa��o � �commitada�

em apenas 1 linha de c�digo!! :D

T+

Vinicius2k · Answer

:shock:

Ficou expl�cita minha quase total falta de conhecimento dos CDSs... ele faz tudo sozinho... acho que preciso perder o h�bito de tentar controlar tudo (heran�a do Clipper) e estudar mais sobre CDSs... :?
Conheces algum material espec�fico sobre CDS ? al�m do help do Delphi, � claro...

De fato eu imaginava algo parecido, pq por exemplo, como agiria a propriedade �PacketRecords�? logicamente limitando o trabalho do DataSet e para tal o CDS precisa �assumir o controle� do DataSet, fazendo todo o trabalho... e �FetchParams� ent�o? se o CDS interage diretamente com o DataSet n�o existe a menor necessidade que eu interfira...

Obrigado mais uma vez afarias !

T+

Afarias · Answer

| ele (o CDS) faz tudo sozinho...

pra ser mais �justo� :: quem faz praticamente tudo realmente � o provider!! o CDS apenas avisa a ele q precisa dos dados

;)

| Conheces algum material espec�fico sobre CDS ?

Os materiais q conhe�o (e os melhores materiais em tudo relacionado a Borland) est�o na p�gina http://bdn.borland.com/ e nos News Groups da Borland (al�m do Help q vc j� citou! -- e q tb acho muito bom).

beleza cara?! :D

T+

Vinicius2k · Answer

blz !  :wink: brigad�o afarias !T+...

F�rum ClientDataSets X Transa��es... Como �/deve ser o controle ? #45212