VB.NET操作AccessDB报错：Parameter @client_address无默认值问题

核心问题原因 #

• OleDb参数匹配逻辑：Access的OleDb驱动不支持按参数名称绑定，只认参数在SQL语句中的出现顺序。哪怕参数名称写对了，只要添加参数的顺序和SQL里VALUES子句的顺序不对应，就会导致参数错位，触发“参数无默认值”的错误。
• 拼写错误：代码中freigh_rate.Text少了一个t，应为freight_rate.Text，这个错误会导致对应参数值未正确传入，进而引发后续参数匹配混乱。

修复方案 #

1. 修正参数拼写错误 #

将以下代码行：

cmd.Parameters.AddWithValue("@freight_rate", freigh_rate.Text)

修改为：

cmd.Parameters.AddWithValue("@freight_rate", freight_rate.Text)

2. 严格对齐参数顺序 #

确认Parameters.AddWithValue的调用顺序，完全对应SQL语句VALUES子句里的参数顺序：
SQL中VALUES的顺序为：
@invoice_date, @client_name, @client_company_name, @client_email, @client_contact_no, @client_address, @client_delivery_address, @total_basic_amount, @freight_rate, @delivery_rate, @advanced_amount, @pending_amount

你的代码中参数添加顺序已经和上述一致，注意不要随意调整顺序，OleDb只按位置匹配参数，名称只是占位符。

额外验证建议 #

• 提前输出控件值：在添加参数前，用Debug.WriteLine()输出每个TextBox的Text值，确认没有意外的空值（空字符串不等于Null，但如果Access字段不允许空也会报错，但你的错误核心还是顺序/拼写问题）。
• 避免使用AddWithValue：推荐使用Add方法显式指定参数类型，减少隐性类型不匹配问题，示例：

cmd.Parameters.Add("@invoice_date", OleDbType.Date).Value = datetime.Value
cmd.Parameters.Add("@client_name", OleDbType.VarChar, 100).Value = client_name.Text

修正后的完整代码 #

cmd.Connection = cn
cmd.CommandText = "insert into invoice([invoice_date],[client_name],[client_company_name],[client_email],[client_contact_no],[client_address],[client_delivery_address],[total_basic_amount],[freight_rate],[delivery_rate],[advanced_amount],[pending_amount]) Values(@invoice_date,@client_name,@client_company_name,@client_email,@client_contact_no,@client_address,@client_delivery_address,@total_basic_amount,@freight_rate,@delivery_rate,@advanced_amount,@pending_amount)"
cmd.Parameters.AddWithValue("@invoice_date", datetime.Value)
cmd.Parameters.AddWithValue("@client_name", client_name.Text)
cmd.Parameters.AddWithValue("@client_company_name", company_name.Text)
cmd.Parameters.AddWithValue("@client_email", email.Text)
cmd.Parameters.AddWithValue("@client_contact_no", contact_no.Text)
cmd.Parameters.AddWithValue("@client_address", address.Text)
cmd.Parameters.AddWithValue("@client_delivery_address", delivery_address.Text)
cmd.Parameters.AddWithValue("@total_basic_amount", total_basic_amount.Text)
cmd.Parameters.AddWithValue("@freight_rate", freight_rate.Text) ' 已修正拼写错误
cmd.Parameters.AddWithValue("@delivery_rate", delivery_rate.Text)
cmd.Parameters.AddWithValue("@advanced_amount", advance_received_amount.Text)
cmd.Parameters.AddWithValue("@pending_amount", total_pending_amount.Text)
cmd.ExecuteNonQuery()
MessageBox.Show("Invoice Stored")

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