Discussion :

[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 :

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

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

[LeDièse]

Bonjour, et comme ceci :

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 :

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

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

[alfred5]

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

[LeDièse]

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 :

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

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 :

Code :

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

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)

[themayu]

Bonjour,

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

Code :

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

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.

[Atsibat]

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 :

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

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

[alfred5]

Merci à vous.