Vider en un seul clique et complètement le fichier correspondant à une tableRésolu

Question

Bonjours,
est-ce qu'il me serais possible de connaître la procédure pour Vider en un seul clique et complètement le fichier correspondant à une table. En fait je copie des enregistrements venants de différentes tables Paradox7 dans une appli. et si cela ne me convient pas que je puisse vider celle-ci en une fois.
Voici le code que j'ai essayer mais il faut que je clique plusieurs fois afin de toute la vidé.
Merci de votre aide, amitiés...
AEC1

beckerich · Accepted Answer

bonsoir,
Table9.EmptyTable;
Luc.

AEC1 · Answer

oubli...var    // effacer de la liste commune
  MessageToShow: String;
  UserResponse: Integer;
begin
  MessageToShow := 'Voulez-vous vraiment effacer cette liste ?';
  UserResponse := MessageDlg(MessageToShow, mtConfirmation, mbOKCancel, 0);
  if UserResponse = mrOK then
  With Table9 do
  begin
    First;
    While not(EOF)do
    begin
      Application.ProcessMessages;
      Table9.Open;
      table9.Delete;
      Table9.Refresh;
      next;
    end;
  end;
end;
Voici la procedure que j'ai oublié de rajouter .
Merci.
AEC1

AEC1 · Answer

Bonjour Luc,
Merci de me répondre et pour l'info.
Amitiés, AEC1

youhibadelphi · Answer

salut
table9.active:false;
Table9.EmptyTable;
ne pas oublier de changer la proprieté exclusive de la table a true;
yahia

AEC1 · Answer

Merci pour votre message à bientôt, merci...
AEC1

Vider en un seul clique et complètement le fichier correspondant à une table

5 réponses

Votre réponse

Discussions similaires