ComboBox sous VB 6.0 reliée à Access 2000 (avec DAO) [Résolu]
bjipowa47
Messages postés mercredi 18 août 2004Date d'inscription
29 mars 2007
Dernière intervention
-
3 juin 2005 à 10:32 - Dernière réponse : cs_ITALIA2169
Messages postés vendredi 20 avril 2001Date d'inscription
30 juin 2009
Dernière intervention
- 6 juin 2005 à 07:27
Je voudrais créer un comboBox qui me permet de selectionner dans ma Access le nom des utilisateurs et que cela me les affiche organiser par nom.
Voila le code pour la requete SQL a integrer (rappel : j'utilise DAO 3.6) :
Set db= opendatabase("c:\Mesdoc\...\fnci.mdb")
Set Donnee = db.openrecordset("SELECT nom_prenom FROM USER ORDER BY nom_prenom")
Etant donné que la requete renvoi plusieurs valeur, je suppose qu'il me faut utiliser une boucle FOR, mais je ne c'est pas comment faire. Faut il que j'incremente la variable DONNEE afin qu'elle me renvoi les lignes une par une ou faut t-il que je la perçoive comme un tableau et comment l'incrementer dans ces cas la ??
Voila ce que je voudrais faire :
If db.Recordcount<>0 then
For i=0 to Donnee[Nb_enregistrement]
ComboTT = Donnee[Num_element_en_cours]
Next
Else
Text1.Text = ERREUR DE CHARGEMENT ! acune donnee n'a pu etre trouvee...
End if
End ub
Je c'est, mon code n'est pas très explicite mais c'est pour essayer de vous faire c omprendre
Set db= opendatabase("c:\Mesdoc\...\fnci.mdb") ' Connexion à la Base
Set Donnee = db.openrecordset("SELECT nom_prenom FROM USER ORDER BY nom_prenom") ' Selection des Enregistrements selon les critéres de la Requete
If Donnee.Recordcount<>0 then ' Si des enregistrement sont Selectionnées par la Requete
Do Until Donnee.eof ' Jusqu'a la Fin de la Selection
ComboTT.Additem = Donnee[Num_element_en_cours] ' Ajout dans une Combo des champs Num_Element_En_Cours
Donnee.Movenext ' Passage au suivant
Next
Else
Text1.Text = ERREUR DE CHARGEMENT ! aucune donnee n'a pu etre trouvee...
End if
Set db=Nothing ' Liberation de la Memoire Attribuée
Set Donnee=Nothing
Set db= opendatabase("c:\Mesdoc\...\fnci.mdb")
Set Donnee = db.openrecordset("SELECT nom_prenom FROM USER ORDER BY nom_prenom")
If Donnee.Recordcount<>0 then
Do Until Donnee.eof
ComboTT = Donnee[Num_element_en_cours]
Donnee.Movenext
Next
Else
Text1.Text = ERREUR DE CHARGEMENT ! aucune donnee n'a pu etre trouvee...
End if
bjipowa47
Messages postés mercredi 18 août 2004Date d'inscription
29 mars 2007
Dernière intervention - 3 juin 2005 à 12:35
0
Merci
Salut Itali@,
Peut tu m'expliquer simplement le code stp (j'aime bien comprendre tout ce que j'écrit en fait LooL)
/* ici j'ai compris la boucle Do */
Do Until Donnee.eof
/* ici n'y a t-il pas un code spécifique a mettre ?? */
ComboTT = Donnee[Num_element_en_cours]
Donnee.Movenext
Next
Until Donnee.eof sert a koi ??
Est il neceesaire de crer une autre variable select count(nom_prenom) FROM ...
puisd de mettre la valeur trouvé afin de puvoir metrre par la suite
CombotTT = Donnee("Varaible") ??
Je c'est pas si c'est très très clair mon explication là ...
bjipowa47
Messages postés mercredi 18 août 2004Date d'inscription
29 mars 2007
Dernière intervention - 3 juin 2005 à 15:02
0
Merci
Voila le code insérer :
Private Sub Form_Load()
' connexion au serveur
Set db = opendatabase("C:\Documents and Settings\bbouche\Mes documents\VB PROJET\FNCI\fnci.mdb")
' on cree et execute la requete
Set Donnee = db.openrecordset("SELECT * FROM UTILISATEUR ORDER BY NomPrenom_USER") ' Selection des Enregistrements selon les critéres de la Requete
' on verifie que la requete renvoie bien des valeurs
Do Until Donnee.EOF
NomPrenom.AddItem = Donnee("NomPrenom_FNCI")
Donnee.Movenext ' Passage au reultat suivant
Loop
' Liberation de la mémoire attribuée
Set db = Nothing
Set Donnee = Nothing
End Sub
Voila l'erreur que le prog me met en soulignant .Additem :
"Cet argument n'est pas facultatif"
a aidé 69 internautes ce mois-ci