简单的写入SQL的问题

[ybcsqq]

代码如下
我的复选框在写入时有误

Dim con As SqlConnection = New SqlConnection("server=dengshutong;database=MYTESTDATABASE;integrated security=SSPI")
Dim insertstr As String = "INSERT INTO dbo.开模型材库 VALUES(" & _
"'" & txtID.Text & "'," & _
"'" & txtName.Text & "'," & _
"'" & txtGender.Text & "'," & _
"'" & txtAddress.Text & "'," & _
"'" & txtZipCode.Text & "'," & _
"'" & DateTimePickerBirthday.Value & "'," & _
"'" & txtMaritalStatus.Text & "'," & _
"'" & DateTimePickerHireDate.Value & "'," & _
NumericUpDownHireSalary.Value & "," & _
NumericUpDownCurrentSalary.Value & "," & _
"'" & DateTimePickerRaiseSalary.Value & "'," & _
> "'" & checkbox1.checked & "'," & _
> "'" & checkbox2.checked & "'," & _
"'" & txtDepartment.Text & "')"
Dim insertcmd As New SqlCommand(insertstr, con)

Try
con.Open()

insertcmd.ExecuteNonQuery()

MessageBox.Show("已经成功新增数据记录。", _
"恭喜您", MessageBoxButtons.OK, _
MessageBoxIcon.Information)

Catch ex As Exception
MessageBox.Show(ex.ToString(), "请注意", MessageBoxButtons.OK, MessageBoxIcon.Stop)
Finally

con.Close()

End Try

[晓轩]

Dim insertstr As String = "INSERT INTO dbo.开模型材库 VALUES(" & _
改：
Dim insertstr As String = "INSERT INTO dbo.开模型材库（字段名，字段名。。。） VALUES(" & _

[malingxian]

正解

[晓轩]

我的信誉分怎么不长啊？

[晓轩]

我既没有偷鸡又没有摸狗，它咋就不长泥？

[ybcsqq]

还是不行啊
就是system.data.sqlclient.sqlexcepion 'false'附近有语法错误

[晓轩]

把你的insertstr运行时的值帖上来

[ybcsqq]

system.data.sqlclient.sqlexcepion 第一行 'false'附近有语法错误
at system.data.sqlclient.sqlcommand.executenonquery()
as toubiao.form1.button1_click(object sender,eventargs e)
in c:\......
文本框写入没问题呀

[水如烟]

这种写法很容易出错的,你可以这样

Dim InsertFormat As String="INSERT INTO table(a,b,c) VALUES('{0}',{1},{2})"
...

Dim InsertString As String=String.Format(InsertFormat,TextBox1.Text,TextBox2.Text,TextBox3.Text)

[晓轩]

insertstr 是这个字符串的值

[ybcsqq]

还是没解决复选框的判断并写入数据表

[晓轩]

好乱啊。不玩了。你倒是把insertstr 帖上来啊。真费劲啊