Inserting A Checkbox Value Into Bit Field Sql Server 2000

Edited by SomeNewKid. Please post code between <code> and </code> tags.








This is probaly the easiest question you've ever read but here goes.





I have a simple checkbox value that i want to insert into the database but whatever i do it does not seem to let me.





Here is my code:





Sub AddSection_Click(Sender As Object, e As EventArgs)


Dim myCommand As SqlCommand


Dim insertCmd As String


' Build a SQL INSERT statement string for all the input-form


' field values.


insertCmd = "insert into Customers values (@SectionName, @SectionLink, @Title, @NewWindow, @LatestNews, @Partners, @Support);"


' Initialize the SqlCommand with the new SQL string.


myCommand = New SqlCommand(insertCmd, myConnection)


' Create new parameters for the SqlCommand object and


' initialize them to the input-form field values.


myCommand.Parameters.Add(New SqlParameter("@SectionName", SqlDbType.nVarChar, 50))


myCommand.Parameters("@SectionName").Value = Section_name.Value





myCommand.Parameters.Add(New SqlParameter("@SectionLink", SqlDbType.nVarChar, 80))


myCommand.Parameters("@SectionLink").Value = Section_link.Value





myCommand.Parameters.Add(New SqlParameter("@Title", SqlDbType.nVarChar, 50))


myCommand.Parameters("@Title").Value = Section_title.Value





If New_window.Checked = false Then


myCommand.Parameters.Add(New SqlParameter("@NewWindow", SqlDbType.bit, 1))


myCommand.Parameters("@NewWindow").Value = 0


else


myCommand.Parameters.Add(New SqlParameter("@NewWindow", SqlDbType.bit, 1))


myCommand.Parameters("@NewWindow").Value = 1


End If





If Latest_news.Checked = false Then


myCommand.Parameters.Add(New SqlParameter("@LatestNews", SqlDbType.bit, 1))


myCommand.Parameters("@LatestNews").Value = 0


else


myCommand.Parameters.Add(New SqlParameter("@LatestNews", SqlDbType.bit, 1))


myCommand.Parameters("@LatestNews").Value = 1


End If





If Partners.Checked = false Then


myCommand.Parameters.Add(New SqlParameter("@Partners", SqlDbType.bit, 1))


myCommand.Parameters("@Partners").Value = 0


else


myCommand.Parameters.Add(New SqlParameter("@Partners", SqlDbType.bit, 1))


myCommand.Parameters("@Partners").Value = 1


End If





If Support.Checked = false Then


myCommand.Parameters.Add(New SqlParameter("@Support", SqlDbType.bit, 1))


myCommand.Parameters("@Support").Value = 0


else


myCommand.Parameters.Add(New SqlParameter("@Support", SqlDbType.bit, 1))


myCommand.Parameters("@Support").Value = 1


End If





myCommand.Connection.Open()


' Test whether the new row can be added and display the


' appropriate message box to the user.


Try


myCommand.ExecuteNonQuery()


Message.InnerHtml = "Record Added<br>" & insertCmd


Catch ex As SqlException


If ex.Number = 2627 Then


Message.InnerHtml = "ERROR: A record already exists with " _


& "the same primary key"


Else


Message.InnerHtml = "ERROR: Could not add record, please " _


& "ensure the fields are correctly filled out"


Message.Style("color") = "red"


End If


End Try





myCommand.Connection.Close()


BindGrid()


End Sub





Any response would be appreciated