Como ver las tablas de una base de datos de Access con Visual Basic 6.0

Para poder ver las tablas de una base de datos access debes primero agregar estas referencias a tu proyecto .exe



Después de agregar estas referencias en un formulario pega los siguientes controles.

1. un Datagrid.
2. un objeto adodc.
3. un command button.

Ahora para que este ejemplo funcione cree una base de datos llamada control.mdb en la unidad C, con la estructura siguiente:


Crear la conexión al objeto adodc1

Genera la cadena de conexión.


Escoge el proveedor a usar:


Luego la ruta de la base de datos access:



Ahora en la ficha "Origen de los registros" de las propiedades del objeto Adodc1.
pon este query.

SELECT Participantes.idParticipante, Participantes.Participante, Marcadores.fecha, Marcadores.Marcadores
FROM Participantes INNER JOIN Marcadores ON Participantes.idParticipante = Marcadores.IdParticipante

Te quedara asi:


Ahora en la propiedad Datasource del DataGrid selecciona el objeto AdodC1.

y por ultimo en el código del command button pon este código.


Private Sub Command1_Click()
Dim cat As New ADOX.Catalog
Dim tbl As ADOX.Table
Dim col As ADOX.Column

Set cat.ActiveConnection = Adodc1.Recordset.ActiveConnection

For Each tbl In cat.Tables
Debug.Print tbl.Name, tbl.Type
MsgBox tbl.Name
Next

Set col = Nothing
Set tbl = Nothing
Set cat = Nothing
End Sub

Con este ejemplo puedes hacer una función que te indique si cada una de las tablas esta en el recordsource de tu recodrset, y así obtener las tablas de tu recordset.