|
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 : .
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 .
|
