remplir une table par programmation

bonjour,
je suis sur windev 15, et j'ai créé un fichier de type MySql. en suite , j'ai créé une fenêtre qui comportera un champ de text et une table.
mon objectif et de remplir la table par programmation , pour cet effet; j'ai créé une requête paramétré et j'ai mis le code du bouton d'action suivant :

Code:

---

1 2 3 4 5 6 7 8

REQ1.Param1 = FEN1.nom SI PAS HExécuteRequête(REQ1) ALORS Erreur("Impossible de faire la requête",HErreurInfo()) SINON TABLE_Table1.COL_Colonne1 = REQ1.prenom TABLE_Table1.COL_Colonne2 = REQ1nom TableAffiche(TABLE_Table1,taCourantPremier) FIN

---

mais; quand j'exécute ma fenêtre et je saisie un nom existant sur la BD, rien ne s'affiche sur a table !!
Merci d'avance

Bonjour, et comme ceci :

Citation:

---

Envoyé par alfred5

bonjour,
je suis sur windev 15, et j'ai créé un fichier de type MySql. en suite , j'ai créé une fenêtre qui comportera un champ de text et une table.
mon objectif et de remplir la table par programmation , pour cet effet; j'ai créé une requête paramétré et j'ai mis le code du bouton d'action suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

REQ1.Param1 = FEN1.nom SI PAS HExécuteRequête(REQ1) ALORS Erreur("Impossible de faire la requête",HErreurInfo()) SINON HLitPremier(REQ1) TANTQUE PAS HEndehors(REQ1) TABLE_Table1.COL_Colonne1 = REQ1.prenom TABLE_Table1.COL_Colonne2 = REQ1.nom HLitSuivant(REQ1) FIN TableAffiche(TABLE_Table1,taCourantPremier)

---

mais; quand j'exécute ma fenêtre et je saisie un nom existant sur la BD, rien ne s'affiche sur a table !!
Merci d'avance

---

Bonsoir;
j'ai modifié mon code selon le votre mais toujours la table n'affiche rien !!

Citation:

---

Envoyé par alfred5

bonjour,
je suis sur windev 15, et j'ai créé un fichier de type MySql. en suite , j'ai créé une fenêtre qui comportera un champ de text et une table.
mon objectif et de remplir la table par programmation , pour cet effet; j'ai créé une requête paramétré et j'ai mis le code du bouton d'action suivant :

Code:

---

1 2 3 4 5 6 7 8

REQ1.Param1 = FEN1.nom SI PAS HExécuteRequête(REQ1) ALORS Erreur("Impossible de faire la requête",HErreurInfo()) SINON TABLE_Table1.COL_Colonne1 = REQ1.prenom TABLE_Table1.COL_Colonne2 = REQ1nom TableAffiche(TABLE_Table1,taCourantPremier) FIN

---

mais; quand j'exécute ma fenêtre et je saisie un nom existant sur la BD, rien ne s'affiche sur a table !!
Merci d'avance

---

Si la table est remplie par programmation, c'est ceci : :mouarf:

Code:

---

1 2 3 4 5 6 7 8 9 10

REQ1.Param1=FEN1.nom HExécuteRequête(REQ1) HLitPremier(REQ1) SI HTrouve() ALORS TableAjoute(TABLE_Table1) HLitSuivant(REQ1) SINON Info("Aucun enregistrement!") FIN TableAffiche(TABLE_Table1)

---

Bonjour,

Il manque le parcoure de votre requête et la création des lignes pour que cela fonctionne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

TableSupprimeTout(TABLE_Table1) // Vider la table avant de mettre les nouvelles valeurs   REQ1.Param1 = FEN1.nom SI PAS HExécuteRequête(REQ1) ALORS Erreur("Impossible de faire la requête",HErreurInfo()) SINON POUR TOUT REQ1 // TableAjouteLigne créé la ligne (ce qui manquait dans votre code) et défini les valeurs des colonnes dans l'ordre. TableAjouteLigne(TABLE_Table1,REQ1.prenom,REQ1.nom) FIN FIN

---

TableAffiche n'est pas utile avec les tables remplies par programmation, à moins que les fonctions de calcul des tables soit utilisées.

Pour la suite je vous conseille d'étudier l'autoformation fournie avec Windev, ces points y sont abordés dans le détail et constituent la base de l'environnement.

Bonjour,

je reprends le code que vous avez fourni au début plutôt que de passer par un des 12 chemin possibles. Il faut que vous utilisiez le debug en suivant pas à pas ce qui se passe pour être sur que votre requête renvoi bien un résultat. Ensuite ce code devrait vous aider à avancer :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

tablesupprimetout(TABLE_Table1) // vider avant de remplir   REQ1.Param1 = FEN1.nom // ok passage du paramètre   SI PAS HExécuteRequête(REQ1) ALORS Erreur("Impossible de faire la requête",HErreurInfo()) SINON // la requête est bien executée mais est ce qu'elle renvoie qq chose? HLitPremier(REQ1) TANTQUE PAS HEndehors(REQ1) tableajoute(TABLE_Table1)//ajoute une ligne vide TABLE_Table1.COL_Colonne1 = REQ1.prenom TABLE_Table1.COL_Colonne2 = REQ1.nom HLitSuivant(REQ1) FIN // il manquait ce fin je crois FIN

---

bon dev

Merci à vous.