Transacao

Delphi

15/03/2010

Uso delphi 7 com DBX e controlo transacao em cascata da seguinte maneira:       xgravacao := False;
  Transacao.TransactionID := 1;
  Transacao.IsolationLevel := xilReadCommitted;
  DMC.SQLCon.StartTransaction(Transacao);   if (DM.Pedidos.ApplyUpdates(0)) = 0 then
    if (DM.Itens.ApplyUpdates(0)) = 0 then
      if (DM.Cobranca.ApplyUpdates(0)) = 0 then
        if (DM.Receber.ApplyUpdates(0)) = 0 then
                xgravacao := True;     if (xgravacao) then
    DMC.SQLCon.Commit(Transacao)
  else
  begin
    DMC.SQLCon.Rollback(Transacao);
    Mensagem('ERRO','Ocorreram Erros Durante a Gravação, Dados Descartados !');
    Close;
    Exit;
  end;
Como ficaria isso no delphi 2010, com a nova versao do DBX ?   Abs
Felipe Ip

Felipe Ip

Curtidas 0

Respostas

Junior Miranda

Junior Miranda

15/03/2010

Uso delphi 7 com DBX e controlo transacao em cascata da seguinte maneira:
 
 
  xgravacao := False;
  Transacao.TransactionID := 1;
  Transacao.IsolationLevel := xilReadCommitted;
  DMC.SQLCon.StartTransaction(Transacao);
  if (DM.Pedidos.ApplyUpdates(0)) = 0 then
    if (DM.Itens.ApplyUpdates(0)) = 0 then
      if (DM.Cobranca.ApplyUpdates(0)) = 0 then
        if (DM.Receber.ApplyUpdates(0)) = 0 then
                xgravacao := True;
 
  if (xgravacao) then
    DMC.SQLCon.Commit(Transacao)
  else
  begin
    DMC.SQLCon.Rollback(Transacao);
    Mensagem('ERRO','Ocorreram Erros Durante a Gravação, Dados Descartados !');
    Close;
    Exit;
  end;

Como ficaria isso no delphi 2010, com a nova versao do DBX ?
 
Abs


Utilizo uma rotina relativamente parecida. Não tenho o 2010 ainda, se vc possuir, já testou?
se testou, qual o erro?

[]'s 
GOSTEI 0
POSTAR