Como tratar erro de Primary key ?Viola��o da chave ??

Question

Oi como eu fa�o para mostra uma msg em portugues viola�ao da chave Primary key ???...

Moonlight · Answer

Evite que exista viola��o da chave ;)Serio, faz com que a chave se crie sozinha, com base na ultima jah criada. Se for pro usuario informar o campo chave, enrola.A nao ser que ele seja RG ou CPF sei l�.. ou uma coisa pessoala� eu nao sei...

Anonymous · Answer

Cara isso e correr do Problema ,eu quero enfrentar e aprender como se trataros erros ... :x...

Okama · Answer

Faz o seguinte, antes de gravar, fa�a uma consulta pela chave prim�ria se existir, crie voc� mesmo a mensagem de erro.

Pois dependendo da base de dados que vc usa, o Delphi n�o trata erros desse tipo (como Access, ODBC...)

Anonymous · Answer

Tente este c�digo (No Evento OnPostError):

procedure TDM.tbTabelaPostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);
begin
if E.Message = �Key violation.� then
begin
Action := daAbort;
raise Exception.Create(�Este registro j� foi cadastrado!�);
end;
end;

Espero que funcione!

Anonymous · Answer

o c�digo deve ser inserido no evento OnPostError do componente de banco de dados (Table ou Query).

Toda vez que ocorrer um erro de grava��o no banco de dados este evento ser� executado, sendo que na vari�vel de par�metro �E� deste procedimento � armazenado a mensagem que ser� apresentada na tela.

No caso de Key Violation a mensagem � exatamente esta: �Key violation.�.

Para realizar um tratamento deste erro, testa-se se a mensagem ocorrida � �Key violation.�, se for verdadeiro o processo de grava��o � abortado (Action := daAbort).

C�digo Completo:

Procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError;var Action: TDataAction);
Var
ErroMens :String;
begin
ErroMens := E.Message;
if ErroMens = �Key violation.� then begin ShowMessage(�Chave Prim�ria Inv�lida !�);
action := daAbort;
end;
end;

F�rum Como tratar erro de Primary key ?Viola��o da chave ?? #143805