CHARGER LE DROPDOWNLIST AVEC DEUX TABLES

hervethebest Messages postés 7 Date d'inscription mercredi 15 novembre 2000 Statut Membre Dernière intervention 2 juillet 2012 - 2 juil. 2012 à 07:23
 bb - 21 janv. 2015 à 15:18
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/54402-charger-le-dropdownlist-avec-deux-tables

nn
essanousy Messages postés 2 Date d'inscription jeudi 12 juin 2014 Statut Membre Dernière intervention 23 juin 2014
17 juin 2014 à 18:13
ma suggestion :

Dim adapt As New SqlDataAdapter("SELECT Nom1 FROM Table1 union SELECT Nom2 FROM Table2", MyConn)

hervethebest Messages postés 7 Date d'inscription mercredi 15 novembre 2000 Statut Membre Dernière intervention 2 juillet 2012
2 juil. 2012 à 07:23
salut,

à ta place j' aurais plutôt factoriser la fonction comme ci dessous :

Protected Sub AjouterInfos(ByVal requete_sql as String)
Dim s As Integer
Dim adapt As New SqlDataAdapter(requete_sql, MyConn)
Dim dataset As New DataSet
adapt.Fill(dataset, "Table")
With dataset.Tables("Table")

For s = 0 To .Rows.Count - 1
if (DropDownList1.Items.FindByText(value) is null) then
DropDownList1.Items.Add(.Rows(s).Item("Nom"))
endif
Next

End With
End Sub

A noter le if (DropDownList1.Items.FindByValue(value) is not null) then
pour tester si l' element est deja present dans le dropdownlist.

j' ai traduit directement à partir d' un code en c# alors j' espère que ca va ...