Insert checked list box to database - mysql

Question

I have 6 checked boxes with more than 10 values each in my Visual Basic project using Visual Studio.
I would like to insert the values of the checked box into one table, all values of checked box into one cell (if possible).
For example, I have table called Food that has user id, Fruits, Vegetables, and Snacks.
Assuming that I have 3 checked boxes as well, I want to have all Fruits checked in Fruit column as it represents one person.
I started my code like this:
sql = "INSERT INTO Food (id, Fruits, Vegetables, Snacks) VALUES ('" & txtIDR.Text & "','" & CheckedFruits.CheckedItems.ToString & "','" & CheckedVegetables.CheckedItems.ToString & "','" & CheckedSnacks.CheckedItems.ToString & "','" & ")"
I didn't got an error messages but I'm afraid that I did something wrong with the way I handled the checked list box.
Please advise.

Answer 1

Edit: Sorry didn't see it was CheckListBox
to access a property of the CheckListBox you should use:
CheckedListBox1.CheckedItems.Item(0)
Where 0 is your item index
However you need to remember that CheckedItems.Item will only exist if something is checked if you try to call CheckedListBox1.CheckedItems.Item(0) but nothing is checked you will get Index out of bounds
An easy way to get all checked values easily is with a For Each:
For Each check In CheckedListBox1.CheckedItems
Debug.WriteLine(check)
Next
You could have something like this:
Public Function CreateSQL() As SqlCommand
Dim Fruits As String = ""
Dim Vegetables As String = ""
Dim Snacks As String = ""
For Each check In CheckedFruits.CheckedItems
Fruits = Fruits & check & ","
Next
If Fruits.LastIndexOf(",") = Fruits.Length - 1 Then
Fruits = Fruits.Remove(Fruits.LastIndexOf(","), 1)
End If
For Each check In CheckedVegetables.CheckedItems
Vegetables = Vegetables & check & ","
Next
If Vegetables.LastIndexOf(",") = Vegetables.Length - 1 Then
Vegetables = Vegetables.Remove(Vegetables.LastIndexOf(","), 1)
End If
For Each check In CheckedSnacks.CheckedItems
Snacks = Snacks & check & ","
Next
If Snacks.LastIndexOf(",") = Snacks.Length - 1 Then
Snacks = Snacks.Remove(Snacks.LastIndexOf(","), 1)
End If
MyCommand = New SqlCommand("INSERT INTO Food (id, Fruits, Vegetables, Snacks) VALUES (#UserID, #Fruits, #Vegetables, #Snacks)", dbConn)
MyCommand.Parameters.AddWithValue("#UserID", TicBoxText.Text)
MyCommand.Parameters.AddWithValue("#Fruits", Fruits)
MyCommand.Parameters.AddWithValue("#Vegetables", Vegetables)
MyCommand.Parameters.AddWithValue("#Snacks", Snacks)
Return MyCommand
End Sub
CheckedListBox MSDN