Chargement Treeview de manière récursive

Version imprimable

20/01/2007, 19h07
exclusif

Chargement Treeview de manière récursive

Bonjour à tous,

Je fais appel à vous car je suis totalement perdu.

Je m'explique, j'ai une base de données et je voudrais charger une table sous forme de treeview. Mais ça coince ! Je n'y arrive pas du tout.

Voici ma table au format access:

IdCategorie (numérique)
NomCategorie (texte)
AnnotationCategorie (memo)
ParentCategorie (numérique) 'indique l'Id de la catégorie Parent (-1 si pas de parent)
NiveauCategorie (numérique) 'indique le niveau (1 puis 2 puis 3....)

Comment implémenter le chargement du treeview de manière récursive ?

Merci beaucoup pour vos réponses

Ludo
20/01/2007, 22h17
mamelouk

salut,

y'a plein de trucs que je comprends pas:

- avec quel tookit tu cree un treeview
- pourquoi tu veut le faire récursivement
- c'est quoi une catégorie dans ton exemple
21/01/2007, 00h04
Trap D

Tu ne feras pas un chargement résursif du treeview, mais éventuellement une insertion récursive de chaque nouveau noeud à partir de la racine du treeview.
21/01/2007, 00h54
exclusif

Bonsoir,

Citation:

Envoyé par mamelouk

- avec quel tookit tu cree un treeview

Avec VB2005 express edition

Citation:

Envoyé par mamelouk

- pourquoi tu veut le faire récursivement

car une base de données est un objet dynamique

Citation:

Envoyé par mamelouk

- c'est quoi une catégorie dans ton exemple

Ca peut être tout et n'importe quoi. C'est au choix de l'utilisateur. Un peu comme les dossiers et sous-dossiers de windows.
21/01/2007, 00h56
exclusif

Citation:

Envoyé par Trap D

Tu ne feras pas un chargement résursif du treeview, mais éventuellement une insertion récursive de chaque nouveau noeud à partir de la racine du treeview.

Oui voilà c'est ça ! Le treeview subira des insertions des noeuds enfants de manière récursive et sera généré entièrement de cette façon. Mais je ne sais pas comment l'implémenter. Mon problème il est là :cry:
22/01/2007, 16h26
Trap D

Où en es-tu ?

C'est bon j'ai réussi grâce à l'aide de Caramelmou sur un autre forum.

Il m'a super bien aiguillé jusqu'à ce que je code la bonne solution.

Voili ;)

Merci pour l'intérêt que tu portes à mon problème en tout cas ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Public Sub GénérerNoeud(ByVal IdCat As Integer, ByVal myNode As TreeNode)
        Dim tvNode As TreeNode
        Dim intIdCategorie As Integer
        Dim strNomCategorie As String = ""
        Dim rs As New ADODB.Recordset
 
        rs.Open("SELECT * FROM T_Categorie WHERE ParentCategorie=" & IdCat, db, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
        While Not rs.EOF
            intIdCategorie = rs.Fields(0).Value
            strNomCategorie = rs.Fields(1).Value 'récup du nom de la catégorie
            tvNode = myNode.Nodes.Add(intIdCategorie, strNomCategorie) 'Ajout du nom de la catégorie
            GénérerNoeud(intIdCategorie, tvNode)
            rs.MoveNext()
        End While
        rs.Close()
    End Sub

23/01/2007, 13h42
Trap D

Parfait, alors un petit clic sur :resolu: