Výpis tabulek v databázi

Postup:
Založte nový projekt a na formulář přidejte prvek ListBox. Do projektu přidejte referenci na Microsoft DAO 3.6 Object Library. Na událost Form_Load zapište:

Private Sub Form_Load()

   Dim MyDB As Database

   Set MyDB = OpenDatabase("D:\transit\pokus.mdb")

   For i = 0 To MyDB.TableDefs.Count - 1
      If MyDB.TableDefs(i).Attributes = 0 Then
         List1.AddItem MyDB.TableDefs(i).Name
      End If
   Next i

   MyDB.Close

End Sub

Pokud v cyklu odstraníte podmínku, aby atributy byly rovny nule, pak se Vám do seznamu zobrazí i systémové tabulky.

Zpět

Autor: The Bozena