Connaître comment ouvrir et interroger plusieurs bases de données peut vous faire gagner du temps lorsque vous avez besoin d'utiliser les données provenant de plusieurs fichiers de base de données . Microsoft Office Access est un système de gestion de base de données relationnelle développée par Microsoft . Access est une application populaire utilisé pour concevoir des bases de données locales . Une requête est utilisée pour récupérer des informations à partir d'une table de base de données. Visual Basic pour Applications, également connu sous VBA est un langage de programmation informatique qui peut être utilisé pour interroger plusieurs bases de données . Choses que vous devez
Microsoft Office Access
Afficher plus Instructions
1

Démarrer Microsoft Office Access , sélectionnez « Base de données vide " puis cliquez sur "Créer". Cliquez sur " Database Tools " puis sélectionnez " Visual Basic ". Sélectionnez le menu "Insertion " puis cliquez sur
2

Tapez le suivant pour créer le " queryMultipleDbs " sous-programme "Module ". :

QueryMultipleDbs Private Sub ( )

Appuyez sur " Entrée".
3

Tapez la commande suivante pour déclarer de nouvelles variables :

rst As Recordset

Dim dbs As Database
< p > Dim DBS2 comme base de données
4 Type de

la suivante pour ouvrir la première base de données :

Set dbs = OpenDatabase ("C: \\ Northwind 2007.accdb " )
< p> Modifier le chemin et entrez votre chemin de base de données
5

tapez le suivant pour ouvrir la deuxième base de données : .

Set DBS2 = OpenDatabase ("C: \\ Copie Northwind 2007. accdb " )

modifier le chemin et entrez votre chemin de base de données.
6

tapez la commande suivante pour interroger le " " table de la première base de données et afficher les valeurs dans le" Dernier employés nom " colonne :

Set rst = dbs.OpenRecordset ( " Employés SELECT * FROM Employees »).

rst.MoveLast

rst.MoveFirst

Do While Not rst.EOF

Debug.Print rst.Fields ( "Last Name" ) . Value

rst.MoveNext

boucle

TVD. Fermer
7 Type de

la suivante pour interroger la table " Produits " dans la première base de données et afficher les valeurs dans la colonne " code de produit ":

Set rst = dbs2.OpenRecordset ( « sélectionner des produits . * FROM Products " )

rst.MoveLast

rst.MoveFirst

Do While Not rst.EOF

Debug.Print rst . Fields ( " Product Code " ) . Value

rst.MoveNext

boucle

rst.Close

Set dbs = Nothing

set DBS2 = Nothing

Appuyez sur " F5 " pour exécuter votre routine et afficher les résultats dans la fenêtre Exécution .