VB.NET通过文本框更新Access数据库无报错但未生效问题

• 参数顺序不匹配：OleDb 不识别参数名，仅按照参数添加的顺序和 SQL 语句里?的占位顺序一一对应。你的 SQL 语句里占位符顺序是FirstName→LastName→Address→PhoneNo→Points→CustID，但你添加参数时第一个就加了CustID，顺序完全错位，导致WHERE条件匹配不到任何符合要求的行，自然不会有更新效果，也不会报错。
• 未取文本框的Text属性：你给参数赋值时直接传入了CustIDTextBox这类控件对象，而非控件的Text属性。程序会直接把控件对象转为默认的字符串值（比如System.Windows.Forms.TextBox），根本匹配不到数据库里存储的客户ID，同样会导致找不到可更新的行。
• 缺少执行结果校验和资源释放：执行ExecuteNonQuery()后会返回受影响的行数，可通过这个返回值判断是否真的更新到了数据；同时数据库连接用完需要及时关闭释放，避免资源占用。

Dim connstring As String = "Provider =Microsoft.ACE.OLEDB.12.0; data source= C:\Users\Hamza\Documents\POS system1.accdb"
' 使用Using语句会自动释放连接资源，无需手动关闭
Using myconnection As New OleDbConnection(connstring)
    myconnection.Open()
    Dim Str As String = "Update Customers SET FirstName=?, LastName=?, Address=?, PhoneNo=?, Points=? WHERE CustID=?"
    Dim cmd As New OleDbCommand(Str, myconnection)
    ' 按照SQL占位符的顺序添加参数，同时取Text属性值
    cmd.Parameters.AddWithValue("@FirstName", First_NameTextBox.Text)
    cmd.Parameters.AddWithValue("@LastName", Last_NameTextBox.Text)
    cmd.Parameters.AddWithValue("@Address", AddressTextBox.Text)
    cmd.Parameters.AddWithValue("@PhoneNo", Phone_noTextBox.Text)
    cmd.Parameters.AddWithValue("@Points", PointsTextBox.Text)
    cmd.Parameters.AddWithValue("@CustID", CustIDTextBox.Text)
    ' 获取受影响的行数
    Dim affectedRows As Integer = cmd.ExecuteNonQuery()
    If affectedRows > 0 Then
        MsgBox("Updated!")
    Else
        MsgBox("未找到匹配的客户记录，无数据更新")
    End If
End Using

额外注意：如果CustID、Points字段是数值类型，建议先把对应文本框的Text属性转为对应数值类型再传入参数，比如Integer.Parse(CustIDTextBox.Text)，避免隐式类型转换出错。

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