Microsoft Office Access è un sistema di gestione di database relazionali comunemente utilizzato per i database più piccoli e locali. L'accesso è incluso nella suite Microsoft Office e fornisce tutti gli strumenti necessari per gestire un database relazionale. Una query viene utilizzata per recuperare informazioni da tabelle di database. Estrazione di numeri da una query di Access avviene allo stesso modo si potrebbe estrarre altri tipi di dati. Un modo per estrarre i dati è utilizzando Visual Basic for Applications. In pochi passi, è possibile scrivere codice VBA, estrarre numeri da una query e li Visualizza nella finestra output.
Istruzioni
1
Aprire il database Northwind Microsoft Office Access. Il database Northwind è incluso nella suite Microsoft Office.
2
Fare clic su "strumenti di Database", quindi selezionare "Visual Basic" per aprire la finestra di Visual Basic di Microsoft. Fare clic sul menu "Inserisci" e selezionare "Modulo".
3
Copiare e incollare il codice seguente il nuovo modulo per eseguire query nella tabella "Prodotti" ed estrarre i numeri nel campo "Livello di riordinare" maggiore di 15:
Private Sub extractNumbers()
Dim strSQL As String
Dim rst As Recordset
() Dim dbs As Database
Set dbs = CurrentDb
strSQL = "SELECT Products. [Nome prodotto], prodotti. [Riordinare livello] "
strSQL = strSQL & "Da prodotti"
strSQL = strSQL & "dove (((prodotti. [ Riordinare livello]) > 15)); "
Set rst = dbs. OpenRecordset(strSQL)
RST. MoveLast
RST. MoveFirst
Debug. Print "riordinare livello > 15:"
While Not rst. EOF
Debug.Print "Product Name:" & rst.Fields(0).Value
Debug.Print " "
Debug.Print "Reorder Level Number:" & rst.Fields(1).Value
RST. MoveNext
Loop
End Sub