Access är en relationsdatabas management system som används för att bygga små och lokala databaser . En fråga används för att hämta data från en databas tabell . Ofta programmerare behöver för att hämta nummer från en fråga i Microsoft Office Access . Det bästa sättet att uppnå denna uppgift är genom Visual Basic for Applications eller VBA . Instruktioner
1
Öppna Northwind Microsoft Office Access-databas som ingår i Microsoft Office-paketet . Välj " Infoga " -menyn och klicka
2
Kopiera och klistra in följande i din modul att ifrågasätta adressnumren i " Kunder " bord " Modul . " :
Private Sub extractNumbers ( ) katalog
Dim strSQL As String
Dim rst Som Recordset
Dim dbs som databas
Dim qryStr As String
Dim charRead As String
Dim finalString As String
Set dbs = CurrentDb
strSQL = " SELECT Customers.Address FROM kunder , "
Set rst = dbs . OpenRecordset ( strSQL ) katalog
rst.MoveLast
rst.MoveFirst
Do While Inte rst.EOF
qryStr = rst.Fields ( 0 ) . värde
Do While qryStr < > " "
charRead = Vänster ( qryStr , 1 ) katalog p Om IsNumeric ( charRead ) Sen
finalString = finalString & charRead
End If
qryStr = Höger ( qryStr , Len ( qryStr ) - 1 ) katalog
Loop
Debug.Print finalString
finalString = ""
rst.MoveNext
Loop
rst.Close
dbs.Close
End Sub
3
Kör subrutinen genom att trycka på " F5 ".
