VB.NET带参数更新MS Access数据库失败问题排查

你的问题根源在于OleDb驱动不支持按参数名称匹配，只按照参数添加的顺序绑定到SQL语句中的参数位置，再加上参数名称与SQL语句中的定义不一致，导致参数绑定完全错误。

具体问题点： #

1. 参数名称不匹配：SQL语句中要更新的参数是@Project，但你代码里添加的参数名称是@ProjectName，两者不对应。
2. 参数顺序错误：你的SQL语句中参数出现顺序是@Project（第一个）、@QuoteNumber（第二个），但代码里先添加了@QuoteNumber，后添加@ProjectName，OleDb会按添加顺序把第一个参数值传给SQL里的第一个参数位置，直接导致值传错。
3. 空异常捕获：你的Catch块是空的，无法获取实际抛出的错误信息，完全失去了调试依据。

修正后的代码： #

Dim connectionString As String = $"Provider=Microsoft.ACE.OLEDB.16.0;Data Source={DatabaseFilePath};"

'Construct an SQL Statement
Dim updateSql2 As String = "UPDATE JobDetails Set Project = @Project WHERE [Quote Number] = @QuoteNumber "

Using connection As New OleDbConnection(connectionString)
    connection.Open()
    Using cmd As New OleDbCommand(updateSql2, connection)
        ' 注意：参数添加顺序必须和SQL语句中参数的出现顺序一致
        cmd.Parameters.Add("@Project", OleDbType.LongVarChar).Value = ProjectName
        cmd.Parameters.Add("@QuoteNumber", OleDbType.VarChar).Value = QuoteNumber

        'Execute the query
        Dim rowsAffected As Integer
        Try
            rowsAffected = cmd.ExecuteNonQuery()
        Catch ex As Exception
            ' 捕获异常并显示，方便调试
            MessageBox.Show($"更新出错：{ex.Message}")
            rowsAffected = 0
        End Try

        If rowsAffected > 0 Then
            MessageBox.Show("Data updated successfully.")
        Else
            MessageBox.Show("No matching record found for the specified quote number and revision number.")
        End If
    End Using
End Using

测试情况的原因解释： #

• 测试2中，你把@QuoteNumber替换为字面量'12345'，SQL变成UPDATE JobDetails Set Project = @Project WHERE [Quote Number] = '12345'，此时SQL里只有一个参数@Project，而你代码里第一个添加的参数是@QuoteNumber的值（12345），OleDb把这个值传给了唯一的参数位置@Project，所以Project列被更新为12345。
• 测试3中，两个参数都用变量时，参数顺序错误导致@Project拿到的是QuoteNumber的值，@QuoteNumber拿到的是ProjectName的值，自然找不到匹配的记录，所以没有更新效果。

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