Fórum erro ao gerar excecao #310130
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
Curtir tópico
+ 0Posts
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
Gostei + 0
21/01/2006
Tdqr
Gostei + 0
23/01/2006
Tnaires
Mas não tenho certeza disso... :oops:
Abraços
Gostei + 0
23/01/2006
Tdqr
Gostei + 0
23/01/2006
Massuda
Gostei + 0
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;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)