jijidiscover
Messages postés65Date d'inscriptionjeudi 4 octobre 2007StatutMembreDernière intervention24 mars 2009
-
16 déc. 2007 à 21:38
jijidiscover
Messages postés65Date d'inscriptionjeudi 4 octobre 2007StatutMembreDernière intervention24 mars 2009
-
19 déc. 2007 à 14:17
Salut tous,
j'ai inserer plusieurs combo dans un formulaire:
société,service,catégorie, departement, qualification.
les données se trouve dans une base de données sqlserver
chaque donnée appartient à une table
le problème c ke j'arrive pas à mettre chaque données dans le combo correspondant.
ce code me permet d'afficher tous les données dans un seul combo.
j'ai essayer de séparer les requetes select, le premier combo s'affiche correctement mé le deuxième m'indique un message d'erreur 'cette operation n'est pas permis si l'objet est ouvert'
<li>PrivateSub Form_Load()
</li><li>Adodc2.CursorLocation = adUseClient
</li><li>Adodc2.CursorType = adOpenDynamic
</li><li>Adodc2.ActiveConnection = p_adoConnect.ConnectionString
</li><li>Adodc2.Open "SELECT Société.[Libellé sct], département.Libellé, Service.[Libellé service],Catégorie.Libellé_CAT,[Groupe horaire].[Libellé groupe] , qualification.[Libellé qtl] FROM Société CROSS JOIN Service CROSS JOIN Catégorie CROSS JOIN département CROSS JOIN qualification CROSS JOIN [Groupe horaire] ORDER BY Société.Id_société"
</li><li>i = 0
</li><li>DoWhileNot Adodc2.EOF
</li><li>Combo1(1).AddItem Adodc2.Fields("Libellé sct") + "" + Adodc2.Fields("Libellé") + "" + Adodc2.Fields("Libellé service") + "" + Adodc2.Fields("Libellé_CAT") + "" + Adodc2.Fields("Libellé groupe") + "" + Adodc2.Fields("Libellé qtl"), i
</li><li>i = i + 1
</li><li>Adodc2.MoveNext
</li><li>Loop</li><li>EndSub</li>Merci pour votre aide