Discussion :

[seremei]

Bonjour à tous,

J'ai un problème de while pour une base de donnée utilisant un TTable. Je cherche à supprimer tout le contenu de la table utilisé dans la base.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
//On se place sur le premier enregistrement
     Table1.First;
     //On fait une boucle pour parcourir toute la table
     While not (Table1.EOF) do
     begin
          Table1.Delete; //on supprime l'enregistrement
          Table1.Next;   //on passe au suivant
     end;

Le problème c'est que je suis obligé de cliquer à chaque fois sur mon bouton "tout supprimer" car il ne supprime qu'un seul enregistrement à la fois.

Je suis débutant en delphi je n'ai commencé il y a que 3 jours, et j'avoue ne pas comprendre pourquoi mon while ne fonctionne pas.

Merci à ceux qui vont me répondre et au revoir.

Cordialement

PS: je n'ai pas trop le temps de chercher je suis au travail, je n'ai cependant rien trouvé pendant ma recherche.

[Fxg]

Nous aussi on est au travail et on n'a pas trop le temps de chercher :

Issu de la la FAQ Comment vider une table

[Linkin]

Dans tous les cas le code ne peut fonctionner:
- une fois le delete effectué, l'enregistrement n'existe plus, donc que va faire le next?

Après lecture de l'aide, je supprimerai simplement le Table1.Next, ça devrait fonctionner. Quelle base de données?

Sinon utiliser un TTable est en général à éviter.

[Fxg]

Si on regarde l'aide sur DELETE :

Resynchronise l'ensemble de données pour rendre actif le prochain enregistrement non supprimé.Si l'enregistrement suppriméétait le dernier enregistrement de l'ensemble de données,l'enregistrement précédent devient alors l'enregistrement en cours.

2 réflexes à avoir : F1 + FAQ

[dehorter olivier]

PS: je n'ai pas trop le temps de chercher je suis au travail

Vraiment, vraiment c'est pas cool

1 Ce n'est pas un problème de WHILE

2 c'est plus simple de faire une requête de suppression en SQL que quelque chose qui supprime 1 ligne à la fois

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DELETE 
  FROM matable

[seremei]

Merci de vos réponses.
@Fxg : Je ne voulais pas vexé en disant que je suis au travail. Encore merci pour l'aide (l'aide delphi ne fonctionne pas sur nos poste de travail, c'est pour cela que je me permet de poster sur le forum)

@Linkin : Merci j'ai enlevé le Table1.Next et cela fonctionne correctement. Je suis obligé d'utiliser les TTable par choix de mon entreprise.

Cordialement

[ShaiLeTroll]

Rien n'empêche d'utiliser un TQuery pour un faire un DELETE
TQuery et TTable utilise tous les deux le BDE, ne te prive surtout pas du TQuery !
Ton entreprise a choisi le BDE, tu as donc d'autres composants comme le TDataBase qui font parti de cette lib !

Ce que tu ne peux pas utiliser c'est TADOQuery, TADOTable, TIBQuery ... eux font parti des autres familles de composants DB

Le piège du Delete qui effectue un Next implicite est un piège classique, y être confronté au bout de 3 jours, ce n'est pas courant

l'aide delphi ne fonctionne pas sur nos poste de travail, c'est pour cela que je me permet de poster sur le forum

Même pour un vieux Delphi, l'aide en ligne de XE3 contient des infos intéressantes
Si tu es sur Seven\Vista, il suffit d'installer WinHLP32.exe ou WinHLP64.exe pour utiliser l'aide en HLP