|
| Lecture de requète sous WD11 |
| Débuté par Jeff, 24 déc. 2006 01:09 - 4 réponses |
| |
| | | |
|
| |
Posté le 24 décembre 2006 - 01:09 |
Bonsoir
Pour remplir une table hierarchique, j'utilise ce code :
HLitPremier(Catégorie,IDCatégorie)
// on ajoute la première catégorie dans la table
TANTQUE PAS HEnDehors(Catégorie)
TableAjouteLigne(TH_articles,Catégorie.Titre,"","","")
// je connais la catégorie en cours je cherche les ss cat liées
HExécuteRequête(req_recherche_sous_catliées,hRequêteDéfaut,Catégorie.IDCatégorie)
// si ma requète contient des enrgistrements
SI HNbEnr(req_recherche_sous_catliées)>0 ALORS
HLitPremier(req_recherche_sous_catliées)
TANTQUE PAS HEnDehors(req_recherche_sous_catliées)
// ajout des sous catégorie en sous niveau des catégories
TableAjouteFils(TH_articles,1,req_recherche_sous_catliées.Nom)
HLitSuivant(req_recherche_sous_catliées)
FIN
FIN
HLitSuivant(Catégorie)
FIN
La table ne se remplit pas et quand je débuge il me dit :
req_recherche_sous_catliées="req_recherche_sous_catliées"
On dirait que WD 11 ne sait plus lire une requète comme un fichier hyperfile..
Y a-t-il une erreur passée inapercue malgré mon acharnement ?
Si qq peut m'éclairer... merci par avance |
| |
| |
| | | |
|
| | |
| |
Posté le 24 décembre 2006 - 11:15 |
Bon j'ai essayé en utilisant l'instruction pour tout :
HLitPremier(Catégorie,IDCatégorie)
// on ajoute la première catégorie dans la table
TANTQUE PAS HEnDehors(Catégorie)
catID est un réel=Catégorie.IDCatégorie
TableAjouteLigne(TH_articles,Catégorie.Titre)
// on filtre les enregistrements de sous catégorie correspondant à la catégorie sélectionnée
POUR TOUT HFSous_catégorie AVEC IDCatégorie = catID
HLit(HFSous_catégorie,hNumEnrEnCours)
SScatId est un réel=HFSous_catégorie.IDSous_catégorie
TableAjouteFils(TH_articles,1,HFSous_catégorie.Nom)
// idem pour les articles
POUR TOUT Articles AVEC IDSous_catégorie = SScatId
HLit(Articles,hNumEnrEnCours)
SI PAS HLitRecherchePremier(Revue,IDRevue,Articles.IDRevue) ALORS
Info("Erreur lors de la recherche de la revue pour l'article : " Articles.Nom_article)
FIN
TableAjouteFils(TH_articles,2,Articles.Nom_article,Revue.Nom,Articles.IDArticles)
FIN
FIN
HLitSuivant(Catégorie,IDCatégorie)
FIN
Le remplissage de ma table hierarchique est toujours aussi loufoque.....
Peut-être y a-t-il une petite correction à faire dans le code, mais je sèche !
Encore une fois merci par avance à celui qui pourra m'aider. |
| |
| |
| | | |
|
| | |
| |
Posté le 24 décembre 2006 - 12:59 |
Bonjour
je pense que ton problème vient de la ligne
TableAjouteFils(TH_articles,2,Articles.Nom_article,Revue.Nom,Articles.IDArticles)
Tout tes enregistrements ont pour racine la ligne 2 de la table.
Il te faut modifier l'indice de l'élément parent pour créer l'arborescence. voir aide en ligne.
Résultat> = TableAjouteFils(<Nom de la table>, <Indice de l'élément parent>
[, <Élément colonne 1>[...[, <Élément colonne N>]]]) |
| |
| |
| | | |
|
| | |
| |
Posté le 25 décembre 2006 - 19:56 |
Autre annomalie:
quand tu fais un Pour Tout "NomFichier"
tu n'as pas besoin de faire un HLit("NomFichier")
le pour tout fait déja une lecture !
A |
| |
| |
| | | |
|
| | |
| |
Posté le 25 décembre 2006 - 20:42 |
Merci beaucoup à vous ...! |
| |
| |
| | | |
|
| | | | |
| | |
|