Fórum problema clientdataset.delete #374455
01/09/2009
0
try
screen.Cursor := crSQLWait;
if Application.MessageBox(´Deseja realmente excluir este registro?´,´Mensagem do Sistema´,MB_ICONQUESTION+mb_yesno)=mryes then
begin
try
dm.ADOConnection.BeginTrans;
DataSource.DataSet.Delete;
(DataSource.DataSet as TClientDataset).ApplyUpdates(0);
dm.ADOConnection.CommitTrans;
except on
exc: exception do
begin
if Application.MessageBox(pchar(EXC.MESSAGE),´Mensagem do Sistema´,mb_iconerror+mb_ok)=mrok then
begin
if dm.ADOConnection.InTransaction then
begin
dm.ADOConnection.RollbackTrans;
end;
end;
end;
end;
end;
finally
screen.Cursor := crDefault;
end;
o sistema exibe a mensagem de erro quando a violação de chave
, mas ocorre a atualização no clientdataset
tento excluir um registro e aparece o erro, qdo dou ok, o registro some do dataset, mas permanece no banco de dados
alguem ja viu isso, como posso corrigir
abraço
Arc
Curtir tópico
+ 0Posts
01/09/2009
Emerson Nascimento
se for algo assim, altere as propriedades do provider ou do banco de dados de modo a excluir os registros em cascata.
Gostei + 0
01/09/2009
Arc
o sistema não pode excluir o registro se tiver referenciando outra tabela
Gostei + 0
01/09/2009
Emerson Nascimento
try
if Application.MessageBox(´Deseja realmente excluir este registro?´,´Mensagem do Sistema´,MB_ICONQUESTION+mb_yesno)=mryes then
begin
screen.Cursor := crSQLWait;
try
dm.ADOConnection.BeginTrans;
DataSource.DataSet.Delete;
(DataSource.DataSet as TClientDataset).ApplyUpdates(0);
dm.ADOConnection.CommitTrans;
except on
exc: exception do
begin
(DataSource.DataSet as TClientDataset).CancelUpdates;
if dm.ADOConnection.InTransaction then
dm.ADOConnection.RollbackTrans;
Application.MessageBox(pchar(EXC.MESSAGE),´Mensagem do Sistema´,mb_iconerror+mb_ok)=mrok
end;
end;
end;
finally
screen.Cursor := crDefault;
end;Gostei + 0
01/09/2009
Arc
Gostei + 0
01/09/2009
Osocram
Qdo der um erro vc tem que carregar os dados novamente.
Esse é um erro que ja vi em varios lugares, inclusive eu mesmo ja o fiz muitas vezes.
O ClientDataSet grava tudo em memoria.
As transações não tem nada a ver com o ClientDataSet (diretamente).
Mesmo dando um rollback o clientDataSet continua na mesma.
No seu exemplo mesmo depois do rollBack se vc der um applyUpdate novamente ele vai tentar executar o delete.
Então o Cancel ou CancelUpdate ou até mesmo um Open ou refresh para trazer os dados novamente.
Gostei + 0
02/09/2009
Arc
eu fiz um tratamento de exceção no evento ReconcileError
coloquei Action:=raCancel; após a mensagem de erro, e o registro reaparece.
ficou um tanto estranho, mas foi a unica solução menos pior que encontrei
estou acostumado a fazer tudo via adoquery, usando inserts, deletes e updates.
ha muito tempo queria mexer um pouco com o clientdataset, mas nunca tive oportunidade. estou me batendo bastante com os detalhes dele, mas é isso ai
vlw
Gostei + 0
02/09/2009
Osocram
outra dica caso precise, ja que o ClientDataSet em tratamento de exceção silencioso por isso vc precisa usar o reconcilleError
vc pode fazer assim p saber qtos erros deu
erro:integer;
erro := cds.applyUpdates(0);
if erro > 0 then
showmessage(´erro´);
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)