Enumerar las tablas de una base de datos en vb6
Aquí te muestro como saber las tablas que existen en una base de datos. De esta forma puedes buscar si la
que necesitas está en la base especificada o bien puedes usarla para abrir “cualquier” tabla de una BD.
Las rutinas sirven igual para VB3 (ejemplo aparte) y VB4 o superior.
Para probar esta rutina, en un form, añade un ListBox (List1) y un botón que al pulsarlo llame a
EnumerarTablas, deberás cambiar la localización de la base de datos por la que sea en tu equipo…
‘Ejemplo para VB4 o superior
Private Sub EnumerarTablas()
Dim Db As Database
Dim Td As TableDef
List1.Clear
Set Db = OpenDatabase(”D:\VB\Biblio.MDB”)
For Each Td In Db.TableDefs
‘Sólo las tablas con atributo igual a CERO,
’son tablas normales
If Td.Attributes = 0 Then
List1.AddItem Td.Name
End If
Next
Db.Close
Set Db = Nothing
End Sub
