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

TanK__1001101 · Answer

Non ca c bon les champ sont correctes........ ca vient du "additem" ou
des appels des champ apr&#232; le nom du curseur si  je me susi aps
fait comprendr c ce ki l ya de soulign&#233;:

date_conges.Additem (Creq_date.Fields("JOU_libelle") & "  " &
Creq_date.Fields("MOI_libelle") & " " &
Creq_date.Fields("ANN_num"))

merki si vs arriver a me d&#233;panner

Tank

Renfield · Answer

testes donc dans la fenetre de debug ! (Ctrl + G )

tu fais par exemple, au moment ou tu as le message d'erreur, tu entre en mode debogage.

? Creq_date.Fields("JOU_libelle").value

et tu vois ce qu'il t'es renvoy&#233;

autre chose, attention a ce que tu ecris sur le forum. Ce que tu indique ressemble a un SMS, c'est d&#233;sagr&#233;able...

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

TanK__1001101 · Answer

okay je vais essayer ca plus tar la je suis en weekend merci beaucoup
je dirai ca lundi si c'est bon et d&#233;sol&#233; pour mon &#233;criture, on me le
dit souvent mais n'y pense pas assez(j'ai fais des effort l&#224; !!! )

@lundi pour que tu puisse encore me d&#233;panner...

TanK__1001101 · Answer

Bonjour Renfield,



Donc me revoila avec mon probl&#232;me  :

N'ayant jamais utilis&#233; le mode d&#233;bogage, j'ai pas r&#233;ussi &#224; renvoyer le
r&#233;sultat de
:            
? Creq_date.Fields("JOU_libelle").value

***************

Erreur d'ex&#233;cution '424':

Objet requis

***************



Mon probl&#232;me reste toujours inchang&#233; concernant le renvoi des r&#233;sultat
de ma requete(Creq_date) dans une liste (date_conges)..... :

date_conges.additem (Creq_date.Field(1) & "  " & Creq_date.Field(2) & "  " & Creq_date.Field(3))

 ***********************
 erreur de complilation:
 menbre de m&#233;thode ou de donn&#233;es introuvable
 ***********************    

Je te remercie de pouvoir continuer &#224; m'aider

TanK

Renfield · Answer

Pour le mode Debug, lorsque l'erreur surviens, tu cliques sur Mode Debogage

ensuite, dans la fenetre d'execution (Ctrl + G) tu tapes tes commandes, et tu presse ENTREE...

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

TanK__1001101 · Answer

donc c'est ce que j'avais fait, aumoment o&#249; ca bloque (avec le message
d'erreur) j'ai &#233;cri : ? Creq_date.Fields("JOU_libelle").value dans le
fenetre de d&#233;bogage... il ma donc mit : 

***************
 Erreur d'ex&#233;cution '424':
 Objet requis
 ***************



Je suis d&#233;s&#233;p&#233;remment d&#233;s&#233;sp&#233;r&#233;..... 



TanK

Renfield · Answer

date_conges.additem (Creq_date.Field(1) & "  " & Creq_date.Field(2) & "  " & Creq_date.Field(3))

mettre plutot 

date_conges.additem (Creq_date.Field(0 & "  " & Creq_date.Field(1) & "  " & Creq_date.Field(2))

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

TanK__1001101 · Answer

Non toujour pas et ca me met toujours la meme chose....

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

28 réponses

Discussions similaires