• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• 'To see all tables available in a mdb file. 'Add a Listbox-List1 'Add a CommandButton 'Add Refrence

'To see all tables available in a mdb file. 'Add a Listbox-List1 'Add a CommandButton 'Add Refrence

'To see all tables available in a mdb file. 'Add a Listbox-List1 'Add a CommandButton 'Add Refrence Microsoft DAO 3.51 Object Library

API Declarations


Dim myTab As TableDef



Rate 'To see all tables available in a mdb file. 'Add a Listbox-List1 'Add a CommandButton 'Add Refrence

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Set myDb = DBEngine.Workspaces(0).OpenDatabase("C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb")
    List1.Clear
    For Each myTab In myDb.TableDefs
        If Mid(myTab.Name, 1, 4) <> "MSys" Then List1.AddItem myTab.Name
    Next
End Sub