Nwlapcug.com


Come estrarre i numeri in una Query per l'accesso

Come estrarre i numeri in una Query per l'accesso


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