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

180 - Visualizar Base de datos en un TreeView

Ejemplo que lista y carga las Tablas y registros de una base de datos Access en un control TreeView utilizando Ado

El ejemplo es como muestra la imagen:

Al hacer click en el CommandButton, se carga mediante una rutina la base de datos.

También hay 2 SubRutinas mas, una llamada Cargar_Tabla y otra Cargar_Registro. Al abrir la base de datos, se llama a la sub Cargar_Tabla, para agregar los nodos correspondientes al TreeView. Luego al hacer click en un Nodo de una Tabla, se cargan los registros en ese Nodo llamando a la sub Cargar_Registro, esto último ocurre en el evento NodeClick del TreeView. Por defecto se cargan todos los campos, pero se puede adaptar fácilmente para cargar por ejemplo solo un campo para cada tabla o las columnas que se deseen en caso de no querer visualizar todos ellos.

Controles para armar el ejemplo:

Un CommandButton ( Command1 ) para abrir la base de datos
Un control TreeView ( TreeView1 )
Un CommonDialog para seleccionar la base de datos ( CommonDialog1 )
Un ProgressBar ( ProgressBar1 )
Por último especificar en el menú referencias: Microsoft Activex Data Objects para poder utilizar ADO

Código fuente en un formulario

Option Explicit Private cn As ADODB.Connection 'Carga los registros al hacer Click en una tabla Private Sub Cargar_Registro(ByVal Nodo_Tabla As Node) On Local Error GoTo ErrSub Dim rst As ADODB.Recordset Dim i As Integer Dim RStr As String Dim Nodo As Node ' Si ya había cargado sale If Nodo_Tabla.Children > 0 Then Exit Sub ' Cantidad de registros Set rst = cn.Execute( _ "SELECT Count(*) as Total FROM " & Nodo_Tabla.Text, , adCmdText) ProgressBar1.Max = rst("Total") ProgressBar1.Value = 0 ' Llena el recordset con los registros Set rst = cn.Execute( _ "SELECT * FROM " & Nodo_Tabla.Text, , adCmdText) Me.MousePointer = vbHourglass ' Recorre el recordset para añadir en los registros al Nodo del TreeView Do Until rst.EOF RStr = "" 'Recorre los campos For i = 0 To rst.Fields.Count - 1 RStr = RStr & ", " & rst.Fields.Item(i) Next i RStr = Mid$(RStr, 2) Set Nodo = TreeView1.Nodes.Add(Nodo_Tabla, tvwChild, , RStr) ' Tag del nodo Nodo.Tag = "Registro" ' siguiente registro rst.MoveNext 'Progreso ProgressBar1.Value = ProgressBar1.Value + 1 Loop Me.MousePointer = vbDefault rst.Close 'Cierra el recordset Exit Sub 'Error ErrSub: MsgBox Err.Description, vbCritical End Sub ' Carga las tablas en el TreeView Private Sub Cargar_Tabla() On Local Error GoTo ErrSub Dim rst As ADODB.Recordset Dim Nodo_Tabla As Node Set rst = cn.OpenSchema(adSchemaTables, _ Array(Empty, Empty, Empty, "Table")) Do While Not rst.EOF Set Nodo_Tabla = TreeView1.Nodes.Add(, , , rst!TABLE_NAME) Nodo_Tabla.Tag = "Tabla" rst.MoveNext Loop rst.Close Exit Sub ErrSub: MsgBox Err.Description, vbCritical End Sub 'Botón para abrir la bd Private Sub Command1_Click() With CommonDialog1 .Filter = "Archivos MDB|*.mdb" .DialogTitle = " Seleccionar base de datos " .ShowOpen If .FileName = "" Then Exit Sub ' Le pasa el Path de la base de datos Call Abrir_Base_Dato(.FileName) Me.Caption = .FileName End With End Sub Private Sub Abrir_Base_Dato(path_bd As String) ' Nuevo objeto ADODB.Connection Set cn = New ADODB.Connection 'Cadena de conexión cn.ConnectionString = _ "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & path_bd & ";" & _ "Persist Security Info=False" 'Abre la base de datos cn.Open ' Elimina los elementos del TreeView TreeView1.Nodes.Clear ' Carga las Tablas en los nodos del TreeView Cargar_Tabla End Sub Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) Select Case Node.Tag ' Si se hizo click en una Tabla, carga los registros en el nodo Case "Tabla": Call Cargar_Registro(Node) ' Si se hizo click en un registro, muestra el dato Case "Registro": MsgBox "Registro: " & Node.Text, vbInformation End Select End Sub Private Sub Form_Load() Me.ScaleMode = vbTwips ProgressBar1.Height = 375 With Command1 .Height = 375 .Width = 2000 Command1.Caption = " ->> Abrir base " End With End Sub Private Sub Form_Resize() TreeView1.Move 0, 0, ScaleWidth, ScaleHeight - 375 ProgressBar1.Move 0, ScaleHeight - 375, ScaleWidth - Command1.Width Command1.Move ScaleWidth - Command1.Width, ScaleHeight - 375 End Sub Private Sub Form_Unload(Cancel As Integer) On Local Error Resume Next cn.Close End Sub

Importante. Este es el mismo proyecto , pero se corrigió un error , que generaba al leer campos que tenían como nombres acentos o espacios, encerrando el nombre del campo entre corchetes en la sentencia SQL de selección, por ejemplo:

' -- Cargar el recordset con los registros Set rst = cn.Execute("SELECT * FROM " & "[" & Nodo_Tabla.Text & "]", , adCmdText)

Descargar código fuente

Recursos visual basic 6.0 - Enlaces relacionados

Recursos Visual basic.NET - Relacionados

Obtener esquema de una tabla en sql server con getSchemaTable

Buscar en Recursos vb