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
2 réponses
-
Bonjour,
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) -
