F�rum Delphi x PostgreSQL - Transa��o encerra ap�s erro #453905

02/09/2013

Ola Pessoal

Estamos come�ando a utilizar o PostgreSQL 9 no Delphi, e estamos passando por algumas dificuldades ao se tratar das transa��es.

Estamos utilizando o conjunto de datasets UniDAC, mas acredito que este mesmo problema deva ocorrer em outros como Zeos.

O problema � o seguinte:

O PostgreSQL por padr�o utiliza "AUTOCOMMIT ON" em suas transa��es, ou seja, ao executar o "POST" os dados s�o persistidos no banco de dados automaticamente. Para que isso n�o ocorra precisamos antes executar um "START TRANSACTION", em seguida executar os Inserts, Updates e Deletes, e no final executar o "COMMIT" ou "ROLLBACK".

At� este ponto tudo bem, dessa forma conseguimos utilizar o banco de dados semelhante ao que utilizamos anteriormente no Oracle, ou seja, os dados s� s�o persistidos no banco ap�s executar o COMMIT explicitamente.

A quest�o � que: ap�s dar o "START TRANSACTION", se algum erro ocorrer ao executar o "POST" a transa��o atual � "encerrada" automaticamente, impedindo que seja executado "POST" novamente. Ao tentar dar o "POST" novamente recebemos o erro: "transa��o atual foi interrompida, comandos ignorados at� o fim do bloco de transa��o"

Isso nos obriga a executar um "ROOLBACK" ap�s o erro, ent�o executar um "START TRANSACTION" novamente, e finalmente estamos aptos a executar o "POST" novamente.

Exemplo de situa��o:
Imagine que voc� vai cadastrar um produto, ent�o � executado um "START TRANSACTION" e um "INSERT" no dataset de produto, voc� come�a a inserir os dados, grava o produto com o "POST" e tudo ocorre bem. Em seguida come�a a cadastrar as deriva��es desse produto (tudo na mesma TRANSACTION, sem dar COMMIT), e na hora de dar o "POST" no dataset de deriva��es ocorre um erro de campo requerido, a partir deste ponto j� perdemos a transa��o atual, n�o podemos simplesmente preencher o campo requerido e dar "POST" novamente, pois ocorre o erro citado acima, somos obrigados a dar "ROLLBACK" e "START TRANSACTION" novamente, e perder o "POST" que foi executado com sucesso no dataset de produtos.

Gostaria de saber se existe alguma forma de contornar esse problema, pois quando estamos em um formul�rio grande com v�rios datasets, n�o podemos simplesmente dar "ROLLBACK" quando um erro ocorrer, pois com isso perdemos todos os "POST" executados em outros datasets que tiveram sucesso.

Agrade�o antecipadamente

Abra�os.

Douglas Junior

Curtir t�pico

+ 0

Responder

Posts

03/09/2013

Washington Somensi

Ola Douglas, eu utilizo o Zeos e n�o tenho esse tipo de problema, quando ocorre erro ao gravar, consigo corrigir e gravar novamente, desde que o post esteja entre de um Try .. Except.

Responder

Gostei + 0

03/09/2013

Douglas Junior

Acabamos resolvendo o problema estendendo o componente do UNIDAC e implementando o controle da transa��o com Savepoint.

unit AJUniQuery;

interface

uses
  System.SysUtils, System.Classes, Data.DB, MemDS, DBAccess, Uni;

type
  TAJUniQuery = class(TUniQuery)
  private
    { Private declarations }
    procedure StartTransactionIfNotExists;
  protected
    { Protected declarations }

  public
    { Public declarations }
    procedure Post; override;
    procedure Delete;
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('AJR Controls', [TAJUniQuery]);
end;

{ TAJUniQuery }

procedure TAJUniQuery.Delete;
begin
  StartTransactionIfNotExists;
  try
    Connection.Savepoint('savepoint_ajuniquery');
    inherited;
  except
    on E: Exception do
      begin
        Connection.RollbackToSavepoint('savepoint_ajuniquery');
        raise;
      end;
  end;
end;

procedure TAJUniQuery.Post;
begin
  StartTransactionIfNotExists;
  try
    Connection.Savepoint('savepoint_ajuniquery');
    inherited;
  except
    on E: Exception do
      begin
        Connection.RollbackToSavepoint('savepoint_ajuniquery');
        raise;
      end;
  end;
end;

procedure TAJUniQuery.StartTransactionIfNotExists;
begin
  if not Connection.InTransaction then
    Connection.StartTransaction;
end;

end.

Dessa forma, salvamos o Savepoint antes de executar o POST, e se algum erro ocorrer o Savepoint � restaurando, evitando de perder os processos anteriores que foram executados com sucesso.

Implementamos tamb�m um m�todo que inicia uma transa��o automaticamente caso n�o existe nenhuma em atividade.

Abra�os
Douglas Junior

Responder

Gostei + 0

03/09/2013

Alessandro Yamasaki

Excelente dica.

Responder

Gostei + 0

03/09/2013

Jos�

Obrigado amigo Douglas pro compartilhar a solu��o o seu problema conosco, sendo assim estou dando o t�pico por conclu�do.

Responder

Gostei + 0

03/09/2013

Douglas Junior

Obrigado Jos�, confesso que procurei como editar o t�pico e colocar como [RESOLVIDO], mas n�o encontrei a op��o.

Abra�os.

Responder

Gostei + 0

03/09/2013

Jos�

Amigo, apenas nos moderadores podemos finalizar os t�picos, para facilitar para n�s pedimos aos usu�rios que apenas sinalizem que sua duvida foi solucionada.
Obrigado e precisando estamos a disposi��o para ajudar.

Responder

Gostei + 0