Discussion :

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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()