[firebase-br] [OFF] Select dentro de uma transação utilizando o drive UIB está influenciando no rollback.

[Junior Miranda]

Obrigado pela atenção! Eu já coloquei  o start da transação Antes do laço, 
Antes do select, Antes do ClientDataset.Edit, etc. Na verdade sai fazendo 
testes para ver o comportamento.  O correto seria....

var
>> T_ID1: TTransactionDesc;
>> begin
>> //-
>>T_ID1.TransactionID  := 1;
>>T_ID1.IsolationLevel  := xilREADCOMMITTED;
>>SQLConnection1.StartTransaction(T_ID1);
>> //-

Mas idependente de posição do start, o erro no rollback continua. E por 
todos os testes que já fiz. O select influencia! Até porque com outros
Drives(Interbase) funciona. O problema é que não poderei mudar o drive de 
imediato.

Att,

Júnior Miranda.


--------------------------------------------------
From: "Eduardo Pombo" <eduardo em embras.net>
Sent: Monday, August 16, 2010 10:53 AM
To: "FireBase" <lista em firebase.com.br>
Subject: Re: [firebase-br][OFF] Select dentro de uma transação utilizando o 
drive UIB está influenciando no rollback.

> Acredito que o problema seja pq no momento que o erro ocorre a
> transacao ainda nao esteja criada.
> ex: se o erro ocorrer neste item abaixo a transacao ainda nao foi
> criada e ai vai para o except e com isso o rollback nao vai funcionar
> por nao ter transacao criada.
>
>       ClientDataSet1.Edit;
>       ClientDataSet1IT_NUM.AsInteger  := 
> SqlQuery2.Fields.Fields[0].AsInteger;
>       ClientDataSet1.Post;
>
> sugestao, mova o bloco abaixo para antes dos post e execsql.
>
> //-
> T_ID1.TransactionID  := 1;
> T_ID1.IsolationLevel := xilREADCOMMITTED;
> SQLConnection1.StartTransaction(T_ID1);
> //-
>
>
>
> Abraco,
>
> Espero ter ajudado
>
> Em 16 de agosto de 2010 09:03, Junior Miranda <jrmiran em gmail.com> 
> escreveu:
>> Senhores, bom dia!
>>
>> Desculpem-me pela natureza OFF do post. Mas, é que já rodei por todos os 
>> lados e não encontrei nenhuma solução que não seja substituir o drive 
>> UIB.
>> Mas infelizmente não posso fazer esta substituição neste momento. O 
>> problema é que como o select está dentro da transação e em loop, a cada 
>> volta,
>> ele (o select), commita o(s) ExecSql anterior(es). Isto antes do commit 
>> propriamente dito. Então, quando há uma excessão, o rollback não funciona 
>> como devido.
>> Quero garantir a atomicidade. Mas o bendito drive UIB não permite(Sob 
>> esta condição). Como não posso mudar o drive no momento, preciso 
>> encontrar uma
>> alternativa(na aplicação). Mas até agora nada funcionou.
>>
>> O código é este:
>> //------------
>> var
>> T_ID1: TTransactionDesc;
>> begin
>>  //-
>>  ClientDataSet1.Open;
>>  ClientDataSet1.First;
>>  //-
>>  try
>>    while not (ClientDataSet1.Eof) do
>>      begin
>>        //-
>>        SqlQuery2.Close;
>>        SqlQuery2.Sql.Text := 'SELECT CAB_NUM FROM CABECALHO WHERE CAB_ID 
>> = ' + QuotedStr(IntToStr(ClientDataSet1IT_FKCAB_ID.AsInteger));
>>        SqlQuery2.open;
>>
>>        ClientDataSet1.Edit;
>>        ClientDataSet1IT_NUM.AsInteger  := 
>> SqlQuery2.Fields.Fields[0].AsInteger;
>>        ClientDataSet1.Post;
>>
>>        //-
>>        SQLQuery1.Close;
>>        SQLQuery1.SQL.Text := 'UPDATE CABECALHO SET CAB_NUM =' + 
>> QuotedStr(IntToStr(SqlQuery2.Fields.Fields[0].AsInteger + 1)) +  ' WHERE 
>> CAB_ID =' + QuotedStr(IntToStr(ClientDataSet1IT_FKCAB_ID.AsInteger));
>>        SQLQuery1.ExecSQL();
>>
>>        //-
>>        ClientDataSet1.Next;
>>      end;
>>  //-
>>  T_ID1.TransactionID  := 1;
>>  T_ID1.IsolationLevel := xilREADCOMMITTED;
>>  SQLConnection1.StartTransaction(T_ID1);
>>  //-
>>  if ClientDataSet1.ApplyUpdates(0) <> 0 then
>>    Raise Exception.Create('');
>>  //-
>>  SQLConnection1.Commit(T_ID1);
>>  except
>>    SQLConnection1.Rollback(T_ID1);
>>  end;
>> //-------
>> Onde há o objeto ClientDataset1, eu também já utilizei um terceiro 
>> TSqlQuery para fazer um update(Ou seja, só com objetos TSqlQuery). Alguém 
>> já passou por isso e conseguiu contornar a questão do select dentro de um 
>> laço em uma transação com Drive UIB?
>>
>> []'s
>> ______________________________________________
>> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
>> Para saber como gerenciar/excluir seu cadastro na lista, use: 
>> http://www.firebase.com.br/fb/artigo.php?id=1107
>> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>>
>
>
>
> -- 
>
> Atenciosamente
>
> José Eduardo Pombo de Barros
> Gerente de Manutenção de Sistemas
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use: 
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>