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
Merci à ceux qui pourront m'aider
A voir également:
ComboBox sous VB 6.0 reliée à Access 2000 (avec DAO)
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
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à ...
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"
