Question

大神帮看一下，vs2008写的循环镶嵌数据库语句，一直报错，使用Checkboxlist控件

行:dr = cmd.ExecuteReader()，
[SqlException (0x80131904): ')' 附近有语法错误。]
程序如下：
Dim i As Integer = 0
Dim KC_text As String = Nothing
Dim Conn As SqlConnection = New SqlConnection(" Data Source=LZ-PC\MSSQLSERVER1;Initial Catalog=xxxx;User ID=xxxx;Password=xxxxxx")
Conn.Open()
While i <= (CheckBoxList1.Items.Count - 1)

If CheckBoxList1.Items(i).Selected Then
KC_text &= CheckBoxList1.Items(i).Value & ","
End If
Dim dr As SqlDataReader = Nothing
Dim cmd As SqlCommand = New SqlCommand("insert into 选修表 (学号,课程名) values (" & Session("Stu_id") & "," & KC_text & ") ", Conn)
dr = cmd.ExecuteReader()
cmd.Cancel()
dr.Close()

End While
Response.Write("<h3>恭喜您，选课成功</h3>" & KC_text)
Conn.Close()
Conn.Dispose()

Answer 1

"insert into 选修表 (学号,课程名) values  (" & Session("Stu_id") & "," & KC_text & ") "

这一段代码，应该加上单引号，改成如下：

"insert into 选修表 (学号,课程名) values  ('" & Session("Stu_id") & "','" & KC_text & "') "

就像insert into table1(a,b,c) values('1','b','a')这样

追问

改完后，还报错：[SqlException (0x80131904): 将截断字符串或二进制数据。
语句已终止。]

追答

应该是因为你的课程名组合起来之后非常长，而你的数据库课程名字段估计是varchar(50)，长度超过了50这个限制长度，所以你要把限制长度改大一点，比如100

追问

弄好了，谢谢。再问一下，执行后，数据库表中数据后面会多一个逗号，怎么去掉？

追答

If CheckBoxList1.Items(i).Selected Then
      KC_text &= CheckBoxList1.Items(i).Value & ","
End If

在上面这句后面加

KC_text = left(KC_text,len(KC_text)-1)

意思是去掉KC_text最后一个字符