|
Connaître comment transférer des données entre les tables de base de données peut rendre vos applications de base de données plus dynamique. Microsoft Office Access est couramment utilisé pour concevoir de petites et locales bases de données. Dans Access , vous pouvez utiliser Microsoft Visual Basic pour Applications ( VBA) pour automatiser les tâches de routine telles que le transfert de données d'un tableau à l'autre. VBA est un langage de programmation informatique qui vous fournira une plus grande souplesse pour manipuler les données . Une requête est utilisée récupérer des informations à partir d'une table de base de données. Choses que vous devez
Microsoft Office Access
base de données Northwind
Afficher plus Instructions
1 Démarrer la base de données Access Northwind Microsoft Office . La base de données Northwind est inclus dans la suite Microsoft Office. Sélectionnez le menu "Insertion " et cliquez sur
2 Tapez la suivante pour créer un nouveau sous-programme "Module ". :
Private Sub transferData ()
presse " Entrez "
3 Tapez le suivant pour déclarer vos variables : .
stringSQL Dim As String
db As Database
rst As Recordset
rstTwo As Recordset
Set db = CurrentDb
4 Tapez la commande suivante pour créer une nouvelle table et le transfert de données :
< p> stringSQL = "CREATE tABLE EmployeeNames (texte NOM (25) , TEXT Prénom (25) ) ; "
DoCmd.RunSQL ( stringSQL )
Tapez la commande suivante pour ouvrir la nouvelle table à travers un jeu d'enregistrements à ajouter des données :
Set rstTwo = db.OpenRecordset ( " EmployeeNames " )
5 Tapez la commande suivante pour interroger la table «Employés» :
stringSQL = "SELECT Employees.Company , "
stringSQL = stringSQL et " employés . [ Nom ] , "
stringSQL = stringSQL et " employés . [ Prénom ] "
< p> stringSQL = stringSQL & " FROM Employees ; "
Set rst = db.OpenRecordset ( stringSQL )
rst.MoveLast
rst.MoveFirst
6 Tapez la commande suivante pour parcourir la requête et le transfert "Nom" et "Prénom" à la table " EmployeeNames ":
Do While Not rst.EOF
rstTwo . AddNew
rstTwo.Fields ( "Nom" ) . Value = rst.Fields (« [nom] »). Valeur
rstTwo.Fields ( " Prénom " ) . Value = rst . Fields ( " [ Prénom ]") . Value
rstTwo.Update
rst.MoveNext
boucle
7 Tapez la commande suivante pour variables de libération de la mémoire :
rst.Close
rstTwo.Close
db.Close
Appuyez sur " F5 " pour exécuter votre routine
.
|
