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