Fórum Capturar erro #168183
07/07/2003
0
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
Curtir tópico
+ 0
Responder
Posts
07/07/2003
Thaisandrade
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;
Responder
Gostei + 0
08/07/2003
Complex
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}
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)