Capturar erro
Boa tarde...
Como posso fazer para capturar um erro que ocorre, por exemplo, quando violamos uma chave primaria, tentando inserir um registro ja existente ????
E onde podria conseguir uma tabela com os numeros dos erros gerados.
Obrigado desde ja
Obs. Trabalho com conexões ADO
Como posso fazer para capturar um erro que ocorre, por exemplo, quando violamos uma chave primaria, tentando inserir um registro ja existente ????
E onde podria conseguir uma tabela com os numeros dos erros gerados.
Obrigado desde ja
Obs. Trabalho com conexões ADO
Cfn2003
Curtidas 0
Respostas
Thaisandrade
07/07/2003
Pode fazer assim:
No OnCreate do Form principal:
Application.OnException:= TrataErros;
procedure TForm1.TrataErros(Sender: TObject; E: Exception);
begin
if E.Message = ´´ then
end;
No OnCreate do Form principal:
Application.OnException:= TrataErros;
procedure TForm1.TrataErros(Sender: TObject; E: Exception);
begin
if E.Message = ´´ then
end;
GOSTEI 0
Complex
07/07/2003
seu programa ficará mais robusto.. se voce tratar os erros com try/except
exemplo:
try
while not (table1.eof) do
Begin
.................
Table1.next;
end;
Except on e:exception do {aqui esta o tratamento de erro e a variavel e é uma exceção gerada pelo windows}
begin
showmessage(´erro bla bla bla´+#13+´ Menssagem do sistema :´+e.message);
end;{end do on do}
End; {end do try}
exemplo:
try
while not (table1.eof) do
Begin
.................
Table1.next;
end;
Except on e:exception do {aqui esta o tratamento de erro e a variavel e é uma exceção gerada pelo windows}
begin
showmessage(´erro bla bla bla´+#13+´ Menssagem do sistema :´+e.message);
end;{end do on do}
End; {end do try}
GOSTEI 0