有! 你代码太乱最好不要这样写,我插入值列数太多的时候我都是参数来传值的。
例如如下代码就能实现插入,并且代码看起清晰:
Dim com1 As New System.Data.SqlClient.SqlCommand("insert into 学生信息 values(@s1,@s2,@s3,@s4,@s5,@s6,@s7,@s8,@s9,@s10,@s11,@s12,@s13,@s14,@s15,@s16,@s17,@s18,@s19)", conn1)
com1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@s1", System.Data.SqlDbType.Char, 10))
com1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@s2", System.Data.SqlDbType.Int, 4))
com1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@s3", System.Data.SqlDbType.Char, 10))
com1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@s4", System.Data.SqlDbType.Char, 10))
com1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@s5", System.Data.SqlDbType.DateTime, 8))
com1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@s6", System.Data.SqlDbType.Char, 10))
com1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@s7", System.Data.SqlDbType.Char, 10))
com1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@s8", System.Data.SqlDbType.Char, 10))
com1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@s9", System.Data.SqlDbType.Char, 10))
com1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@s10", System.Data.SqlDbType.Char, 10))
com1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@s11", System.Data.SqlDbType.Char, 10))
com1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@s12", System.Data.SqlDbType.Int, 4))
com1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@s13", System.Data.SqlDbType.DateTime, 8))
com1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@s14", System.Data.SqlDbType.Char, 10))
com1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@s15", System.Data.SqlDbType.Char, 10))
com1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@s16", System.Data.SqlDbType.Char, 10))
com1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@s17", System.Data.SqlDbType.Char, 10))
com1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@s18", System.Data.SqlDbType.Char, 10))
com1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@s19", System.Data.SqlDbType.Char, 10))
com1.Parameters("@s1").Value = TextBox7.Text
com1.Parameters("@s2").Value = TextBox6.Text
com1.Parameters("@s3").Value = ComboBox2.Text
com1.Parameters("@s4").Value = ComboBox3.Text
com1.Parameters("@s5").Value = TextBox8.Text
com1.Parameters("@s6").Value = ComboBox4.Text
com1.Parameters("@s7").Value = TextBox9.Text
com1.Parameters("@s8").Value = ComboBox5.Text
com1.Parameters("@s9").Value = TextBox10.Text
com1.Parameters("@s10").Value = TextBox11.Text
com1.Parameters("@s11").Value = TextBox12.Text
com1.Parameters("@s12").Value = TextBox13.Text
com1.Parameters("@s13").Value = TextBox14.Text
com1.Parameters("@s14").Value = ComboBox6.Text
com1.Parameters("@s15").Value = ComboBox7.Text
com1.Parameters("@s16").Value = ComboBox8.Text
com1.Parameters("@s17").Value = ComboBox9.Text
com1.Parameters("@s18").Value = TextBox15.Text
com1.Parameters("@s19").Value = TextBox16.Text
conn1.Open()
com1.ExecuteNonQuery()
conn1.Close()
这样再多也不怕也好改