xvisual
12 de Abril del 2004

hola
necesito ver las tablas que posee una bd
ya que tengo los campos y los datos
por favor ayudenme


gracias

tencho
12 de Abril del 2004

Si he comprendido bien tu pregunta, tu quieres conseguir los nombres de las tablas ? si es eso:

Private Sub Form_Load()
Dim DB As DAO.Database
Dim AUX As DAO.TableDef
Dim NombreTablas As String
Dim i As Integer
Set DB = OpenDatabase(App.Path & "BaseDatos.mdb")
NombreTablas = ""
i = 0
For Each AUX In DB.TableDefs
NombreTablas = NombreTablas & AUX.Name & vbCrLf
i = i + 1
Next AUX
NombreTablas = NombreTablas & vbCrLf & "Hay un Total de: " & Format(i) & " Tablas"
Debug.Print NombreTablas
End Sub