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