06/02/2006

Como pegar o último erro?

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:

   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

Respostas

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]


Responder Citar