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 uppgifter 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 steg du kan skriva VBA-kod för att fråga ett bord och visa antalet poster via en meddelanderuta . Instruktioner
1
Starta Microsoft Office Access och välj " Tom databas " klicka sedan på " Skapa ". Klicka på " Databas Verktyg " och välj " Visual Basic . " Klicka på " Infoga "-fältet och välj " Modul . "
2
Kopiera och klistra in följande VBA-kod i din modul :
Private Sub getRecordCnt ( ) katalog
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 ) katalog
sqlstr = " INSERT INTO CityInfo ( [City] , [stat ]) "
sqlstr = sqlstr & " VALUES ( ' Arlington ' , ' Texas ' ) ; "
DoCmd.SetWarnings False
DoCmd.RunSQL ( sqlstr ) katalog
sqlstr = " INSERT INTO CityInfo ( [ City] , [ stat ] ) "
sqlstr = sqlstr & " VALUES ( ' Watauga ' , ' Texas ' ) ; "
DoCmd.SetWarnings False
DoCmd.RunSQL ( sqlstr ) katalog
sqlstr = " SELECT CityInfo * FROM CityInfo , . "
Set rst = db.OpenRecordset ( sqlstr ) katalog
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 den och öppna ett rekord set .
