Bonjour,
je développe une application de gestion de stock sous delphi 7 et oracle 9i en utilisant les composants Dbexpress.
Mon problème est le suivant. Lorsque je veux supprimer un enregistrement d'une ligne de mon DBgrid, celà se passe bien. Mais lorsque je relance l'application les données réapparaissent dans le DBgrid. je me rends compte que les données n'ont pas été supprimées. J'ai même essayé avec le DBNavigator c'est la même chose.
Alors je demande votre aide.
Voici le code que j'ai écrit:
Merci.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 procedure TFMAJACHAT_BOIS_DIVERS.SupprimerClick(Sender: TObject); begin if DataModule1.ClientDACHAT_DIV.IsEmpty then begin Messagedlg('Aucune donnée à supprimer',mtInformation,[mbOk],0); exit; end; if MessageDlg('Confirmer la Suppression',mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin DataModule1.ClientDACHAT_DIV.Delete; DataModule1.ClientDACHAT_DIV.ApplyUpdates(-1); end; end;
Partager