Microsoft Access är en del av Microsofts Office-paket . Med hjälp av denna programvara kan du skapa enskilda databaser , rapporter och formulär . Tillträde kan du skapa dina egna program med dessa komponenter. Att lägga ännu mer funktionalitet i applikationer och databaser , kan du programmera uppgifter i Visual Basic for Applications (VBA ) . VBA är Microsofts standard utveckling språk för Office -produkter. Språket bygger 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 köra frågor på dina data .
1
köra en fråga och sätta dess resultat i ett rekord för manipulation . . Kopiera och klistra in 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 ingångsparametrar hjälp av en fråga definition objekt och sedan ladda sina resultat i en post som enligt den kod som exemplet nedan .
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 ” )=” värde ”
Set rsMyRecords=qdMyParameters. OpenRecordset ( )
3 .
igenom alla rekord tillbaka och utföra en åtgärd . Exemplet nedan ett sätt att göra detta .
Har visserligen inte 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 en rad rekord för manipulation . Kopiera och klistra in VBA -koden nedan .
Dim dbMyDatabase Som DAO. Database
Dim rsMyRecords Som DAO. Recordset
Dim strQuery As String
strQuery=” SELECT * FROM MinTabell ”
Set dbMyDatabase=CurrentDb
Ställ rsMyRecords=dbMyDatabase . OpenRecordset ( strQuery )
5 .
Kör ett kommando som inte returnerar några poster med denna VBA -kod . Uppdatera och ta bort kommandon är exempel på uttalanden som inte returnerar några poster .
CurrentDb. Execute ” MyQueryName ”
tips och varningar
コメント