insert checkboxlist item to 1 database field

[zldjian]

hello, can anybody tell me how to insert data from checkboxlist to one database field in ms access.. i've try but the result is zero was save at my ms access table.. hre is my code:

Dim conn As New OleDbConnection(DB)
Dim adapter As New OleDbDataAdapter
Dim cb As New OleDbCommandBuilder(adapter)
Dim sql2 As New OleDbCommand()

'Open DB connection
conn.Open()

Dim SubNLetter1 As Boolean = False
Dim SubNLetter2 As Boolean = False
Dim SubNLetter3 As Boolean = False
Dim SubNLetter4 As Boolean = False
Dim SubNLetter5 As Boolean = False
Dim SubNLetter6 As Boolean = False
Dim SubNLetter7 As Boolean = False
Dim SubNLetter8 As Boolean = False
Dim SubNLetter9 As Boolean = False
Dim SubNLetter10 As Boolean = False
Dim SubNLetter11 As Boolean = False
Dim SubNLetter12 As Boolean = False
Dim SubNLetter13 As Boolean = False
Dim SubNLetter14 As Boolean = False
Dim SubNLetter15 As Boolean = False
Dim SubNLetter16 As Boolean = False
Dim SubNLetter17 As Boolean = False
Dim SubNLetter18 As Boolean = False
Dim SubNLetter19 As Boolean = False
Dim SubNLetter20 As Boolean = False
Dim SubNLetter21 As Boolean = False
Dim SubNLetter22 As Boolean = False
Dim SubNLetter23 As Boolean = False
Dim SubNLetter24 As Boolean = False
Dim SubNLetter25 As Boolean = False

For Each LItems As ListItem In CheckBoxList1.Items
If LItems.Selected = True Then
Select Case LItems.Value
Case "1"
SubNLetter1 = True
Case "2"
SubNLetter2 = True
Case "3"
SubNLetter3 = True
Case "4"
SubNLetter4 = True
Case "5"
SubNLetter5 = True
Case "6"
SubNLetter6 = True
Case "7"
SubNLetter7 = True
Case "8"
SubNLetter8 = True
Case "9"
SubNLetter9 = True
Case "10"
SubNLetter10 = True
Case "11"
SubNLetter11 = True
Case "12"
SubNLetter12 = True
Case "13"
SubNLetter13 = True
Case "14"
SubNLetter14 = True
Case "15"
SubNLetter15 = True
Case "16"
SubNLetter16 = True
Case "17"
SubNLetter17 = True
Case "18"
SubNLetter18 = True
Case "19"
SubNLetter19 = True
Case "20"
SubNLetter20 = True
Case "21"
SubNLetter21 = True
Case "22"
SubNLetter22 = True
Case "23"
SubNLetter23 = True
Case "24"
SubNLetter24 = True
Case "25"
SubNLetter25 = True
End Select

End If

Next
'Set up the parameters
Dim bname As New OleDbParameter("@nama", TextBox1.Text)
Dim bstaffnum As New OleDbParameter("@pekerja", TextBox2.Text)
Dim bptj As New OleDbParameter("@p", DropDownList1.SelectedValue)
Dim broomno As New OleDbParameter("@bilik", TextBox4.Text)
Dim bpost As New OleDbParameter("@jawatan", TextBox5.Text)
Dim bphno As New OleDbParameter("@telefon", TextBox6.Text)
Dim bemail As New OleDbParameter("@emel", TextBox7.Text)
Dim bhpno As New OleDbParameter("@handphone", TextBox8.Text)
Dim blabuser As New OleDbParameter("@labuser", TextBox9.Text)
Dim bdte As New OleDbParameter("@tarikh", Label4.Text)
Dim btime As New OleDbParameter("@masa", DropDownList5.SelectedValue + Label2.Text + DropDownList6.SelectedValue + DropDownList7.SelectedValue)
Dim bpurpose As New OleDbParameter("@tujuan", TextBox12.Text)
Dim bsoft As New OleDbParameter("@perisian", SubNLetter1 + SubNLetter2 + SubNLetter3 + SubNLetter4 + SubNLetter5 + SubNLetter6 + SubNLetter7 + SubNLetter8 + SubNLetter9 + SubNLetter10 + SubNLetter11 + SubNLetter12 + SubNLetter13 + SubNLetter14 + SubNLetter15 + SubNLetter16 + SubNLetter17 + SubNLetter18 + SubNLetter19 + SubNLetter20 + SubNLetter21 + SubNLetter22 + SubNLetter23 + SubNLetter24 + SubNLetter25)
Dim bkomputer As New OleDbParameter("@pc", TextBox3.Text + Label3.Text)
Dim blcd As New OleDbParameter("@lcd", RadioButtonList1.SelectedValue)
Dim blain As New OleDbParameter("@lain", TextBox10.Text)




'Set the insert command's connection
sql2.Connection = conn
sql2.Parameters.Add(bname)
sql2.Parameters.Add(bstaffnum)
sql2.Parameters.Add(bptj)
sql2.Parameters.Add(broomno)
sql2.Parameters.Add(bpost)
sql2.Parameters.Add(bphno)
sql2.Parameters.Add(bemail)
sql2.Parameters.Add(bhpno)
sql2.Parameters.Add(blabuser)
sql2.Parameters.Add(bdte)
sql2.Parameters.Add(btime)
sql2.Parameters.Add(bpurpose)
sql2.Parameters.Add(bsoft)
sql2.Parameters.Add(bkomputer)
sql2.Parameters.Add(blcd)
sql2.Parameters.Add(blain)

sql2.CommandText = "INSERT INTO lab_booking ([Name], [Staff_num], [Ptj], [Room_no], [Post], [No_tel], , [No_hp], [Lab_User], [Date_book], [Time_book], [Purpose], [Soft], [Komputer], [LCD], [Lain2])VALUES (@nama, @pekerja, @p, @bilik, @jawatan, @telefon, @emel, @handphone, @labuser, @tarikh, @masa, @tujuan, @perisian, @pc, @lcd, @lain)"



adapter.InsertCommand = sql2
adapter.InsertCommand.ExecuteNonQuery()

all data was succeefully inserted.. only the checkboxlist data cannot be inserted.. please help me.. thz...

 

[kulrom]

I assume that Soft field is text datatype. Well if so then you cannot insert boolean value there .. rather declare the boolean values as string variables and then do the following:

Case "1"
SubNLetter1 = "True"
Case "2"
SubNLetter2 = "True"
etc. etc.

 

[zldjian]

thank you very much kulrom.. All data successfully inserted..