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

414 - Obtener información de tablas con OpenSchema

Simple ejemplo que utiliza OpenSchema de Ado, para cargar todas las tablas de una base de datos, y visualizar la cantidad de campos y cantidad de registros de cada tabla

En el ejemplo se carga la información en un control Listview, visualizando en la primer columna el nombre de la tabla, en la segunda la cantidad de campos y en la tercer columna la cantidad de registros :

vista previa del form con los datos de la tabla, campos etc..

También al hacer clic en una tabla se visualizan los datos en un control MSHFlexGrid.

Pasos para el ejemplo:

Añadir la referencia a ADO
Agregar un control ListView llamado ListView1
Un control MSHFlexGrid llamado MSHFlexGrid1
Un control CommandButton llamado Command1
Un control CommonDialog llamado CommonDialog1

Código fuente en el form

Option Explicit Dim cn As ADODB.Connection Private Sub Command1_Click() ' Seleccionar la BD With CommonDialog1 .FileName = "" .Filter = "Archivos de base de datos Access(*.MDB)|*.mdb" .DialogTitle = "Abrir base de datos Microsoft Access" .ShowOpen If .FileName = "" Then Exit Sub End With ' conexión Call Conectar(CommonDialog1.FileName) ' Recuperar datos Call Cargar(ListView1) End Sub ' Sub que abre la conexión ''''''''''''''''''''''''''' Sub Conectar(Path As String) If Not cn Is Nothing Then ' si está abierta la cierra If cn.State = adStateOpen Then cn.Close Set cn = Nothing End If End If ' nuevo objeto Connection Set cn = New ADODB.Connection cn.CursorLocation = adUseClient cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ Path & ";Persist Security Info=False" ' abre cn.Open End Sub Public Sub Cargar(lv As ListView) Dim rs As ADODB.Recordset ' Crea el Recordset Set rs = New ADODB.Recordset ' Recupera las tablas con OpenSchema Set rs = cn.OpenSchema(adSchemaTables, _ Array(Empty, Empty, Empty, "TABLE")) 'Crea las columnas y agrega las tablas en el LV '''''''''''''''''''''''''''''''''''''''''''''''''' ' Prepara el ListView With lv .ListItems.Clear .ColumnHeaders.Clear ' Agrega los campos .ColumnHeaders.Add , , "Nombre de la tabla", 3000 .ColumnHeaders.Add , , "Total registros", 2000 .ColumnHeaders.Add , , "Total de campos", 2000 .View = lvwReport End With ' Recorre los Fields del rs para añadir los nombres de las tablas While Not rs.EOF lv.ListItems.Add , , rs!Table_Name rs.MoveNext ' Mueve al siguiente Wend ' cierra el recordset rs.Close ' Demás datos '''''''''''''''''''''''''''''''''''''''''''''''''''' Dim i As Integer ' recorre los items del LV ( las tablas ) For i = 1 To lv.ListItems.Count ' Llena el recordset con la tabla completa rs.Open "select * from [" & lv.ListItems.Item(i).Text & "]", _ cn, adOpenStatic, adLockOptimistic ' cantidad de registros lv.ListItems.Item(i).ListSubItems.Add , , rs.RecordCount ' cantidad de campos lv.ListItems.Item(i).ListSubItems.Add , , rs.Fields.Count ' Cierra el recordset rs.Close Next ' libera Set rs = Nothing End Sub ' carga el Hierarchical Flexgrid, según la Table seleccionada '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) Dim rsFlex As ADODB.Recordset ' Crea un nuevo Rs Set rsFlex = New ADODB.Recordset ' ejecuta la consulta para seleccionar todos los registros rsFlex.Open "SELECT * FROM [" & ListView1.SelectedItem.Text & "]", cn, _ adOpenStatic, adLockOptimistic ' carga la data en el MSHFlexGrid Set MSHFlexGrid1.DataSource = rsFlex rsFlex.Close Set rsFlex = Nothing End Sub Private Sub Form_Load() Command1.Caption = "Seleccionar BD" End Sub Private Sub Form_Unload(Cancel As Integer) On Local Error Resume Next cn.Close Set cn = Nothing End Sub

Recursos vb.net

Obtener esquema de una tabla de sql server en vb.net

Recursos vb 6.0

Ejemplos de bases de datos

Buscar en Recursos vb