résultat d'une requete dans une liste......SVP je trouve pas...Résolu

Question

je voudrai renvoyer les r&#233;sultat dune requete (dont chaque ligne contient 3 valeur) dans une liste.


Quelqu'un m'a laisser sous-entendre d'utiliser : date_conges.Additem
Creq_date (0) & " " & Creq_date(1) & " " & Creq_date(2)

  pourriez vous m'expliquer comment ceci fonctionne?

  voici une partie de mon prog:

  

  req_date = " SELECT JOU_libelle,MOI_libelle,ANN_num " & _

                 " FROM JOUR,MOIS,EN_CONGES " & _

              
" WHERE EN_CONGES.JOU_num=JOUR.JOU_num " & _

                 " AND JOUR.MOI_num=MOIS.MOI_num " & _

              
" AND EN_CONGES.EMP_num = " & numero_emp 

  Set Creq_date = BDconges.OpenRecordset(req_date)

   While Not Creq_date.EOF

        date_conges.Additem 
Creq_date(0) & " " & Creq_date(1) & " " & Creq_date(2)

          Creq_date.MoveNext

  Wend

  

  je vous remerci de l'int&#233;r&#234;t que vous portez &#224; mon probl&#232;me...

  TanK

TanK__1001101 · Accepted Answer

la solution la plus courte est:



date_conges.additem (Creq_date(0) & "  " & Creq_date.Field(1) & "  " & Creq_date.Field(2))



mais cela ne fonctionnait pas car j'utilisais Office 2000.

J'ai essay&#233; sous Office 2003 et l&#224;... tout fonctionne



Merci encore &#224; Reinfield de m'avoir aider jusq'au bout.



TanK

cs_ITALIA · Answer

MaListe.Additem  Creq_date(0) & " " & Creq_date(1) & " " & Creq_date(2)
Ajoute dans MaListe les 3 Premiers Champs de l'enregistrement selectionn&#233; par ma requete

Tu peux aussi le faire de fa&#231;on plus claire de cette fa&#231;on, en donnant le nom du Champ :
MaListe.Additem  Creq_date("Nom") & " " & Creq_date("Prenom") & " " & Creq_date("Adresse")

It@li@

TanK__1001101 · Answer

excuz pour les 2 posts mais si tu regarde bien lotre &#233;tait en premier
et ya biento 2 Huere ki la t&#233;t&#233; poster.. dsl&#233; mais je suis vraiment
bloker...



concernant ton commentaire cest exactement je ke jai fai non? alor pourquoi ne veu til rien mafficher dans la liste?

TanK

jpleroisse · Answer

Bonjour,

Essaye ceci ?



Do Until Creq_date.EOF

MaListe.Additem  Creq_date.Fields(0) & " " & Creq_date.Fields(1) & " " & Creq_date.Fields(2)

Creq_date.MoveNext

Loop



jpleroisse

TanK__1001101 · Answer

il  me met ca:

***********************

erreur de complilation:

menbre de m&#233;thode ou de donn&#233;es introuvable

***********************

et il me met en bleu "Fields" (comme suivant)



voici ce ke jai fai:



req_date = " SELECT JOU_libelle,MOI_libelle,ANN_num " & _

               " FROM JOUR,MOIS,EN_CONGES " & _

              
" WHERE EN_CONGES.JOU_num=JOUR.JOU_num " & _

               " AND JOUR.MOI_num=MOIS.MOI_num " & _

              
" AND EN_CONGES.EMP_num = " & list_nom_suppr_employe_conges

    Set Creq_date = BDconges.OpenRecordset(req_date)

    Do Until Creq_date.EOF

        date_conges.Additem
Creq_date.Fields(0) & " " & Creq_date.Fields(1) & " " &
Creq_date.Fields(2)

        Creq_date.MoveNext

    Loop



TanK

jpleroisse · Answer

D'apr&#232;s ce que je vois il n'y a q'un champ ou il met une erreur ?

Si c'est cela essaye sans placer ce champ et vois si tu r&#233;cup&#232;res les
autres, dans ce cas cel&#224; viendrait peut-&#234;tre du format (si c'est une
date)

Tu me dis qu'il met en bleu, serait tu en .Net ??



jpleroisse

cs_ITALIA · Answer

Creq_date("NomduChamp")

It@li@

TanK__1001101 · Answer

Non je ne crois pas &#234;tre en .net, je ne sais m&#234;me pas ce que c'est!! lol

Pour les erreurs quand j'enl&#232;ve le Fields (en bleu dans mo prog plus haut) il me met en bleu le fields d'avant........ je vien d'essayer ta m&#233;thode italia mais ca ne marche pas, voici la partie de mon prog:



        req_date = " SELECT JOU_libelle,MOI_libelle,ANN_num " & _

               " FROM JOUR,MOIS,EN_CONGES " & _

              
" WHERE EN_CONGES.JOU_num=JOUR.JOU_num " & _

               " AND JOUR.MOI_num=MOIS.MOI_num " & _

              
" AND EN_CONGES.EMP_num = "
&         
list_nom_suppr_employe_conges

    Set Creq_date = BDconges.OpenRecordset(req_date)

Do Until Creq_date.EOF

        MsgBox
Creq_date.JOU_libelle & "/" &
Creq_date.MOI_libelle            
          &  "/" &
Creq_date.ANN_num

        date_conges.Additem
Creq_date("JOU_libelle") & "/" & Creq_date("MOI_libelle") &
" " & Creq_date("ANN_num")

        Creq_date.MoveNext)

Loop



Meme au niveau du  "msgbox"(en orange), il ne me renvoi rien....

En fait il me met partou:

***********************
 erreur de complilation:
 menbre de m&#233;thode ou de donn&#233;es introuvable
 ***********************

Que ce soit sur le "additem" ou les
("JOU_libelle") et autre champs, d&#232;s que jen enl&#232;ve un il y en a un
autre.... je uis perdu.... aidez moi......

Concernant le format du r&#233;sultat de ma requ&#234;te, c'est en "String".

AIDEZ-MOI SVP

TanK

TanK__1001101 · Answer

En fait c'est bon le msgbox marche lol... le r&#233;veil du matin a &#233;t&#233; dur je en savai plus que c'&#233;tait "!" et non pas "." 

donc ceci marche:       



MsgBox Creq_date!JOU_libelle & "/" & Creq_date!MOI_libelle & "/" & Creq_date!ANN_num



mais pas ceci:



date_conges.Additem Creq_date!JOU_libelle & " " & Creq_date!MOI_libelle & " " & Creq_date!ANN_num



il me met toujours ceci sur mes champs (en rouge ici,et je r&#233;p&#232;te que si jenl&#232;ve celui-l&#224; il le met sur celui d'avant etc...) :

 ***********************
 erreur de complilation:
 menbre de m&#233;thode ou de donn&#233;es introuvable
 ***********************

Renfield · Answer

Comment as tu d&#233;clar&#233; Creq_date ?

Dim Creq_date as ?????

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

TanK__1001101 · Answer

Dim Creq_date As DAO.Recordset



javai po donner le bon lol

Renfield · Answer

Passes en ADO, tu t'embetteras moins ;) et ca tournera mieux

utilises plutot Creq_date.fields("ANN_num").value que Creq_date!ANN_num

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

TanK__1001101 · Answer

commen on fait pour passer en ado???



TanK

TanK__1001101 · Answer

ca donne ca:



    Dim Creq_date As ADODB.Recordset

    Dim req_date As String



    req_date = " SELECT JOU_libelle,MOI_libelle,ANN_num " & _

               " FROM JOUR,MOIS,EN_CONGES " & _

              
" WHERE EN_CONGES.JOU_num=JOUR.JOU_num " & _

               " AND JOUR.MOI_num=MOIS.MOI_num " & _

              
" AND EN_CONGES.EMP_num = " & list_nom_suppr_employe_conges

    Set Creq_date = BDconges.OpenRecordset(req_date)

    Do Until Creq_date.EOF

        MsgBox Creq_date!JOU_libelle
& "/" & Creq_date!MOI_libelle & "/" & Creq_date!ANN_num

        date_conges.Additem
(Creq_date.Fields("JOU_libelle") & "  " &
Creq_date.Fields("MOI_libelle") & " " &
Creq_date.Fields("ANN_num"))

        Creq_date.MoveNext

    Loop



et toujours ca sur les "fields":

 ***********************
 erreur de complilation:
 menbre de m&#233;thode ou de donn&#233;es introuvable
 ***********************



TanK

TanK__1001101 · Answer

et une incompatibilit&#233; de type sur:



"Set Creq_date = BDconges.OpenRecordset(req_date)"   (apr&#232;s la requete)



TanK

Renfield · Answer

faut que tu changes tes types pour tes connexions, tes recordset etc....
le plus simple serait deja d'ajouter la reference (Microsoft Object Data) et de virer DAO...

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

TanK__1001101 · Answer

jai ajouter la r&#233;f&#233;rence pour ADO mais si je vire celle de DAO est ce
ke ej pourai tjr lutiliser ds mes autre formulaire?????? car pour les
autre recordset tout march c le seul formulair kil me rest ki a du mal
(et un autre du meme prinicipe)

Renfield · Answer

choisis l'une ou l'autre des technologies...

DAO est mort et ent&#233;rr&#233;, ADO a pris sa place. ADO est plus rapide, stable, etc et  c'est lui qui est maintenu par Microsoft...

le portage de l'un a l'autre implique de minimes changements du code.

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

TanK__1001101 · Answer

je vai tout faire en dao alor tu peu tjr maidez ou pas??? car ca implik
tro de changement ca fai 3 sem non -stop ke je boss sur mon prog je vai
po tt changer!!!(chui en stage)

Renfield · Answer

choix technologiques erron&#233;s ;-)

v&#233;rifie le nom de tes champs dans ta base et dans ton recordset (fenetre de Debug...)

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

Résultat d'une requete dans une liste......SVP je trouve pas...

28 réponses