Combobox et requête sql

Bonjour à tous,
Je débute en vb2005, et j'ai un problème pour utiliser le Displaymember et Valuemember du combobox.
En gros, comment je peux charger la liste d'un combobox avec un champ 'CustomerName', et récupérer le champ 'CustomerId' du client sélectionné ?

Voici comment je rempli mon combobox :

PrivateSub Remplissage_ComboBox1()
Rt.Open("SELECT DISTINCT SCustomer.CustomerNo, SCustomer.Name FROM SProd, SCustomer WHERE SProd.Customer_Id = SCustomer.Id ORDER BY SCustomer.Name ", Ct)

ComboBox1.Items.Clear()
Me.Cursor = Windows.Forms.Cursors.WaitCursor

WhileNot Rt.EOF
   ComboBox1.Items.Add(Rt(1).Value)
   Rt.MoveNext()
EndWhile

Me.Cursor = Windows.Forms.Cursors.Default
Rt.Close()
EndSub

Merci d'avance pour votre aide.

Pour charger des données dans un combobox avec access (je ne sais pas ce que t'utilise donc je t'aide pour access) il faut :

'définition du chemin de la base de donnée         Me.ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" + _           "Data Source=" + Application.StartupPath + "\BDD.mdb"         'définition de la variable sql         Me.Sql = "SELECT * FROM TableEssai" 'sql est déclaré en string         'choix de la connection         Me.Conn.ConnectionString = Me.ConnString 'connstring déclaré en string         'on ouvre la connection         Me.Conn.Open() 'conn déclaré en oledbconnection         'déclaration du data adapteur         Dim Dta As New OleDbDataAdapter(Me.Sql, Me.Conn)         'on charge les données de la liste dans le dataset         Dta.Fill(Me.Dts, "Table") 'dts déclaré en dataset         'on rempli la table avec le dataset         Me.Dtt = Me.Dts.Tables("Table") 'dtt déclaré en datatable         'on rempli le combobox avec la table         Me.ComboBox1.DataSource = Me.Dtt         'on choisi le champs à afficher         Me.ComboBox1.DisplayMember = "Champ"         'on ferme la connection         Me.Conn.Close()

Voila cela fonctionne comme cela et c'est stable... Bien sur il faut utiliser access.

Je pense que avec sqlserver cela revien au même ...

Bonne chance ;)

Pour info, j'ouvre une table sous sql Server 7.
J'essaye tout de suite.
Merci du coup de main !

toncombobox.datasoure=tondataset.tables("latable")

toncombobox.displaymember="nom_client" ce que seras afficher dans le combobox
toncombobox.valuemember="numero_client" la valeur retourner par le combobox lors du choix d'un nom

 

Est-ce que c'est possible sans passer par un dataset, c'est à dire en adodb, de cette manière :
Dans un module :
Public Ct AsNew ADODB.Connection
Public Cdt AsNew ADODB.Command

Dans ma form:

Dim Rt AsNew ADODB.Recordset

PrivateSub Form1_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load
Ct.ConnectionString = "Provider=SQLOLEDB.1;Data Source=GPAO;" _
& "Initial Catalog=Pcp2;User id=sa;"

Ct.Open()

Cdt.ActiveConnection = Ct

Rt.CursorLocation = ADODB.CursorLocationEnum.adUseClient
Rt.CursorType = ADODB.CursorTypeEnum.adOpenDynamic
Rt.LockType = ADODB.LockTypeEnum.adLockPessimistic

Remplissage_ComboBox1()

EndSubLe code de Remplissage_ComboBox1() étant dans la question du départ !

Merci pour votre aide, car je rame !!!

Ok, j'ai compris. Mais je ferais ça demain.
Merci beaucoup pour votre aide !

lesoleil2010 t'as dit la même chose que moi mais plus précisément pour ton problème ...

Tu véra c'est très simple :p

oui oui ta raison j ai pas fais attontion dsl,l'essentiel que Herminator trouve une solution

Super, ça marche.
Merci encore de votre aide à tous les deux.

Salutations.