[firebase-br] saber qual o erro no rollback?

[Eliomar]

Vc pode testar a mensage E.Message e fazer o que for preciso.

try
   <instruções>
   IBTransc.Commit;
except
  on E: Exception do
  begin
     IBTransc.Rollback;
     if E.Message = 'PRIMARY KEY' then
       showmessage('já existe o registro')
     else
       showmessage('Erro ao gravar:'#13 + E.Message);
  end;
end;

Entendeu?!?!?


Agradecido.
Eliomar,
ICQ - 167715482
Soft-Data Softwares Administrativos
hptt://www.promediconet.com.br


------------- Segue mensagem original! -------------

De: "Daniel / Tecnobyte" <temp em tecnobyte.com.br>
Data: Fri, 22 Apr 2005 11:04:23 -0400
Para: "FireBase" <lista em firebase.com.br>
Assunto: Re: [firebase-br] saber qual o erro no rollback?

> Tem como saber a mensagem original de erro?
> Como vcs estão adimistrando isso?

try
   <instruções>
   IBTransc.Commit;
except
  on E: Exception do
  begin
     IBTransc.Rollback;
     showmessage('Erro ao gravar:'#13 + E.Message);
  end;
end;

Ou simplesmente:

try
  Commit;
except
  Rollback;
  raise;
end;

Atenciosamente.

Daniel P. Guimarães
Tecnobyte informática
www.tecnobyte.com.br


______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://search.gmane.org/search.php?group=firebase