Microsoft Office Access är en relationsdatabas management system används ofta för mindre databaser . Visual Basic for Applications , även känd som VBA , är en dator programmeringsspråk som används för att automatisera manuella arbetsmoment i Microsoft Office -program. En SQL-fråga är en vanlig operation som utförs för att hämta data från en tabell . I några få steg kan du skriva VBA- kod för att fråga ett bord och visa antalet poster i en meddelanderuta
1 .
Starta Microsoft Office Access och välj ” tom databas ” klicka på ” Skapa ”. Klicka på ” Databas Verktyg ”och välj ” Visual Basic . ” Klicka på ” Infoga ” och välj ” Module ”.
2
Kopiera och klistra in följande VBA -kod till din modul .
Private Sub getRecordCnt ( )
Dim rst Som Recordset
Dim db som databas
Dim SQLstr As String
SQLstr=” CREATE TABLE CityInfo ( City TEXT (25 ) , statligt TEXT ( 25 ));”
DoCmd . RunSQL ( SQLstr )
SQLstr=” INSERT INTO CityInfo ( [ City ], [ stat ] ) ”
SQLstr=SQLstr ” VALUES ( ' Arlington ', ' Texas ');”
DoCmd. SetWarnings Falska
DoCmd. RunSQL ( SQLstr )
SQLstr=” INSERT INTO CityInfo ( [ City ], [ stat ] ) ”
SQLstr=SQLstr ” VALUES ( ' Watauga ', ' Texas ');”
DoCmd. SetWarnings Falska
DoCmd. RunSQL ( SQLstr )
SQLstr=” SELECT CityInfo . * FRÅN CityInfo , ”
Set rst=db. OpenRecordset ( SQLstr )
RST . MoveFirst
rst. MoveLast
MsgBox rst. RecordCount
End Sub
3 .
Tryck ”F5 ” för att köra din subrutin . Koden kommer att skapa en ny tabell , lägga till poster till det och öppna ett rekord .