Exceções de BD em Delphi

GBastos

Como posso fazer para que uma exceção em run-time seja mostrada ao usuário?
Já vi que tem uma unidade DBException qu...

romulo

Você fala mostrar uma mensagem quando acontecer uma exceção? :roll:

GBastos

Exato. Por exemplo, tem um campo em uma tabela do Access que botei como regra de validação ">2000000 E <5000000...

romulo

Cara, uma maneira fácil de testar essas exceções de BDs é no evento "OnPostError" dos componentes de acesso a dados. ...

procedure TFormPrinc.ADOTableTbAtendimentosPostError(DataSet: TDataSet;

  E: EDatabaseError; var Action: TDataAction);

begin

  ShowMessage('Não foi possível gravar na tabela ' + Dataset.Name + ' pois apresentou o seguinte erro: ' + E.Message);

end;