[VB.net] BDD et combobox

Version imprimable

Bonjour,

Je sais remplir une liste déroulante à partir d'une liste que je rentre en dure dans le programme.
Code:

1 2 3 4 5 6 7 8 9 10 11 'Ouvre la connexion à la base distante SQLServer objServerSql.Connexion() 'Charge les informations nécessaires au remplissage de la combobox Dim ListLabel() As String = {"Payant", "Gratuit", "Payant + gratuit"} Dim ListCode() As String = {"1", "0", "2"} cmbModeFacturation.ValueMember = "ListCode" cmbModeFacturation.DataSource = ListLabel 'Ferme la connexion à la base distante SQLServer objServerSql.Deconnexion()
Je sais remplir une liste déroulante à partir des enregistrements d'une BDD.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 'Ouvre la connexion à la base distante SQLServer objServerSql.Connexion() 'Charge les informations nécessaires au remplissage de la combobox ds = objServerSql.Dataset("SELECT DISTINCT L.Cod_Livraison, L.Livraison FROM TBL_LIVRAISON L", "Livraison", "TBL_LIVRAISON") dsTable = ds.Tables("TBL_LIVRAISON") cmbCanalDistribution.DisplayMember = "Livraison" cmbCanalDistribution.ValueMember = "Cod_Livraison" cmbCanalDistribution.DataSource = dsTable 'Ferme la connexion à la base distante SQLServer objServerSql.Deconnexion()
Mais je ne sais pas comment remplir une liste déroulante avec les enregistrements d'une BDD en y ajoutant un champ supplémentaire en dure.

Par exemple, dans la deuxième partie de mon code, la liste déroulante contient tous les modes de livraison contenu dans la BDD. Je voudrais rajouter un champ "TOUS" dans la liste déroulante, est-ce possible? et si oui, comment fait-on?

17/01/2006, 16h59
HULK
une fois que tu as rempli ta combobox tu fais :
Code:

1 2 combobox.Items.Insert(1,"TOUS")
17/01/2006, 17h19
gogolak

J'ai déjà essayé cette solution mais malheuresement c'est impossible de modifier la collection items lorsque la propriété datasource est défini.

J'ai bien peur que si on rempli un combobox par l'intermédiaire d'un datasource, on ne peut plus rien y ajouter!
17/01/2006, 17h22
neguib

Certes mais rien n'empêche d'intervenir en amont en intervenant directement sur dsTable par exemple :wink: avant de la lier en DataSource
17/01/2006, 17h32
gogolak

Je pense que c'est la solution mais pourriez-vous me dire comment intervenir sur dsTable?

ca doit etre un truc du genre :

Code:

1
2
3
4
5
6
 
Dim TOUS As DataRow = TonDataSet.Tables("TonDataTable").NewRow
 
TOUS("NomDuChampDuDataTable") = "TOUS"
 
TonDataSet.Tables("TonDataTable").Rows.InsertAt(TOUS, 1)

25/01/2006, 14h37
gogolak

Bonjour,

Je reviens sur le développement de mon petit applicatif aprés avoir passé du temps sur un autre projet.

Citation:

ca doit etre un truc du genre :

Code:

Dim TOUS As DataRow = TonDataSet.Tables("TonDataTable").NewRow
TOUS("NomDuChampDuDataTable") = "TOUS"
TonDataSet.Tables("TonDataTable").Rows.InsertAt(TOUS, 1)

Ca fonctionne!!! :D C'est exactement ce que je voulais! :D

Merci beaucoup HULK et neguib, vous m'avez bien aidé sur ce coup là!

Thanks! :wink: