Combo et Textbox

Version imprimable

14/08/2008, 18h10
faycalche

Combo et Textbox

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
14/08/2008, 18h49
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 ?
15/08/2008, 04h49
faycalche

oui merci d'avoir repondu mais je cherche une reponse à un probléme précis et non pas un lien!!!
15/08/2008, 08h07
SfJ5Rpw8
Citation:

Envoyé par faycalche

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:

1 2 3 Private Sub Form_Load() Text1 = InputBox("Veuillez saisir le nom du fournisseur à afficher : ") End Sub
15/08/2008, 15h51
zazaraignée

Citation:

Envoyé par faycalche

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

Ben tiens! :roll:

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!

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

Code:

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