erro ao gerar excecao

Delphi

21/01/2006

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;


Tdqr

Tdqr

Curtidas 0

Respostas

Tnaires

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


GOSTEI 0
Tdqr

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

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


GOSTEI 0
Tdqr

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

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

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
POSTAR