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

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

130 - Ejemplo para Explorar base de datos Access con Dao

El siguiente ejemplo muestra como seleccionar una base de datos Access y poder listar en 2 controles List las tablas y los campos de dicha base de datos.

También permite listar los registros de la tabla en un control Microsoft FlexGrid.

Nota: Para acceder al contenido de la base de datos se utiliza Dao

Enlace relacionado : Visualizar Base de datos en un TreeView usando Ado

Vista del ejemplo en visual basic para ver el contenido de una base de datos access

Para el ejemplo colocar los siguientes controles en un formulario:

Un List1 para listar las Tablas
Un List2 para listar los campos de la tabla seleccionada en el List1
Un Command1 y un CommonDialog1 para seleccionar la base de datos
Un FlexGrid llamado MsFlexGrid1
Un command2 para cargar el FlexGrid
La referencia a Microsoft Dao desde el menú Referencias

Código en el formulario:

'Variables Private bd As Database, rs As Recordset Private Tabla As TableDef, Campo As Field Private pathBD As String, rsFileName As String Private iCampo As Integer '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Rutina que lista en el control List1 _ las tablas de la base de datos seleccionada Private Sub ver_Tabla() 'Abre la base de datos seleccionada Set bd = OpenDatabase(pathBD) List1.Clear 'Recorre las tablas y las agrea al control List For Each Tabla In bd.TableDefs If Not Tabla.Name Like "MSys*" Then List1.AddItem (Tabla.Name) End If Next End Sub 'Lista en el control List los campos al seleccionar una tabla Private Sub Ver_Campo() Dim j As Integer List2.Clear 'Bucle que recorre las tablas y las agrega usando el objeto TableDefs For Each Tabla In bd.TableDefs If Tabla.Name Like List1.Text Then For Each Campo In bd.TableDefs(j).Fields 'Nombre de la Tabla List2.AddItem Campo.Name Next End If j = j + 1 Next List2.ListIndex = 0 End Sub 'Abre el CommonDialog para seleccionar una base de datos Private Sub Command1_Click() With CommonDialog1 .CancelError = True ' flag para el Commondialog .Flags = cdlOFNHideReadOnly ' filtro .Filter = "Microsoft Access Database (*.mdb)|*.mdb|All Files (*.*)|*.*" ' Especifica el filter por default .FilterIndex = 1 ' Abre el Commondialog .ShowOpen pathBD = .FileName End With ver_Tabla 'Selecciona el primer elemento List1.Selected(0) = True List1.ListIndex = 0 End Sub 'Sub que carga los datos de la tabla en el control FlexGrid Private Sub Cargar_FlexGRid() Dim sDato, strType As String, i, j, jTipo As Integer 'Abre el recordset Set rs = bd.OpenRecordset(rsFileName, dbOpenDynaset) With MSFlexGrid1 .Rows = 1 .Cols = iCampo .Row = 0 End With If Not rs.RecordCount = 0 Then For j = 1 To iCampo MSFlexGrid1.Col = j - 1 MSFlexGrid1.Text = rs.Fields(j - 1).Name jTipo = rs.Fields(j - 1).Type strType = TipoCampo(jTipo) Next j 'Siguiente registro rs.MoveFirst Do While Not rs.EOF sDato = rs(0) & "" For i = 1 To iCampo - 1 sDato = sDato & Chr(9) & rs(i) & "" Next i 'Agrega el registro en la celda del FlexGrid MSFlexGrid1.AddItem sDato 'Siguiente registro rs.MoveNext Loop End If End Sub 'Devuelve el tipo de campo Private Function TipoCampo(intType As Integer) As String Select Case intType Case dbBoolean TipoCampo = "Boolean" Case dbByte TipoCampo = "Byte" Case dbInteger TipoCampo = "Integer" Case dbLong TipoCampo = "Long" Case dbCurrency TipoCampo = "Currency" Case dbSingle TipoCampo = "Single" Case dbDouble TipoCampo = "Double" Case dbDate TipoCampo = "Date" Case dbText TipoCampo = "Text" Case dbLongBinary TipoCampo = "LongBinary" Case dbMemo TipoCampo = "Memo" Case dbGUID TipoCampo = "GUID" End Select End Function Private Sub Command2_Click() Dim i As Integer iCampo = 0 For Each Tabla In bd.TableDefs If Tabla.Name Like List1.Text Then For Each Campo In bd.TableDefs(i).Fields iCampo = iCampo + 1 Next End If i = i + 1 Next rsFileName = List1.Text Cargar_FlexGRid End Sub Private Sub Form_Load() Command1.Caption = " Seleccionar Base de datos " Command2.Caption = " Cargar FlexGrid " End Sub Private Sub List1_Click() Ver_Campo End Sub

Recursos vb 6.0 - Enlaces relacionados

Control Ocx para explorar la extructura de una base de datos

Buscar en Recursos vb