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 :)