1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| 'Sub etc......
ComboBoxActivite.ValueMember = "ID" ' création de la recuperatin de l'ID
ComboBoxActivite.DisplayMember = "Libelle" ' et de l'affichage
sqlselectActivite = "select ID_Activite,Activite_Libelle from Activite "
Dim commandsqlActivite As New SqlClient.SqlCommand(sqlselectActivite, ConnectActivite)
sqlreadersqlActivité = commandsqlActivite.ExecuteReader
'etc ...
'etc....
Do While sqlreadersqlActivité.Read()
Dim Collection As New Collection
Collection.Libelle = sqlreadersqlActivité.GetValue(1)
Collection.ID = sqlreadersqlActivité.GetValue(0)
ComboBoxActivite.Items.Add(Collection) |