Listar nombres de las tablas de una BD [Access 2003] - RESUELTO

[Korku]

O bien, una aplicación en VB6:

Código:

 
Option Explicit

'---------------------------------------
'   Agregar la referencia a Microsoft DAO
'---------------------------------------

Private Sub Listar_Tabla(path_BD As String)

'variable para la base de datos
Dim base As Database

On Error GoTo ErrSub

Dim Tabla As TableDef

     
    List1.Clear
     
   'Abre la base de datos
    
    Set base = OpenDatabase(path_BD)

    ' Añade en el control ListBox las tablas
    For Each Tabla In base.TableDefs
        List1.AddItem Tabla.Name
    Next Tabla
    
    'Cierra la base de datos
    base.Close
    
Exit Sub

'Error
ErrSub:

MsgBox " Número de error: " & Err.Number & _
        vbNullString & "DEscripción del error: " & Err.Description

End Sub


Private Sub Command1_Click()

With CommonDialog1
    
    .DialogTitle = " Abrir una base de datos"
    .Filter = "Archivos Access|*.mdb"
    
    .ShowOpen
    
    If .FileName = vbNullString Then
       Exit Sub
    Else
       'Le pasa la ruta de la base de datos
       Call Listar_Tabla(.FileName)
    End If
       
End With

End Sub

Private Sub Form_Load()
Me.Caption = " Listar tablas "
Command1.Caption = " Abrir "

End Sub