VB.NET插入数据到Access报必填参数错误 是否为数据类型配置问题？

你提到的单选框、组合框、日期控件确实是该报错的主要诱因，具体问题和修复方案如下：

• 单选框赋值逻辑错误：你当前给@sex参数赋值的代码RadioButton1.Checked Or RadioButton2.Checked返回的是布尔类型的True/False，和你设置的OleDbType.Char类型不匹配，且不符合性别字段的存储逻辑。需要修改为根据选中的单选框返回对应性别文本，比如存储“男/女”就写If(RadioButton1.Checked, "男", "女")。
• 组合框值为空的问题：如果ComboBox1、ComboBox2没有选中项时，SelectedValue会返回空值，Access会判定你未给对应参数传值。需要先判断组合框是否有选中项，没有的话要么提示用户完善信息，要么给默认值，也可以暂时用ComboBox.Text属性取输入的文本校验后传入。
• 门牌号字段类型不匹配：@housenumber参数设置为OleDbType.Numeric数值类型，但你直接传入了TextBox12的字符串值，如果文本框为空、输入内容不是合法数字，都会触发类型错误。需要先对文本框内容做非空校验和格式校验，转换为数值类型后再传入。
• 额外排查点：核对SQL语句里的所有字段名和Access的Household表字段名是否完全一致，拼写错误会导致Access把识别不了的字段当成未传值的参数，触发该报错。

修正后参考代码 #

' 先做控件值校验，避免空值和格式错误
If String.IsNullOrEmpty(TextBox12.Text.Trim) OrElse Not IsNumeric(TextBox12.Text.Trim) Then
    MessageBox.Show("请输入合法的门牌号")
    Return
End If
If ComboBox1.SelectedIndex = -1 OrElse ComboBox2.SelectedIndex = -1 Then
    MessageBox.Show("请选择婚姻状态和purok信息")
    Return
End If
If Not RadioButton1.Checked AndAlso Not RadioButton2.Checked Then
    MessageBox.Show("请选择性别")
    Return
End If

Dim create As New OleDbCommand("INSERT INTO Household ([lastname] , [firstname] , [middlename] , [extname] , [sex]  ,  [birthdate] , [citizenship] , [birthplace] , [civilstatus] , [occupation] , [housenumber] , [street] , [purok] ) VALUES (@lastname, @firstname , @middlename , @extname , @sex , @birthdate , @citizenship, @birthplace , @civilstatus , @occupation , @housenumber , @street , @purok)", con)

create.Parameters.AddWithValue("@lastname", OleDb.OleDbType.VarChar).Value = TextBox5.Text.Trim
create.Parameters.AddWithValue("@firstname", OleDb.OleDbType.VarChar).Value = TextBox6.Text.Trim
create.Parameters.AddWithValue("@middlename", OleDb.OleDbType.VarChar).Value = TextBox7.Text.Trim
create.Parameters.AddWithValue("@extname", OleDb.OleDbType.VarChar).Value = TextBox8.Text.Trim
' 修正性别赋值
create.Parameters.AddWithValue("@sex", OleDb.OleDbType.Char).Value = If(RadioButton1.Checked, "男", "女")
create.Parameters.AddWithValue("@birthdate", OleDb.OleDbType.Date).Value = DateTimePicker1.Value
create.Parameters.AddWithValue("@citizenship", OleDb.OleDbType.VarChar).Value = TextBox10.Text.Trim
create.Parameters.AddWithValue("@birthplace", OleDb.OleDbType.VarChar).Value = TextBox9.Text.Trim
' 组合框取值调整，可根据实际存储内容切换为SelectedValue
create.Parameters.AddWithValue("@civilstatus", OleDb.OleDbType.Char).Value = ComboBox1.Text.Trim
create.Parameters.AddWithValue("@occupation", OleDb.OleDbType.VarChar).Value = TextBox11.Text.Trim
' 门牌号转数值类型
create.Parameters.AddWithValue("@housenumber", OleDb.OleDbType.Numeric).Value = Convert.ToInt32(TextBox12.Text.Trim)
create.Parameters.AddWithValue("@street", OleDb.OleDbType.VarChar).Value = TextBox13.Text.Trim
create.Parameters.AddWithValue("@purok", OleDb.OleDbType.Char).Value = ComboBox2.Text.Trim

内容的提问来源于stack exchange，提问作者rg64