Access ist ein relationales Datenbank- Management-System verwendet, um kleine und lokale Datenbanken zu bauen. Eine Abfrage wird verwendet, um Daten aus einer Datenbank -Tabelle abzurufen. Oft Programmierer benötigen, um Zahlen aus einer Abfrage in Microsoft Office Access extrahieren. Der beste Weg, um diese Aufgabe zu erreichen, ist durch Visual Basic für Applikationen oder VBA . Anleitung
1

Öffnen Sie die Nordwind Microsoft Office Access-Datenbank in der Microsoft Office-Suite enthalten. Wählen Sie das Menü "Einfügen" und klicken
2

Kopieren Sie den folgenden in das Modul , um die Adresse in den Zahlen Tabelle "Customers" abfragen "Module . ": Private Sub

extractNumbers () Dim

strSQL As String Dim rst

Als Recordset Dim dbs

As Database Dim

qryStr As String Dim

charRead As String Dim

FinalString As String Set dbs

= CurrentDb

strSQL = "SELECT Customers.Address FROM Customers ; "

Set rst = dbs . OpenRecordset ( strSQL )

rst.MoveLast

rst.MoveFirst

Do While Not rst.EOF

qryStr = rst.Fields (0) . Wert

Do While qryStr <> ""

charRead = Left ( qryStr , 1) german

Wenn IsNumeric ( charRead ) Dann

FinalString = FinalString & charRead

End If

qryStr = Right ( qryStr , Len ( qryStr ) - 1) german

Schleife

Debug.Print FinalString

FinalString = ""

rst.MoveNext

Schleife

rst.Close

dbs.Close

End Sub

3

Führen Sie das Unterprogramm mit der Taste " F5 ".