Tablas en combobox
Hola, estoy haciendo una aplicación en VB 6.0, necesito poner todas las tablas de una bbdd Access en un combo (para posteriormente importar los datos de esa tabla al SQL)...
¿Alguna idea?
Muchas gracias!
¿Alguna idea?
Muchas gracias!
1 Respuesta
Respuesta de telemaco
1
Utilizando Dao:
**************************
Dim mibd As Database
Dim mitd As TableDef
Dim a As Integer
' Abrimos la base de datos de Ms Access
Set mibd = OpenDatabase("c:\biblio.mdb")
For I = 0 To mibd.TableDefs.Count - 1
NomTabla = NomTabla & mibd.TableDefs(I).Name & vbCrLf
Next I
' Mostramos los nombres de las tablas
MsgBox NomTabla
*********************
Att:telemaco
**************************
Dim mibd As Database
Dim mitd As TableDef
Dim a As Integer
' Abrimos la base de datos de Ms Access
Set mibd = OpenDatabase("c:\biblio.mdb")
For I = 0 To mibd.TableDefs.Count - 1
NomTabla = NomTabla & mibd.TableDefs(I).Name & vbCrLf
Next I
' Mostramos los nombres de las tablas
MsgBox NomTabla
*********************
Att:telemaco
