Discussion :

[faycalche]

salut à tous,
j'ai réalisé une aaplication VB6 relié à une BDD Access.
Dans un combo, à l'événement Form_load je récupére les code des fournisseurs qui existent dans ma BDD.Ce que je cherche c de recupérer le nom de ce fournisseurs(dont le code est affiché dans le combo) dans un Textbox ??
Merci à vous

[OhMonBato]

Dans un message précédent, je t'avais invité à aller voir ICI pour des tutoriels sur les bases de données. Les as tu lu ?

[faycalche]

oui merci d'avoir repondu mais je cherche une reponse à un probléme précis et non pas un lien!!!

[SfJ5Rpw8]

oui merci d'avoir repondu mais je cherche une reponse à un probléme précis et non pas un lien!!!

D'accord, mais vu la grande précision de ta question ( comment sont organisées tes données, à priori il y as plusieurs codes fournisseurs, et un seul textbox que met tu dans ce textbox.. comment te connecte tu à ta base de donnée, où en est tu dans ton code ...)

la seule réponse précise que l'on peu te faire c'est de rajouter le code suivant dans ton form_load :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_Load()
 Text1 = InputBox("Veuillez saisir le nom du fournisseur à afficher : ")
End Sub

[zazaraignée]

oui merci d'avoir repondu mais je cherche une reponse à un probléme précis et non pas un lien!!!

Ben tiens!

Retourne donc lire les règles et le mode d'emploi... La règle d'or est : cherche par toi-même d'abord, si tu ne trouves pas, pose une question claire avec tous les paramètres nous permettant de t'aider...

Une réponse à ton problème ? du code tout fait ? Il y en a plein les tutoriels et la FAQ!

[faycalche]

salut
oufffff Enfin j'y suis arrivé!!!
Voila le code que j'ai utilisé en utilisant un paramétre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim c2 As New Command 
Dim rs As New Recordset 
Dim rq As String 
rq = "select * from fournisseur where Code_fournisseur='" & Combo1.Text & "'" 
Dim p As New Parameter 
c2.CommandText = rq 
c2.ActiveConnection = cn 
Set p = c2.CreateParameter 
p.Type = adVarChar 
p.Size = 20 
p.Value = Combo1.Text 
c2.Parameters.Append p 
Set rs = c2.Execute 
Text3 = rs(1)

Merci