Remplir Combobox Avec des données Access

Question

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 :


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

Miguel909 · Answer

Bonjour,

Peut être essayer avec un recordset avec "While not recordset.EOF 

Combobox.add......

recorset.movenext

Wend"

A voir

Michel

Remplir Combobox Avec des données Access

1 réponse

Votre réponse

Discussions similaires