Discussion :

[hackman61]

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 :

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

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

[sihammaster]

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

Code :

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

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