treeview y bases

[hernan_garelli]

hola amigos estoy tratando de encarar un proyecto con visual basic 6 y base de datos en access, estoy interesado en usar treeview:
quisiera lograr q en los nodos principales me aprezcan todos los registros de un campo "nombre " de una tabla1, y en las ramas la relacion de este campo, q provengan de una tabla2...

equipos (tabla1)
..pc(tabla2)
..impresora(tabla2)

insumo(tabla1)
..cartucho(tabla2)
..cd(tabla2)

se puede lograr?
gracias

[seba123neo]

Hola, si se puede simplemente cuando cargas el treeview con los datos..hay un parametro en la propiedad Add que le indicas cual es el nodo padre...

saludos.

[hernan_garelli]

Y de q forma se lo indico??? quisiera hacer una especie de bucle... q me los cargue automaticamente... si me podrias direccionar a un ejemplo, te agradeceria mucho.
muchas gracias por tu ayuda amigo

[seba123neo]

pues si con un bucle...recorres el recordset y cargas primero los padres y le añadis a cada uno un identificador asi cuando agreges los hijos sabrasa cual padre agregarselo...para eso obviamente debe haber un campo en tu tabla que le diga al hijo cual es el padre...te paso un ejemplo de un programa que tenia de como los cargaba...de esta forma podes cargarle la profundidad que quieras de hijos y padres...supongamos que tengo una tabla llamada padres y tengo un idpadre y un nombre...y otra llamada hijos donde tenemos los campos idpadre(que relaciona con la tabla padre, un padre puede tener varios hijos) , idhijo, nombre...esta es un afuncion que habia realizado para cargar los padres:

Código vb:

Private Function CargaNodoPadre(ByVal Tv As TreeView) As Boolean
    Dim nodo As Node
    mRsAux.Open "SELECT idpadre,nombre FROM padres", mConexion, adOpenForwardOnly, adLockReadOnly, adCmdText
    If mRsAux.EOF Then
        CargaNodoPadre = False
    Else
        Do Until mRsAux.EOF
            Set nodo = Tv.Nodes.Add("abuelo", tvwChild, "Padre " & mRsAux("idpadre"), mRsAux("nombre"), ImageTV.ListImages(2).Key)
            mRsAux.MoveNext
        Loop
        CargaNodoPadre = True
    End If
    Set nodo = Nothing
    mRsAux.Close
End Function
 

el primer parametro es el que le dice a que nodo "padre" se va a agregar el nodo, fijate que aca dice "abuelo", eso es asi porque yo antes de cargar el padre cargaba un unico nodo principal con el nombre "abuelo"....fijate en el explorador de windows arriba de todo dice "escritorio" ese seria el que yo llamo abuelo porque contiene todos los padres...hijos...nietos jeje...es el principal...se puede obviar pero yo lo hice asi...

fiajte que cada vez que se agrega un nodo se esta agregando un identificador donde dice "Padre " & mRsAux("idforopadre"), entonces queda algo asi dependiendo del id de cada padre internamente se vana llamar:

Padre 1
Padre 2
Padre 3

etc...

ahora para cargar los hijos a cada padre..es lo msimco casi pero indicando el idpadre que tenemos relacionado...

Código vb:

Private Function CargaHijos(ByVal Tv As TreeView) As Boolean
    Dim nodo As Node
    mRsAux.Open "SELECT idpadre,idhijo,nombre FROM hijos", mConexion, adOpenForwardOnly, adLockReadOnly, adCmdText
    If mRsAux.EOF Then
        CargaHijos= False
    Else
        Do Until mRsAux.EOF
            Set nodo = Tv.Nodes.Add("Padre " & mRsAux("idpadre"), tvwChild, "Hijo " & mRsAux("idhijo"), mRsAux("nombre"), ImageTV.ListImages(3).Key)
            mRsAux.MoveNext
        Loop
        CargaHijos= True
    End If
    Set nodo = Nothing
    mRsAux.Close
End Function
 

fijate en el primer parametro le estoy dicendo que carge el hijo en su padre correspondiente dependiendo del campo idpadre que tengo relacionada donde dice "Padre " & mRsAux("idpadre")

y hasta le podes agregar un hijo al hijo si queres y asi sucesivamente...

saludos.

[hernan_garelli]

te pasaste con la explicacion, voy a ver q puedo hacer... debo confesar q es un control muy dificil... y aun tengo algunas dudas...
gracias seba

[hernan_garelli]

Seba el ultimo favor! me podrias hacer una captura de como te quedo el arbol? me quisera sacar una duda...
Set nodo = Tv.Nodes.Add("abuelo", tvwChild, "Padre " & mRsAux("idpadre"), mRsAux("nombre"), ImageTV.ListImages(2).Key)

en esta sentencia "abuelo", y "padre" te quedarian como titulos de los nodos?¿

[seba123neo]

"abuelo" no es lo que dice, es el identificador del nodo, y asi despues le digo qeu ponga los padres en el "abuelo" , a los hijos les digo que los ponga en los padre 1, padre 2..etc...algo asi me queda...para no liarte empeza creando por lo menos un nodo y de ahi proba manualmente ingresarle nodos y asi lo vas a entender...despues si usa la base de datos...



el que yo llamo "abuelo" es el que dice "paginas" arriba de todo...los padres son lo que tienen el icono con los cuadraditos...los hijos son los que tienen el icono con las carpetas y las estrellas son los "nietos"..y asi podes seguir agregando...

saludos.

[hernan_garelli]

mi nueva pregunta es de donde llamas a esas funciones, las tenes en modulo, como haces? desde donde las inicias, y como!?
pq segui todos tus pasos pero no logro visualizar el arbol aun....
mil gracias nuevamente....

[Giufantasy]

Esta bueno el Tema, creo que es muy dificil tambien el control.

Mis dudas son las siguientes
Estoy programando en vb.net con sql 2000

#
Dim nodo As Node
#
mRsAux.Open "SELECT idpadre,idhijo,nombre FROM hijos", mConexion, adOpenForwardOnly, adLockReadOnly, adCmdText

que es mRsAux?

que es adOpenForwardOnly?

que es adLockReadOnly?

que es adCmdText?

Como lo puedo programar en vb.net

Saludos