Visual Basic for Applications ( VBA ) är en dator programmeringsspråk konstruerad av Microsoft och används för att automatisera rutinuppgifter i Access . Access är en relationsdatabas management system som ingår i Microsoft Office-paketet . En Structured Query Language ( SQL ) fråga används för att hämta data från en databas tabell . De utgående resultaten av en SQL-fråga som nås via ett Recordset-objekt . I några steg du kan skriva VBA-kod för att skapa en SQL-fråga och visa posterna hämtas . Instruktioner
1
Öppna Northwind Microsoft Office Access-databas . Northwind-databasen ingår i Microsoft Office-paketet .
2
Klicka på " Databas Verktyg " och välj sedan " Visual Basic " för att öppna Microsoft Visual Basic fönster . Klicka på " Infoga "-fältet och välj " Modul . " Addera 3
Kopiera och klistra in följande kod på din nya modulen för att visa det första namnet och affärer telefonnummer i " Kunden " table :
Private Sub customerQuery ( ) katalog
Dim strSQL As String
Dim custRst Som Recordset
Dim dbs som databas
Dim rstCntr As Integer
Dim custStr As String
Set dbs = CurrentDb
strSQL = " SELECT Kunder . [ Förnamn ] , "
strSQL = strSQL & " Kunderna [ Business Phone ] . "
strSQL = strSQL & " FROM Kunder , "
Set custRst = dbs.OpenRecordset ( strSQL ) katalog
custRst.MoveLast
custRst.MoveFirst
För rstCntr = 0 att custRst.RecordCount - 1
custStr = custStr & custRst.Fields ( 0 ) Value & _
" är . en kund och deras verksamhet telefonen är " & custRst.Fields ( 1 ) . Value & vbCr
custRst.MoveNext
Nästa rstCntr
MsgBox custStr
custRst.Close
dbs.Close
End Sub
4
Kör din subrutinen genom att trycka på " F5 ".
