suppression de ligne dans un dbgridRésolu

Question

delphi7 et bdd paradox


Bonjour, 

je cherche  une fonction ou code pour :

j aimerais pouvoir effacer  via un bouton  tout les lignes d un Dbgrid 

jai une base  de donnée  de type réservation  resto

et je voudrais effacer les dates antérieurs a celle de la date du jours

pierrotk10d · Answer

Bonjour,
Il y a plusieurs solutions comme souvent.
1 - Mettre la propriété Multiselect du TDBGrid à True, sélectionner les enregistrements à supprimer. Voici un bout de code qui devait aller
procedure TForm1.Button1Click(Sender: TObject);Var i: Integer;begin   // Propriété MuliSelect du DBGrid1 est à True   if DBGrid1.SelectedRows.Count > 0 then begin      for i := 0 To DBGrid1.SelectedRows.Count -1 do begin      Table1.GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));        Table1.Delete;      end;   end;end;
2 - Saisir la date de début et de fin des dates à supprimer et faire une requete SQL. A adapter à ton désir
Delete from Table1 where (DateResa > 'DateDebut') and (DateResa < 'DateFin');

PierrotK10d · Answer

Bonjour,
Pour la suppression des enregistrements sans les sélectionner manuellement la solution requête SQL me semble la meilleure. Il faut saisir la date à supprimer dans une fiche de dialogue ( à créer), avec un Edit et un bouton pour valider la date et lancer la requête.

ratatouille53 · Answer

bonsoir  

oui j avais bien compris  votre idée SQL  qui surement  est bonne mais je sais pas comment le faire car je ni connais rien  ave sql?

pourriez vous svp me me donner un petit exemple  que je mettrais après a ma sauce ? 

cela me permettrais déjà , peut être  a comprendre un peu  la relation en paradox et SQL !! et avancé dans mon projet 

en vous remerciant  

Merci pour  la réponse et l intérêt que vous portez à m aider pour solutionner mon problème.

amicalement T

PierrotK10d · Answer

Bonjour,
Si tu ne veux pas utiliser SQL c'est dommage. Tu peux faire une boucle While comme ceci qui va supprimer tous les enregistrements qui ne seront differents du jour ou la procédure sera lancée (tous les jours différents du 28/10/2017 pour aujourd'hui par exemple).
A toi d'adapter quels jours tu veux supprimer dans la boucle.
Tu peux indexer ta table sur le champs DateResa ça ira plus vite!
procedure TForm1.Button2Click(Sender: TObject);Var DateJ: TDateTime;begin   DateJ := Date();   With Table1 do begin     First;     While (FieldByName('DateResa').AsDateTime < DateJ) and (not Eof) do        Delete;   end;end;

Pierrotk10d · Answer

Bonjour,
Pour sélectionner une date utilise plutôt un TmonthCalendar. L'évènement OnClick te renverra la date choisie.
procedure TForm1.MonthCalendar1Click(Sender: TObject);begin   ShowMessage(DateToStr(MonthCalendar1.Date));end;

Suppression de ligne dans un dbgrid

5 réponses

Votre réponse