Ola galera to começando com vb e gostaria de saber se alguem pode me ajudar com um controle treeview

O Problema é que preciso Adicionar um nó que preencha com dados do banco

fiz assim, mais falta a parte do nó com os alunos das salas de aula!!

 

CONEXAO = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "escola.mdb"
       cn.Open (CONEXAO)
                rsAlunos.Open "Select * from Alunos", cn, adOpenStatic, adLockOptimistic
                rsFiliais.Open "SELECT * from Filiais", cn, adOpenStatic, adLockOptimistic
        'Cabeçalho do treeview

 Set mNode = TreeView1.Nodes.Add(, , "Root", "Filiais", "Arquivo")
         mNode.Expanded = True
Do While Not rsFiliais.EOF
         'Listando as filiais

TreeView1.Nodes.Add "Root", tvwChild, rsFiliais("Nome"), rsFiliais("Nome"), "Aberto"
         NomeFilial = rsFiliais("nome")
         CodigoFilial = rsFiliais("codigo")
    Do While Not rsAlunos.EOF
            If rsAlunos("filial") = CodigoFilial Then
                If rsAlunos("classe") <> classe Then
                  'Listando as salas de aula

 Set mNode = TreeView1.Nodes.Add(NomeFilial, tvwChild, , "classe:  " & rsAlunos("classe"), "Arquivo")
         'Aqui Preciso inserir nó com os alunos das salas (por sala)   

 

End If
               End If
        rsAlunos.MoveNext
    Loop
        rsFiliais.MoveNext
        rsAlunos.MoveMin
Loop

 

 

Valeu mesmo!!

dev , fiz um exemplo aqui é só vc adaptar no seu ok

 

Private Sub teste()

    Dim mNode As Node
    Dim i As Integer
    Dim j As Integer
   
    'Cabeçalho do treeview
    Set mNode = TreeView1.Nodes.Add(, , "Root", "Filiais")
    mNode.Expanded = True
   
    For i = 1 To 5
        'Listando as salas
        TreeView1.Nodes.Add "Root", tvwChild, "'" & i & "'", "Sala: " & i
       
        For j = 6 To 10
            'listando alunos
            If i = 3 Then
                Set mNode = TreeView1.Nodes.Add("'" & i & "'", tvwChild, , "Aluno: " & j)
            End If
           
        Next j
       
    Next i
End Sub

Valeu mesmo cara mais era quase isso!

imagine que tenho 2 tabelas no banco 1º tabela alunos(id,nome,sala,filial) 2º Tabela Filiais(id,nome)

Aí fica assim (Nome:Leonardo,Filial:1,sala3A,Endereço etc) 

A medida que vou adicionando Filiais e Alunos e ate mesmo Salas,Cada filial tem suas salas e cada salas tem seus alunos e cada aluno tem seus dados entao aparecem os nós ,no treeview e na minha cuca!!!

ué, mas foi isso que fiz!!!!!!!!

Obrigado Alexandre resolvido

 

conectar
    TreeView1.Nodes.Clear
    Set mnode = TreeView1.Nodes.Add(, , , Combo1.Text, 3)
    strclasse = "SELECT Classes.id, Classes.classe, Classes.id_filial, Filiais.id, Filiais.filial FROM Filiais INNER JOIN Classes ON Filiais.id = Classes.id_filial WHERE  Filiais.id =" & Combo1.ListIndex + 1
    Set RSclasses = cn.Execute(strclasse)
    mnode.Expanded = True
    Do Until RSclasses.EOF
        Set mnode = TreeView1.Nodes.Add(1, tvwChild)
        mnode.Text = "Sala:" & " " & RSclasses("classe")
        mnode.Tag = "Classe"
        mnode.Image = 2
        intindex = mnode.Index
        pegaclase = RSclasses("classes.id")
            strSQL = "SELECT Alunos.id, Alunos.nome,Alunos.endereco,Alunos.telefone, Classes.id, Classes.classe, Filiais.id, Filiais.filial FROM Filiais INNER JOIN (Classes INNER JOIN Alunos ON Classes.id = Alunos.classe) ON Filiais.id = Alunos.filial WHERE Filiais.id=" & Combo1.ListIndex + 1 & " And alunos.classe = " & pegaclase
            Set RSalunos = cn.Execute(strSQL)
            Do Until RSalunos.EOF
                texto_registro = ""
                        For i = 0 To RSalunos.Fields.Count - 1
                            texto_registro = texto_registro & ", " & RSalunos.Fields.Item(i)
                        Next i
                texto_registro = Mid$(texto_registro, 1)
                Set mnode = TreeView1.Nodes.Add(intindex, tvwChild)
                mnode.Text = texto_registro
                mnode.Tag = "Alunos"
                mnode.Image = 3
            RSalunos.MoveNext
            Loop
   RSclasses.MoveNext
   Loop