elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Listar Tablas de Access		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Listar Tablas de Access  (Leído 2,252 veces)
PepiX

Desconectado Desconectado

Mensajes: 15



Ver Perfil
Listar Tablas de Access
« 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
En línea
--- los locos abren los caminos que más tarde recorrerán los sabios ---
CeLaYa


Desconectado Desconectado

Mensajes: 543



Ver Perfil
Re: Listar Tablas de Access
« Respuesta #1 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
En línea
"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.
CeLaYa


Desconectado Desconectado

Mensajes: 543



Ver Perfil
Re: Listar Tablas de Access
« Respuesta #2 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
En línea
"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.
PepiX

Desconectado Desconectado

Mensajes: 15



Ver Perfil
Re: Listar Tablas de Access
« Respuesta #3 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!!
En línea
--- los locos abren los caminos que más tarde recorrerán los sabios ---
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Tablas relacionadas con Access 2007 - VB2008
Programación Visual Basic 		bluebox@argentina.com 1 2,585 Último mensaje 6 Septiembre 2014, 05:34 am
por XresH
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines