Microsoft Office Access è un sistema di gestione di database relazionale spesso utilizzato per i database più piccoli . Visual Basic for Applications , noto anche come VBA , è un linguaggio di programmazione per computer utilizzato per automatizzare le attività manuali nelle applicazioni di Microsoft Office. Una query SQL è un'operazione comune eseguita per recuperare dati da una tabella. In pochi passi è possibile scrivere codice VBA per interrogare una tabella e visualizzare il numero di record attraverso una finestra di messaggio . Istruzioni
1
Avviare Microsoft Office Access e selezionare " Database vuoto ", quindi fare clic su "Crea ". Fare clic su "Strumenti database" e selezionare " Visual Basic ". Fare clic sul campo "Inserisci" e selezionare "Modulo ".
2
Copia e incolla il seguente codice VBA nel modulo :
getRecordCnt Private Sub ( ) per
dim rst come Recordset
dim db As Database dim
sqlstr As String
sqlstr = " CREATE TABLE CityInfo ( TESTO Città ( 25 ) , TESTO Stato ( 25) ) ; "
DoCmd.RunSQL ( sqlstr ) per
sqlstr =" INSERT INTO CityInfo ( [Città ], [ Stato ]) "
sqlstr = sqlstr &" VALUES (' Arlington ',' Texas '); "
DoCmd.SetWarnings False
DoCmd.RunSQL ( sqlstr ) per
sqlstr =" INSERT INTO CityInfo ( [ Città ] , [ Stato ] ) "
sqlstr = sqlstr &" VALUES (' Watauga ', ' Texas '); "
DoCmd.SetWarnings False
DoCmd.RunSQL ( sqlstr ) per
sqlstr = "SELECT * FROM CityInfo CityInfo ; ».
Set rst = db.OpenRecordset ( sqlstr ) per
rst.MoveFirst
rst.MoveLast
MsgBox rst.RecordCount
End Sub
3
Premere " F5 " per eseguire la subroutine . Il codice crea una nuova tabella , aggiungere record ad esso , e aprire una serie di record.