Microsoft Access är en del av Microsoft Office-paketet . Med detta program kan du skapa enskilda databaser , rapporter och formulär . Åtkomst låter dig skapa egna applikationer med dessa komponenter . För att lägga till ännu fler funktioner till dina applikationer eller databaser , kan du programmera uppgifter i Visual Basic for Applications ( VBA ) . VBA är Microsofts standard utveckling språk för Office-produkter . Språket är baserad bort av Visual Basic 6.0 och använder liknande syntax . En av de många saker du kan göra med detta språk är exekvera frågor om dina data . Instruktioner
1
köra en fråga och sätta dess resultat i ett rekord set för manipulation . Kopiera och klistra in den VBA -koden nedan för att läsa in data från din fråga .
Dim dbMyDatabase Som DAO.Database
Dim rsMyRecords Som DAO.Recordset
Set dbMyDatabase = CurrentDb
set rsMyRecords = dbMyDatabase.OpenRecordset ( " MyQuery " )
2
köra en fråga med inmatningsparametrar hjälp av en fråga definition objektet och sedan ladda sina resultat till en rekord set med kodexempel nedan.
Dim dbMyDatabase Som DAO.Database
Dim rsMyRecords Som DAO.Recordset
Dim qdMyParameters Som DAO.QueryDef
Set dbMyDatabase = CurrentDb
Set qdMyParameters = dbMyDatabase.QueryDefs ( " MyQuery " ) katalog
qdMyParameters.Parameters ( " MyParameter " ) = " värde"
Set rsMyRecords = qdMyParameters.OpenRecordset ( ) katalog
3
Loop genom varje post tillbaka och utföra en åtgärd . Exemplet nedan är ett sätt att göra detta
Do While Not rsMyRecords.EOF
Debug.Print " Innehållet i min kolumn : " . ! & RsMyRecords [ MyColumnName ]
rsMyRecords.MoveNext
Loop
4
Kör en SQL-fråga i stället för en namngiven Access-frågan och sätta dess resultat i ett rekord set för manipulation . Kopiera och klistra in den VBA -koden nedan .
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ör ett kommando som inte returnerar några poster använda denna VBA-kod . Uppdatera och ta bort kommandon är exempel på påståenden som inte returnerar några poster .
CurrentDb.Execute " MyQueryName " Addera
