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