[firebase-br] [OFF] Select dentro de uma transação utilizando o drive UIB está influenciando no rollback.
Eduardo Pombo
eduardo em embras.net
Seg Ago 16 15:55:14 -03 2010
mas tem um detalhe, tem q colocar o try dentro do laco e nao o laco
dentro do try.
Em 16 de agosto de 2010 15:48, Eduardo Pombo <eduardo em embras.net> escreveu:
> na verdade nao, pq ou vai ate o fim e da commit ou da erro e da
> rollback (que no caso eh o q vai acnotecer pq esta forcado erro)
>
> Em 16 de agosto de 2010 15:40, Junior Miranda <jrmiran em gmail.com> escreveu:
>> Na verdade não. Quando eu dou o start na transação tudo que é feito depois
>> estará na transação até que eu commit ou rollback. Com o drive interbase,
>> está mesma situação funciona 100%. O problema é que eu não poderei mudar o
>> drive no momento. Então precisaria de uma alternativa para o drive UIB.
>>
>> ps. Obrigado por está dando atenção ao problema.
>>
>> ps. Se for colocado o start dentro bloco, provavelmente como não ocorrerá um
>> commit/rollback, eu terei um problemas relacionado a duplicidade de ID na
>> transação ou algo
>> parecido.
>>
>> []'s
>>
>> Júnior Miranda
>>
>> --------------------------------------------------
>> From: "Eduardo Pombo" <eduardo em embras.net>
>> Sent: Monday, August 16, 2010 3:29 PM
>> 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.
>>
>>> ja neste ultimo exemplo a transacao esta fora do laco e com isso a 2a
>>> e 3a volta estao sem transacao. acredito que teria q colocar o start
>>> da transacao dentro do laco
>>>
>>>
>>>
>>> Em 16 de agosto de 2010 11:54, Junior Miranda <jrmiran em gmail.com>
>>> escreveu:
>>>>
>>>> Observem este código de um exemplo simples:
>>>>
>>>> var
>>>> T_ID1: TTransactionDesc;
>>>> begin
>>>> //-
>>>> T_ID1.TransactionID := 1;
>>>> T_ID1.IsolationLevel := xilREADCOMMITTED;
>>>> SQLConnection1.StartTransaction(T_ID1);
>>>>
>>>> //-
>>>> ClientDataSet1.Open;
>>>> ClientDataSet1.First;
>>>> //-
>>>> try
>>>> while not (ClientDataSet1.Eof) do
>>>> begin
>>>> //-
>>>> SqlQuery1.Close;
>>>> SqlQuery1.Sql.Text := 'SELECT CAB_NUM FROM CABECALHO WHERE CAB_ID =
>>>> '
>>>> + QuotedStr(IntToStr(ClientDataSet1IT_FKCAB_ID.AsInteger));
>>>> SqlQuery1.open;
>>>>
>>>> //-
>>>> SQLQuery2.Close;
>>>> SQLQuery2.SQL.Text := 'UPDATE ITENS SET IT_NUM =' +
>>>> QuotedStr(IntToStr(SqlQuery1.Fields.Fields[0].AsInteger + 1)) + ' WHERE
>>>> IT_FKCAB_ID =' +
>>>> QuotedStr(IntToStr(ClientDataSet1IT_FKCAB_ID.AsInteger));
>>>> SQLQuery2.ExecSQL();
>>>>
>>>> //-
>>>> SQLQuery3.Close;
>>>> SQLQuery3.SQL.Text := 'UPDATE CABECALHO SET CAB_NUM =' +
>>>> QuotedStr(IntToStr(SqlQuery1.Fields.Fields[0].AsInteger + 1)) + ' WHERE
>>>> CAB_ID =' + QuotedStr(IntToStr(ClientDataSet1IT_FKCAB_ID.AsInteger));
>>>> SQLQuery3.ExecSQL();
>>>>
>>>> //-
>>>> ClientDataSet1.Next;
>>>> end;
>>>> Raise Exception.Create('');
>>>> SQLConnection1.Commit(T_ID1);
>>>> except
>>>> SQLConnection1.Rollback(T_ID1);
>>>> end;
>>>>
>>>> O raise que estou utilizando para simular uma excessão, nos levará ao
>>>> rollback. Mas digamos que 3 registros tenham sido alterados. O rollback
>>>> não
>>>> alcança o dois primeiros.
>>>> Explico:
>>>> O select executado na segunda volta do laço, comitta os ExecSql
>>>> anteriores(Executados na primeira volta). O select executado na terceira
>>>> volta do laço, comitta os ExecSql anteriores(Executados na segunda
>>>> volta).
>>>> Já na última volta, como chegamos ao final do laço, não ocorrerá um novo
>>>> select. Com o raise, vamos ao except. Só que na verdade só existe um
>>>> registro pendente (O último). Os dois primeiro foram commitados pela
>>>> execussão do select. O select commita mas mantém a transação aberta. Com
>>>> drive Interbase por exemplo, funciona normal! Ou seja, ao final, com o
>>>> raise, o rollback ocorrerá sobre todos os registro mencionados.
>>>>
>>>> []'s
>>>>
>>>> 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
>>>>>
>>>>
>>>> ______________________________________________
>>>> 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
>>>
>>
>> ______________________________________________
>> 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
>
--
Atenciosamente
José Eduardo Pombo de Barros
Gerente de Manutenção de Sistemas
Mais detalhes sobre a lista de discussão lista