Bonjour,
J'utilise interbase, delphi7 et TClientDataset (avec TSQLQuery,
TDataSetProvider).
Pour l'insertion et la suppression ça fonctionne très bien.
Mais quand je veux modifier un enregistrement de ma table, le
programme ne me dit pas d'erreur mais il ne fait rien.
Code:
ClientDataSetSaisie.edit;
ClientDataSetSaisie.fieldbyname('ID').asstring:=edit1.text;
...
clientDataSetSaisie.post;
Et je mets dans la procedure afterpost de mon ClientDataSet
Code:
procedure TFTiers.ClientDataSetSaisieAfterPost(DataSet: TDataSet);
begin
inherited;
try
clientdatasetsaisie.ApplyUpdates(-1) ;
if DMMain.inTran then
DMMain.commitTran;
except
if DMMain.inTran then
DMMain.rollbackTran;
MessageDlg('Echec de l''enregistrement des données', mtError,
[mbOK], 0);
end;
end;
Merci d'avance