Access è un sistema di gestione di database relazionale utilizzato per costruire piccole e locali dei database. Una query viene utilizzato per recuperare i dati da una tabella del database. Spesso i programmatori hanno bisogno di estrarre i numeri da una query in Microsoft Office Access. Il modo migliore per realizzare questo compito è tramite Visual Basic, Applications o VBA.

istruzione

1 Aprire il database Northwind di Microsoft Office Access inclusi nella suite Microsoft Office. Selezionare il menu "Inserisci" e fare clic su "Modulo".

2 Copia e incolla il seguente nel modulo di interrogare i numeri degli indirizzi nella tabella "Clienti":

extractNumbers Private Sub ()

Dim strSQL As String

Dim rst come Recordset

DBS fiochi come database

Dim qryStr As String

Dim charRead As String

Dim finalString As String

Set dbs = CurrentDb

strSQL = "SELECT Customers.Address dalla clientela;"

Set rst = dbs.OpenRecordset (strSQL)

rst.MoveLast

rst.MoveFirst

Do While Non rst.EOF

qryStr = rst.Fields(0).Value

Do While qryStr & lt;> ""

charRead = Sinistra (qryStr, 1)

Se IsNumeric (charRead) Poi

finalString = finalString & charRead

Finisci se

qryStr = Destra (qryStr, Len (qryStr) - 1)

Ciclo continuo

Debug.Print finalString

finalString = ""

rst.MoveNext

Ciclo continuo

rst.Close

dbs.Close

End Sub

3 Eseguire la subroutine premendo il tasto "F5".