Discussion :

[nrdz83]

Bonsoir à tous, j'utilise ce code

Code :

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

1
2
3
4
5
6
7
// Supprimer toutes les lignes sélectionnées de la table pointage personnel
i est un entier
NbSelection est un entier = TableSelectOccurrence(Table_POINTAGE_MATERIEL)
POUR i = NbSelection A 1 PAS -1
	TableSupprime(Table_POINTAGE_MATERIEL,TableSelect(Table_POINTAGE_MATERIEL,i))
 
FIN

Afin d'effacer les données de ma table pointage matériel, il n'éfface qu'une seule ligne à la fois.

Comment modifier ce code afin d'effacer toute les lignes de ma table en une seule fois?

Est il possible également d'effacer en un efois les tables "table pointage matériel et table pointage personnel" ?

Par avance merci pour vos lumières amitiés

[Hemgé]

Bonsoir

TableSupprimeTout, si c'est une table mémoire.

Hemgé

[nrdz83]

Bonsoir et merci Hemgé.
Peux tu me dire ou je peux voir si c'est une table mémoire?
¨PAr avance merci

[frenchsting]

Dans la description, onglet contenu...

[nrdz83]

bonsoir et merci de l'info donc pour moi apparement c'est chargé en mémoire merci pour les renseignements amitiés

[nrdz83]

Re bonsoir et désolé je fais ce code et il ne se passe rien.

Code :

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

1
2
// Suppression de toutes les lignes dans la table "Table pointage personnel"
TableSupprimeTout(Table_POINTAGE_PERSONNEL)

Faut il le compléter? Je l'ai pris sur l'exemple via la soucoude de l'aide dans windev.

Merci

[DelphiManiac]

Je vais peut être poser une question bête mais ne confond tu pas, table (mémoire) et fichier. La table est la partie affiché sur la fenêtre windev le fichier est la structure contenant les données stockés sur disque.

Les fonctions Tablexxxx ne concerne que la partie affichage, donc du coup si tu supprime les éléments à l'affichage, sans les supprimer dans le fichier, au prochain lancement de l'application, toutes les données sont de nouveau affichées.

[nrdz83]

Bonsoir et merci de ton aide,
en fait ce que je cherche à faire c'est saisir des données dans un fichier via une table, et donc effacer les données déja saisies dans la table afin d'y mettre de nouvelles données.
Je te met en pièce jointe l'image de ma fenêtre pour te donner une idée.

[DelphiManiac]

Don, si j'ai bien compris, tu veux supprimer les informations de la table, alors la fonction TableSupprimeTout, comme indiqué précédemment est faite pour ça.

Pour t'en convaincre, créer une fenêtre vide, pose une table dessus et 2 boutons (valide de suite l'assistant et ne modifie aucun paramètres), sur le bouton 1, colle le code

Code :

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

1
2
TableAjoute(TABLE_SansNom1, "Valeur1")
TableAjoute(TABLE_SansNom1, "Valeur2")

et sur le bouton 2

Code :

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

TableSupprimeTout(TABLE_SansNom1)

Lance ta fenêtre, clique sur le bouton 1, 2 lignes sont ajoutées dans la table, clique sur le bouton 2, les 2 lignes sont supprimées.

[nrdz83]

ok merci pour l'info je vais voir.

Bonne soirée et encore merci, amitiés

[nrdz83]

je comprend pas en faisant ton exemple ça fonctionne impeccable et sur ma table rien grrrr
vais essayer de voir merci

[miripesage]

Bonsoir, d'après ton image, c'est une table fichier. Pour supprimer toutes les lignes :

Code :

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

1
2
3
4
5
6
// Supprimer toutes les lignes sélectionnées dans une table
i est un entier
NbSelection est un entier = TableSelectOccurrence(Table_Pointage)
POUR i = NbSelection A 1 PAS -1
    TableSupprime(Table_Pointage,TableSelect(Table_Pointage,i))
FIN

[nrdz83]

bonsoir miripesage merci pour ton code mais ça fait comme le mien initialement il ne supprime qu'une seule ligne à la fois.

Merci

[miripesage]

Milles excuses, je corrige:

// Supprimer toutes les lignes sélectionnées dans une table
i est un entier
NbSelection est un entier = TableOccurrence(Table_Pointage)
POUR i = NbSelection A 1 PAS -1
TableSupprime(Table_Pointage,TableSelect(Table_Pointage,i))
FIN

[DanielB]

Bonsoir,
Si c'est une table fichier, HSupprimeTout(MonFichier) va effacer tous les enregistrements du fichier correspondant.
Ensuite, il faut rafraichir la table avec TableAffiche(MaTable).
Tout ceci si la table "MaTable" est liée au fichier "MonFichier".

[jeff_normandie]

Le plus simple est d'utiliser les fonctions "pour tout".

Donc pour suprimer tous les ligne d'une table fichier:

Indice est un entier
Pour toutes lignes de Matable
Indice++
TableSupprime(Matable, Indice)
Fin

TableSupprime, supprime les enregistrements des tables fichiers et mémoire, alors que TableSupprimeTout ne s'applique que sur les tables mémoire.

[nrdz83]

Bonsoir à tous et merci pour votre aide apportée

je fais ce code comme tu me le conseille jeff de normandie

Code :

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

1
2
3
4
5
6
Indice est un entier
POUR TOUTE LIGNE DE Table_POINTAGE_PERSONNEL
	Indice++
	TableSupprime(Table_POINTAGE_PERSONNEL,Indice)
 
	FIN

ça fonctionne par contre la première ligne de la table ne s'efface pas faut il modifier le code?

Si je veux effacer également ma table "table_pointage_materiel" (deuxième table de ma fenêtre), je dois faire un code similaire à la suite de du code ci dessus?
ou il faut que intégrer les deux table dans le même code?

Merci d'avance pour vos lumières amitiés

[jeff_normandie]

Oui effectivement j'ai fait une erreur.
Voici le bon code:

Indice est un entier
POUR TOUTE LIGNE Indice DE Table_POINTAGE_PERSONNEL
TableSupprime(Table_POINTAGE_PERSONNEL,Indice)
FIN

Voir page d'aide suivante du site de PcSoft:
http://doc.pcsoft.fr/fr-FR/?1510017&...arcours-champs

[jeff_normandie]

Bonsoir,
Pour l'effacement de l'autr table, tu reproduit le code à la suite.

A bientôt

[nrdz83]

Bonsoir et super pour ton aide jeff-normandie (oups bien entendu à tous les utres aussi)

Voila donc avec ce code ça m'efface tout exepté la première ligne de la table.
Bon tan pis si il y a qu'une ligne à effacer ça le fait lol

Amitiés

Code :

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

1
2
3
4
5
6
7
Indice est un entier
POUR TOUTE LIGNE Indice DE Table_POINTAGE_PERSONNEL
	TableSupprime(Table_POINTAGE_PERSONNEL,Indice)
FIN
POUR TOUTE LIGNE Indice DE Table_POINTAGE_MATERIEL
	TableSupprime(Table_POINTAGE_MATERIEL,Indice)
FIN