Bonjour,
Je travaille depuis quelque temps sur les bases de données Access et notamment sur l'accès de ces bases depuis d'autres applications comme Excel ou Word.
Seulement il existe deux protocoles afin d'accéder à ces données: DAO (ancien) et ADO (récent). Microsoft recommande d'utiliser ADO, ce qui est compréhensible!
Donc j'ai lancé mon projet avec ADO! Je note également que j'utilise Office 2010.
Version 2010 qui pourvoit Access de traiter les champs "Multi-valeurs". Malheureusement c'est là que je sèche!
Je sais écrire le code en DAO mais je n'arrive pas à le migrer vers ADO.
J'ai même cru lire que ADO ne traite pas ces champs multi-valeurs.
Voici le code:
Le code lancé depuis Word se connecte à la base de donnée de lien "MyLink", puis se connecte à la table "CHANTIERS".
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Dim db As DAO.Database Set db = DBEngine.OpenDatabase(MyLink) Dim rstclient As DAO.Recordset Set rstclient = db.OpenRecordset("CHANTIERS") Dim rstchild As DAO.Recordset Do Until rstclient.EOF Set rstchild = rstclient("MAITRE D'OUVRAGE").Value Do Until rstchild.EOF MsgBox (rstchild(0)) rstchild.MoveNext Loop rstclient.MoveNext Loop rstchild.Close rstclient.Close db.Close
On boucle sur tous les enregistrements dans le champ "MAITRE D'OUVRAGE" et sur chaque enregistrement, on boucle sur les valeurs "Enfant" dites Multi-valeurs.
Est-il possible d'avoir se code en ADO?
Partager