erro ao gerar excecao

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

Respostas

21/01/2006

Tnaires

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


Responder Citar

21/01/2006

Tdqr

pq o meu ta dando erro nao to entenddendo , eu nao consigo dar o apply updates mas ele nao entra no except


Responder Citar

23/01/2006

Tnaires

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


Responder Citar

23/01/2006

Tdqr

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.....


Responder Citar

23/01/2006

Massuda

Eu não entendo muito de BD, mas que eu me lembre, o normal é tratar no OnReconcileError.


Responder Citar

23/01/2006

Aroldo Zanela

Colega,

Erros := DataModule1.ClientDataSet1.ApplyUpdates(0);//grava no banco
If Erros <> 0 then
 ShowMessage(Format(´¬d erros encontrados´,[Erros&93;))
else
 DataModule1.ClientDataSet1.Refresh;



Responder Citar