Aprire il database di Access Northwind di Microsoft Office . Il database Northwind è incluso nella suite Microsoft Office . 
 2 
 Fare clic su " Strumenti di database ", quindi selezionare " Visual Basic " per aprire la finestra di Microsoft Visual Basic . Fai clic sul menu "Inserisci" e selezionare "Modulo ". 
 3 
 Copia e incolla il seguente codice nel nuovo modulo di interrogare la tabella "Prodotti" e estrarre i numeri nel " riordino " campo Livello superiore a 15 : 
 
 extractNumbers private Sub () 
 
 Dim strSQL As String 
 
 Dim rst come Recordset 
 
Dim dbs As Database < br
 Set> dbs = CurrentDb 
 
 strSQL = "Prodotti selezionare. [ Nome di prodotto ] , i prodotti . [Riordina Livello] " 
 
 strSQL = strSQL & "FROM Prodotti " 
 
 strSQL = strSQL & "WHERE ( ( ( Products. [Riordina Livello] ) > 15) ) ; " 
 
Set rst = dbs.OpenRecordset ( strSQL ) per
 rst.MoveLast 
 
 rst.MoveFirst 
 
 Debug.Print " riordino Livello > 15 : " 
 
 Do While Not rst.EOF 
 
 Debug.Print " Nome del prodotto: "& rst.Fields ( 0 ) Valore 
 
 Debug.Print ". " 
 
 Debug.Print " Riordina numero di livello : " . & rst.Fields ( 1) Valore 
 
 rst.MoveNext 
 
 loop 
 
 End Sub 
 
              
Programmazione © www.354353.com