|
Savoir lire les résultats d'une requête Microsoft Access peut vous aider à faire votre demande d'accès plus dynamique. L'accès est partie de la suite Microsoft Office et il est utilisé pour créer des bases de données relationnelles . Visual Basic pour Applications ( VBA) peut être utilisé dans Access pour créer des applications Windows et extraire des données de bases de données . Une requête est construit en utilisant un langage déclarations SQL (Structured Query ) pour demander des informations à partir d'une base de données. Choses que vous devez
Microsoft Office Access 2007
Voir Plus Instructions
1 Démarrer Microsoft Office Access 2007, puis sélectionnez « Base de données vide ", puis cliquez sur "Créer". Cliquez sur " Database Tools " puis sélectionnez " Visual Basic ". Cliquez sur le champ "Insérer" et sélectionner "Module" .
Type « sous readQueryResults privées " et appuyez sur "Entrée" pour créer un nouveau sous-programme.
2 Tapez la commande suivante à déclarer les variables que vous allez utiliser pour lire les résultats de la requête :
RecordSt As Recordset
Dim dBase comme base de données
stringSQL Dim As String
RCNT As Integer
3 Tapez la commande suivante pour créer la table " CityTbl ":
stringSQL = " CREATE tABLE CityTbl ( texte Ville (25) , TEXT État ( 25) ) ; "
DoCmd.RunSQL ( stringSQL )
4 Tapez la commande suivante pour ajouter deux nouveaux records à votre" CityTbl " tableau :
stringSQL = " INSERT INTO CityTbl ( [ Ville ], [ État ] ) "
stringSQL = stringSQL &" VALUES ( ' Fort Worth ', ' Texas '); "
DoCmd.SetWarnings Faux
DoCmd.RunSQL ( stringSQL )
stringSQL = "INSERT INTO CityTbl ( [ Ville ], [ État ] ) "
stringSQL = stringSQL & " VALUES (' Dallas ', ' Texas '); "
DoCmd.SetWarnings Faux
DoCmd.RunSQL ( stringSQL )
5 tapez la commande suivante pour définir votre requête et ouvrez vos enregistrements:
stringSQL = "SELECT * FROM CityTbl CityTbl ; ».
Set RecordSt = dBase.OpenRecordset ( stringSQL )
6 Tapez la commande suivante pour créer une " boucle For " et montrez votre résultats de la requête par le biais d'une boîte de Message: Bonjour, RecordSt.MoveFirst
RCNT = 0 To RecordSt.RecordCount
MsgBox ( RecordSt.Fields («Ville» ) Valeur & ". , "& RecordSt.Fields ( « État » ) . Value)
RecordSt.MoveNext
Suivant RCNT
Appuyez sur" F5 " pour exécuter la sous-routine .
|
