Remplir Combobox Avec des données Access

Bonjour,

Voila mon problème, je dois remplir une combobox avec une table Access :
|-----------|
| Contrat |
|-----------|
|id_contrat |
|con_lbl |
|autres..... |
|-----------|

Je souhaite afficher con_lbl dans ma combobox, et récupérer l'id_contrat correspondant.

Pour l'instant j'ai ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Dim MaBindSource1 As New BindingSource MaBindSource1.AddNew() CmdDelCli.Visible = False ActionCli = "INS" Requete = "SELECT ID_CONT, CON_LBL FROM T_CONTRAT" 'initilisation objet commande MaCmd.CommandText = Requete MaCmd.Connection = CnxBase 'initialisation de l'adapter AdapBase.SelectCommand = MaCmd ' ouverture de la connexion CnxBase.Open() AdapBase.Fill(DstBase, "ListeCont1") 'fermeture de la connexion CnxBase.Close() 'initialisation du datatable DtContrat1 = DstBase.Tables("ListeCont1") 'initialisation bindingsource MaBindSource1.DataSource = DtContrat1 ComboContratClient.DataBindings.Add(New Binding("Text", MaBindSource1, "Con_lbl"))

---

Le truc c'est que dans la combobox, je n'ai que le premier enregistrement (Contrat1), et il me faudrait les autres (contrat2, contrat3 etc...) , Mais je ne sais pas comment faire.

Merci d'avances,

Nicolas

Bonjour,
Alors pour l'affichage dans combobox c'est assez facile, tester ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

con.open 'ouvrir la connexion   dim com as new OledbCommand("select champ1, champ2,... from tatable where ....('si ya des conditions)..",con) 'definir la commande   dim da as new OledbDataAdapter(com) dim ds as new DataSet dim dt as new DataTable   da.fill(ds,"tatable") 'remplir dataset par les données de la commande dt=ds.Tables("tatable")   With me.Combobox1 .DisplayMember="champ1" 'champ à afficher .ValueMember="Champ2" (ou Id=Clé primaire de ta table) .DataSource=dt end With con.Close

---

Voila :ccool: