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

139 - Obtener las tablas de una base de datos con ADOX

Este ejemplo muestra como utilizar ADOX para obtener los nombres de las tablas de una base de datos Access

En el código hay una rutina donde se le debe enviar el ConnectionString.

Luego se realiza un bucle utilizando los objetos de ADOX Table y Tables para recuperar los nombres y agregarlos a un ListBox

Controles

Colocar un control ListBox
Un botón

Nota: Especificar la cadena de conexión, por defecto en el ejemplo utiliza la Bd Access del ejemplo que se instala con vb6 ( Biblio.MDB )

Importante: para poder utilizar los objetos de ADOX hay que referenciar desde el menú Referencias Microsoft Ado Ext 2.8 DDL and Security .

vista de la ventana de referencias de visual basic para incluir ADOX al proyecto

Código fuente en un formulario

Option Explicit ' -- Nota: Agregar un command1 y un control Listbox ' ------------------------------------------------------------------------------- ' \\ Rutina ' ----------------------------------------------------------------------------- Private Sub Obtener_Tablas(ConnectionString As String) On Error GoTo error_handler ' -- Conexión Dim cnn As New ADODB.Connection ' -- Variables ADOX Dim oCatalog As New ADOX.Catalog Dim Tablas As ADOX.Tables Dim Tabla As ADOX.Table ' -- Abrir la base de datos cnn.ConnectionString = ConnectionString cnn.Open ConnectionString ' -- Asignar la conexión activa al objeto catalog Set oCatalog.ActiveConnection = cnn ' -- Colección con las tablas Set Tablas = oCatalog.Tables ' -- Recorre las tablas y agregar al control Listbox For Each Tabla In Tablas List1.AddItem Tabla.Name Next ' -- Error error_handler: On Error Resume Next ' --Cierra la conexión If cnn.State <> 0 Then cnn.Close End If ' -- DEscargar las referencias Set cnn = Nothing Set oCatalog = Nothing Set Tabla = Nothing Set Tablas = Nothing End Sub '\\ -- Le enviamos el ConnectionString a la rutina > Nombre_Tabla ' --------------------------------------------------------------------------- Private Sub Command1_Click() Call Nombre_Tabla("PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & _ "C:\Archivos de programa\Microsoft Visual Studio\VB98\BIBLIO.MDB;") End Sub Private Sub Form_Load() Command1.Caption = " Listar tablas " End Sub

Recursos vb 6.0 - Enlaces relacionados

Recursos visual basic.net - enlaces relacionados

Buscar en Recursos vb