Programación General > Visual Basic 6.0 e inferiores

 Mostrar Todas Las Tablas Access .mdb

(1/1)

Jose Arriagada:
Estimados,

Alguien me puede dar una idea de como mostrar todas las tablas que se encuentran en una base de datos ACCESS usando ADO.


En el siguiente codigo, abro la base de datos y despues leo una tabla definida.

    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    With cnn
        .ConnectionString = _
            "Provider=Microsoft.Jet.OLEDB.3.51;" & _
            "Data Source=C:\BASEDATOS.MDB;"
        .Open
    End With    
    ' Indicarle de que tabla vamos a leer los datos
    rst.Open "SELECT * FROM empresa", cnn, adOpenDynamic, adLockOptimistic


La idea, es poder colocar en un combobox, todas las tablas que estan contenidas en la base de datos, y despues en el combobox, al hacer click, se visualizaran todos los campos y datos de la tabla seleccionada.


Gracias

F_Tanori:
Prueba esto a ver si te sirve



--- Código: Text ---Function CargarTablas()    Dim l_cnn As New Connection    Dim l_rs As New Recordset        l_cnn.Open "DSN=BASE" '<---Conexion     Set l_rs = l_cnn.OpenSchema(adSchemaTables)         With l_rs            Do While Not .EOF              If !TABLE_TYPE = "TABLE" Then                  Combo1.AddItem !TABLE_NAME              End If              .MoveNext            Loop        End With  End Function 
Saludos

Jose Arriagada:
Solo agregaria lo siguiente...

--> Se debe agregar una referencia a
Microsoft ActiveX Data Object 2.6 Library

--> Se debe crear una conexion ODBC con el nombre "BASE"

Y todo listo...



Muchisimas gracias... me sirvio...

Navegación

[0] Índice de Mensajes