Miten saada Access VBA kysely ListtaulukoidenDatabase

Pääsy tallentaa tietojatietokannan rakennettaMSysObjects taulukossa . muistitikut kuva Kir päässä & lt; a href = 'http: //www.fotolia.com'> Fotolia.com & lt; / a & gt;

Microsoft Access on tietokannan hallintajärjestelmä yksilöille luoda omia tietokantoja, raportteja ja käyttäjän muotoja.Pääsy sisältää kaikki rakennuspalikat kehittää pieniä sovelluksia.Voit luoda taulukoita tietojen, tallennetut, käyttäjän määrittämiä funktioita ja makroja lisäksi raportteja ja lomakkeita.Kaikki nämä komponentit on omat osoittimia tai ennätys määritelmät tallennetaan piilotetun järjestelmän pöytä.Pääsy pitää kirjaa jokaisen taulukon, raportti, muoto, jne. Voit luoda ja tallentaa tietoja, kuten milloin se on luotu tai päivitetty ja järjestelmän liput.

Getting Taulukot

  1. Luo kyselyn suorittaa SQL-komennon alla.Tämä kysely hakee luettelon kaikista taulukot nykyinen Access-tietokanta.Jossa lauseke käyttää numero 1 osoittaa, että me vain haluamme taulukoita palasi.

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

    Objects.Flags
    FROM MSysObjects
    WHERE MSysObjects.Type = 1

  2. Palaa luetteloon vain ei-järjestelmän tietokannan taulukoiden kanssaEsimerkiksi jos:

    SELECT MSysObjects.Name, MSysObjects.DateCreate, MSysObjects.DateUpdate, MSysObjects.Type, MSysObjects.Flags
    FROM MSysObjects
    WHERE MSysObjects.Type = 1 JA MSysObjects.Name pidä "MSys *"

  3. Palaa luettelo vain ei-piilotettu tietokannan taulukoiden ajamalla kyselyn alla:

    SELECT MSysObjects.Name, MSysObjects.DateCreate, MSysObjects.DateUpdate, MSysObjects.Type, MSysObjects.Flags
    FROM MSysObjects
    WHERE MSysObjects.Type =1 JA MSysObjects.Flags & amp; lt; & amp; gt;8

  4. lajitella ei-piilotettu, ei-järjestelmän taulukoissa käyttäen SQL-koodin alla:

    SELECT MSysObjects.Name, MSysObjects.DateCreate, MSysObjects.DateUpdate, MSysObjects.Type, MSysObjects.Flags
    FROM MSysObjects
    WHEREMSysObjects.Type = 1 JA MSysObjects.Flags & amp; lt; & amp; gt;8 JA MSysObjects.Name pidä "MSys *"
    TILAA MSysObjects.Name

Käytä Taulukot VBA

  1. Aseta luettelo taulukoita ennätys joukko objektin VBA koodi alla:

    Dim rsMyTables Kuten DAO.Recordset
    sarja rsMyTables = CurrentDb.OpenRecordset ("MyQuery")

  2. Loop läpi kunkin ennätys palautetaan kyselyn.

    Dim rsMyTables Kuten DAO.Recordset
    sarja rsMyTables = CurrentDb.OpenRecordset ("MyQuery")

    tehdä, kun ei rsMyTables.EOF
    & amp; # 039;Koodi manipuloida tietoja

    rsMyTables.MoveNext
    Loop

  3. Lisää kunkin taulukon nimi pudotusvalikosta muokkaamalla samalla silmukka:

    Dim rsMyTables Kuten DAO.Recordset
    sarja rsMyTables = CurrentDb.OpenRecordset ("MyQuery")
    Me.cmbMyComboBox.Clear

    tehdä, kun ei rsMyTables.EOF
    Me.cmbMyComboBox.AddItem rsMyTables! [Nimi]

    rsMyTables.MoveNext
    Loop

  4. Sulje ennätys joukko esine niin se vapauttaa muistia se käyttää:

    Dim rsMyTables Kuten DAO.Recordset
    sarja rsMyTables = CurrentDb.OpenRecordset ("MyQuery")
    Me.cmbMyComboBox.Clear

    tehdä, kun ei rsMyTables.EOF
    Me.cmbMyComboBox.AddItem rsMyTables! [Nimi]

    rsMyTables.MoveNext
    Loop

    rsMyTables.Close
    sarja rsMyTables = Mikään

Resurssit

  • Kaikki yhteys: DDL Kysely koodi Esimerkkejä
325
0
1
Tietokantaohjelmiston