Visual Basic - tablas???

Como puedo para meter en un combo box las tablas de una base de datos...
para que el usuario seleccione cual quiere trabajar..??

mi problema es que en el transcurso del programa se crean tablas con diferentes nombres y no se cuales pueden estar...

gracias de antemano...

Si estás utilizando ADO, puedes utilizar ADOX u OpenSchema para enumerar las tablas, si estás utilizando DAO las enumeras a través del objeto Database.

Con ADOX, sería:

Dim objCatalog As Catalog, objTable As Table

Set objCatalog = New Catalog
Set objCatalog.ActiveConnection = TuObjetoConnectionADO

For Each objTable In objCatalog.Tables
Debug.Print objTable.Name
Next

Con OpenSchema de ADO:

Set objRecordset = TuObjetoConnection.OpenSchema(adSchemaTables)

hola no entendi como implementar en mi programa si tengo esto:


Public Base_de_datos As DAO.Database
Public Conjunto_de_resultados As DAO.Recordset
Dim tabla As DAO.TableDef
Dim Campo As DAO.Field

como puedo implementar con el ADO???

gracias de antemano ... disculpa las molestias....

Estás utilizando DAO y no ADO para tu programa, por lo que tienes que utilizar la colección Tables del objeto Database. En http://www.freevbcode.com/ShowCode.Asp?ID=1384 tienes un ejemplo.

donde puedo conseguir el ADO lo trae el visual basic??

gracias...

Se agrega por Proyecto -> Referencias, Microsoft ActiveX Data Objects (ADO) pero si ya estás utilizando DAO, no veo para que lo quieras cambiar. Simplemente en el link que te mencioné tienes el ejemplo para enumerar las tablas con DAO que es lo que estás usando.