Ako získať prístup VBA dotaz do zoznamu tabuliek v databáze

Microsoft Access je databázový systém pre jednotlivca vytvárať svoje vlastné databázy , správy a užívateľských formulárov . Access obsahuje všetky základné stavebné kamene pre vývoj malých aplikácií . Môžete vytvárať tabuľky pre dáta , uložené procedúry , užívateľom definované funkcie a makrá okrem správ a formulárov . Všetky tieto zložky majú svoje vlastné ukazovatele alebo definície rekordný uložené v skrytej systémové tabuľky . Prístup udržuje každej tabuľky , zostavy , formuláre , atď , ktoré vytvoríte a ukladá informácie , ako keď to bolo vytvorený alebo aktualizovaný a systémové príznaky . Pokyny
Získanie Zoznam tabuliek
1

Vytvorte dotaz na spustenie príkazu SQL nižšie . Tento dotaz vyhľadá zoznam všetkých tabuliek v aktuálnej databáze programu Access . Kde klauzula používa číslo 1 vyplýva , že chceme len tabuľky sa vrátil .

SELECT MSysObjects.Name , MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags

Z MSysObjects

KDE MSysObjects.Type = 1
2

Späť na zoznam iba non - systémových tabuliek v databáze sa napríklad stanovil :

SELECT MSysObjects . meno , MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags

Z MSysObjects

KDE MSysObjects.Type = 1 AND MSysObjects.Name nepáči " MSYS * "

3

Späť na zoznam iba non - skrytých tabuliek v databáze spustením nižšie dotazu :

SELECT MSysObjects.Name , MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects . typ , MSysObjects.Flags

Z MSysObjects

KDE MSysObjects.Type = 1 AND MSysObjects.Flags < > 8
4

triediť zoznam non - skryté , non - systémové tabuľky pomocou SQL kódu nižšie :

SELECT MSysObjects.Name , MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags

Z MSysObjects

WHERE MSysObjects.Type = 1 AND MSysObjects.Flags < > 8 A MSysObjects.Name nepáči " MSYS * "

Zoradiť podľa MSysObjects.Name
Použite zoznam tabuliek vo VBA
5

Vložte váš zoznam tabuliek na rekord objekt pomocou VBA kód zobrazený na obrázku nižšie :

Dim rsMyTables Ako DAO.Recordset

Set rsMyTables = CurrentDb.OpenRecordset ( " MyQuery " )
6

Loop through každého záznamu sa vrátil v dotaze .

Dim rsMyTables Ako DAO.Recordset

Set rsMyTables = CurrentDb.OpenRecordset ( " MyQuery " )

robiť , keď nie je rsMyTables.EOF

" kód pre manipuláciu s dátami

rsMyTables.MoveNext

slučka

7

Pridať každý názov tabuľky do rozbaľovacieho zoznamu tým , že mení svoje while :

Dim rsMyTables Ako DAO.Recordset

Set rsMyTables = CurrentDb.OpenRecordset ( " MyQuery " )

Me.cmbMyComboBox.Clear

robiť , keď nie je rsMyTables.EOF

Me.cmbMyComboBox.AddItem rsMyTables ! [ Name ]

rsMyTables.MoveNext

Loop
8

Zatvorte rekord objekt , takže sa uvoľní pamäť je pomocou :

Dim rsMyTables Ako DAO.Recordset

Set rsMyTables = CurrentDb.OpenRecordset ( " MyQuery " )

Me.cmbMyComboBox.Clear

robiť , keď nie je rsMyTables.EOF

Me.cmbMyComboBox.AddItem rsMyTables ! [ Name ]

rsMyTables.MoveNext

Loop

rsMyTables.Close

Set rsMyTables = Nothing

• Predchádzajúca strana: Zadarmo Databáza Nástroje pre správu 
• Ďalšia strana: Čo je Softvér Zlepšenie procesov