Tratamento de Erros Exce��es

Question

Bom dia .estou usando  Delphi 6 eo IB6 .. Gostaria entes de gravar um registro jogar uma mensagem antes de um erro de duplicidade de registro ...minha rotina est� assim  IBQEncaminhadasConcluidas.Para...

Oberdan · Answer

IBQEncaminhadasConcluidas.ParamByName(�Par_Obs�).AsString:=Memo1.Text;
Try
IBQEncaminhadasConcluidas.ExecSQL;
ShowMessage(�Registro Gravado�);
Except
ShowMessage(�Registro n�o Gravado�);
End;
Dm.IBTransaction1.Commit;

Caso de certo, ele exibe a mensagem de confirma��o, caso o registro j� exista, ou haja outro erro, ela n�o exibe a mensagem de confirma��o e sim a de exce��o.

[]
Oberdan

Midas · Answer

cara estou com o mesmo problema por assim dizer ...
eu tenho que testar uma chave para que ela n�o duplique
minha rotina
no evento onposterror da tabela (uso o dbe)
if e.message =�key violation.� then
begin
showmessage(�Codigo ja existe!�);
end;
tive outra ideia fazer a verifica��o no evento onexit do dbedit
problema
ao fazer a verifica��o ele me retorna sempre que o codigo existe. De fato existe mesmo pois ao entrar a tabela e inser��o, e digitar o numero no dbedit ele ja insere na tabela e no onexit ele faz a verifica��o e acha o registro na tabela ...
como devo proceder ???

Midas · Answer

meu banco � interbase ....

Oberdan · Answer

Na verdade eu n�o sei direito como fazer utilizando table, pois nunca utilizei este componente. Eu sempre utilizei o TQuery, e fa�o uma busca r�pida no banco de dados atrav�s de SQL, ent�o assim que digitar o c�digo, por exemplo, ele j� barra o registro, n�o sendo necess�rio digitar o restante da informa��o. Ex.

With Query1 do
Begin
Close;
SQL.Clear;
SQL.Add(�Select Codigo from Table Where Codigo = :PrmCodigo �);
ParamByName(�PrmCodigo�).value := DBEdit1.Text;
Open;
If Not IsEmpty then
ShowMessage(�O c�digo j� est� cadastrado�);
End;

Espero que ajude.

[]Oberdan

Midas · Answer

ja foi Resolvido com o codigo acima obrigado a todos ... grato mesmo ......

F�rum Tratamento de Erros Exce��es #163645