Mise à jour des champs d'une table - Delphi/Pascal - Programmation
MarshPosté 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.
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;
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