erro ao gerar excecao
21/01/2006
0
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
Posts
21/01/2006
Tnaires
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
21/01/2006
Tdqr
23/01/2006
Tnaires
Mas não tenho certeza disso... :oops:
Abraços
23/01/2006
Tdqr
23/01/2006
Massuda
23/01/2006
Aroldo Zanela
Erros := DataModule1.ClientDataSet1.ApplyUpdates(0);//grava no banco If Erros <> 0 then ShowMessage(Format(´¬d erros encontrados´,[Erros])) else DataModule1.ClientDataSet1.Refresh;
Clique aqui para fazer login e interagir na Comunidade :)