var d'une requeteselectRésolu

Question

bonjour,
 j'ai un probleme qui va vous parraitre tout simpl, enfait voilà j'ai une requete avec un select et j'aimerai que le resultat aille dans une combo,

 mais je ne connais pas la syntaxe, et je ne trouve pas d'exemple

merci
elodie

elodie1511 · Accepted Answer

ça marche pas, mais c'est pas grave, je viens d'apprendre que mon projet est annulé
 ,merci de m'avoir aidé
elodie

crn_c21 · Answer

MaCombo.Additem MonChamp

elodie1511 · Answer

oui mais le champ que je veux inserrer vient d'une requete
ça bloque au niveau de ma requete imbriquée, la syntaxe c'est bien ça:

   SQL = "select nomhomme"&_
          "From hommes, corhom, correspond2, heure" &_
          "Where refhomme.hommes = refhomme.corhom"&_
          "and numcorrespond.corhom=numcorrespond.correspond2"&_
          "and refheure.correspond2=refheure.heure"&_
          "and heurearrivee<" "select heuredepart"&_
                             "From correspond2, heure"&_
                             "where refheure.correspond2=refheure.heure";"

 c'est ça qui me bloque
elodie

crn_c21 · Answer

Fo voir comment t'a fais ta connexion à ta base!

elodie1511 · Answer

c'est bon j'ai trouvé, merci
elodie

elodie1511 · Answer

par contre ça n'insere que le premier champs de ma requete? 
 comment puis je faire?
ELODIE

crn_c21 · Answer

CBO.additem MonChamp1 & vbtab & MonChamp2 & vbtab & .......

elodie1511 · Answer

ça veut dire quoi pour toi vb tab?

 quand je dis ça insere que le premier champ  c'est pas qu'il insere pas toutes mes lignes, il me que la premiere ligne de la requete de ma table
je devrais avoir plusieurs resultat dans ma combo et j'en ia qu'un
elodie

crn_c21 · Answer

Il faut ke tu fasse une boucle pour passer a l'enregistrement suivant et le mettre dans le combo

pour cela tout dépend comment tu te connectes a tes données (ADO,Workspace ....)

elodie1511 · Answer

voilà mon code actuel ( je sais plus sic 'est du dao ou de l'ado , je crois que c'est de l'ado, je confond a chaque fois les deuxgrrr)

 SQL = "select nomhomme" & _
         "From hommes, corhom, correspond2, heure " & _
          "Where refhomme.hommes = refhomme.corhom " & _
          "and numcorrespond.corhom =numcorrespond.correspond2 " & _
          "and refheure.correspond2 =refheure.heure " & _
          "and heurearrivee <> select heuredepart" & _
                             "From correspond2, heure" & _
                             "where refheure.correspond2=refheure.heure ;"
         
            Combo6(0).AddItem rho("nomhomme")
            Combo7(0).AddItem rho("nomhomme")
            Combo8(0).AddItem rho("nomhomme")
            Combo9(0).AddItem rho("nomhomme")

elodie

crn_c21 · Answer

t'a 4 combo??

si c de l'ADO il faut parcourir ton recordset avec une boucle

style:

do until MonRecordset.eof
      MonCombo.additem Monrecordset!nomhomme
      MonRecordset.movenext
loop

elodie1511 · Answer

ça je sais faire;-) mais ça prend en compte ma requete? Parce que je le dis pas dans ma condition?
 C'est ça que je comprend pas enfait
elodie

crn_c21 · Answer

non je pense ke ta requete ne va pas dans un recordset

il faudrait ta chaine de connexion!

elodie1511 · Answer

c quoi la chaine de connexion?
 Enfait je voudrais relier ma requete a ma  boucle, mais je sais pas comment faire

elodie

crn_c21 · Answer

comment tu fais pour déterminer dans quelle base de données tu executes ta requète?

elodie1511 · Answer

j'ai fais un lien dans ma page principale:
Set base = OpenDatabase("C:\bd1.mdb")
End Sub

avec base déclarée dans le module,

crn_c21 · Answer

ok

bon alors

dim MonREcordset as recordset

set MonRecordset=base.openrecordset (" SELECT ........")

do until MonRecordset.eof
MonCombo.additem Monrecordset!nomhomme
MonRecordset.movenext
loop

elodie1511 · Answer

donc ça doit donner ça:( j'ai pris un autre exemple avec une requete plus simple pour commencer)

 Dim MonREcordset As Recordset   Set MonREcordset base.OpenRecordset("select nomclient From devis, client Where numero_client.devis numero_client.client and refdevis=rde!refdevis ;")

    
    Combo1(1).AddItem MonREcordset("nomclient")
    

 si je fais ça il me met:
 trop peu de parametre 
3 attendus

crn_c21 · Answer

Dim MonREcordset As Recordset
DIm refdevis as long (si c du numerique!)

refdevis=123456
Set MonREcordset base.OpenRecordset("select nomclient From devis, client Where numero_client.devis numero_client.client and refdevis=" & refdevis & ";")

Combo1(1).AddItem MonREcordset!nomclient

elodie1511 · Answer

ça ne change rien, il me dit toujours la meme chose en souligant le set monrecordset=base....
 qu'est ce qu'il veut dire par  trop peu de parametre?

elodie1511 · Answer

et puis  je dois faire ne fonction de mon refdevis trouvé dans un autre recordset
elodie

crn_c21 · Answer

trop peu de paramètres attendus ca veut dire qu'il ne trouve pas les champs designés dans la requète dans la table spécifiée

elodie1511 · Answer

ok mais il y a un truc que je comprend pas, enfait j'avais dejà du faire un truc de ce genre dans un autre programme( mais je sais plus comment je faisais ) et j'avais pas besoin de faire tout ça?
Je comprend plus rien!lol 
merci
elodie

cs_liquide · Answer

salut,
je n'ai pas tout lu, mais sur l'exemple :

do until MonRecordset.eof
MonCombo.additem Monrecordset!nomhomme
MonRecordset.movenext
loop
je met a la place:

do until MonRecordset.eof
MonCombo.additem Monrecordset.fields(1) ' ou 1 correspond au num du champs en partant de 0
MonRecordset.movenext
loop

je crois que c'est ca, dsl pour le test je ne peu pas en ce moment et donc ne peux pas affirmer si ca marche.(c'est de mémoire)

Bonne prog, poele_a_frire@hotmail.com
liquide

Renfield · Answer

Le code spécifié, est correct, liquide, l'erreur ne viens pas d'ici...

pour valider ton code ou ta requete, Elodie, change simplement ta requete pour une plus simple..... pour tester...

Amusez-vous !  ;) 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS

elodie1511 · Answer

ça marche quand c'est une requete simple, mais des que je met ma requete ça bugue, et je sais pas pourquoi, grrr j'ai enlevé 1 parametre attendu, mais les deux autres je les trouve pas,grrr
elodie

Renfield · Answer

pour l'ajout de parametres : Set MonREcordset base.OpenRecordset("select nomclient From devis, client Where numero_client.devis numero_client.client and refdevis='" & refdevis & "';") Amusez-vous ! ;) Renfield - thomas_reynald@msn.com Admin CodeS-SourceS

Var d'une requeteselect

27 réponses

Discussions similaires