key violation
Como evitar a mensagem de erro Key Violation usando Query?
Já fiz o seguinte:
dentro do evento OnPostError da Query coloquei o seguinte codigo:
Var
ErroMens :String;
begin
ErroMens := E.Message;
if ErroMens = ´Key violation.´ then
begin ShowMessage(´Este Registro já é Cadastrado, Tente Outro !´);
action := daAbort;
end;
end;
Mas nao deu certo.
O que devo fazer?
Obrigado pela atenção!
Já fiz o seguinte:
dentro do evento OnPostError da Query coloquei o seguinte codigo:
Var
ErroMens :String;
begin
ErroMens := E.Message;
if ErroMens = ´Key violation.´ then
begin ShowMessage(´Este Registro já é Cadastrado, Tente Outro !´);
action := daAbort;
end;
end;
Mas nao deu certo.
O que devo fazer?
Obrigado pela atenção!
Douglas
Curtidas 0
Respostas
Ezdala
11/08/2003
Partindo do princípio q sua chave primária seja um número, tente o segunte:
antes dessa instrução de ´post´ coloque uma query c/a seguinte instrução:
select max(CODTABELA) as Max from TABELA
Dê um open nessa query e escreva a seguinte linha:
queryCODTABELA.asInteger := querymax.asInteger + 1;
query.post;
...
espero ter ajudado
Ez
antes dessa instrução de ´post´ coloque uma query c/a seguinte instrução:
select max(CODTABELA) as Max from TABELA
Dê um open nessa query e escreva a seguinte linha:
queryCODTABELA.asInteger := querymax.asInteger + 1;
query.post;
...
espero ter ajudado
Ez
GOSTEI 0