Se connecter / S'enregistrer
Votre question

[Résolu][VB6]Remplissage de combobox

Tags :
  • Visual basic
  • Programmation
Dernière réponse : dans Programmation
5 Juin 2008 11:27:40

Bonjour,

Je suis actuellement en stage, et mon projet est de créer une application permettant de gérer les addresses ip de l'entreprise.
Je dois développer cette application en visual basic, langage que je ne connais pratiquement pas ^^"

Passons au problème :
J'ai positionné des combobox sur ma Form, chacune ayant ses propriétés DataField et DataSource renvoyant à un composant adodc qui lui est propre (et qui sont normalement bien parametrés).
Lorsque mes combobox sont en dropdown Combo, seul le contenu de la 1ère ligne du champ choisi s'affiche, et la combo, une fois déroulée, est vide...
Si je les mets en Dropdown List, je reçois le message d'erreur "Impossible de lier au champ ou au DataMember NomEtab" (NomEtab est mon champ à afficher)

Pouvez-vous m'aider svp ? ^^"

Autres pages sur : resolu vb6 remplissage combobox

6 Juin 2008 09:56:48

up :-/
9 Juin 2008 08:42:23

Hemorro a dit :
up :-/

9 Juin 2008 11:32:50

Bon on a pu m'aider ailleurs, merci quand même -_-
Je mets la solution si ça peut aider...

  1. Private Sub Form_load()
  2. 'Définition de la variable base
  3. Dim db As DAO.Database
  4.  
  5. 'Définition de la variable enregistrement
  6. Dim rec As DAO.Recordset
  7.  
  8. 'Ouverture de la base de données
  9. Set db = DAO.OpenDatabase("chemin de la base (Exemple : C:\...\db.mdb)", False, False)
  10.  
  11. 'Requête SQL qui va récupérer différentes données dans la base
  12. Set rec = db.OpenRecordset("SELECT NomEtab FROM ETABLISSEMENT" (par exemple), DAO.dbOpenSnapshot)
  13.  
  14. 'Remise à zéro du contenu de la liste déroulante (pour actualiser en fait, si je remet pas à zéro, quand tu lance ta macro les données vont s'ajouter au précédentes)
  15. Combobox1.Clear
  16.  
  17. 'Alimentation de la liste déroulante avec les données récupérées tant que le fichier n'est pas fini (donc en l'occurence tant qu'il y a des données)
  18. Do While Not (rec.EOF)
  19. Combobox1.AddItem rec.Fields(0).Value
  20. rec.MoveNext
  21. Loop
  22.  
  23. 'Fermeture de la base et de l'enregistrement
  24. rec.Close
  25. db.Close
  26. Set rec = Nothing
  27. Set db = Nothing
  28. End Sub
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS