Travailler avec plusieures tables en DAO
Résolu
stef.roos
Messages postés
90
Statut
Membre
-
stef.roos Messages postés 90 Statut Membre -
stef.roos Messages postés 90 Statut Membre -
Bonjour,
Je suis débutant et pour l'instant je dévelloppe une petite application avec vb6 traitant des bases de données access. Je suis arrivé à faire tout ce que je voulais avec des formulaires faisant appel à une seule table.
Maintenant je voudrais créer un formulaire faisant appel à deux voir même trois tables.
Voici de quelle manière je me connecte à ma table :
Set BaseDeDonnees = OpenDatabase(FichierDeDonnees)
Donnees = "select * from MaTable"
Set Enregistrement = BaseDeDonnees.OpenRecordset(Donnees, dbOpenDynaset)
Après pour afficher la valeur d'un champ dans un textbox, j'écris :
Text1.Text = Enregistrement.Fields("Champ")
Maintenant j'aimerais pouvoir écrire :
Text1.Text = Enregistrement.Fields("Champ")
Text2.Text = Enregistrement2.Fields("Champ")
Mais je ne sais pas comment programmer l'ouverture de deux tables en même temps.
Pouvez-vous m'aider?
Merci
Je suis débutant et pour l'instant je dévelloppe une petite application avec vb6 traitant des bases de données access. Je suis arrivé à faire tout ce que je voulais avec des formulaires faisant appel à une seule table.
Maintenant je voudrais créer un formulaire faisant appel à deux voir même trois tables.
Voici de quelle manière je me connecte à ma table :
Set BaseDeDonnees = OpenDatabase(FichierDeDonnees)
Donnees = "select * from MaTable"
Set Enregistrement = BaseDeDonnees.OpenRecordset(Donnees, dbOpenDynaset)
Après pour afficher la valeur d'un champ dans un textbox, j'écris :
Text1.Text = Enregistrement.Fields("Champ")
Maintenant j'aimerais pouvoir écrire :
Text1.Text = Enregistrement.Fields("Champ")
Text2.Text = Enregistrement2.Fields("Champ")
Mais je ne sais pas comment programmer l'ouverture de deux tables en même temps.
Pouvez-vous m'aider?
Merci
A voir également:
- Travailler avec plusieures tables en DAO
- Tables des matières word - Guide
- Tables ascii - Guide
- Comment travailler sur 2 écrans - Guide
- Redmagic cyberbuds dao tws - Accueil - Audio
- Sujet de tfc déjà travaillé en informatique pdf ✓ - Forum Access
2 réponses
Bonjour,
ou pour reprendre ton code:
Dim base1 As DAO.Recordset2
Dim base2 As DAO.Recordset2
Set base1 = CurrentDb.OpenRecordset("Ma_table1")
Set base2 = CurrentDb.OpenRecordset("Ma_table2")
ou pour reprendre ton code:
Set BaseDeDonnees = OpenDatabase(FichierDeDonnees)
Donnees1 = "select * from MaTable"
Donnees2 = "select * from MaTable2"
Set Enregistrement = BaseDeDonnees.OpenRecordset(Donnees1, dbOpenDynaset)
Set Enregistrement2 = BaseDeDonnees.OpenRecordset(Donnees2, dbOpenDynaset)
