Microsoft Access er en del av Microsoft Office-pakken. Ved hjelp av denne programvaren , kan du lage individuelle databaser, rapporter og skjemaer . Tilgang kan du lage dine egne programmer som bruker disse komponentene . Å legge enda mer funksjonalitet i programmene eller databaser , kan du programmere oppgaver i Visual Basic for Applications ( VBA ) . VBA er Microsofts standard utvikling språk for Office-produkter. Språket er basert off av Visual Basic 6.0 og bruker lignende syntaks. En av de mange tingene du kan gjøre med dette språket er utføre spørringer på dine data . Instruksjoner
en
Kjøre en spørring og sette resultatene inn i en rekord satt for manipulasjon. Kopier og lim inn VBA koden nedenfor til å laste dataene fra spørringen.
Dim dbMyDatabase Som DAO.Database
Dim rsMyRecords Som DAO.Recordset
Set dbMyDatabase = CurrentDb
set rsMyRecords = dbMyDatabase.OpenRecordset ( " MyQuery ")
2
kjøre en spørring med input parametere ved hjelp av en spørring definisjon objekt og deretter laste sine resultater i en rekord satt ved hjelp av koden eksempel nedenfor.
Dim dbMyDatabase Som DAO.Database
Dim rsMyRecords Som DAO.Recordset
Dim qdMyParameters Som DAO.QueryDef
Set dbMyDatabase = CurrentDb
Set qdMyParameters = dbMyDatabase.QueryDefs ( " MyQuery ")
qdMyParameters.Parameters ( " MyParameter ") = "verdi"
Set rsMyRecords = qdMyParameters.OpenRecordset ( )
3
Loop gjennom hver post tilbake og utføre en handling . Eksempelet nedenfor er én måte å gjøre dette
Mens Ikke rsMyRecords.EOF
Debug.Print " Innholdet i kolonnen min : " . ! Og rsMyRecords [ MyColumnName ]
< p > rsMyRecords.MoveNext
Loop
4
Utføre en SQL-spørring i stedet for en navngitt Access-spørring og sette resultatene inn i en rekord satt for manipulasjon. Kopier og lim inn VBA koden under.
Dim dbMyDatabase Som DAO.Database
Dim rsMyRecords Som DAO.Recordset
Dim strQuery As String
strQuery = "SELECT * FROM MyTable "
Set dbMyDatabase = CurrentDb
Set rsMyRecords = dbMyDatabase.OpenRecordset ( strQuery )
5
Utføre en kommando som ikke returnerer noen poster bruker denne VBA -kode. Oppdatere og slette kommandoer er eksempler på uttalelser som ikke returnerer noen poster .
CurrentDb.Execute " MyQueryName "
