Discussion :

[zymx01]

Bonjour,

J'essaye de récupérer des valeurs cochés de Checkbox.
J'ai fais une boucle comme-ci et récupérer les valeurs d'une base de donnée mais je souhaite faire un update des cases que j'ai coché ou non coché. Sauriez-vous comment ?

AFFICHAGE + RECUPERATION VALEURS ci dessous

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
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        Using bdc As New TR_crecqEntities
            Dim lst_droit As IList(Of tr_select_checkbox_user_Result)
            lst_droit = bdc.tr_select_checkbox_user(userID).ToList
            Form1.Controls.Add(New LiteralControl("<DIV style=""position:relative; left:200px;"">"))
            For cur = 0 To lst_droit.Count - 1
                Dim checkBox = New CheckBox()
                Form1.Controls.Add(checkBox)
                checkBox.Text = lst_droit(cur).MENU_LIBELLE
                checkBox.ID = lst_droit(cur).MENU_ID
                checkBox.Checked = lst_droit(cur).VISU
                Form1.Controls.Add(New LiteralControl("<BR>"))
            Next
            Form1.Controls.Add(New LiteralControl("</DIV>"))
        End Using
 
    End Sub

Pour l'update je ferais ainsi mais je ne sais pas comment récupérer les nouvelles valeurs pour les insérer dans la BDD

Code :

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

1
2
3
4
5
6
7
Protected Sub BtnValid_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnValid.Click
        Using bdc As New TR_crecqEntities
            For Each co In donnee
                bdc.tr_update_checkbox_from_user(case coché ou non, id utilisateur, id checkbox)
            Next
        End Using
    End Sub

[zymx01]

J'ai trouvé la 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
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Using bdc As New TR_crecqEntities
            Dim lst_droit As IList(Of tr_select_checkbox_user_Result)
            lst_droit = bdc.tr_select_checkbox_user(userID).ToList
            Form1.Controls.Add(New LiteralControl("<DIV style=""position:relative; left:200px;"">"))
 
 
            For cur = 0 To lst_droit.Count - 1
                Dim checkBox(lst_droit.Count - 1) As CheckBox
                checkBox(cur) = New CheckBox
 
                Form1.Controls.Add(checkBox(cur))
                checkBox(cur).Text = lst_droit(cur).MENU_LIBELLE
                checkBox(cur).ID = lst_droit(cur).MENU_ID
                checkBox(cur).Checked = lst_droit(cur).VISU
                AddHandler checkBox(cur).CheckedChanged, AddressOf checkboxNav_Click
                Form1.Controls.Add(New LiteralControl("<BR>"))
            Next
            Form1.Controls.Add(New LiteralControl("</DIV>"))
        End Using
    End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub checkboxNav_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Using bdc As New TR_crecqEntities
 
 
            Dim btn As CheckBox = DirectCast(sender, CheckBox)
 
 
            Dim rowindex As Integer = btn.ID
            Dim rowActive As Boolean = btn.Checked
 
            bdc.tr_update_checkbox_from_user(btn.Checked, userID, rowindex)
        End Using
    End Sub