Kuidas saada Access VBA Query loetleda Lauad andmebaasis

Access salvestab teavet andmebaasi struktuuri msysobjects tabelis . andmesalvestuse pildi Kir alates & lt; a href = "http: //www.fotolia.com'> Fotolia.com & lt; / a & gt;

Microsoft Access on andmebaaside haldamise süsteemi inimestel luua oma andmebaase, aruandeid ja kasutajale vorme.Juurdepääs sisaldab kõiki ehitusplokkide arendada väikesed rakendused.Saate luua tabeleid andmed, salvestatud protseduurid, kasutaja määratletud funktsioone ja makrosid lisaks aruanded ja vormid.Kõik need komponendid on oma lähtekohad või kirjes salvestatud peidetud süsteemi tabelist.Juurdepääs jälgib iga tabeli aruande, vormi jms loote ja salvestab informatsiooni nagu siis, kui ta lõi või uuendatud ja süsteemi lipud.

Kuidas Tabelid

  1. Loo päringu käivitada SQL käsk allpool.Selle päringu otsib nimekirja kõik tabelid praeguse Access andmebaasi.Kui klausel kasutab number 1, mis näitab, et me tahame ainult tabelites tagasi.

    SELECT MSysObjects.Name, MSysObjects.DateCreate, MSysObjects.DateUpdate, MSysObjects.Type, MSysObjects.Flags
    FROM msysobjects
    KUS MSysObjects.Type = 1

  2. Tagasi nimekirja ainult mitte-süsteemi tabelid andmebaasitoodud näites:

    SELECT MSysObjects.Name, MSysObjects.DateCreate, MSysObjects.DateUpdate, MSysObjects.Type, MSysObjects.Flags
    FROM msysobjects
    KUS MSysObjects.Type = 1 JA MSysObjects.Name ei meeldi "MSys *"

  3. Tagasi nimekirja ainult peitmata andmebaasi tabelite abil töötab päring allpool:

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

  4. Sorteeri nimekirja peitmata, mitte-süsteemi tabelid kasutades SQL koodi alla:

    SELECT MSysObjects.Name, MSysObjects.DateCreate, MSysObjects.DateUpdate, MSysObjects.Type, MSysObjects.Flags
    FROM msysobjects
    KUSMSysObjects.Type = 1 JA MSysObjects.Flags & amp; lt; & amp; gt;8 JA MSysObjects.Name ei meeldi "MSys *"
    ORDER BY MSysObjects.Name

Kasuta Tabelid VBA

  1. Laadi oma nimekirja tabelid rekord komplekt objekti kasutades VBA koodi allpool:

    Dim rsMyTables Nagu DAO.Recordset
    Set rsMyTables = CurrentDb.OpenRecordset ("MyQuery")

  2. Loop läbi iga kirje tagastatakse päringu.

    Dim rsMyTables Nagu DAO.Recordset
    Set rsMyTables = CurrentDb.OpenRecordset ("MyQuery")

    teha, kui ei rsMyTables.EOF
    & amp; # 039;Kood manipuleerida andmeid

    rsMyTables.MoveNext
    Loop

  3. Lisa iga tabeli nime selliselt rippmenüüst muutes oma aega loop:

    Dim rsMyTables Nagu DAO.Recordset
    Set rsMyTables = CurrentDb.OpenRecordset ("MyQuery")
    Me.cmbMyComboBox.Clear

    teha, kui ei rsMyTables.EOF
    Me.cmbMyComboBox.AddItem rsMyTables! [Nimi]

    rsMyTables.MoveNext
    Loop

  4. Sule kogum objekti nii, et see vabastab mälu ta kasutab:

    Dim rsMyTables Nagu DAO.Recordset
    Set rsMyTables = CurrentDb.OpenRecordset ("MyQuery")
    Me.cmbMyComboBox.Clear

    teha, kui ei rsMyTables.EOF
    Me.cmbMyComboBox.AddItem rsMyTables! [Nimi]

    rsMyTables.MoveNext
    Loop

    rsMyTables.Close
    Set rsMyTables = Midagi

Resources

  • Kõik Access: DDL Query koodi näited
980
0
1
Andmebaasitarkvaraga