Try/Except trava em applyupdates(0) mas funciona!!??

Question

Criei um banco em firebird, a tabela tem tres chaves primerias Data,CodCliente,Estagio ; quando vou salvar um registro  tem o seguintetry .... tabela.post; tabela.applyupdates(0);except showmessage(�e...

Briciosm · Answer

D� uma olhada no pesquisar do forum.Voc� vai achar o que precisa. Me lembro de ter visto ontem o mesmo problema que voc� est� relatando.Sei que o try ... except neste caso n�o vai funcionar.Parece que voc� vai ter que usar if tabela1.applyupdates(0)<>0 then   erro.....Acho que � isso!...

Vinicius2k · Answer

Colega,O DataSet q vc chama de �tabela� � um TClientDataSet ?Se sim, TClientDataSets NUNCA geram exce��o no m�todo ApplyUpdates. Try/Except n�o funciona neste caso.A �nica forma de exibir a mensagem original de erro � utilizar o evento [b:c517ebf571]OnReconcileError[/b:c517ebf571] do TClientDataSet. Neste evento vc pode chamar, por exemplo :[code:1:c517ebf571]ShowMessage(E.Message);[/code:1:c517ebf571]Vc pode verificar se houve algum erro, verificando o valor retorno do m�todo ApplyUpdates. O m�todo retorna o n�mero de erros ocorridos durante a tentativa de aplica��o. Ex:[code:1:c517ebf571]if CDS.ApplyUpdates(0) > 0 then   ShowMessage(�Ocorreu um erro...�);[/code:1:c517ebf571]T+...

Ricna · Answer

valeu a dica;
entao meu sistema inteiro esta errado :oops:

Bom e com esse OnReconcileError tem como distinguir quando ele foi chamado , se na hora de salvar ou deletar , se o TClientDataSet tava em dsedit ou dsinsert?

valeu mesmo ai

Vinicius2k · Answer

O OnReconcileError s� ocorre quando existe algum erro no ApplyUpdates.
Para proteger erros no ambiente do lado do cliente (opera��es no ClientDataSet) vc pode utilizar Try/Except, como ao efetuar o Post, por exemplo. Try/Except s� n�o resolve com o AppyUpdates..

No exemplo que vc passou :

try
  ...
  ClientDataSet1.Post;
  ClientDataSet1.ApplyUpdates(0);
except
  ShowMessage(�Erro !�);
end;

Neste caso, vc ir� conseguir capturar a exce��o no Post. A forma com que vc fez n�o est� errada, s� incompleta, pois para ter certeza que n�o houve erro vc precisa utilizar uma das formas que mencionei na minha primeira mensagem...

Algo +/- assim :

try
  ...
  ClientDataSet1.Post;
  if ClientDataSet1.ApplyUpdates(0) > 0 then
    ShowMessage(�Erro no AppyUpdates !�);
except
  ShowMessage(�Erro no Post !�);
end;

Blz?

T+

F�rum Try/Except trava em applyupdates(0) mas funciona!!?? #268974