Listar Tablas de Access

[PepiX]

tengo una base de datos en Access2000 y deseo hacer un listado de las tablas que contenga. sin conocer la cantidad ni el nombre de las tablas.

hay alguna manera de lograr esto??

agredezco cualquier sugerencia

[CeLaYa]

habia una manera de hacerlo con un for Each pero no me acuerdo como, pero esta podría ser otra solución:

Código [Seleccionar] Expandir


    Dim bd As Database
    Dim i As Integer
 
    Set bd = Workspaces(0).OpenDatabase("C:\..\bd01.mdb")
    On Local Error Resume Next
    While Err.Number = 0
        MsgBox bd.TableDefs(i).Name
        i = i + 1
    Wend
    On Local Error GoTo 0
    bd.Close


[CeLaYa]

jejeje, ya me salio lo del For Each, jejeje

Código [Seleccionar] Expandir



    Dim bd As Database
    Dim Tabla As TableDef
   
    Set bd = OpenDatabase("C:\...\bd.mdb")
    For Each Tabla In bd.TableDefs
        If Tabla.Attributes = 0 Then MsgBox Tabla.name
    Next
    bd.Close
    Set bd = Nothing


espero y sea lo que estas buscando... saludos y Feliz navidad

[PepiX]

siiiii. muchas gracias...

estuve probando de muchas formas
pero con conexion ADODB

voy a ver si puedo adaptar el codigo!!