Nwlapcug.com


Come accedere a conteggio record in Query

Come accedere a conteggio record in Query


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.