interrogation des données d'une table de base de données en utilisant des caractères génériques dans Microsoft Access n'est pas aussi dur que vous pouvez penser. Dans Access , vous pouvez utiliser Visual Basic pour Applications ( VBA) pour automatiser les processus tels que l'interrogation des données . Dans VBA, vous pouvez construire des instructions SQL pour interroger une table pour trouver des valeurs qui correspondent à un modèle que vous spécifiez. L'opérateur " Like" peut être utilisé dans des instructions SQL pour spécifier des critères tels que "Like" D * "" qui retournera toutes les valeurs de champs commençant par la lettre D. Choses que vous devez
Northwind base de données
Afficher Instructions supplémentaires
1
cliquez sur l'onglet "Outils de base de données " , cliquez sur " Visual Basic ", et cliquez sur le menu "Insertion" . Cliquez sur " Module " pour insérer un nouveau module de code
2
créer un nouveau sous procédure en tapant ce qui suit: .
Private Sub useLikeCommand ()
< br > 3
déclarer les variables que vous allez utiliser pour interroger une table de base de données en ajoutant le code VBA suivant :
dataString Dim As String
Dim dbs As Database Dim
TVD Recordset
Dim X As Integer
Set dbs = CurrentDb
4
définir la chaîne , vous passerez à l'instruction SQL :
dataString = "A *"
5
Tapez le code suivant pour ouvrir un jeu d'enregistrements en utilisant une instruction SQL qui utilise l'opérateur Like:
Set rst = dbs.OpenRecordset ( " SELECT employés . [ Nom ] , employés . [ Prénom ] "_
&" FROM Employees "_
&" WHERE ( ( ( Employees. [ Prénom ] ) Like ' "& ( dataString ) & " " ) ) ; ")
6
créer une« boucle For ... "pour afficher les résultats retournés par la requête en utilisant la fenêtre Exécution :
TVD. MoveFirst
Pour x = 0 à rst.RecordCount
Debug.Print rst.Fields ( " [ Prénom ] »). Valeur
Debug.Print rst.Fields ( «[ Nom ] " ) Valeur
rst.MoveNext
Suivant X
7
terminer votre procédure en ajoutant le code suivant : .
< p > rst.Close
dbs.Close
End Sub
8
Appuyez sur "Ctrl " et " G " pour afficher la fenêtre Exécution. Appuyez sur "F5" pour exécuter la procédure .
