Array
(
)

Como pegar o último erro?

Rtava
   - 06 fev 2006

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:

#Código

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?


Paullsoftware
   - 06 fev 2006

vc pode aproveitar essa discursão para tirar suas dúvidas...
http://forum.clubedelphi.net/viewtopic.php?t=73434