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  ;) 
-----------------------------------------------------------

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