How to save the checkboxes that is beeing checked?

Question

1.00/5 (1 vote)

See more:

It saving now if check 1 checkbox but if checked 2 checkboxes, the output display only 1 value. Thanks

What I have tried:

VB

Dim chcboxes() As CheckBox = {CheckBox1, CheckBox2, CheckBox3}

For i As Integer = 0 To chcboxes.Length - 1

 If (chcboxes(i).CheckState = CheckState.Checked = True) Then
       i += 1
            cmd.CommandText = "insert into array(array) values ( @array)"
            cmd.Parameters.AddWithValue("@array", i)
            cmd.ExecuteNonQuery()
        End If
    Next

Posted 24-Jan-19 14:41pm

Member 14127874

Updated 25-Jan-19 22:16pm

RickZeeland

v2

Add a Solution

Comments

Bryian Tan 24-Jan-19 22:24pm

Where is the code doing the display?

Member 14127874 24-Jan-19 22:37pm

I dont include it there.

Bryian Tan 24-Jan-19 23:28pm

Were the selected checkbox being inserted correctly into the table?

Member 14127874 25-Jan-19 0:24am

Yes
I want an out put like checkbox1 = 1, chekbox2=2 and so on.

checkbox1-1
checkbox2-2

Member 14127874 25-Jan-19 0:25am

My code display

checkbox1 - 1 2. Its wrong. It should be like this.

Checkbox1-1
Checkbox1-2

Ralf Meier 25-Jan-19 1:55am

What is the sense of this :
'If (chcboxes(i).CheckState = CheckState.Checked = True) Then ...'
you could not really do such a "double-Check" - the code should be :
'If (chcboxes(i).CheckState = CheckState.Checked) Then ...'

Member 14127874 25-Jan-19 2:37am

I removed the "True" already.

Member 14127874 25-Jan-19 3:57am

The output is wrong. Need some help here.

Richard MacCutchan 25-Jan-19 4:49am

Please edit your question (use the Improve question link above), and add full details of what the problem is and where it occurs.

F-ES Sitecore 25-Jan-19 5:28am

"i += 1"

That line is causing your loop to skip an element in your array, you probably want to remove it.

Member 14127874 25-Jan-19 5:33am

Try
Dim con As New SqlClient.SqlConnection("data source=DESKTOP-9NE9FIF\SQLEXPRESS;initial catalog=Sample1;Integrated Security=True")
Dim cmd As New SqlCommand()

cmd.Connection = con

con.Open()

Dim str, str1 As String
str = ""
str1 = ""

If CheckBox1.Checked = True Then
str &= Label1.Text
str &= " "

End If

If CheckBox2.Checked = True Then
str &= Label2.Text
str &= " "

End If
If CheckBox3.Checked = True Then
str &= Label3.Text
str &= " "

End If
If CheckBox4.Checked = True Then
str &= Label4.Text
str &= " "

End If

If str <> Nothing Then
MsgBox("Record is successfully saved!", MsgBoxStyle.Information, "Success")
End If
Dim chcboxes() As CheckBox = {CheckBox1, CheckBox2, CheckBox3, CheckBox4}
For i As Integer = 0 To chcboxes.Length - 1
If (chcboxes(i).CheckState = CheckState.Checked) Then
cmd.CommandText = "insert into array_tbl1(array_id1) values ( @arrayid1)"
cmd.Parameters.AddWithValue("@arrayid1", str)
cmd.ExecuteNonQuery()

End If

Next

Catch ex As Exception
'(ex.message)

Member 14127874 25-Jan-19 5:36am

Thats my new code.

If i clicked checkbox1 that has a value of label1 = 10. It will be save but if i clicked checkbox1 and checkbox2, it display only the value label1.

I want an output

10
20

not 10 20

Ralf Meier 25-Jan-19 7:57am

change your code to :

If CheckBox1.Checked Then
str &= Label1.Text + " " + vbCrLf
End If

... and also all the others ... that could be also done in a loop ...

Ralf Meier 25-Jan-19 7:59am

... and press the reply according to the given comment / answer - then the answerer is notificated

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

The Cool Cat · Accepted Answer · 2019-01-25T22:17:00

Solution 1

Try This One :

You must put all your Checkboxes in a Control Container like a PANEL, in here I used a Panel.

Dim ChckboxValue As String

        For Each Control In Panel1.Controls
            If TypeOf Control Is CheckBox Then
                If CType(Control, CheckBox).Checked Then
                    ChckboxValue = CType(Control, CheckBox).Text
/*--------------- P U T  Y O U R  Q U E R Y H E R E ------------*/
                End If
            End If
        Next

Put your Query inside the Loop. In this code you don't need to declare the checkboxes inside an array.

Posted 25-Jan-19 22:17pm

The Cool Cat

Updated 25-Jan-19 22:22pm

v3

Comments

The Cool Cat 27-Jan-19 21:57pm

https://www.codeproject.com/Answers/1275600/How-to-save-checkbox-in-SQL-server#answer1

CHill60 6-Feb-19 6:25am

Why do the checkboxes have to be in a panel? The form can be the container

The Cool Cat 6-Feb-19 19:29pm

The form itself would be great, but if he puts another checkbox that was not included to be passed in the query then other container can be used. But it also depends on how he will use it. It's his choice though.