F�rum Mudar de If-Else para Try-Except.... #224084

02/04/2004

Boa tarde companheiros....
Vejam se podem me ajudar....

Como fa�o para aplicar o codigo abaixo em uma estrutura Try-Except, de forma que se acontecer uma exce��o alem da minha mensagem em portugues sai tamb�m o exce�ao/erro que o banco(FB) emitiu

******* Isolamento do applyupdate(0) em Estrutura If-Else
var
TransDesc : TTransactionDesc;
begin
TransDesc.TransactionID := 1;
TransDesc.IsolationLevel := xilREADCOMMITTED;
dtmDados.Conexao.StartTransaction(TransDesc);
If DataSetA.ApplyUpdates(0) = 0 then
dtmDados.Conexao.Commit(TransDesc)
Else
Begin
dtmDados.Conexao.Rollback(TransDesc);
ShowMessage(�Ocorreram problemas na grava��o dos dados!
Abort;
End;
end;
******* Fim do Isolamento do applyupdate(0) em Estrutura If-Else

Da forma abaixo, n�o est� saindo a mensagem de excecao... O que pode estar errado?

******* Isolamento do applyupdate(0) em Estrutura Try-Except
var
TransDesc : TTransactionDesc;
begin
Try
TransDesc.TransactionID := 1;
TransDesc.IsolationLevel := xilREADCOMMITTED;
dtmDados.Conexao.StartTransaction(TransDesc);
If DataSetA.ApplyUpdates(0) = 0 then
dtmDados.Conexao.Commit(TransDesc)
Except
on Exc:Exception do
begin
SQLConnection1.Rollback(Transacao);
ShowMessage(�Ocorreram problemas na grava��o dos dados!
end;
end;
******* Fim do Isolamento do applyupdate(0) em Estrutura Try-Except

Um grande abra�o a todos..
pablo - Mar�lia/SP

Pablo_lima

Curtir t�pico

+ 0

Responder

Posts

02/04/2004

Skaarj

Olha um peda�o do codigo por mim usado, para tentar commitar o banco e em caso de erro retornar a mensagem do banco:

      try
        QryUpdateBalcIte.ExecSQL;
        DM.DB.Commit;
      except
        on e : EDBEngineError do
          begin
            MsgBox(�N�o foi poss�vel atualizar o banco de dados �+#13+
                   �Erro : �+e.Message,�Aviso�,MB_ICONEXCLAMATION);
            DM.DB.Rollback;
          end;
      end;

Responder

Gostei + 0