Sección de códigos , trucos y ejemplos para visual basic

350 - Ado , Datagrid y Treeview - Visualizar tablas

Ejemplo que permite cargar mediante OpenSchema de Ado, las tablas en un control Treeview, y al hacer clic en un nodo visualizar los registros en un control Datagrid

vista del form con los registros cargados en el datagrid y las tablas listadas en el treeview

El ejemplo , tiene dos subrutinas, una llamada Cargar_Tablas y otra Mostrar_Tabla

La primera, carga cada tabla de la base de datos en el Treeview, pasándole el ConnectionString como parámetro

Call Cargar_Tablas(Cadena_Conexion)

La segunda, se ejecuta en el evento NodeClick del Treeview, y carga la tabla seleccionada , es decir visualiza los registros en el DataGrid. ( Le pasa como parámetro el nombre de la misma , y la cadena de conexión ) . En este caso el nombre lo obtenemos de la propiedad text del objeto Node

Call Mostrar_Tabla(Node.Text, Cadena_Conexion)

Descargar proyecto

Código fuente del formulario

Option Explicit ' Referencias : _ 1 - Microsoft Activex Data objects _ 2 - Un control Treeview _ 3 - Un ImageList con Tres imagenes ( Key : Normal, seleccionada, root )) _ 4 - Un DataGrid _ 5 - Un CommandButton _ 6 - Indicar la cadena de conexión a utilizar '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Cadena de conexión a usar ( usa la base de datos Nwind .mdb de visual basic ) Private Const CADENA_CONEXION As String = "Provider=Microsoft.Jet.OLEDB.4.0" & _ ";Data Source=C:\Archivos de prog" & _ "rama\Microsoft Visual Studio\VB9" & _ "8\NWIND.MDB;Persist Security Info=False" ' Subrutina que muestra la tabla en el DataGrid al hacer clic en un nodo del Treeview '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Mostrar_Tabla(Tabla As String, ConnectionString As String) Dim rst As New ADODB.Recordset Dim cn As New ADODB.Connection ' Establece el cursor y abre la base de datos cn.CursorLocation = adUseClient cn.Open ConnectionString ' Ejecuta el sql para llenar el recordset rst.Open "[" & Tabla & "]", cn, adOpenStatic ' enlaza el Datagrid con el Recordset Set DataGrid1.DataSource = rst ' elimina las referencias Set rst = Nothing Set cn = Nothing End Sub Private Sub Cargar_Tablas(ConnectionString As String) Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim Nodo As Node Dim ARRAY_TABLAS() As String Dim i As Integer Screen.MousePointer = vbHourglass ' elimina todos los nodos TreeView1.Nodes.Clear ' añade el nodo principal Set Nodo = TreeView1.Nodes.Add(, tvwFirst, _ "Root", "Tablas", _ ImageList1.ListImages("root").Key) ' opcional ( expande el nodo Root del treeview ) Nodo.Expanded = True If rst.State <> adStateOpen Then ' abre la conexión cn.Open ConnectionString ' Recupera las tablas de la base de datos mediante OpenSchema Set rst = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE")) ' Se posiciona en la primer tabla rst.MoveFirst End If ' REcorre las tablas para añadirlas en un array Do Until rst.EOF ReDim Preserve ARRAY_TABLAS(i) ' Añade la tabla al vector ARRAY_TABLAS(i) = rst!Table_Name ' siguiente rst.MoveNext i = i + 1 Loop ' recorre el array con las tablas For i = 0 To UBound(ARRAY_TABLAS) ' crea el nodo correspondiente para esta tabla Set Nodo = TreeView1.Nodes.Add("Root", _ tvwChild, , _ ARRAY_TABLAS(i), _ ImageList1.ListImages("normal").Key, _ ImageList1.ListImages("seleccionada").Key) Next Screen.MousePointer = vbDefault End Sub ' Botón que carga todas las tablas en el Treeview ''''''''''''''''''''''''''''''''''''''''' Private Sub Command1_Click() Call Cargar_Tablas(CADENA_CONEXION) End Sub Private Sub Form_Load() Command1.Caption = " Cargar tablas " End Sub Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) ' Verifica que el nodo en el que se hizo clic, no sea el nodo Root If Node <> "Tablas" Then ' Le pasa el nombre de la tabla como parámetro para cargar _ los registros en el DataGrid y la cadena de conexión Call Mostrar_Tabla(Node.Text, CADENA_CONEXION) End If End Sub

Recursos vb6 - Enlaces relacionados

Recursos vb.net - Enlaces relacionados

Obtener esquema de una tabla de sql server en vb.net y c#

Buscar en Recursos vb