Microsoft Access er en database management system for enkeltpersoner å lage sine egne databaser , rapporter og bruker former. Tilgang inneholder alle byggesteinene for utvikling av små programmer . Du kan lage tabeller for data , lagrede prosedyrer, brukerdefinerte funksjoner og makroer i tillegg til rapporter og skjemaer . Alle disse komponentene har sine egne pekere eller spille definisjoner som er lagret i et skjult system tabellen . Tilgang holder styr på hvert bord , rapport , skjema , etc. du oppretter og lagrer informasjon som når den ble opprettet eller oppdatert og system flagg. Instruksjoner
Få en liste over tabeller
en
Lag en spørring for å kjøre SQL -kommandoen nedenfor . Denne spørringen henter en liste over alle tabellene i gjeldende Access- database. Den der klausulen bruker nummer 1 som tilsier at vi bare vil bordene returnert.
SELECT MSysObjects.Name , MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags
FRA MSysObjects
HVOR MSysObjects.Type = 1
2
tilbake en liste med bare de ikke-system tabeller i databasen med eksempelet gitt : en
SELECT MSysObjects . navn, MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags
FRA MSysObjects
HVOR MSysObjects.Type = 1 AND MSysObjects.Name Not Like " Msys *"
3
tilbake en liste med bare de ikke- skjulte tabeller i databasen ved å kjøre spørringen under:
SELECT MSysObjects.Name , MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects . Type, MSysObjects.Flags
fRA MSysObjects
HVOR MSysObjects.Type = 1 AND MSysObjects.Flags < > 8
4
Sorter listen over ikke - skjulte , ikke-system tabeller ved hjelp av SQL -koden nedenfor :
SELECT MSysObjects.Name , MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags
FRA MSysObjects
< p> HVOR MSysObjects.Type = 1 AND MSysObjects.Flags < > 8 OG MSysObjects.Name Not Like " Msys *"
ORDER BY MSysObjects.Name
Bruk List av tabeller i VBA
5
Load din liste over tabeller i en rekord satt objekt med VBA-kode vist nedenfor :
Dim rsMyTables Som DAO.Recordset
Set rsMyTables = CurrentDb.OpenRecordset ( " MyQuery ")
6
Loop gjennom hver post returneres i spørringen.
Dim rsMyTables Som DAO.Recordset
Set rsMyTables = CurrentDb.OpenRecordset ( " MyQuery ")
Mens Ikke rsMyTables.EOF
'Kode for å manipulere data
rsMyTables.MoveNext
Loop
Side 7
Legg hvert bord navn til en drop- down liste ved å endre din mens loop :
Dim rsMyTables Som DAO.Recordset
Set rsMyTables = CurrentDb.OpenRecordset ( " MyQuery " )
Me.cmbMyComboBox.Clear
Mens Ikke rsMyTables.EOF
Me.cmbMyComboBox.AddItem rsMyTables ! [ navn]
rsMyTables.MoveNext
Loop
8
Lukk rekord satt objekt slik at det frigjør minne den bruker :
Dim rsMyTables Som DAO.Recordset
Set rsMyTables = CurrentDb.OpenRecordset ( " MyQuery ")
Me.cmbMyComboBox.Clear
Mens Ikke rsMyTables.EOF
Me.cmbMyComboBox.AddItem rsMyTables ! [ navn]
rsMyTables.MoveNext
Loop
rsMyTables.Close
Set rsMyTables = Ingenting
