|
Microsoft Access est une partie de la suite Microsoft Office . Grâce à ce logiciel , vous pouvez créer des bases de données individuelles, les rapports et formulaires . Access vous permet de créer vos propres applications en utilisant ces composants. Pour ajouter encore plus de fonctionnalités à vos applications ou bases de données , vous pouvez programmer des tâches dans Visual Basic pour Applications ( VBA) . VBA est le langage standard de développement de Microsoft pour les produits Office. Le langage est basé sur de Visual Basic 6.0 et utilise une syntaxe similaire. Une des nombreuses choses que vous pouvez faire avec cette langue est d'exécuter des requêtes sur vos données. Instructions
1 exécuter une requête et a mis ses résultats dans un jeu d'enregistrements pour la manipulation . Copiez et collez le code VBA ci-dessous pour charger les données de votre requête .
DbMyDatabase As DAO.Database
rsMyRecords As DAO.Recordset
Set dbMyDatabase = CurrentDB < br > 2 exécuter une requête avec paramètres d'entrée à l'aide d'un objet de définition de la requête , puis charger ses résultats dans un jeu d'enregistrements en utilisant l'exemple de code ci-dessous.
dbMyDatabase As DAO.Database
rsMyRecords As DAO.Recordset
qdMyParameters As DAO.QueryDef
Set dbMyDatabase = CurrentDB < br > Set qdMyParameters = dbMyDatabase.QueryDefs ( " MaRequête " )
qdMyParameters.Parameters ( " MyParameter " ) = "valeur"
Set rsMyRecords = qdMyParameters.OpenRecordset ()
3 boucle à travers chaque enregistrement retourné et effectuer une action . L'exemple ci-dessous est une façon de le faire
Do While Not rsMyRecords.EOF
Debug.Print " Le contenu de ma chronique : " . ! & RsMyRecords [ MyColumnName ]
rsMyRecords.MoveNext
boucle
4 exécuter une requête SQL au lieu d'une requête Access nommée et a mis ses résultats dans un jeu d'enregistrements pour la manipulation . Copiez et collez le code VBA ci-dessous.
DbMyDatabase As DAO.Database
rsMyRecords As DAO.Recordset
strQuery Dim As String
strQuery = "SELECT * FROM MyTable "
Set dbMyDatabase = CurrentDB
Set rsMyRecords = dbMyDatabase.OpenRecordset ( strQuery )
5 Exécute une commande qui ne renvoie pas tous les enregistrements l'utilisation de ce code VBA. UPDATE et DELETE commandes sont des exemples de déclarations qui ne renvoient pas d'enregistrements.
CurrentDb.Execute " MyQueryName "
|
