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