F�rum Desativar IBTransaction sem desativar IBQuery #431287

19/12/2012

Ol� pessoal, eu estava com problemas de deadlock em um sistema comercial que desenvolvi. Atrav�s das pesquisas que fiz, me indicaram sempre desativar o IBTransaction ap�s gravar os dados no BD. Por�m, isto gera um efeito colateral, isto est� fechando tamb�m as IBQuery(s). E quando eu abro novamente, ele volta pro primeiro registro e n�o no que estava. Alguem tem alguma solu��o mais simplificada pra resolver isto sem ter que ficar refazendo a pesquisa depois de reativar a IBQuery?

C�digo usado pra salvar:

DataModule1.IBQCliente.Post;
DataModule1.IBQCliente.ApplyUpdates;
DataModule1.IBTransaction1.Active:=true;
DataModule1.IBQCliente.Transaction.CommitRetaining;
DataModule1.IBTransaction1.Active:=false;
DataModule1.IBQCliente.Active:=true;

O ideal seria manter a IBQuery aberta j� que eu usei o CommitRetaining...

Daniel Pessoa

Curtir t�pico

+ 0

Responder

Posts

19/12/2012

Claudia Nogueira

O Commit fecha tudo que est� ligado a ele.
Depois de abrir a query voc� tem que posicionar no registro que estava antes, ent�o voc� tem que marcar a posi��o.

Exemplo:

Var
bmPosicao : TBookmark;
begin
bmPosicao := DataModule1.IBQCliente.GetBookmark;
DataModule1.IBQCliente.Post;
DataModule1.IBQCliente.ApplyUpdates;
DataModule1.IBTransaction1.Active:=true;
DataModule1.IBQCliente.Transaction.CommitRetaining;
DataModule1.IBQCliente.Close;
DataModule1.IBQCliente.Open;
    try
      DataModule1.IBQCliente.GotoBookmark(bmPosicao);
    except
      DataModule1.IBQCliente.First;
    end;
DataModule1.IBQCliente.FreeBookmark(bmPosicao);
end;

Responder

Gostei + 0

19/12/2012

Daniel Pessoa

� isto que eu estava fazendo, mas queria saber se n�o havia um jeito mais f�cil. Porque pelo que pesquisa o Commit fecha, mas o CommitRetaining deveria deixar o registro aberto.

Responder

Gostei + 0