List All The Tables In Database (DAO)


Add 1 List Box to your form.

Add reference to DAO:
from the menu choose Project-> References, mark the Microsoft DAO 3.6 Object Library check box, and press OK.
If you have the Microsoft DAO 3.6 Object Library reference, you can skip the text below and start copying and pasting the code to your form.

If you have only Microsoft DAO Object Library 3.51 reference or earlier, and the database you want to export made in Access 97 or earlier, You can use it instead of the 3.6 version.

Otherwise (if you using database that made in Access 2000 and you don't have Microsoft DAO 3.6 Object Library reference), click on browse, and select the file C:\Program Files\Common Files\Microsoft Shared\Dao\dao360.dll (If you have Access 2000 installed in your computer you have this file.)
This will add Microsoft DAO 3.6 Object Library reference to your project. Now mark it and press OK.

Form Code

Option Explicit
Private Sub Form_Load()
    Dim db As Database
    Dim qdef As QueryDef
    Dim td As TableDef
    Dim dbname As String

    ' Open the database. replace "c:\DBfile.mdb" with your
    ' database file name
Set db = OpenDatabase("c:\DBfile.mdb")
    ' List the table names.
For Each td In db.TableDefs
    ' if you want to display also the system tables, replace the line
    ' below with:  List1.AddItem td.Name

       If td.Attributes = 0 Then List1.AddItem td.Name
    Next td
End Sub

Go Back