lancio Access 2007 , fare clic su " Database vuoto " e quindi fare clic sul pulsante "Crea" . Selezionare "Strumenti database" e poi cliccare su " Visual Basic ". 
 2 
 Creare una nuova procedura digitando il seguente codice : 
 
 QueryDatabase Private Sub ( ) economici 
 3 
 creare tre nuove variabili digitando il seguente codice VBA : 
 
 Dim rst come Recordset 
 
 Dim dbs As Database Dim 
 
 sqlstr As String 
 
 4 
 Definire il database che si interrogherà inserendo il seguente codice: 
 
Set dbs = OpenDatabase ( " C : \\ Northwind 2007.accdb " ) economici 5
 Creare una stringa SQL digitando il seguente codice per creare una query : 
 
 sqlstr = " . . ordini SELECT [ Nome della nave ] , ordini [ indirizzo della nave ] " 
 
 sqlstr = sqlstr & "FROM ordini " 
 
 sqlstr = sqlstr & " GROUP BY ordini [Nome della nave ] , Ordini [ indirizzo della nave ] , . ». 
 6 
 Copia e incolla il seguente codice per aprire la query attraverso un " Recordset " e visualizzare i risultati nella finestra immediata: 
 
Set rst = dbs.OpenRecordset ( sqlstr ) per
 rst.MoveLast 
 
 rst.MoveFirst 
 
 Do While Not rst.EOF 
 
 Debug.Print rst.Fields ( " Nome della nave " ) . Valore 
 
 Debug.Print rst.Fields ( " l'indirizzo della nave " ) . valore 
 
 rst.MoveNext 
 
 loop 
 7 
 Fine vostra procedura digitando il seguente codice : 
 
 rst.Close 
 
 dbs.Close 
 
 End Sub 
 
              
software © www.354353.com