DAO vers ADO: Champ multivaleur

DAO vers ADO: Champ multivaleur - VB/VBA/VBS - Programmation

Marsh Posté le 27-06-2013 à 00:23:19    

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:
 

Code :
  1. Dim db As DAO.Database
  2. Set db = DBEngine.OpenDatabase(MyLink)
  3.                    
  4. Dim rstclient As DAO.Recordset
  5. Set rstclient = db.OpenRecordset("CHANTIERS" )
  6.                    
  7. Dim rstchild As DAO.Recordset
  8.                                      
  9. Do Until rstclient.EOF
  10.      Set rstchild = rstclient("MAITRE D'OUVRAGE" ).Value   
  11.           Do Until rstchild.EOF
  12.                MsgBox (rstchild(0))
  13.                rstchild.MoveNext
  14.           Loop     
  15.      rstclient.MoveNext
  16. Loop
  17.                    
  18. rstchild.Close
  19. rstclient.Close
  20. db.Close


 
Le code lancé depuis Word se connecte à la base de donnée de lien "MyLink", puis se connecte à la table "CHANTIERS".
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?


Message édité par mmarle le 07-02-2015 à 08:44:25
Reply

Marsh Posté le 27-06-2013 à 00:23:19   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed