Vider en un seul clique et complètement le fichier correspondant à une table [Résolu]

Signaler
Messages postés
98
Date d'inscription
mercredi 31 octobre 2007
Statut
Membre
Dernière intervention
24 décembre 2012
-
Messages postés
98
Date d'inscription
mercredi 31 octobre 2007
Statut
Membre
Dernière intervention
24 décembre 2012
-
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

5 réponses

Messages postés
302
Date d'inscription
jeudi 29 septembre 2005
Statut
Membre
Dernière intervention
17 septembre 2013
1
bonsoir,
Table9.EmptyTable;

Luc.
Messages postés
187
Date d'inscription
jeudi 16 octobre 2008
Statut
Membre
Dernière intervention
20 février 2010
3
salut
table9.active:false;
Table9.EmptyTable;

ne pas oublier de changer la proprieté exclusive de la table a true;
yahia
Messages postés
98
Date d'inscription
mercredi 31 octobre 2007
Statut
Membre
Dernière intervention
24 décembre 2012

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
Messages postés
98
Date d'inscription
mercredi 31 octobre 2007
Statut
Membre
Dernière intervention
24 décembre 2012

Bonjour Luc,
Merci de me répondre et pour l'info.
Amitiés, AEC1
Messages postés
98
Date d'inscription
mercredi 31 octobre 2007
Statut
Membre
Dernière intervention
24 décembre 2012

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