ACCESS.Visual basic. Créer un objet treeView

Question

J'ai une base de données (3 tables). Je veux construire treeView.

Je ne sais pas comment créer un jeu d'enregistrements et comment récupérer un enregistrement.

Answer 1

J'ai créé un formulaire et j'ai ajouté le contrôle treeview activex et je charge après la fonction Filltree sur l'événement form_load.

chaque arbre (table) de données ont parentid. Si parentid = 0 alors c'est un noeud.

Sub FillTree() 
    Dim TNode As node 
    Dim oRs As DAO.Recordset 

    Set oRs = CurrentDb.OpenRecordset("SELECT Query FROM THREE TABLES", dbReadOnly, dbSeeChanges) 
    oRs.MoveFirst 
    While Not oRs.EOF 
     If oRs.Fields("ParentID") > 0 Then 
      Me.TreeView0.Nodes.Add "key" & oRs.Fields("ParentID"), tvwChild, "key" & oRs.Fields("id"), oRs.Fields("TREEDATA") 
     Else 
      Me.TreeView0.Nodes.Add , , "key" & oRs.Fields("id") & "", oRs.Fields("TREEDATA") 
     End If 
     oRs.MoveNext 
    Wend 


End Sub