[VB6] treeview caricata da ADO

[danieletom]

allora ho provato a fare qualcosa ma l'idea del menu infinito mi manda in palla.
Programmo in php ma sembrerebbe in un certo verso che ci siano meno problemi a creare un treemenu con cat infinite in vb.
Il problema è che non riesco.
Allora ho chiaro che devo usare un'array e riempirlo di id che plittate ritrovano il livello del menu e la relativa cat.
Potresti darmi qualche accenno.....

[raffaeu]

Daniele non per essere, ma il codice sopra ti dice già tutto, ti posto due tipologie, una per caricarla normalmente, ed una per generarla in array, ma !! solo il primo nodo, poi ci devi ragionare su da solo!

Dichiari i nodi
Dim nInd As Long
Dim n As Node
Generi la query che carica i dati dal Database
    newRS.Open "SELECT * FROM GRUPPO WHERE Annullamento = False", newCN, adOpenForwardOnly, adLockReadOnly, adCmdText
    '**************PRIMO NODO**********************************
    Do While Not newRS.EOF
    'relative = vuoto se principale //
        Set n = trvAlbero.Nodes.Add()
        n.ForeColor = vbRed
        n.Image = 1
        n.ExpandedImage = 2
        n.Text = newRS!Gruppo & " - " & newRS!DESCRIZIONE
        n.Tag = newRS!Gruppo
        n.Key = "NN" & newRS!ID
       ' N.Tag
        nInd = n.Index
        nsub = n.Child

Dichiari i nodi
Dim nInd() As Long
Dim n() As Node
Set nInd() = 'indice
Lavori sugli array

For x = 0 to ubound(nind())

e vai avanti
Generi la query che carica i dati dal Database
    newRS.Open "SELECT * FROM GRUPPO WHERE Annullamento = False", newCN, adOpenForwardOnly, adLockReadOnly, adCmdText
    '**************PRIMO NODO**********************************
    Do While Not newRS.EOF
    'relative = vuoto se principale //
        Set n(0) = trvAlbero.Nodes.Add()
        n(0).ForeColor = vbRed
        n(0).Image = 1
        n(0).ExpandedImage = 2
        n(0).Text = newRS!Gruppo & " - " & newRS!DESCRIZIONE
        n(0).Tag = newRS!Gruppo
        n(0).Key = "NN" & newRS!ID
       ' N.Tag
        nInd(0) = n(0).Index
        nsub = n.Child

[danieletom]

ho iniziato a scappatempo a fare sto menu.
le prime righe di codice ho fatto così:
(modalità connessa di ado.net)

Dim str_select As String = "SELECT * FROM categorie WHERE p_id = '0'"
Dim command As New OdbcCommand(str_select, con)
Dim lettore As OdbcDataReader
tree.ImageList = img
Try
con.Open()
lettore = command.ExecuteReader 'esegue la lettura
Catch ec As System.Exception
MsgBox(ec.Message, MsgBoxStyle.Critical)
Me.Close()
End Try
Do While lettore.Read()
tree.Nodes.Add(lettore(1))
Loop

Ottengo semplicemente le categorie padre con il p -id = 0.

[darkblOOd]

ma fare una funziona ricorsiva e scrivere il codice solo una volta?

[raffaeu]

ma fare una funziona ricorsiva e scrivere il codice solo una volta?

:tongue:

Io non mi connetto cosi' ... ho una classe ...

[darkblOOd]

Originariamente inviato da raffaeu
:tongue:

Io non mi connetto cosi' ... ho una classe ...

e allora? Io mi riferivo soltanto al codice che scende nei sottonodi :master:

[danieletom]

per la funzione ricorsiva ok
era solo una prova..
infatti dovrò passare l'id diverso che mi genera la select relativa
esempio quando clicco sul secondo nodo che ha id 2 il p_id cambiera e trovo solo le sottocategorie del nodo con id 2.
Ma per metterlo sotto al nodo giusto...
Forse mi incasino con la proogrammazione sul web...

[darkblOOd]

programmazione sul web? E che ci stai a fare in VB6 & VB.NET?

[danieletom]

realizzare un software lato client...
é forse vietato????

[darkblOOd]

Originariamente inviato da danieletom
realizzare un software lato client...
é forse vietato????

nono

non capivo cosa c'entrasse un post sulla programmazione web in questo sub forum