Microsoft Office Access è un sistema di gestione di database relazionali comunemente usato 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 utilizzato per recuperare informazioni da tabelle di database. Estrazione numeri da una query di Access si ottiene lo stesso modo in cui si estrarre altri tipi di dati. Un modo per estrarre i dati è quello di utilizzare Visual Basic, Applications. In pochi passi, è possibile scrivere codice VBA, estrarre i numeri da una query, e li visualizza nella finestra di output.

istruzione

1 Aprire il database Northwind di Microsoft Office Access. Il database Northwind è incluso nella suite Microsoft Office.

2 Fai clic su "Strumenti di database", quindi selezionare "Visual Basic" per aprire la finestra di Microsoft Visual Basic. Fare clic sul menu "Inserisci" e selezionare "Modulo".

3 Copia e incolla il seguente codice nel nuovo modulo per interrogare la tabella "Prodotti" ed estrarre i numeri nel campo "Riordina livello" superiore al 15:

extractNumbers Private Sub ()

Dim strSQL As String

Dim rst come Recordset

DBS fiochi come database

Set dbs = CurrentDb

strSQL = "SELECT Products. [Nome del prodotto], Products. [Livello Riordina]"

strSQL = strSQL e "FROM Products"

strSQL = strSQL & "WHERE (((Products [Livello Riordina])> 15).);"

Set rst = dbs.OpenRecordset (strSQL)

rst.MoveLast

rst.MoveFirst

Debug.Print "Livello Riordina> 15:"

Do While Non rst.EOF

Debug.Print "Product Name:" & rst.Fields(0).Value

Debug.Print ""

Debug.Print "riordino livello numerico:" & rst.Fields (1) .Value

rst.MoveNext

Ciclo continuo

End Sub