Mise à jour des champs d'une table

Mise à jour des champs d'une table - Delphi/Pascal - Programmation

Marsh Posté le 26-07-2004 à 14:27:01    

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  :hello:  

Reply

Marsh Posté le 26-07-2004 à 14:27:01   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed