Erro "key Violation"

[Curinga]

Pessoal, obrigado pela ajuda, consegui resolver o problema anterior, mas agora ta acontecendo um segundo problema.

Toda vez que eu mando salvar da erro de "Key Violation". já mudei minha rotina toda e não acho o problema, o q pode ta acontecendo?

Ta ai a minha rotina, pessoal.

Para explicar melhor:

Antes de entrar nesse FORM(EDITAR), tem um FORM(PESQUISAR), então a pessoa pesquisa e os resultados aparecem

no DBGrid(DBPesquisa2). Ele clica com o botão direito em cima de um determinado resultado, e então abre o TPopupMenu com o item EDITAR

Nesse EDITAR do TPopupMenu tem um SHOW q leva até o nosso FORM(EDITAR).

procedure TEditar.FormActivate(Sender: TObject);

begin

TCPFisica.Edit;

Pesquisar.DBPesquisa2.SelectedIndex:=0;

TCPFisica.FieldByName('CODIGO').AsString := Pesquisar.DBPesquisa2.SelectedField.Text;

Pesquisar.DBPesquisa2.SelectedIndex:=1;

TCPFisica.FieldByName('NOME').AsString := Pesquisar.DBPesquisa2.SelectedField.Text;

etc...

etc...

end;

procedure TEditar.BtnSalvarClick(Sender: TObject);

begin

TCPFisica.Edit;

TCPFisica.Post;

MessageBox(Application.Handle, Pchar ('As informações foram salvas com sucesso.'), 'C-Commerce', MB_OK+MB_ICONWARNING+MB_DEFBUTTON1);

end;

O interessante disso tudo é que, o primeiro item q aparece do meu DBGrid, quando eu faço a pesquisa

da certo, ele altera, se eu fizer uma busca e achar dois ou mais resultados e fizer isso com o 2.º item q aparece, ou o 3º, ele da erro de "Key Violation", estranho...

Eu sei que eu tenho enchido vocês, mas eu não tenho a qm recorrer, por isso pesso a ajuda de vocês.

Obrigado, mais uma vez...

[Guest Guest]

Ola amigo,

Este erro é muito comum, principalmente quando estamos começando a utilizar o bando de dados Paradox do Delphi. Quando criamos um campo chave (o que vai com um *) em uma tabela significa que este campo será o

principal - como um código. ELE NÃO PODE TER DOIS REGISTROS COM VALORES IGUAIS. Quando o programa tenta cadastrar dois registros com valores iguais aparece a mensagem "Key Violation". Para

arrumar o problema basta entrar o database desktop e ao restruturar a tabela re-criar os índices.

Tambem tive muito problemas com essa mensagem, já fiz ate o que me mandaram fazer para acabar com essa mensagem de erro KEY VIOLATION,

segue abaixo o codigo como evitar o Key Violation

Inclua a unit DBITYPES na clausula uses do seu form.

procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);

begin

if EDBEngineError(E).Errors[0].ErrorCode = 9729 then

ShowMessage('Registro já existe!');

Action:= daAbort;

end;

Resultado pra mim não adiantou em nada, resolvi mudar não uso mais chave primaria nem tables crio os indices com querys trabalhando com mestre/detalhe.

Bom amigo é isso ai que penso a respeito do KEY VIOLATION

beleza

T+