Como pegar o último erro?
06/02/2006
0
Pessoal, estou usando a função GetLastError para tentar pegar o último erro ocorrido no programa, mas não está funcionando.
Preciso o seguinte: Se ocorrer um erro ao inserir um registro no banco de dados, preciso saber qual o erro numérico que ocorreu, pois com esse número posso tomar determinadas atitudes em relação ao andamento do programa.
Por exemplo, no código abaixo faço uma simples insersão de registros e queria saber qual o erro que ocorre, mas não estou conseguido que retorne nada de número:
Alguém tem idéia de como pegar o último erro numérico?
Preciso o seguinte: Se ocorrer um erro ao inserir um registro no banco de dados, preciso saber qual o erro numérico que ocorreu, pois com esse número posso tomar determinadas atitudes em relação ao andamento do programa.
Por exemplo, no código abaixo faço uma simples insersão de registros e queria saber qual o erro que ocorre, mas não estou conseguido que retorne nada de número:
try
with ADOQuery1 do
begin
Open;
Append;
FieldByName(´TRANSAC_ID´).AsInteger := 111;
FieldByName(´TRANSAC_DTHR´).AsDateTime := strtodatetime(´05/05/2000 10:10:10´);
FieldByName(´HW_SERIE´).AsString := ´ABC123´;
Post;
end;
except on e: Exception do
begin
showmessage(INTTOSTR(GetLastError));
showmessage(SysErrorMessage(GetLastError));
showmessage(e.Message);
showmessage(inttostr(e.HelpContext));
end;
end;Alguém tem idéia de como pegar o último erro numérico?
Rtava
Curtir tópico
+ 0
Responder
Posts
06/02/2006
Paullsoftware
vc pode aproveitar essa discursão para tirar suas dúvidas...
[url]http://forum.clubedelphi.net/viewtopic.php?t=73434[/url]
[url]http://forum.clubedelphi.net/viewtopic.php?t=73434[/url]
Responder
Clique aqui para fazer login e interagir na Comunidade :)
