Tratamento exceção ao salva o banco

Firebird

30/05/2006

Pessoal

Estou fazendo a seguinte linha de código no evento do botão:

with dmCadastro do
begin


CdsBairro.Edit;
CdsBairro.FieldByName(´COD_EST_BAIRRO´).AsInteger := iCodEst;
CdsBairro.Post;
CdsBairro.applyupdates(-1);

end;

Como posso fazer para tratar o erro quando acontece uma execeção ??

Estou usando o Delphi 7 + Banco interbase + Conexão dbexpress

Rogério


Rogeranalista

Rogeranalista

Curtidas 0

Respostas

Marcio.theis

Marcio.theis

30/05/2006

Se o tipo de exceção é de erro, acredito que possa colocar um try..except

try
    with dmCadastro do
        begin
        CdsBairro.Edit;
        CdsBairro.FieldByName(´COD_EST_BAIRRO´).AsInteger := iCodEst;
        CdsBairro.Post;
        CdsBairro.applyupdates(-1);
        end; 
except
    //exceção
    end;



GOSTEI 0
POSTAR