Remplir un Treeview d'après une base Access

Question

Salut,

Je suis à la recherche de code afin de remplir 1 treeview sous vb 6.0 selon des informations stockées dans 1 Table d'une base de donnée Access.

Merci à tous ceux qui pourront me filer un petit coup de main car je blocque.

                                       @+     Patrik

cs_pdl · Answer

Bonjour, 

Je te laisse un peu regarder le code, mais si tu as besoin je donnerai des explications demain !

Set mNode = tvTreeView.Nodes.Add()
        mNode.Text = sFile 'nom du fichier ouvert
        mNode.Tag = "file"
        mNode.Key = 0 & "a"
        IndexFile = mNode.Index
        mNode.Image = Me.ImageList1.ListImages.Item(5).Key ' Image.
        
        Set rsCatalog = ExecuteQuery("select * from catalog order by CatName") 'ExecuteQuery est une fonction que j'ai écrit
        
        If Not rsCatalog.EOF And Not rsCatalog.BOF Then
            rsCatalog.MoveFirst
        End If
        
        Do Until rsCatalog.EOF
            Set mNode = tvTreeView.Nodes.Add(IndexFile, tvwChild)
            mNode.Text = rsCatalog.Fields("catname")
            mNode.Tag = "catalog"
            mNode.Image = Me.ImageList1.ListImages.Item(1).Key
            
            mNode.Key = rsCatalog.Fields("catID") & "c"
            intIndex = mNode.Index            Set rsSection ExecuteQuery("select * from section where catid " & rsCatalog.Fields("catID"))
        
            If Not rsSection.EOF And Not rsSection.BOF Then
                rsSection.MoveFirst
            End If
            
            Do Until rsSection.EOF
                Set mNode = tvTreeView.Nodes.Add(intIndex, tvwChild)
                mNode.Text = rsSection!sectionName   ' Text.
                mNode.Key = rsSection.Fields("SectionId") & "s" ' Unique ID.
                mNode.Tag = "section"      ' Table name.
                intIndexS = mNode.Index
                mNode.Image = Me.ImageList1.ListImages.Item(1).Key ' Image.                Set rsMember ExecuteQuery("select * from member where sectionid " & rsSection.Fields("sectionid"))
                Do Until rsMember.EOF
                    Set mNode = tvTreeView.Nodes.Add(intIndexS, tvwChild)
                    mNode.Text = rsMember!memberName   ' Text.
                    mNode.Key = rsMember.Fields("memberId") & "k" ' Unique ID.
                    mNode.Tag = "member"      ' Table name.
                    mNode.Image = Me.ImageList1.ListImages.Item(3).Key
                    rsMember.MoveNext
                Loop
                rsMember.Close
                
                rsSection.MoveNext ' Next record in Titles.
            Loop
            ' Reset rsTitles to first Titles record.
            rsSection.Close
            rsCatalog.MoveNext
        Loop
        rsCatalog.Close
        tvTreeView.Nodes.Item(1).Selected = True

Remplir un Treeview d'après une base Access

1 réponse

Discussions similaires