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

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 List1
Un Command1

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

'Nota: Agregar un command1 y un control Listbox '**************************************** Private Sub Obtener_Tablas(ConnectionString As String) On Error GoTo errSub Dim cnn As New ADODB.Connection 'Variables ADOX Dim oCatalog As New ADOX.Catalog Dim Tablas As ADOX.Tables Dim Tabla As ADOX.Table 'Abre la base de datos cnn.ConnectionString = ConnectionString cnn.Open ConnectionString ' Asigna la conexión activa al objeto catalog Set oCatalog.ActiveConnection = cnn 'Colección con las tablas Set Tablas = oCatalog.Tables 'Recorre las tablas y las agrega al Listbox For Each Tabla In Tablas List1.AddItem Tabla.Name Next 'Error errSub: 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