erro ao gerar excecao
fala galera , nao estou conseguindo gerar uma exceção , nao tem como atraves do try except
try
DataModule1.ClientDataSet1.Post;//grava no ClientDataSet
DataModule1.ClientDataSet1.ApplyUpdates(0);//grava no banco
except
DataModule1.ClientDataSet1.Cancel;
MessageDlg(´Codigo existente!´, mtError, [mbOk], 0);
end;
try
DataModule1.ClientDataSet1.Post;//grava no ClientDataSet
DataModule1.ClientDataSet1.ApplyUpdates(0);//grava no banco
except
DataModule1.ClientDataSet1.Cancel;
MessageDlg(´Codigo existente!´, mtError, [mbOk], 0);
end;
Tdqr
Curtidas 0
Respostas
Tnaires
21/01/2006
Olá
Não deu pra entender direito o q vc quer.
Vc quer saber como gerar uma exceção, ou quer saber pq o erro q vc postou está dando erro?
Abraços
Não deu pra entender direito o q vc quer.
Vc quer saber como gerar uma exceção, ou quer saber pq o erro q vc postou está dando erro?
Abraços
GOSTEI 0
Tdqr
21/01/2006
pq o meu ta dando erro nao to entenddendo , eu nao consigo dar o apply updates mas ele nao entra no except
GOSTEI 0
Tnaires
21/01/2006
Nunca usei ClientDataSets, mas acho q não tá entrando no bloco except por causa do argumento do ApplyUpdates. Se vc tá passando zero, então vc tá dizendo ao sistema para ignorar todos os erros.
Mas não tenho certeza disso... :oops:
Abraços
Mas não tenho certeza disso... :oops:
Abraços
GOSTEI 0
Tdqr
21/01/2006
eu tenho que tratar no OnReconcileError do ClientDataSet ou se quiser manter o try except eu tenho que no DataSetProvider no Evento OnUpdate Error gerar um Raise.....
GOSTEI 0
Massuda
21/01/2006
Eu não entendo muito de BD, mas que eu me lembre, o normal é tratar no OnReconcileError.
GOSTEI 0
Aroldo Zanela
21/01/2006
Colega,
Erros := DataModule1.ClientDataSet1.ApplyUpdates(0);//grava no banco If Erros <> 0 then ShowMessage(Format(´¬d erros encontrados´,[Erros])) else DataModule1.ClientDataSet1.Refresh;
GOSTEI 0