ComboBox sous VB 6.0 reliée à Access 2000 (avec DAO)Résolu

Question

Bonjour,

Je voudrais cr&#233;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&#233; 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&#231;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&#232;s explicite mais c'est pour essayer de vous faire c omprendre 

 Merci &#224; ceux qui pourront m'aider

cs_ITALIA · Accepted Answer

Set db= opendatabase("c:\Mesdoc\...\fnci.mdb") ' Connexion &#224; la Base
Set Donnee = db.openrecordset("SELECT nom_prenom FROM USER ORDER BY nom_prenom") ' Selection des Enregistrements selon les crit&#233;res de la Requete
If Donnee.Recordcount<>0 then ' Si des enregistrement sont Selectionn&#233;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&#233;e
Set Donnee=Nothing

End sub

It@li@

jpleroisse · Answer

Bonjour,

N'oublie pas de placer les les r&#233;f&#233;rences &#224;  Activex
DataObject  et DAO , pour toi DAO 3.6 et Activex DataObject 2.6
(je crois).





Private Sub Form_Activate()

Dim adoConnection As ADODB.Connection

Dim adoRecordSet As ADODB.Recordset

Set adoConnection = New ADODB.Connection

Set adoRecordSet = New ADODB.Recordset

Dim ConnectionString As String

ConnectionString "Provider Microsoft.Jet.OLEDB.3.51;" & " Data
Source = C:\Program Files\Microsoft Visual Studio\vb98\Biblio.mdb"

adoConnection.Open ConnectionString

adoRecordSet.Open "Publishers", adoConnection

Do Until adoRecordSet.EOF



Combo1.AddItem adoRecordSet!Name

adoRecordSet.MoveNext

Loop

adoRecordSet.Close

adoConnection.Close



Set adoConnection = Nothing

Set adoRecordSet = Nothing



End Sub



jpleroisse

cs_ITALIA · Answer

Exact en cochant bien la R&#233;f&#233;rence :

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

End ub

It@li@

cs_ITALIA · Answer

Avec &#224; la Fin

Set db= Nothing
Set Donnee =Nothing

It@li@

bjipowa · Answer

Salut Itali@,

Peut tu m'expliquer simplement le code stp (j'aime bien comprendre tout ce que j'&#233;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&#233;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&#233; afin de puvoir metrre par la suite
CombotTT = Donnee("Varaible") ??

Je c'est pas si c'est tr&#232;s tr&#232;s clair mon explication l&#224; ...

 Merci

bjipowa · Answer

oki Italia

Et promis, cette fois je n'oublie plus de d&#233;salouer mes varialbes (Db= nothing)

LooL

Merci et @+

cs_ITALIA · Answer

Evites les noms de champ &#224; rallongue ou avec des _, ou encore avec des accents...

It@li@

bjipowa · Answer

Voila le code ins&#233;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&#233;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&#233;moire attribu&#233;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"

kkun s'est &#224; quoi elle correspond ??

bjipowa · Answer

Ok c'est bon question annul&#233;e LooL g vu!

merci quand m&#234;me

+

cs_ITALIA · Answer

Il faut enlever le =
NomPrenom.AddItem Donnee("NomPrenom_FNCI")

It@li@