WEBDEV : ZoneRepétée affiche un seul enregistrement (le premier)

**karamaster** · 19/01/2025, 13h55

Bonjour,
J'ai une zone répétée remplir avec une requête SQL. Le problème c'est qu'il n'y a qu'un seul enregistrement qui s'affiche alors que j'ai deux enregistrement dans la base qui satisfont aux critères de ma requête.

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
// Vide la zone répétée
ZoneRépétéeSupprimeTout(ZR_Recherche)
 
//Remplir les zone repétées
exeReq est un booléen	= SQLExec("SELECT * FROM produit WHERE archive = "+0, "SQL1")
 
SI exeReq ALORS
	TANTQUE SQLAvance("SQL1") = 0
		SQLPremier("SQL1")
 
		//Affectation des valeurs
		idProd		= SQLCol("SQL1", 1)
		libelleProd	= SQLCol("SQL1", 3)
		ref			= SQLCol("SQL1", 2)
		idFamille	= SQLCol("SQL1", 9)
		photo		= SQLCol("SQL1", 4)
		prixAchat	= SQLCol("SQL1", 5)
		prixVente	= SQLCol("SQL1", 6)
		familleProduit	= RechercheFamille(idFamille)
 
		// Ajoute le produit dans la zone répétée
		ZoneRépétéeAjouteLigne(ZR_Recherche)
 
		i = ZoneRépétéeOccurrence(ZR_Recherche, toTotal)
 
		// On renseigne les attributs de la zone répétée	
		ATT_Nom[i]							= libelleProd
		ATT_Image[i]						= photo
		ATT_ID[i]							= idProd
		ATT_IDFamille[i]					= idFamille
		ATT_Référence[i]					= ref
		ATT_Prix_Achat[i]					= prixAchat
		ATT_Prix_Vente[i]					= prixVente
		ATT_Famille[i]						= familleProduit
 
		SQLSuivant("SQL1")
	FIN
SINON
	Info("Le fichier est vide")
FIN
 
SQLFerme("SQL1")

**tatayo** · 19/01/2025, 14h46

Bonjour,
Tu mélanges deux types de parcours: c'est soit SqlPremier()/Sqlsuivant(), soit Sqlavance().
Regardes là pour plus d'infos.

Tatayo

**karamaster** · 19/01/2025, 16h09

Merci,
j'ai apporté la correction, la zone est répétée deux fois mais dans les données la base de données :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
SI exeReq ALORS
	TANTQUE SQLAvance("SQL1") = 0
 
		//Affectation des valeurs
		idProd		= SQLCol("SQL1", 1)
		libelleProd	= SQLCol("SQL1", 3)
		ref			= SQLCol("SQL1", 2)
		idFamille	= SQLCol("SQL1", 9)
		photo		= SQLCol("SQL1", 4)
		prixAchat	= SQLCol("SQL1", 5)
		prixVente	= SQLCol("SQL1", 6)
		familleProduit	= RechercheFamille(idFamille)
 
		// Ajoute le produit dans la zone répétée
		ZoneRépétéeAjouteLigne(ZR_Recherche)
 
		i = ZoneRépétéeOccurrence(ZR_Recherche, toTotal)
 
		// On renseigne les attributs de la zone répétée	
		ATT_Nom[i]							= libelleProd
		ATT_Image[i]						= photo
		ATT_ID[i]							= idProd
		ATT_IDFamille[i]					= idFamille
		ATT_Référence[i]					= ref
		ATT_Prix_Achat[i]					= prixAchat
		ATT_Prix_Vente[i]					= prixVente
		ATT_Famille[i]						= familleProduit
 
	FIN
SINON
	Info("Le fichier est vide")
FIN
 
SQLFerme("SQL1")

**tatayo** · 19/01/2025, 20h45

Tu n'as pas lu l'aide en ligne...
La réponse est là .

Tatayo.

**karamaster** · 20/01/2025, 15h11

C'est bon.

Code :

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

SQLLitCol

pour afficher les données.

Merci tatayo

**karamaster** · 30/01/2025, 13h56

Bonjour,
Je réouvre la discussion parce que j'ai ma zone répétée affiche seulement les deux première ligne de mon fichier.
Pourtant, quand j'affiche la réponse de ma requête toutes les information sont visible.

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
reqProduit									est un booléen
 
//Remplir les zone repétées
reqProduit	= SQLExec("SELECT * FROM produit", "SQL1")
 
// Vide la zone répétée
ZoneRépétéeSupprimeTout(ZR_Catalogue)
 
SI reqProduit ALORS
	TANTQUE SQLAvance("SQL1") = 0
 
 
		// Ajoute le produit dans la zone répétée
		ZoneRépétéeAjouteLigne(ZR_Catalogue)
 
		i = ZoneRépétéeOccurrence(ZR_Catalogue, toTotal)
 
		//		// On renseigne les attributs de la zone répétée	
		ATT_ID[i]							= SQLLitCol ("SQL1", 1)
		ATT_Référence[i]					= SQLLitCol ("SQL1", 2)
		ATT_LIBELLE[i]						= SQLLitCol ("SQL1", 3)
		ATT_Image[i]						= fRepEnCours() + SQLLitCol("SQL1", 4) 
		ATT_Prix_Achat[i]					= SQLLitCol ("SQL1", 5)
		ATT_Prix_Vente[i]					= SQLLitCol ("SQL1", 6)
		ATT_IDFamille[i]					= SQLLitCol ("SQL1", 8)
 
	FIN
 
SINON
	Info("il n'y a aucun produit.")
FIN
 
SQLFerme("SQL1")

**frenchsting** · 30/01/2025, 15h21

bonjour,

Si tu réouvres ce sujet, alors supprime le tag résolu...

Pour répondre (et surtout, reprendre) ton code :
- ReqProduit est mal utilisé, voire on peut s'en passer / ne sert à rien (comme tu as écrit ton code)
- Tu ne vérifies pas l'exécution de ta requête (cf point au-dessus)
- Tu utilises mal le ZoneRépétéeAjouteLigne
- Le ZoneRépétéeOccurrence est mal utilisé (cf point au-dessus)

Ensuite, tu peux simplement mettre un info(i) à la fin de ton code pour savoir combien d'enregistrements ont été lus

**tatayo** · 30/01/2025, 15h28

J'ajouterai qu'utiliser SELECT * dans une requête est une très mauvaise idée.
Le jour où la structure du fichier produit change, ton code ne fonctionne plus.
Il FAUT systématiquement spécifier la liste des rubriques que la requête doit renvoyer.

Et si tu veux comprendre ce qu'il se passe, tu peux poser un point d'arrêt sur la première ligne du code, puis avancer pas à pas.
Tu peux même surveiller la valeur de tes variables, le contenu de la zone répétée...
Windev propose un bon débuggeur, pourquoi ne pas l'utiliser ?

Tatayo.

**Yusep** · 30/01/2025, 21h50

Bonsoir

Envoyé par tatayo

J'ajouterai qu'utiliser SELECT * dans une requête est une très mauvaise idée.
Le jour où la structure du fichier produit change, ton code ne fonctionne plus.

Je ne comprends pas pourquoi. Bien que c'est mieux spécifier les rubriques, * donne toutes les rubriques même si la structure change.