无法将PDF文件保存至Access数据库，报未给一个或多个参数提供值错误

报错常见诱因 #

• 字段名拼写不匹配：Access会把表中不存在的字段名识别为待传入的参数，未传值就会触发该报错，先核对ABC_DEALS表中的CONFIRMATION_COPY、DEAL_TICKET字段名是否完全正确，有没有多余空格或者拼写错误。
• 二进制参数类型错误：存储PDF这类二进制大文件需要使用OleDbType.LongVarBinary类型，OleDbType.Binary有长度限制，会导致参数识别异常。
• SQL拼接风险：你当前直接把TextBox5.Text拼接进WHERE条件，一方面如果输入内容包含单引号会破坏SQL语法，另一方面如果DEAL_TICKET是数值类型，拼接时加单引号会导致类型不匹配触发报错，建议所有动态值统一用参数化传递。
• 字节数组长度错误：VB中数组声明的是最大下标而非元素个数，Dim byteArr(CInt(fs.Length)) As Byte会生成比文件实际长度多1位的数组，多余空字节也可能导致参数识别异常。

修正后代码 #

Dim strsql As String
Dim settings As String = ConfigurationManager.ConnectionStrings("ABCBO.My.MySettings.db_abcdealsConnectionString").ConnectionString
Dim con As New OleDbConnection
Private Sub printtopdf_Click(sender As Object, e As EventArgs) Handles printtopdf.Click
    con.ConnectionString = settings
    Try
        ' 修正字节数组长度问题
        Dim fs As New FileStream("E:\NewApp\test1.pdf", FileMode.Open, FileAccess.Read)
        Dim byteArr(CInt(fs.Length - 1)) As Byte
        fs.Read(byteArr, 0, byteArr.Length)
        fs.Close()

        ' 全参数化SQL，避免拼接问题
        strsql = "UPDATE ABC_DEALS SET CONFIRMATION_COPY = @AT1 WHERE DEAL_TICKET = @DealTicket"
        Dim cmd As New OleDbCommand(strsql, con)
        ' 用LongVarBinary适配二进制大文件
        cmd.Parameters.Add("@AT1", OleDbType.LongVarBinary).Value = byteArr
        ' 第二个参数传查询条件，若DEAL_TICKET是数值类型可把OleDbType换成对应数值类型
        cmd.Parameters.Add("@DealTicket", OleDbType.VarChar).Value = TextBox5.Text.Trim()

        con.Open()
        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("操作成功")
    Catch exc As Exception
        MsgBox(exc.Message)
        ' 异常时统一判断连接状态再关闭，避免重复关闭报错
        If con.State = ConnectionState.Open Then
            con.Close()
        End If
    End Try
End Sub

补充验证方案 #

如果修改后仍然报错，可以临时把WHERE条件替换为已知存在的固定DEAL_TICKET值测试，快速定位是不是字段名拼写错误的问题。

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