Mettre le contenu d'une table dans une ListBox

Bonjour,

Je cherche à l'aide d'une table de ma base de données SQL Server Express, à mettre les données qu'elle contient dans une liste de choix de mon formulaire.

Si quelqu'un saurait comment faire...

Voici un code que j'ai essayé, mais ça ne marche pas : (cbxLogin est le nom de la listBox)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

'Bouton pour remplir la liste des logins Dim cmSQL As SqlCommand Dim strSQL = ("SELECT Login FROM UTILISATEUR ORDER BY Login;") cmSQL = New SqlCommand(strSQL, cnSQL) Dim DataAdapter As New SqlDataAdapter(cmSQL) Dim CmBuilder = New SqlCommandBuilder(DataAdapter) Dim DataSet As New DataSet() Dim DataTable As New DataTable     cnSQL.Open() cmSQL.Connection() = cnSQL   DataAdapter.Fill(DataSet, "UTILISATEUR") DataTable = DataSet.Tables("UTILISATEUR") Me.cbxLogin.Items.Add(DataTable) 'formDeux.DataGrid2.DataSource = DataTable 'Me.cbxLogin.Items.Add(DataTable) 'Show()   cnSQL.Close()   'Masquage du bouton et affichage de la liste cbxLogin.Visible = True BtnLogin.Visible = False

---

Harry Potter

C'est bon, j'ai trouvé un code qui marche. Voici ma solution :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

'Bouton pour remplir la liste des logins Dim cmSQLLogin As New SqlCommand 'Pour récupérer le login de la ligne en cours Dim cmSQLNbLogin As New SqlCommand 'Pour récupérer le nombre de logins   Dim ind As Integer 'Indice de parcours de boucle   Dim NbLogin As Integer 'Pour récupérer le nombre d'utilisateurs Dim Utilisateur As String 'Pour récupérer le login de la ligne en cours     cnSQL.Open()   cmSQLLogin.Connection() = cnSQL cmSQLNbLogin.Connection() = cnSQL   cmSQLNbLogin.CommandText = "SELECT COUNT(*) FROM UTILISATEUR;" NbLogin = cmSQLNbLogin.ExecuteScalar()   If NbLogin <> 0 Then 'Parcourir toute la table des logins For ind = 1 To NbLogin 'Récupérer le login de la ligne en cours cmSQLLogin.CommandText = "SELECT Login FROM UTILISATEUR WHERE NumUtilisateur=" & ind & ";" Utilisateur = cmSQLLogin.ExecuteScalar() 'Insérer le login récupéré dans la liste de choix des utilisateurs cbxLogin.Items.Add(Utilisateur) Next   cbxLogin.Items.Add("Tous") 'Masquage du bouton et affichage de la liste cbxLogin.Visible = True BtnLogin.Visible = False End If   cnSQL.Close()

---