Gestion de cd avec ms access, (ajout, modif et supprime avec un treeview)

Télécharger le projet
Commenter

Description

Ce petit logiciel est quand même simple, même si j'ai buché pour comprendre le treeview avec un BD Access.

Ce petit logiciel me sert à faire ma Gestion de CD qui sont fait et disponible et ceux qui me reste à faire. Comme il n'y a pas tellement d'exemple avec un Treeview j'ai supossé que cela vous intéresserait.

Il reste un point que j'ai pas terminé, c'est le déplacement de Titre et d'InfoTitre dans le Non Disponible vers le Disponible.

Source / Exemple : 


#Region " Remplir le TreeView "
    Public Sub LoadTreeview()
        Dim objDataSet As New DataSet

        SQLString = "SELECT * FROM T_CD_Groupe ORDER BY Groupe ASC"
        Dim objDataAdapterGroupe As New OleDb.OleDbDataAdapter(SQLString, objConnection)

        SQLString = "SELECT * FROM T_CD_Categorie ORDER BY Categorie ASC"
        Dim objDataAdapterCategorie As New OleDb.OleDbDataAdapter(SQLString, objConnection)

        SQLString = "Select * from T_CD_Titre ORDER BY TitreCD ASC"
        Dim objDataAdapterTitre As New OleDb.OleDbDataAdapter(SQLString, objConnection)

        SQLString = "Select * from T_CD_InfoTitre"
        Dim objDataAdapterInfo As New OleDb.OleDbDataAdapter(SQLString, objConnection)

        objConnection.Open()

        objDataAdapterGroupe.Fill(objDataSet, "dtGroupe")
        objDataAdapterCategorie.Fill(objDataSet, "dtCategorie")
        objDataAdapterTitre.Fill(objDataSet, "dtTitre")
        objDataAdapterInfo.Fill(objDataSet, "dtInfoTitre")

        objConnection.Close()

        'Créé une relation entre les Tables.
        objDataSet.Relations.Add("GrToCat", objDataSet.Tables("dtGroupe").Columns("GroupeID"), _
                                                objDataSet.Tables("dtCategorie").Columns("GroupeID"))
        objDataSet.Relations.Add("CatToTitre", objDataSet.Tables("dtCategorie").Columns("CategorieID"), _
                                                objDataSet.Tables("dtTitre").Columns("CategorieID"))
        objDataSet.Relations.Add("TitreToInfo", objDataSet.Tables("dtTitre").Columns("TitreCDID"), _
                                                objDataSet.Tables("dtInfoTitre").Columns("TitreCDID"))
        '''''''''''''''''''''''
        TreeView1.Nodes.Clear()
        Dim drGroupe As DataRow
        Dim ParentTable As DataTable
        ParentTable = objDataSet.Tables("dtGroupe")

        For Each drGroupe In ParentTable.Rows
            Dim ParentNode As TreeNode
            ParentNode = New TreeNode(drGroupe.Item(1))
            TreeView1.Nodes.Add(ParentNode)
            ParentNode.Tag = drGroupe("GroupeID")

            ''''populate child'''''
            '''''''''''''''''''''''
            Dim drCategorie As DataRow
            Dim childnode As TreeNode
            childnode = New TreeNode
            For Each drCategorie In drGroupe.GetChildRows("GrToCat")
                childnode = ParentNode.Nodes.Add(drCategorie(2))
                childnode.Tag = drCategorie("CategorieID")

                ''''populate child2''''
                ''''''''''''''''''''''''''
                Dim drTitre As DataRow
                Dim ChildNode2 As TreeNode
                ChildNode2 = New TreeNode
                For Each drTitre In drCategorie.GetChildRows("CatToTitre")
                    ChildNode2 = childnode.Nodes.Add(drTitre(2))
                    ChildNode2.Tag = drTitre("TitreCDID")

                    ''''populate child3''''
                    ''''''''''''''''''''''''''
                    Dim drInfoTitre As DataRow
                    Dim ChildNode3 As TreeNode
                    ChildNode3 = New TreeNode
                    For Each drInfoTitre In drTitre.GetChildRows("TitreToInfo")
                        ChildNode3 = ChildNode2.Nodes.Add(drInfoTitre(2))
                        ChildNode3.Tag = drInfoTitre("InfoID")
                    Next drInfoTitre
                    '''''''''''''''''''''''''
                Next drTitre
                ''''''''''''''''''''''''
            Next drCategorie
            '''''''''''''''
        Next drGroupe
        TreeView1.Nodes(0).Expand()
        TreeView1.Nodes(0).Nodes(1).Expand()
    End Sub
#End Region
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Creat)