voila du code pour remplir un DropDownList avec le résultat d'une requête sql
Source / Exemple :
Imports System.Data.SqlClient
'voila comment on l'appel
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ChoixPoste.Text = "choisir le poste"
Dim requete1 As String = "select tutu,tata from titi"
If Not IsPostBack Then
init_DropDownList("nom base de données", requete1, DropDownList1, "champ à afficher ici tutu", "la clé qui lui correspond disons tata")
DropDownList1.Items.Insert(0, "<--------------selectionner-------------->")
End If
End Sub
'voila la procédure qui le gère
Sub init_DropDownList(ByVal BDD As String, ByVal requete As String, ByRef ld As DropDownList, ByVal TextField As String, ByVal ValueField As String)
'connection a la base de données
MyConnection = New SqlConnection
MyConnection.ConnectionString = "server='nom machine';database='nom base de données';user id='user';password='mot de passe';Trusted_Connection=true"
MyConnection.Open()
Dim MyCommand As New SqlDataAdapter(requete, MyConnection)
Dim DS As DataSet = New DataSet
MyCommand.Fill(DS, "temp")
ld.DataSource = DS.Tables("temp").DefaultView
ld.DataTextField = TextField
ld.DataValueField = ValueField
ld.DataBind()
MyConnection.Close()
End Sub
Conclusion :
open source y'a que ca de vrai
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.