Que tal amigos del foro. Pues mi problema es q nesecito cargar un arbol con mas o menos 2000 nodos, los nesecito cargar todos. Pero resulta q cuando los cargo se me tarda como 3 minutos en cargarlos. Uso una funcion recursiva.

Si existe otra manera de cargarlos mas rapidamente me gustaria q me lo dijeran gracias!

Hola, 2000 nodos son muchos jeje, esta bien que tarde un poco...pero no 3 minutos...de donde sacas la info para cargar los nodos , de una base? de un txt ? y el codigo que usas..

saludos.

BUeno eso de 3 minutos lo puse para q llamara la atención . En realidad son como unos 40 Seg. pero eso es mucho para un usuario q desea la información al instante.

La información la extraigo de una BD (SqlServer2005), este es el código
una función recursiva. Pues me resuelve pero mucho tarda!

Y eso q la estoy corriendo localmente. Ahora q tal q lo corra ya en una maquina cliente, va a tardar mas de 40 seg.

Espero q me ayudes!!!

Private Sub CrearNodosDelPadre(ByVal indicePadre As String, ByVal nodePadre As TreeNode)
Dim MyDataview As New DataView

Dim Sql As String = "SELECT TOP (100) PERCENT dbo.CatalogoCuentas.* FROM dbo.CatalogoCuentas INNER JOIN dbo.OrdenArbol ON dbo.CatalogoCuentas.Cuenta = dbo.OrdenArbol.nCuenta"
Sql += " WHERE CuentaPadre='" + indicePadre + "' AND dbo.OrdenArbol.TotalCuenta = 0 ORDER BY dbo.OrdenArbol.Indice"


SQLConn.DataBaseConnection.GetDataView(Sql, MyDataview)


tvwdetalle.BeginUpdate()
If MyDataview.Table.Rows.Count > 0 Then
For Each MyDataRow As DataRow In MyDataview.Table.Rows
Dim nuevoNodo As New TreeNode

nuevoNodo.Text = CType(MyDataRow("NombreCuenta"), String)
nuevoNodo.Name = CType(MyDataRow("Cuenta"), String)


' se añade el nuevo nodo al nodo padre.

nodePadre.Nodes.Add(nuevoNodo)

If dMovimiento = 7 Then nodePadre.Nodes(nuevoNodo.Name).ForeColor = Color.DarkSlateBlue
' Llamada recurrente al mismo método para agregar los Hijos del Nodo recién agregado.
'tvwdetalle.EndUpdate()
CrearNodosDelPadre(CType(MyDataRow("Cuenta"), String), nuevoNodo)

Next
End If

MyDataview.Dispose()
MyDataview = Nothing
tvwdetalle.EndUpdate()
End Sub

Es Visual Basic Net con sqlserver2005

Yo programé una clase (en VB 6) que hace exactamente eso mismo, cargar un TreeView, en ese caso para un menú, a partir de una tabla.
La única diferencia importante que veo con respecto a tu código es que yo no creaba un Recordset nuevo en cada llamada a la función: usaba uno sólo y lo filtraba (y clonaba) para cada nodo padre.
Puedes probar algo así, intuitivamente parece que debe ser bastante más rápido... aunque claro ¡yo nunca probé mi clase para 2000 nodos!... jajaja
Saludos.

Me podrias mandar postear ese código?

Es q yo a fuerza nesecito abrir siempre un Dataview para saber quien es la cuenta Hija de las cuentas PADRES

Y son 2000 nodos por q son 2000 cuentas y a fuerza tengo q mostrarlos!

He estado investigando y supuestamente el Treeview de visual basic 6.0 es mas rapido q el del Visual Basic .Net. Pero no se q tan cierto sea eso!

Es este...

Código:

'---------------------------------------------------------------------------------------
' Módulo : mcMenuTree.cls
' Fecha : 04/02/2009 11:00
' Autor : Fernando
' Finalidad : Crear un menu de árbol en base a una tabla de base de datos
'---------------------------------------------------------------------------------------
Option Explicit
'---------------------------------------------------------------------------------------
' <mrstMenu>: El recordset con los datos del menú
' Orden : /<Order>
' Campos :
' <Id> : Id. única del nodo de menú
'  : Id. del nodo padre del elemento de menú
' <Order> : Nº de orden de los elementos de cada submenú
' <Icon> : Nº de icono del nodo
' <IconSel> : Nº de icono del nodo cuando está seleccionado
' <IconExp> : Nº de icono del nodo cuando está expandido
' <Help> : Nº para ayuda (no implementado)
'---------------------------------------------------------------------------------------
Private mrstMenu As ADODB.Recordset
'---------------------------------------------------------------------------------------
' <mtvTreeView>: Control TreeView que despliega el menú
Private mtvTreeView As TreeView
'---------------------------------------------------------------------------------------
' Ejemplo :
' Private Sub Form_Load()
' ...
' Set MenuPrincipal = New mcMenuTree
' Dim bOk As Boolean
' bOk = MenuPrincipal.NewMenu(rstTablaMenu, tvMenuPrincipal)
' ...
' End Sub
'---------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------
' Func/Proc : NewMenu (Function) Boolean
' Fecha : 04/02/2009 11:00
' Autor : Fernando
' Finalidad : Inicializa el menú y guarda variables
'---------------------------------------------------------------------------------------
Public Function NewMenu(rstMenu As ADODB.Recordset, tvTreeView As TreeView, Optional intNodoRaiz As Integer = 0) As Boolean
 On Error GoTo NewMenu_Error
 Set mrstMenu = rstMenu
 Set mtvTreeView = tvTreeView
 
 If mrstMenu.State = adStateClosed Then mrstMenu.Open
 'Se añaden menús y submenús recursivamente
 mtvTreeView.Nodes.Clear
 NewMenu = NewItem(, intNodoRaiz)
 
Salir:
 On Error GoTo 0
 Exit Function
NewMenu_Error:
 NewMenu = False
 Resume Salir
 
End Function
'---------------------------------------------------------------------------------------
' Func/Proc : NewItem (Function) Boolean
' Fecha : 04/02/2009 11:32
' Autor : Fernando
' Finalidad : Añade recursivamente nodos al menú a partir de un nodo padre
'---------------------------------------------------------------------------------------
Private Function NewItem(Optional NodoPadre As Node, Optional intNodoRaiz As Integer = 0) As Boolean
 
 On Error GoTo NewItem_Error
 Dim bResult As Boolean
 Dim NodX As Node
 
 If NodoPadre Is Nothing Then
 'Si no tiene padre es que es el nodo raíz
 If intNodoRaiz > 0 Then
 'Si nos indican un nodo raíz específico lo buscamos. Esto permite cargar sólo determinados
 'submenús de mrstMenu y no el menú entero
 mrstMenu.Filter = "Id ='" & intNodoRaiz & "'"
 End If
 mrstMenu.MoveFirst
 Set NodX = mtvTreeView.Nodes.Add(, , "K" & mrstMenu("Id"), _
 mrstMenu("Text"), (mrstMenu("Icon")))
 NodX.Bold = True
 NodX.Expanded = True
 'Se crean sus submenús
 NewItem NodX
 Else
 Dim rstMenu As ADODB.Recordset
 Set rstMenu = mrstMenu.Clone
 'Se seleccionan los nodos cuyo padre es el argumento de la función
 rstMenu.Filter = "Parent ='" & Mid(NodoPadre.Key, 2) & "'"
 If Not (rstMenu.BOF) Then
 rstMenu.MoveFirst
 Do While Not (rstMenu.EOF)
 'Se crea el elemento de menú...
 Set NodX = mtvTreeView.Nodes.Add(NodoPadre.Key, tvwChild, "K" & rstMenu("Id"), _
 rstMenu("Text"), (rstMenu("Icon")), (rstMenu("IconSel")))
 NodX.ExpandedImage = (rstMenu("IconExp"))
 '... y se crean sus submenús si existen
 NewItem NodX
 rstMenu.MoveNext
 Loop
 End If
 End If
 bResult = True
 
Salir:
 On Error GoTo 0
 NewItem = bResult
 Exit Function
 
NewItem_Error:
 bResult = False
 Resume Salir
 
End Function

Ya te digo que está en VB 6 y si te vale algo tienes que adaptar la idea.
Hay alguna complicación adicional y otro métodoen la clase, pero es para permitir que cualquier nodo se pueda convertir en el raíz. A tí no creo que te afecte.
Espero que te sirva de algo, y claro, si ves alguna metedura de pata o algo mejorable agradecería que lo postearas.
Saludos.

Esta bueno tu código, ya q solo una vez abres tu recorset

Pero cuando entra aqui?
If intNodoRaiz > 0 Then
'Si nos indican un nodo raíz específico lo buscamos. Esto permite cargar sólo determinados
'submenús de mrstMenu y no el menú entero
mrstMenu.Filter = "Id ='" & intNodoRaiz & "'"
End If

Si siempres mandas un 0 como IntNodoRaiz??

Ahora mi pregunta es la siguiente!
Ya lo has probado con 2000 nodos a ver q tal??

El 0 es el valor por defecto de un parámetro opcional, o sea que le puedes dar cualquier otro valor.
Y no... ya te digo que no lo he probado con 2000 nodos... el menú en el que lo estoy usando tiene sólo 21 (hasta me da vergüenza... jaja), pero hasta ahora es literalmente instantáneo. Me sorprendería que pasara de unos pocos segundos incluso con 2000 nodos.
Pero vete tu a saber. Puedes probar a adaptar tu código a algo parecido y a ver como te va.
Muchos saludos y cuéntanos.

Pues ya lo adapte, y me sigue dando el mismo retardo. En otras palabras no afecta q este abriendo mi DataView por cada Nodo. Sino en la cantidad de nodos q tengo.

Nesecito una forma de como cargar ese treeview un poco mas rápido he tratado de una y mil maneras y nada.

Ahora tengo pensado tal vez cargarlo desde un procedimiento almacenado y despues solo jalar esos datos a mi treeview.

Si no funciona eso me pego un tirooooooo.....

Muchas gracias por tu ayuda HAL9000, ya resolvi el problema y ahora el arbol carga rapidisimo!!!!

Solo habro una vez mi DataView los ordenos por numero de cuentas y despues voy comparando q cuenta (Nodo) esta en determinado nivel del arbol y lo agrego. Y LISTOOOOOOOOOOOOOO

He vuelto a vivir!!!!

Iniciado por cfsoza

Muchas gracias por tu ayuda HAL9000, ya resolvi el problema y ahora el arbol carga rapidisimo!!!!

Solo habro una vez mi DataView los ordenos por numero de cuentas y despues voy comparando q cuenta (Nodo) esta en determinado nivel del arbol y lo agrego. Y LISTOOOOOOOOOOOOOO

He vuelto a vivir!!!!

HOLA cfsoza

Recien estoy entrandole a programar en vb .net, y he hecho un procedimiento recursivo para llenar un treeview (parecido al tuyo) sin embargo este tarda en mucho en cargar...un catalogo de cuentas. Por favor quisiera ver el codigo que usaste para optimizar el llenado del treeview, te lo agradeceria mucho.