Ερώτημα για Εμφάνιση μόνο αριθμοί στην Access

Access είναι ένα σχεσιακό σύστημα διαχείρισης βάσεων δεδομένων που χρησιμοποιούνται για την κατασκευή μικρών και τοπικές βάσεις δεδομένων . Ένα ερώτημα χρησιμοποιείται για την ανάκτηση δεδομένων από έναν πίνακα βάσης δεδομένων . Συχνά οι προγραμματιστές πρέπει να εξαγάγετε αριθμούς από ένα ερώτημα στη Microsoft Office Access . Ο καλύτερος τρόπος για να επιτευχθεί αυτό το έργο είναι μέσω της Visual Basic for Applications ή VBA . Οδηγίες
Η

1 Ανοίξτε τη βάση δεδομένων Northwind Microsoft Office Access περιλαμβάνονται στη σουίτα Microsoft Office . Επιλέξτε το μενού "Εισαγωγή" και κάντε κλικ στο "ενότητα ". 2

Αντιγράψτε και επικολλήστε το ακόλουθο κείμενο module σας ερώτημα για τους αριθμούς διεύθυνση στο " Πελάτες " πίνακα:

Private Sub extractNumbers ( )

Dim strSQL Όπως String

Dim rst Όπως εγγραφών

Dim dbs Όπως Database

Dim qryStr Όπως String Dim

charRead Όπως String Dim

finalString Όπως String

Set dbs = CurrentDb

strSQL = "SELECT Customers.Address ΑΠΟ πελάτες ? "

Set RST = dbs . OpenRecordset ( strSQL )

rst.MoveLast

rst.MoveFirst

Do While Not rst.EOF

qryStr = rst.Fields ( 0 ) . αξία

Do While qryStr <> " "

charRead = Left ( qryStr , 1 )

Εάν IsNumeric ( charRead ) Στη συνέχεια

finalString = finalString & charRead

End If

qryStr = Δεξιά ( qryStr , Len ( qryStr ) - 1 )

Loop

Debug.Print finalString

finalString = " "

rst.MoveNext

Loop

rst.Close

dbs.Close

End Sub

Η

3 Εκτελέστε την υπορουτίνα πατώντας το πλήκτρο " F5 ".
Η
εικόνων