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.
|