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

394 - Adox y treeview

<Volver> - Anterior - Siguiente

Ejemplo que recupera mediante Adox, las tablas y campos de una base de datos y luego las visualiza en un control TreeView

Formulario

Al proyecto incluir las referencias a :

Adox ( Microsoft ADO Ext. for DDL and Security )
Ado ( Microsoft ActiveX Data Objects 2.x Library )
Microsoft OLEDB Service Component 1.0 Type Library

Controles

Agregar un control Treeview
Un CommandButton

Código fuente en el formulario

Option Explicit Private Sub Command1_Click() Dim cn As New ADODB.Connection Dim cat As New ADOX.Catalog Dim Tabla As New ADOX.Table Dim Campo As New ADOX.Column Dim Connection_String As String Dim dl As New DataLinks dl.hWnd = Me.hWnd On Error Resume Next ' cuadro de diálogo para seleccionar origen de datos Connection_String = dl.PromptNew On Error GoTo 0 If Connection_String <> "" Then ' cadena de conexión cn.ConnectionString = Connection_String ' si laconexión está cerrada la abre If cn.State = adStateClosed Then cn.Open End If ' establece la conexión activa al objeto Catalog Set cat.ActiveConnection = cn ' recorre las tablas For Each Tabla In cat.Tables ' Agrega el nodo ( La tabla ) TreeView1.Nodes.Add , , Tabla.Name, Tabla.Name TreeView1.Nodes(Tabla.Name).Expanded = True ' expande este nodo ' recorre las columnas o campos For Each Campo In Tabla.Columns ' añade el campo a este nodo ( de esta tabla ) TreeView1.Nodes.Add Tabla.Name, tvwChild, , Campo.Name Next Next End If 'destruye las referencias On Local Error Resume Next Set cn = Nothing Set cat = Nothing Set Campo = Nothing Set Tabla = Nothing Set dl = Nothing On Error GoTo 0 End Sub Private Sub Form_Load() Command1.Caption = "Seleccionar origen de datos " End Sub

Nota: en el siguiente enlace hay un ejemplo similar, pero solo utiliza Ado: Ado DataGrid y Treeview

Recursos visual basic.net

Obtener esquema de una tabla de sql server

Recursos vb 6.0

Ejemplos sobre Treeview

Buscar en Recursos vb