Discussion :

[vegetacherif]

Bonjour
j'ai une table de categorie qui contient des categorie et de sous-categorie, les champs sont :

Code :

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

1
2
3
4
 
IDCatégorie
nom_categorie
niveau  //une categorie peut etre une sous categorie d'une autre categorie

j'ai fait une procedure recursive qui me permet de selectionner les categorie et les sous-catégorie et ... sous-sous categorie
voila mon code :

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
 
PROCEDURE O_Recursive(niveau est un entier)
 
HExécuteRequête(REQ_RechercheTousSousCategorie,hRequêteDéfaut,niveau)
 
 
	POUR TOUT REQ_RechercheTousSousCategorie
 
	info(REQ_RechercheTousSousCategorie.nom_categorie)
 
 
	O_Recursive(REQ_RechercheTousSousCategorie.IDCatégorie)
 
 
 
	FIN

j'arrive pas affiche toutes les sous-categorie d'une categorie, c'est quoi le probleme de mon code ?
aide-moi

[vegetacherif]

J'ai résolu le problème ne déclarant une requête dont la chaine de caractère est refaite à chaque fois et ne pas passer par une requête enregistrée dans le projet

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
 
 
PROCEDURE O_Recursive(nId_parent est un entier)
sdSrc est une Source de Données
sdSrc+=DonneIdentifiant()
 
sReq est une chaîne
sReq="SELECT * FROM Catégorie WHERE niveau="+nId_parent;
 
HExécuteRequêteSQL(sdSrc,hRequêteInterruptible,sReq)
 
HLitPremier(sdSrc)
 
TANTQUE PAS HEnDehors(sdSrc)
 
       info(sdSrc.NomCat)	
 
	O_Recursive(sdSrc.IDCatégorie)
 
	HLitSuivant(sdSrc)
FIN