difficulté ajout dans table

Version imprimable

27/05/2019, 12h48
ericb9909

difficulté ajout dans table

Bonjour à tous

Je me remets à la programmation sur WinDev que j'avais laissé de côté depuis un certain temps, cela expliquera ma question.

de manière sommaire, j'ai un fichier avec un nom prenom date et lieu

j'affiche ce fichier sous forme de table après l'avoir au préalable trié à l'aide d'une clé "date"

tout fonctionne, cela m'affiche les noms, prenoms et la bonne date

maintenant, je souhaite ajouter un même lieu pour toutes les éléments affichés. Je passe par une combo pré renseigné, tout fonctionne bien pour la combo et le choix du lieu
en revanche pour inscrire le nom du lieu dans toutes les fiches affichées, bin... ça merdoie.

J'ai fait pour l'instant 2 trucs qui coincent et ne me donnent pas satisfction :

1 ) pour toute ligne de table_affichée

col_lieu=combop_lieu

fin

hmodifie(fichier)

là seule la première ligne est modifiée

2) j'utilise apres pour toute ligne de ... l'ordre tablemodifieligne en rentrant la valeur et là ça merdouille aussi

une idée simple ??

Merci par avaznce
27/05/2019, 13h04
kool-Paladin
bonjour,

le code pour modifier toutes les lignes d'une fichier (une par une ce qui n'est pas optimiser il faudrait faire une requete SQL pour le faire faire a HF en une seule fois) mais bon
Code:

1 2 3 4 5 6 7 Hlitpremier(monFichier,maCle) tantque pas hendehors(monfichier) monFichier.maRubrique="Toto" hmodifie(Monfichier) hlitsuivant(monFichier,macle) Fin
voila maisz ce serait optimisé avec une requete SQL
Code:

1 2 HExécuteRequête("update monFichier Set maRubrique='"+"toto"+"'", hRequêteDéfaut, 1)
27/05/2019, 14h25
Voroltinquo

Bonjour,
es-tu allé voir du côte dé TableEnregistre https://doc.pcsoft.fr/?3074008.
Pour utiliser TableModifieLigne, il faut que la saisie en cascade soit activée.
27/05/2019, 14h50
kool-Paladin

Citation:

Envoyé par Voroltinquo

Bonjour,
es-tu allé voir du côte dé TableEnregistre https://doc.pcsoft.fr/?3074008.
Pour utiliser TableModifieLigne, il faut que la saisie en cascade soit activée.

plus simple non mais cela fait une maj par ligne
et si on doit modifier toutes les lignes avec une valeur faudrait un meca qui le fait en une seule fois
mais la solution est correcte (pas optimiser mais ca marcherait correctement : car cela fait la meme chose cote windev que lecture d'une ligne , maj de la ligne) mais avec une focntion windev
donc pas de souci de ce cote ca reduit le code pour le parcous de chaque ligne et maj de chaque ligne en une seule ligne de code controlée par windev

mais cela n'optimise pas le traitement
on aura pour un fichier de 50 000 ligne (50 000 lecture et 50 000 maj) alors qu'en requete SQL 1 maj de 50 000 lignes
mais la solution que tu donnes le fait avec une seule ligne de code pour 50 000 lecture et 50 000 maj

Pourquoi le code initial ne marche pas ? Ca me paraît important de le comprendre pour ne pas refaire la même erreur.

Quand tu as une table comme ça qui affiche des données, et que tu modifies ce qui apparaît à l'écran, il se passe quoi ?

Windev a en tête 2 informations, totalement indépendantes l'une de l'autre. Si tu modifies une ligne de l'écran, il sait quelle est la ligne que tu modifies. Et indépendamment de ça, il a un 'pointeur' vers le fichier de données, qui pointe vers une ligne.

Pour que le pointeur pointe vers une autre ligne du fichier de données, il faut des instructions comme hLitRecherche(), hLitSuivant(), hRecherche() ... (des fonctions qui commencent par h , comme toutes les fonctions d'accès aux données et qiu sont des fonctions de positionnement, ou de lecture...)

Donc ici, la démarche c'est :
Code:

1 2 3 4 5 6 - Pour chaque ligne de la table que tu veux modifier (par exemple, l'utilisateur sélectionne 5 ou 6 lignes avec la touche CTRL, et il faut modifier uniquement ces lignes là) - Dans la ligne , il y a une information qui permet d'identifier clairement l'enregistrement ( code article par exemple) - hLitRecherche( ) basé sur ce code article, pour retrouver l'enregistrement à modifier - fichier.ville= nouvelle_valeur - hmodifie() - FIN
Après l'instruction hLitRecherche(), il faudrait même tester si Windev a bien trouvé la ligne voulue, avec une ligne du type : si pas htrouve() alors ...L'autre option, c'est effectivement de passer par des instructions de type SQL, mais c'est une autre histoire.

Code:

Update fichier set ville = nouvelle_valeur where code_article in ( ... liste des codes à modifier ... )

28/05/2019, 00h13
ericb9909
Citation:

Envoyé par Voroltinquo

Bonjour,
es-tu allé voir du côte dé TableEnregistre https://doc.pcsoft.fr/?3074008.
Pour utiliser TableModifieLigne, il faut que la saisie en cascade soit activée.

Merci pour ton orientation, en effet, en utilisant la commande TableEnregistre, plutôt qur TableModifie cela marche bien.
vpoila le petit bout de code :
Code:

1 2 3 4 5 Pour TOUTE LIGNE DE Table_Plongeurs_Site Table_Plongeurs_Site.COL_IDsite=COMBO_site TableEnregistre(TABLE_Plongeur_site) FIN
pour éviter de chercher dans tout le fichier, je le filtre par rapport à la date voulue et je n'affiche que les plongeurs ayant plongés ce jour là.
puis j'ajoute pour chacun des plongeurs le site choisi dans ma combo.

MErci pour ton aide
28/05/2019, 00h17
ericb9909
Citation:
Envoyé par kool-Paladin

bonjour,

le code pour modifier toutes les lignes d'une fichier (une par une ce qui n'est pas optimiser il faudrait faire une requete SQL pour le faire faire a HF en une seule fois) mais bon

Code:

1 2 3 4 5 6 7 Hlitpremier(monFichier,maCle) tantque pas hendehors(monfichier) monFichier.maRubrique="Toto" hmodifie(Monfichier) hlitsuivant(monFichier,macle) Fin

voila maisz ce serait optimisé avec une requete SQL

Code:

1 2 HExécuteRequête("update monFichier Set maRubrique='"+"toto"+"'", hRequêteDéfaut, 1)
Merci pour ton aide. Je ne voulais pas travailler directement sur le fichier, car à la longue j'ai beaucoup de personnes à traiter. C'est la raison pour laquelle j'étais passé par un affichage filtré et je ne traite que les lignes de cet affichage trié.

C'est peut être un peu moins esthétique, mais je craignais qu'à la longue le traitement soit un peu fastidieux

Merci pour ton aide

Citation:
Envoyé par tbc92
Pourquoi le code initial ne marche pas ? Ca me paraît important de le comprendre pour ne pas refaire la même erreur.

Quand tu as une table comme ça qui affiche des données, et que tu modifies ce qui apparaît à l'écran, il se passe quoi ?

Windev a en tête 2 informations, totalement indépendantes l'une de l'autre. Si tu modifies une ligne de l'écran, il sait quelle est la ligne que tu modifies. Et indépendamment de ça, il a un 'pointeur' vers le fichier de données, qui pointe vers une ligne.

Pour que le pointeur pointe vers une autre ligne du fichier de données, il faut des instructions comme hLitRecherche(), hLitSuivant(), hRecherche() ... (des fonctions qui commencent par h , comme toutes les fonctions d'accès aux données et qiu sont des fonctions de positionnement, ou de lecture...)

Donc ici, la démarche c'est :
Code:

1 2 3 4 5 6 - Pour chaque ligne de la table que tu veux modifier (par exemple, l'utilisateur sélectionne 5 ou 6 lignes avec la touche CTRL, et il faut modifier uniquement ces lignes là) - Dans la ligne , il y a une information qui permet d'identifier clairement l'enregistrement ( code article par exemple) - hLitRecherche( ) basé sur ce code article, pour retrouver l'enregistrement à modifier - fichier.ville= nouvelle_valeur - hmodifie() - FIN
Après l'instruction hLitRecherche(), il faudrait même tester si Windev a bien trouvé la ligne voulue, avec une ligne du type : si pas htrouve() alors ...L'autre option, c'est effectivement de passer par des instructions de type SQL, mais c'est une autre histoire.

Code:

Update fichier set ville = nouvelle_valeur where code_article in ( ... liste des codes à modifier ... )
merci pour ta réponse
en fait concernant la modification de ce fichier, je ne souhaitais pas faire de recherche ligne à ligne qui me semblait il prendrait trop de temps à la longue si mon fichier comporte de tres nombreuses lignes. Du coup ce que je fais, mais peut être n'est ce pas "informatiquement correct" c'est le filtrage de mon fichier via une clé, (la date) puis je choisi au travers d'une combo la valeur à ajouter à toutes les lignes filtrées et je les enregistre.
je pense que c'est plus rapide que de consulter tout le fichier et ajouter la valeur choisie aux items dont la clé de recherche correspondrait. Mais je me trompe peut être.

Merci encore

28/05/2019, 00h29
ericb9909

merci

Merci à tous pour vos apports, cela m'a permis d'avancer et de résoudre mon problème.
28/05/2019, 03h10
tbc92

En terme de performance, si tu peux EVITER d'afficher à l'écran tes données tu seras toujours gagnant.

Comme tu fais, tu ne remplaces pas une étape lente par une étape rapide ; tu ajoutes une étape.
28/05/2019, 10h46
michel.souris

Bonjour,

Contrairement à ce qui a été dit, il faudra utiliser la fonction HExecuteRequeteSQL pour exécuter directement du code SQL.. mais je suppose que vous l'aviez déjà corrigé :)

Sinon ce que dit tbc92 est tout à fait exact : pour optimiser votre code, limiter les étapes et surtout les aller-retours entre appli et SGBD. De façon optimal vous pouvez envisager (si votre SGBD le permet) d'exécuter une requête qui fait les deux opérations : sélection et mise à jour.

Un requête de ce type :

UPDATE MaTable1 SET Rubrique = 'MaValeur' WHERE IDTable1 IN (SELECT IDTable1 FROM MaTable2 WHERE [critère selection])

En supposant bien sûr que les tables en question dispose d'une relation :)

Bonne journée,