update affected more than 1 record

Question

Eu tenho duas tabelas , uma com uma primary key e a outra com uma foreign key, a tabela com a primary key eu edito sem problemas mas a tabela com a foreign key nao da para editar, nao importa qual campo e registro eu tentei editar que eu recebo o erro �update affected more than 1 record �

Bruno Belchior · Accepted Answer

Essa tabela s� tem a Foreign Key? N�o existe chave prim�ria? Se positivo, inclua a op��o [b:58ef4b7d41]poAllowMultiRecordUpdates[/b:58ef4b7d41] na propriedade [b:58ef4b7d41]Options[/b:58ef4b7d41] do seu TDataSetProvider...

Joe_wah · Answer

Valeu.Isso resolveu o problema da mensagem de erro, mas agora ta acontecendo o seguinte, eu atualizo um unico registro e todos os outros registros que possuem a mesma foreign key viram copias do registro que eu atualizei.Eu quero editar s� um e deixar os outros como est�o.

Joe_wah · Answer

Observei uma coisa, na verdade � o seguinte a tabela tem 3 colunas:

CODIGO(que � a foreign key)
DATA(que � um date)
INFO ( um blob memo)

eu to tentando atualizar s� o campo INFO, e s� viram c�pias do registro que eu atualizei os registros que al�m da mesma chave estrangeira, tenha a mesma data.

Edilcimar · Answer

vou dar um exemplo com ibtable, mas � v�lido para qualquer coisa, ibtable1 � prim�ria e ibtable2 � detalhe
try
with ibtable1 do
begin
fa�a o que quiser com ela para achar o registro e alterar qualquer coisa uma vez que aqui vc n�o tem problema
with ibtable2 do
begin
edit; ->aqui vc vai trocar todos os campos que queira, menos o da chave estrangeira � claro
fieldbyname(�DATA�).Value := NovaData;
fieldByName(�INFO�).Assign(Memo1.Lines);
post;
ibtransaction1.commit;
except
showmessage(�xxxxxx�);
ibtransaction1.rollback;
end;
end;
end;

Bruno Belchior · Answer

A quest�o � que voc� tem chaves estrangeiras, mas n�o tem um campo de id�ntifica��o �nica (chave prim�ria), logo quando voc� manda atualiza o campo ele atualizar� todos os registros com a chave estrangeira igual (a pr�pria mensagem de erro inicial sugeria isso).... sugiro que repense o seu projeto de dados...

Joe_wah · Answer

eu coloquei uma chave primaria ( no caso um generator ) na tabela e resolveu o problema mas apareceu outros 2:

1 - Se eu tentar inserir mais de 2 registros que possuam a mesma chave estrangeira da erro key violation, se tiverem chaves estranegiras diferentes nao da problema nenhum, e eu at� consigo adicionar varios com a mesma chave estrangeira desde que somente um por cada execu��o do programa.

2 - Eu consigo editar qualquer registro sem probglemas exceto um registo que eu tenha acabado de criar, neste caso o erro � ��Record not found or Changed by Another User�

Joe_wah · Answer

corre��o �mais de 1 registro �, n�o �mais de 2�...

Edilcimar · Answer

mostra o c�digo inteiro para que algu�m ache o erro, caso contr�rio ficaremos aqui discutindo � toa e n�o chegaremos a lugar algum, portanto sempre que tiver algum problema siga os seguintes passos
1) banco de dados usado
2) componente usado
3) c�digo do processo onde est� acontecendo o erro

Joe_wah · Answer

Notei agora que na verdade o erro n�o deixa de ocorrer quando as chaves estrangeiras sao diferentes.

O erro deixa de ocorrer toda hora que eu chamo o select dessa tabela.Se eu executo o select sempre antes de fazer cada inser��o de registro ou atualiza��o n�o da erro nenhum, por�m se chamo s� uma vez , o insert/edit s� funciona igualmente uma vez.

Esse � c�digo do select que exibe os dados que quero da tabela no Grid:(� este codigo todo que tenho que executar pra nao dar erro, o DataSet2 � a tabela problematica, o DataSet1 trata-se de outra tabela menos problematica, no 1 so tenho o problema do update)

DataModule1.ClientDataSet2.Close;
paciente := DataModule1.ClientDataSet1.FieldByName(�CODIGO�).AsInteger;
DataModule1.SQLDataSet2.CommandText := �SELECT * FROM HISTORICO_PACIENTES WHERE CODIGO=:c_paciente ORDER BY DATA DESC�;
DataModule1.SQLDataSet2.ParamByName(�c_paciente�).asinteger := paciente;
DataModule1.ClientDataSet2.Open;

e para fazer as inser��es e updates simplesmente uso

ClientDataset.Insert; (ou .Edit; )

e ClientDataSet.ApplyUpdates(0);

Chamar o codigo toda hora resolveria, mas seria uma gambiarra, quero achar a raiz do problema. Valeu

Joe_wah · Answer

e to usando Firebird 1.5 DbEpress+ClientDataSet , Driver Interbase, Delphi 7...

Joe_wah · Answer

Ainda nao consegui resolver o problema, mas descobri que � algo relacionado ao generator, se eu tiro o generator e gero a chave primaria �na mao� , funciona ...E por algum motivo manda um SELECT no SQLDataSet faz o generator funcionar como deveria...

Joe_wah · Answer

Consegui resolver o problema , mas depois voltuou a mesma coisa mesmo sem eu ter feito qualquer alteracao, pra piorar depois mudou de erro, novamente sem altera��o de codigo..Resultado: desisti de usar o dbexpress, vou partir pra outro