Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> .

Come estrarre i numeri in una query per l'accesso

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 allo stesso modo si potrebbe estrarre altri tipi di dati . Un modo per estrarre i dati è quello di utilizzare Visual Basic , Applications Edition. In pochi passi , è possibile scrivere il codice VBA , estrarre i numeri da una query , e li visualizza nella finestra di output . Cose che ti serviranno
Microsoft Office Access
Northwind database di
Show More Istruzioni
1

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