Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: PepiX en 21 Diciembre 2006, 02:11 am

Título: Listar Tablas de Access
Publicado por: PepiX en 21 Diciembre 2006, 02:11 am

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?? :huh:

agredezco cualquier sugerencia

Título: Re: Listar Tablas de Access
Publicado por: CeLaYa en 21 Diciembre 2006, 14:17 pm

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

Código:

    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

Título: Re: Listar Tablas de Access
Publicado por: CeLaYa en 21 Diciembre 2006, 14:25 pm

jejeje, ya me salio lo del For Each, jejeje ;D

Código:


    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

Título: Re: Listar Tablas de Access
Publicado por: PepiX en 26 Diciembre 2006, 22:36 pm

siiiii. muchas gracias...

estuve probando de muchas formas
pero con conexion ADODB

voy a ver si puedo adaptar el codigo!!