Treeview

[cla80]

Con VB6 come posso fare per Popolare un controllo TreeView da un Database ???


Grazie

[xegallo]

leggendo i campi e aggiungendo i nodi

[cla80]

Un esempio se possibile!

[xegallo]

se imparassi a essere un po + specifico nelle domande eviterei risposte generiche

[cla80]

ho un database con una lista di nomi:

PIPPO
VAIO
SEMPRONIO
CICICO


ecco vorrei che si posizionassero su di una Treeview automaticamente, considerando che questi nomi possono di volta in volta aumentare (sempre sulla stessa tabella)
Ecco ora al cliccare sulla Treeview deve soltanto copiare il nome su di una textbox.

Spero di essere stato piu preciso.
Scusami se non lo sono stato
Grazie di tutto! siete grandi davvero!
Ciao

[ladyBlu]

devi creare una connessione e un recordset per leggere i dati dal database:

Dim adoConn As New ADODB.Connection
'imposti la connessione al database
adoConn.CoonectionString = ...

Dim rsNomi As New ADODB.Recordset
Dim strSQL As String
Dim tvNodo As Node

strSQL = "SELECT Nome FROM tbNomi ORDER BY Nome"

rsNomi.Open strSQL, adoConn, 1, 3
rsNomi.MoveFirst

Do Until rsNomi.EOF
  Set tvNodo = TreeView.Nodes.Add(Text:=rsNomi("Nome"))
  rsNomi.MoveNext
Loop

quando clicchi su un nodo fai questo:

Private Sub TreeView_NodeClick(ByVal Node As MSComctlLib.Node)
    TextBox.Text = Node.Text
End Sub

dovrebbe andare benone

[cla80]

e se volessi aggiungere l'icone con un ImageList,
al momento che eseguo :

treeview.node.add(eccc
cosa devo fare per farci comparire le iconcine..

Grazie

[ladyBlu]

Set tvNodo = TreeView.Nodes.Add(Text:=rsNomi("Nome"), _
                Image:=NomeImmagine)

dove NomeImmagine è la proprietà Key che assegno all'immagine della listImage che voglio visualizzare.
spero sia chiaro