El RecordSet ado ese viejo amigo
Si el RecordSet, es ese viejo amigo que hoy dia aún seguimos conservando, en aplicaciones como Excel, Access, o si sigues trabajando en Visual Basic 6 todavía utilizaras.
ejemplo
Como Utilizar Linq en vb.net
Como Utilizar Linq en vb.net
Resulta de mucha utilidad poder realizar estas consultas de datos dentro de la propia aplicación a traves de Linq, para no sobrecargarla y que esta , no consuma demasiada ram. Si solo es por curiosidad o tienes intención de utilizarla aquí te dejo el video y el código del video por si quieres probarlo o quieres usarlo como patrón. La verdad, una vez que empiezas a utilizarlo es muy fácil.
EJEMPLO DE USO DEL TREEVIEW
EJEMPLO DE USO DEL TREEVIEW
Hola a tod@s.
Os traigo un brevisimo ejemplo de como añadir datos a un treeview.
en este caso la estructura solo llevara 2 niveles, pero siguiendo el mismo proceso de iteración puedes agregar los niveles que quieras.
Os dejo el ejemplo comentado, con el datatable creado a mano.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
Dim dt As New DataTable dt.Columns.Add("Id", GetType(Int32)) : dt.Columns.Add("Nombre", GetType(String)) : dt.Columns.Add("Apellidos", GetType(String)) : dt.Columns.Add("PAIS", GetType(String)) Dim dr As DataRow dr = dt.NewRow dr("id") = 1 dr("Nombre") = "Juan" dr("Apellidos") = "Pardo" dr("Pais") = "España" dt.Rows.Add(dr) dr = dt.NewRow dr("id") = 2 dr("Nombre") = "Lucas" dr("Apellidos") = "Martinez" dr("Pais") = "España" dt.Rows.Add(dr) dr = dt.NewRow dr("id") = 3 dr("Nombre") = "Pablo" dr("Apellidos") = "Beltran" dr("Pais") = "Colombia" dt.Rows.Add(dr) dr = dt.NewRow dr("id") = 4 dr("Nombre") = "Maria" dr("Apellidos") = "Juliana" dr("Pais") = "Argentina" dt.Rows.Add(dr) dt.TableName = "Clientes" Dim dv As New DataView(dt) dv.Sort = "Pais" Dim DTOrdenado As DataTable = dv.ToTable |
‘EJEMPLO TREEVIEW
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Dim Pais = "" 'Para saber cuando cambia de pais Dim NodoActual = -1 '-1 para cuando cambie de pais añadir 1 , y empezar en el 0 For Each dro As DataRow In DTOrdenado.Rows If Pais <> dro("Pais") Then NodoActual = NodoActual + 1 Pais = dro("Pais") Me.TreeView1.Nodes.Add(dro("Pais")) 'Añado un nodo y a el mismo nodo le asigno los datos Me.TreeView1.Nodes(NodoActual).Nodes.Add(dro("nombre") & "," & dro("Apellidos")) Else 'Como es el mismo pais añado solo el nuevo nombre Me.TreeView1.Nodes(NodoActual).Nodes.Add(dro("nombre") & "," & dro("Apellidos")) End If Next |
La cosa quedará asi,
y como siempre comenta y compartelo ***El mail te lo puedes inventar***
Salu2