Comment afficher un résultat dans un TextBoxRésolu

Question

Bonjour,

J'aurai voulu savoir comment doit-on procéder pour afficher le résultat d'une ComboBox dans un TextBox.
Dans ma ComboBox j'afficher le titre d'un CD et je voudrai faire apparaitre le descriptif du CD dés que je clique sur le titre qui m'intéresse dans ma TextBox.
Le code pour afficher les enregistrements dans une Combo Box est bon mais par à rapport à ça comment lui dire qu'il doit m'afficher le descriptif dans ma TextBox (les informations se trouvent dans la même table, ça doit pas être compliqué mais je ne vois pas comment faire). Je vous indique le code que j'ai écrit pour l'affichage de ma ComboBox :

Do Until record.EOF = True
      TitreCD.AddItem (record!Titre)
     record.MoveNext
Loop

Je vous remercie par avance

jrivet · Accepted Answer

SALut,

IL faut que tu refasse une requete a chaque fois que l utilisateur choisi un titre de CD ou alors tu stocke dans une collection le descriptif du cd lorsque tu rempli le combo (en y reflechissant plus simple).



Dim ColDescription as new collection

Do Until record.EOF = True
TitreCD.AddItem (record!Titre)
ColDescription.add record!Description, record!Titre ' te permet d ajouter la desciption dans une collection indexe par titre
record.MoveNext
Loop

Et apres lorsque l utilisateur click

Private Sub TitreCD_Click()
text1.text = ColDescription(TitreCD.text)
End Sub



Voila j espere avoir aider un petit peu
@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

Shiva20 · Answer

Merci d'avoir répondu aussi à mon message. J'ai donc essayé le code que vous m'avez conseillé mais le souci c'est quand j'éxecute la commande :

Text1.Text = ColDescriptif(TitreCD.Text)

Dans la feuille TitreCD_Click

Parcequ'il me dit que le EOF à un statut vrai ou que l'enregistrement est effacé (erreur d'éxecution 3021)

Je vous décris plus précisement mon code pour vous aider

Private Sub Form_Load()

recselect = "select Titre, Descriptif from CD"

Set record = cn.Execute(recselect)

Do Until rec.EOF = True
  TitreCD.AddItem (record!Titre)
  ColDescriptif.Add record!Descriptif, record!Titre 
  record.MoveNext
Loop

End Sub

Private Sub TitreCD_Click()

Text1.Text = ColDescriptif(TitreCD.Text) 'Message d'erreur à ce niveau

End Sub

J'ai voulu faire appel à un autre recordset mais au résultat il m'affiche que le dernier enregistrement correspondant au Descriptif

Merci beaucoup

jrivet · Answer

Salut,

CE message d erreur :Parcequ'il me dit que le EOF à un statut vrai ou que l'enregistrement est effacé (erreur d'éxecution 3021)

REssemble plus a un erreur de navigation dans un recordset qu a une erreur de colection

Une question ColDescriptif est bien une collection declare comme variable "globale" a ton form ?

Autre question ton code fonctione t il pour recuper juste les titres ?

@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

Shiva20 · Answer

Vous me demandez si j'ai déclaré la collection ColDescriptif en variable globale, non je l'avais mis en variable public. Mais lorsqu'on déclare une variable Globale, on est obligé de la mettre dans un module ? pour tester c'est ce que j'ai fait mais le message d'erreur est le même.

Oui, il récupére bien les titres et le descriptif.

Merci

jrivet · Answer

Salut,

DErnier message avant demain  ;) 
Arrete de me Vouvoyer s il te plait (a moin que ca te derange et dans ce cas je te vouvoierai aussi).

Non je disais "global" dans l sens au debut de ton Form donc comme tu la fait c est bien .

J ai pas trop le temps de regarder ce soir mais si tu veux envoie ton code et ta base donnee(si tu veux bien ), ainsi je l essaierai.

Mon email epsylon9@gmail.com
@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

Shiva20 · Answer

Je te remercie pour ta proposition je vais t'envoyer ça demain ou dans la soirée si j'ai le temps mais en attendant je te remercie d'avoir répondu à mes questions mais je ne vais pas t'embêter plus longtemps. Je te souhaite une bonne soirée et à demain
Merci

jrivet · Answer

Salut,

Voila j suis revenu  ;) 
@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

 · Answer

Salut,

Je viens de t'envoyer le programme sur ta boite mail

jrivet · Answer

Salut,
Tu l as envoye can car j ai toujours rien recu (epsylon9@gmail.com)
@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

 · Answer

L'adresse mail que tu m'as passé ne fonctionne pas j'ai encore essayé mais il me retourne le mail

jrivet · Answer

SAlut
Essaie jrivet@stjodijon.com

@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

Shiva20 · Answer

Salut
Je ne t'ai pas envoyé l'appli parceque j'ai un autre souci, j'ai une feuille qui s'éxécute en module est-ce que tu sais ce qu'il faut faire pour qu'il l'éxecute en tant que feuille pourtant l'extension de la feuille est bien frm.
Merci

jrivet · Answer

SAlut,

Non aucune idee,
mais tu peux can mem m envoye le projet (pas l appli) en zip et moi je me debrouillerai avec
@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

 · Answer

Je te l'ai envoyé à cette adresse : jrivet@stjodijon.com

jrivet · Answer

je crois que tu as oublier de joindre le projet au mail, car j ai recu que le texte  ;) 
@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

 · Answer

As-tu reçu le Zip ?

jrivet · Answer

salut,

oui mais j ai pas eu trop le temps de regarder, mais une derniere question

Y a t il tout ce dont j ai besoin pour debugger et t aider (base de donnees...)

pourrais tu essayer de refaire le zip car en fait je suis desole mais j ai des erreurs can j ouvre le projet et je peux rien faire.

je sais que ca va t emmerder mais bon..
@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

Shiva20 · Answer

Je fais appel à une base de donnée SQL Serveur. Moi aussi j'ai des erreurs vu que le module et la feuille GestionnaireCD sont erronés mais j'extrais ce qu'il y a dans le ZIP et j'ajoute ensuite les feuilles dans le projet1.

jrivet · Answer

Re,

J suis desole on va pas y arriver... tous les fichiers sont vides je les ai ouvert avec le bloc notes et il n y pas une ligne de code, juste les declarations interne a vb
@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

Shiva20 · Answer

On ne va pas se prendre la tête sur cette version je vais tous refaire et te renvoyer tous ça. Par contre je pourrai te passer ça que vendredi soir ou ce week-end, ça ne te dérange pas. Je fais un BTS par alternance et à partir de demain je suis en cours donc je ne vais pas pouvoir finir ça pour demain. Je te remercie de bien vouloir m'aider. A+

jrivet · Answer

Re,

Pas de probleme ,
non ca ne me derange pas , apres tout c est pour toi  ;) 
@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

Shiva20 · Answer

Salut

Je suis toujours sur mon appli de gestion de CD et j'ai une petite question. J'ai crée une requête qui me permet de récupérer le descriptif d'un CD par rapport au CD choisit dans ma ComboBox mais il y a une erreur de synthaxe au niveau du titre de CD. Je pense que c'est parceque le titre n'est pas entouré d'apostrophe, je te donne le code :

chSQL = "select Descriptif from CD Where Titre=" & ([TitreCD]) 
 
Set Record = MaCnx.Execute(chSQL) ' A ce niveau il me dit erreur de synthaxe

    Do Until Record.EOF
    DescriptifCD.Text = (Record!Descriptif)
    Loop

Shiva20 · Answer

Je t'ai envoyé le projet par mail sur la derniére adresse que tu m'as passé

jrivet · Answer

Slut,
Ca faisait longtemps  ;) 

J ai regarde ce que tu m a envoye et il n y pas 

chSQL = "select Descriptif from CD Where Titre=" & ([TitreCD]) 

Set Record = MaCnx.Execute(chSQL) ' A ce niveau il me dit erreur de synthaxe


Peu etre est ce normal.. bref dans tous les cas:

Lorsque tu veux comparer des chaine de caractere en SQL il faut que la chaine de caractere soit entre apostrophe (') . ensuite je ne sais pas ce qu est la variable [TitreCD]  mais si tu veux que ca prenne la valeur de titreCD, tu n a pas besoin de mettre les crochets.

NOTE: j ai regarder le code et j ai vu que tu avais fait une fonction RemplaceApostrophe$

Regarde la fonction Replace qui peut peu etre t aider en une ligne
@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

Shiva20 · Answer

J'ai réussi à mettre le Titre du CD entre apostrophe mais ca ne marche toujours pas, il me met synthaxe incorrecte 
TitreCD correspond à la comboBox, je veux afficher le descriptif de chaque CD. J'ai mis :

chSQL = "select Descriptif from CD Where Titre= ''" & ([TitreCD])

Par exemple quand je séléctionne le titre de CD "Longue distance" dans ma ComboBox, il me met synthaxe incorrecte vers 'longue'

Je vais essayer de mettre le code de la fonction replace

Shiva20 · Answer

J'ai réussi à mettre le Titre du CD entre apostrophe mais ca ne marche toujours pas, il me met synthaxe incorrecte 
TitreCD correspond à la comboBox, je veux afficher le descriptif de chaque CD. J'ai mis :

chSQL = "select Descriptif from CD Where Titre= ''" & ([TitreCD])

Par exemple quand je séléctionne le titre de CD "Longue distance" dans ma ComboBox, il me met synthaxe incorrecte vers 'longue'

Je vais essayer de mettre le code de la fonction replace

jrivet · Answer

Salut,

Essaie plutot cette requete

chSQL = "select Descriptif from CD Where Titre= '" & TitreCD & "'"

@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

Shiva20 · Answer

J'ai mis la synthaxe que tu m'a proposé et j'ai indiqué que TitreCD est un .Text et ça marche.
Par contre quand on veux afficher plusieurs résultat dans un textBox, on fait comment ? parcequ'il me renvoie qu'un seul résultat. Je te donne le code :
chSQL "select CD.Descriptif, NbExemplaire, Chanson.TitreChanson from CD, Chanson Where Chanson.descriptif CD.Titre And Titre=" & "'" & TitreCD.Text & "'"
 
 Set Record = MaCnx.Execute(chSQL)

    DescriptifCD.Text = (Record!Descriptif)
    NbExemplaire.Text = (Record!NbExemplaire)   
    ListeChansons.Text = (Record!TitreChanson) ' c'est à ce niveau

jrivet · Answer

re,
Dans un textbox simple, tu pourra pas..

Soit :

- utilise un RichTextBox
- Un ListBox
- Un LIstView

Pour le richtextbox, j m en suis jamais servi  :sad) 
@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

Shiva20 · Answer

Ok merci. 
Je veux afficher un résultat qui concerne une séléction sur plusieurs tables j'ai donc écrit le code suivant :
chSQL "Select Titre from Chante, Comporte, CD where Chante.Refchanson Comporte.Refchanson and Comporte.RefCD = CD.RefCD And CD.Titre=" & "'" & Chanteur.Text & "'"

Set rec = MaCnx.Execute(chSQL)

NomCD.Text = rec!Titre

Il me met un message en me disant que BOF ou EOF est vrai ou que le recordset a été supprimé. 
Avec cette requête je veux afficher les CD qui correspondent au chanteur

jrivet · Answer

RE,

T' as essayer de faire cette requete directement dans ACCESS car la requete que tu fasi m a l air bizarre.

Essaye de construire ta vue dans ACCESS et de recopier le code SQL que te donne ACCESS pour l adapter a ton code.

je sais pas si ca peu t aider...
@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

Shiva20 · Answer

Non je n'ai pas essayé de faire la requête dans access parceque pour 1 ligne lui il m'en met 30 ,lol
Sinon dans ma requête comment je dois faire pour lui dire que le Titre du CD correspond au nom et prénom du Chanteur, parceque si je met que le nom il ne va pas faire le rapprochement.
Si tu ne vois pas ce message ce soir, je te dis à demain.
Bonne soirée

jrivet · Answer

Salut,

Le Titre du CD correspond au nom et prenom du chanteur ???
S il y a un separateur entre le nom et le prenom "-" tu fais:

.... WHERE nom + '-' + prenom = TitreCD (tu auras peu etre besoin de double les apostrophe.)
@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

Shiva20 · Answer

Salut,

J'ai essayé la synthaxe que tu m'as passé avec simple côte et double côte mais il n'en veux pas. Je te transmet la requête, peux-tu me dire ce que je dois rajouter pour que ça marche. Merci

chSQL = "select * FROM Chanteur, Chante, Chanson"chSQL chSQL & "Where Chanteur.Refchanteur Chante.Refchanteur AND Chante.Refchanson = Chanson.Refchanson And Chanteur.Nom + '-'+ Chanteur.Prénom =" & "'" & Chanteur.Text & "'"

jrivet · Answer

Re,

Je regarderai a midi, mais il me semble que tu veux passer par une vue non? donc tu devras avoir une requete de plusieur ligne avec des JOIN... c est pour ca que je te proposais de recopier la requete que te donne ACCESS (si elle marche et te convient).

@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

Shiva20 · Answer

Tu as raison, j'ai changé ma requête et j'ai mis le code SQL qu'access me propose, ce qui me donne :
chSQL "SELECT * FROM (Chante INNER JOIN Chanteur ON Chante.Refchanteur Chanteur.Refchanteur) INNER JOIN Chanson ON Chante.Refchanson = Chanson.Refchanson"

Je ne t'ai pas recopier la ligne Where c'est la même condition avec le nom et prénom du chanteur qui correspond au Chanteur.Text. J'ai essayé plusieurs synthaxe pour concaténer le nom et prénom mais il me trouve tjs une erreur de synthaxe.

Bon appétit si tu pars manger et à tous à l'heure

jrivet · Answer

re,

Helas en Espagne on mange a 13h30  :sad) 
je regarderai pendant ma pause bonne appetit si toi tu vas manger  :) 
@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

Shiva20 · Answer

Je te remercie de pour ton aide. J'ai terminé mon application. Je te souhaite une bonne continuation
A+ :kisses)

jrivet · Answer

Y a pas de coi on est la pour s entre aider .(un petit reponse acceptee sur un de mes posts STP).

(je sais ca ce fait pas demader mais bon...)
@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

Comment afficher un résultat dans un TextBox

39 réponses

Discussions similaires