Microsoft Office Access è un sistema di gestione di database relazionali spesso utilizzato per i database. Visual Basic for Applications, noto anche come VBA, è un linguaggio utilizzato per automatizzare le attività manuali nelle applicazioni di Microsoft Office di programmazione. Una query SQL è un'operazione comune eseguita per recuperare dati da una tabella. In pochi passi è possibile scrivere codice VBA per eseguire query su una tabella e visualizzare il numero di record tramite una finestra di messaggio.
Istruzioni
1
Avviare Microsoft Office Access e selezionare "Database vuoto" quindi fare clic su "Crea". Fare clic su "Strumenti di Database" e selezionare "Visual Basic". Fare clic sul campo "Inserisci" e selezionare "Modulo".
2
Copiare e incollare il seguente codice VBA nel modulo:
Private Sub getRecordCnt()
Dim rst As Recordset
Dim db As Database
Dim SQLstr As String
SQLstr = "Crea tabella CityInfo (città Text (25), TEXT(25)) stato;"
DoCmd.RunSQL (SQLstr)
SQLstr = "INSERT INTO CityInfo ([città], [stato])"
SQLstr = SQLstr & "VALUES ('Arlington', 'Texas');"
DoCmd.SetWarnings False
DoCmd.RunSQL (SQLstr)
SQLstr = "INSERT INTO CityInfo ([città], [stato])"
SQLstr = SQLstr & "VALUES ('Watauga', 'Texas');"
DoCmd.SetWarnings False
DoCmd.RunSQL (SQLstr)
SQLstr = "SELECT CityInfo.* da CityInfo;"
Set rst = db. OpenRecordset(SQLstr)
RST. MoveFirst
RST. MoveLast
MsgBox rst. RecordCount
End Sub
3
Premere "F5" per eseguire la subroutine. Il codice verrà creare una nuova tabella, aggiungere record ad esso e aprire un set di record.