对于一个或多个必需参数没有给出值。 OleDbException是unblockled vb.net

Question

新vb.net我有一个项目vb.net连接到访问2003年数据库，我想插入数据通过vb.net访问数据库我使用Sql命令这里是代码bt它是不为我工作

cmd.CommandText = "INSERT INTO info(nam, employed, ple, mertebe, navonishan, sermoche, moche, dxindin, dbemoche, brwaname)" + " VALUES (" & Me.NamTextBox.Text & ",'" & CDate(Me.EmployedDateTimePicker.Text) & "','" & CInt(Me.PleTextBox.Text) & "','" & CInt(Me.MertebeTextBox.Text) & "','" & Me.NavonishanTextBox.Text & "','" & CDate(Me.SermocheDateTimePicker.Text) & "','" & CInt(Me.MocheTextBox.Text) & "','" & CByte(Me.DxindinCheckBox.Checked) & "','" & CByte(Me.DbemocheCheckBox.Checked) & "','" & Me.BrwanameTextBox.Text & "');" 

Answer 1

使用参数化查询。

cmd.CommandText = "INSERT INTO info(nam, employed, ple, mertebe, navonishan, " & _ 
        "sermoche, moche, dxindin, dbemoche, brwaname) VALUES (" & _ 
        "?,?,?,?,?,?,?,?,?,?)" 
cmd.Parameters.AddWithValue("@p1", Me.NamTextBox.Text) 
cmd.Parameters.AddWithValue("@p2", Convert.ToDateTime(Me.EmployedDateTimePicker.Text)) 
cmd.Parameters.AddWithValue("@p3", Convert.ToInt32(Me.PleTextBox.Text)) 
cmd.Parameters.AddWithValue("@p4", Convert.ToInt32(Me.MertebeTextBox.Text)) 
cmd.Parameters.AddWithValue("@p5", Me.NavonishanTextBox.Text) 
cmd.Parameters.AddWithValue("@p6", Convert.ToDateTime(Me.SermocheDateTimePicker.Text)) 
cmd.Parameters.AddWithValue("@p7", Convert.ToInt32(Me.MocheTextBox.Text)) 
cmd.Parameters.AddWithValue("@p8", Me.DxindinCheckBox.Checked) 
cmd.Parameters.AddWithValue("@p9", DbemocheCheckBox.Checked) 
cmd.Parameters.AddWithValue("@p10", Me.BrwanameTextBox.Text) 

的一部分从字符串连接，这样你不要冒险通过打算成为一个数字或用错误的格式设置规则的日期值（您的数字或日期值不应该被包含在单引号）。

当然，这也避免在评论其他（科迪灰色）表示SQL注入问题