|
Apprendre à émettre des valeurs multiples d'une requête peut rendre votre application informatique plus dynamique. Un programme que vous pouvez utiliser pour interroger une table de base de données Microsoft Office Access . Access est un système de gestion de base de données relationnelle souvent utilisé pour les petites bases de données locales . Visual Basic pour Applications est un langage de programmation informatique utilisé pour automatiser des tâches de routine dans Access et d'autres applications Microsoft Office. Une requête est utilisée pour récupérer des informations à partir d'une table de base de données. Instructions
1 Démarrer Microsoft Office Access 2010 et sélectionnez « Nouvelle base de données ", puis cliquez sur " Créer". Cliquez sur " Database Tools " puis sélectionnez " Visual Basic ". Cliquez sur le champ "Insérer" et sélectionner "Module ".
2 Appuyez sur "Ctrl " et "A" et appuyez sur "Supprimer" pour supprimer tout le code existant.
3 Copier et coller le code ci-dessous dans votre module. Le sous-programme va créer un nouveau tableau , ajouter des enregistrements , pour ensuite interroger plusieurs domaines. La requête va afficher plusieurs valeurs de ces champs et les afficher dans une boîte de message .
AccessMultipleQueryValues Private Sub ()
Dim dbs As Database
rst As Recordset < br > strSQL Dim As String
Dim X As Integer
Set dbs = CurrentDb
strSQL = "Créer des multipleValues TABLE ( Champ1 TEXT, TEXT Field2 , Field3 TEXTE ) , "
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO multipleValues ( champ1 , champ2 , Field3 ) "
strSQL = strSQL &" VALUES ( 'row field1Data 1 ',' field2Data ligne 1 »,« field3Data ligne 1 '); "
DoCmd.SetWarnings Faux
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO multipleValues ( champ1 , champ2 , Field3 ) "
strSQL = strSQL &" VALUES ( 'row field1Data 2', 'row field2Data 2', 'row field3Data 2') ; "
Docmd . Avertissements Faux
DoCmd.RunSQL ( strSQL )
strSQL = "INSERT INTO multipleValues ( champ1 , champ2 , Field3 ) "
strSQL = strSQL & " VALUES ( 'row field1Data 3 ',' field2Data ligne 3 »,« field3Data rangée 3 '); "
DoCmd.SetWarnings faux
DoCmd.RunSQL ( strSQL )
strSQL =" SELECT multipleValues . * à partir de multipleValues "
strSQL = strSQL & " WHERE multipleValues.Field1 = ' field1Data ligne 2 '; "
Set rst = dbs.OpenRecordset ( strSQL )
rst . MoveLast
rst.MoveFirst
Pour X = 0 To rst.RecordCount - 1 x MsgBox " Rubrique1 données: " . & rst.Fields (0) Value & " , FIELD2 données: " . _
& rst.Fields (1 ) Valeur &", field3 données: . "& rst.Fields (2) Valeur
rst.MoveNext
< p> Suivant X
rst.Close
dbs.Close
End Sub
4 Appuyez sur " F5 " pour exécuter votre routine .
|
