aprire il database Northwind e fare clic sulla scheda "Database Tools " . Fare clic su " Visual Basic " per aprire la finestra di Visual Basic Editor
2
Inizia digitando il seguente codice per creare una nuova subprocedure : .
Private Sub readQueryValue ( ) per
3
Copia e incolla il seguente codice VBA per dichiarare le variabili da utilizzare per leggere una query :
Dim nwDBS As Database Dim
nwRST Come
Recordset
Dim nwSQL As String
nwDBS = CurrentDb
4
creare una query SQL digitando il seguente codice: .
nwSQL = "SELECT Dipendenti [ Ultimo nome] , Lavoratori [ nome ] "
nwSQL = nwSQL & " FROM Impiegati ; "
5
Aprire un nuovo Recordset utilizzando la query SQL creata nel passaggio precedente . :
nwRST = nwDBS.OpenRecordset ( nwSQL ) economici 6
spostare il Recordset per la prima riga di risultati della query e quindi spostare il Recordset in avanti due volte di leggere il "Cognome " della terza fila , digitando il seguente codice :
nwRST.MoveFirst
nwRST.MoveNext
nwRST.MoveNext
Debug.Print nwRST.Fields . ( " [ Nome ] " ) Valore
7
Fine della procedura digitando il seguente codice :
nwRST.Close
nwDBS.Close
End Sub
8
Premere " Ctrl " e "G" per aprire la finestra immediata . Premere il tasto " F5 " per eseguire il procedimento e di visualizzare i risultati attraverso la finestra immediata .
software © www.354353.com