Fórum Try Except nao funciona #326504
31/07/2006
0
Olá pessoal !!
Tenho um sistema que roda com AdoQuery e Access 97. Quando coloco o codigo abaixo e forco um erro no banco, ele não sai pelo except.
Estou fazendo algo de errado ???
Try
Ds.AutoEdit:=False;
Tbl.Post;
BtnConfirma.Enabled:=False;
BtnCancela.Enabled:=False;
except
Showmessage(´Erro Inesperado´);
end;
Tenho um sistema que roda com AdoQuery e Access 97. Quando coloco o codigo abaixo e forco um erro no banco, ele não sai pelo except.
Estou fazendo algo de errado ???
Try
Ds.AutoEdit:=False;
Tbl.Post;
BtnConfirma.Enabled:=False;
BtnCancela.Enabled:=False;
except
Showmessage(´Erro Inesperado´);
end;
Robsons
Curtir tópico
+ 0
Responder
Posts
31/07/2006
Titanius
Voce pode tentar fazer assim:
[]s
Try Ds.AutoEdit:=False; Tbl.Post; BtnConfirma.Enabled:=False; BtnCancela.Enabled:=False; except on Exception do Exception.Create(Erro Inesperado´); end;
[]s
Responder
Gostei + 0
31/07/2006
Marco Salles
Olá pessoal !!
Tenho um sistema que roda com AdoQuery e Access 97. Quando coloco o codigo abaixo e forco um erro no banco, ele não sai pelo except.
Estou fazendo algo de errado ???
antes de prosseguir , a aconselhável rodar o programa pelo executável e não pelo [b:e51a42a15c]<F9>[/b:e51a42a15c] do delphi.. e veja a mensagem que voce recebe no caso do erro.
Responder
Gostei + 0
03/08/2006
Robsons
funcionou.....Obrigado
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)