Microsoft Access er en del af Microsoft Office-pakken. Ved hjælp af denne software, kan du oprette individuelle databaser, rapporter og formularer . Access kan du oprette dine egne applikationer ved hjælp af disse komponenter. Hvis du vil tilføje endnu mere funktionalitet til dine applikationer eller databaser , kan du programmere opgaver i Visual Basic for Applications ( VBA ) . VBA er Microsofts standard udvikling sprog til Office-produkter . Sproget er baseret ud af Visual Basic 6.0 og bruger samme syntaks. En af de mange ting, du kan gøre med dette sprog er fuldbyrde forespørgsler på dine data. Instruktioner
1
Køre en forespørgsel og sætte resultaterne ind i en rekord sæt til manipulation. Kopier og indsæt VBA koden nedenfor til at indlæse data fra din forespørgsel.
Dim dbMyDatabase Som DAO.Database
Dim rsMyRecords Som DAO.Recordset
Set dbMyDatabase = CurrentDb < br >
set rsMyRecords = dbMyDatabase.OpenRecordset ( " MyQuery " )
2
køre en forespørgsel med input parametre ved hjælp af en forespørgsel definition objektet og derefter indlæse dens resultater i en rekord sæt med koden eksempel nedenfor.
Dim dbMyDatabase Som DAO.Database
Dim rsMyRecords Som DAO.Recordset
Dim qdMyParameters Som DAO.QueryDef
Set dbMyDatabase = CurrentDb < br >
Set qdMyParameters = dbMyDatabase.QueryDefs ( " MyQuery " )
qdMyParameters.Parameters ( " MyParameter " ) = "værdi "
Set rsMyRecords = qdMyParameters.OpenRecordset ()
3
Loop gennem hver post vendte tilbage og udføre en handling . Eksemplet nedenfor er én måde at gøre dette
Do While Not rsMyRecords.EOF
Debug.Print " Indholdet af min klumme :" . ! & RsMyRecords [ MyColumnName ]
< p > rsMyRecords.MoveNext
Loop
4
Udfør en SQL-forespørgsel i stedet for en navngiven Access forespørgsel og sætte resultaterne ind i en rekord sæt til manipulation. Kopier og indsæt VBA koden nedenfor.
Dim dbMyDatabase Som DAO.Database
Dim rsMyRecords Som DAO.Recordset
Dim strQuery As String
strQuery = " SELECT * FROM MinTabel "
Set dbMyDatabase = CurrentDb
Set rsMyRecords = dbMyDatabase.OpenRecordset ( strQuery )
5
Udfør en kommando , der ikke returnerer nogen optegnelser bruge denne VBA-kode. Opdater og slette kommandoer er eksempler på udsagn , der ikke returnerer nogen poster .
CurrentDb.Execute " MyQueryName "
