|
Access est un système de gestion de base de données relationnelle utilisée pour construire des petites et locales bases de données. Une requête est utilisée pour extraire des données d' une table de base de données. Souvent, les programmeurs ont besoin pour extraire les numéros d'une requête dans Microsoft Office Access . La meilleure façon de réaliser cette tâche est par Visual Basic pour Applications ou VBA. Instructions
1 Ouvrez la base de données Office Access Northwind Microsoft inclus dans la suite Microsoft Office . Sélectionnez le menu "Insertion " et cliquez sur
2 Copiez et collez le texte suivant dans votre module d'interroger les numéros d'adresse dans la table " clients " " Module ". :
Private Sub extractNumbers ()
strSQL Dim As String
rst As Recordset
Dim dbs As Database
qryStr Dim As String Dim
charRead As String
finalString Dim As String
Set dbs = CurrentDb
strSQL = " SELECT Customers.Address FROM Clients ; "
Set rst = DBS . OpenRecordset ( strSQL )
rst.MoveLast
rst.MoveFirst
Do While Not rst.EOF
qryStr = rst.Fields (0) . valeur
Do While qryStr <> ""
charRead = Gauche ( qryStr , 1)
Si IsNumeric ( charRead ) Puis
finalString = finalString & charRead
End If
qryStr = Droite ( qryStr , Len ( qryStr ) - 1 )
boucle
Debug.Print finalString
finalString = ""
rst.MoveNext
boucle
rst.Close
dbs.Close
End Sub
3 Exécutez le sous-programme en appuyant sur la touche "F5 ".
|
