Microsoft Office Access è un sistema di gestione di database relazionali spesso utilizzato per i database più piccoli. Visual Basic, Applications, noto anche come VBA, è un linguaggio di programmazione utilizzato per automatizzare le operazioni manuali nelle applicazioni di Microsoft Office. Una query SQL è un'operazione comune eseguito per recuperare i dati da una tabella. In pochi passi è possibile scrivere codice VBA per interrogare un tavolo e visualizzare il numero di record attraverso una finestra di messaggio.

istruzione

1 Avviare Microsoft Office Access e selezionare "Database vuoto" quindi fare clic su "Crea". Fai clic su "Strumenti database" e selezionare "Visual Basic". Fare clic su "inserire" e selezionare "Modulo".

2 Copiare e incollare il seguente codice VBA nel vostro modulo:

Private Sub getRecordCnt ()

Dim rst come Recordset

db fioco come base di dati

Dim SQLStr As String

SQLStr = "CREATE TABLE CityInfo (Città TEXT (25), TESTO Stato (25));"

DoCmd.RunSQL (SQLStr)

SQLStr = "INSERT INTO CityInfo ([Città], [Stato])"

SQLStr = SQLStr & "Valori ( 'Arlington', 'Texas');"

DoCmd.SetWarnings False

DoCmd.RunSQL (SQLStr)

SQLStr = "INSERT INTO CityInfo ([Città], [Stato])"

SQLStr = SQLStr & "Valori ( 'Watauga', 'Texas');"

DoCmd.SetWarnings False

DoCmd.RunSQL (SQLStr)

SQLStr = "SELECT * FROM CityInfo CityInfo;".

Set rst = db.OpenRecordset (SQLStr)

rst.MoveFirst

rst.MoveLast

MsgBox rst.RecordCount

End Sub

3 Premere il tasto "F5" per eseguire la subroutine. Il codice crea una nuova tabella, aggiungere record ad esso, e aprire un set di record.