VB.NET操作MS Access删除记录时如何捕获不存在的Risk ID并提示

• 原代码没有捕获删除操作的实际执行结果：OleDbCommand.ExecuteNonQuery()方法会返回本次数据库操作实际影响的行数，当输入的Risk ID不存在时，删除语句无法匹配到任何记录，这个方法的返回值为0，但原代码完全忽略了这个返回值，无论实际是否删除到数据，都会直接弹出删除成功的提示。
• 原有Runquery方法的设计存在适配性问题：
  • 无论传入什么SQL语句，都会硬编码绑定所有文本框对应的参数，但本次使用的删除语句仅用到@ID一个匹配条件，其余参数不仅没有实际作用，在Jet OLEDB引擎下还可能引发参数匹配异常。
  • 方法本身没有返回值，无法将实际影响的行数传回调用流程做分支判断。

调整删除按钮的事件处理流程，单独处理数据库连接、参数绑定逻辑，通过拿到的实际影响行数做分支判断，匹配不存在的ID场景的提示：

1. 保留原有的“Risk ID为空时弹出警告”的逻辑
2. 输入不为空时，执行删除操作后读取ExecuteNonQuery的返回值：
   • 若返回值为0：说明数据库中不存在对应ID的记录，弹出和空输入风格一致的警告提示，告知用户记录不存在
   • 若返回值大于0：说明成功删除对应记录，再弹出成功提示

Private Sub Deletebtn_Click_1(sender As Object, e As EventArgs) Handles Deletebtn.Click
    ' 校验输入是否为空
    If String.IsNullOrWhiteSpace(txtRiskid.Text) Then
        MsgBox("Please enter a existing 'Risk ID' to delete the specific record from the database", 0, "Warning")
        Return
    End If

    ' 使用Using块自动管理数据库连接资源，避免手动释放的遗漏
    Using con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\ahmed\OneDrive\Desktop\ProjectDatabase2003.mdb")
        Dim deleteSql As String = "delete from Risk_Register where ID=@ID"
        Dim cmd As New OleDbCommand(deleteSql, con)
        ' 仅绑定删除操作需要的ID参数，移除无意义的多余参数绑定
        cmd.Parameters.AddWithValue("@ID", txtRiskid.Text.Trim())

        con.Open()
        ' 读取本次操作实际影响的数据行数
        Dim affectedRows As Integer = cmd.ExecuteNonQuery()

        ' 根据影响行数分支处理提示
        If affectedRows = 0 Then
            MsgBox("输入的Risk ID不存在，无匹配记录可删除", 0, "Warning")
        Else
            MsgBox("The record has been Deleted successfully from the database.", 0, "Information")
        End If
    End Using
End Sub

注意：原有的Runquery方法存在两个不稳定的设计：一是Jet OLEDB引擎不支持按参数名匹配，是严格按照参数添加的顺序和SQL里的占位符顺序对应绑定的，原方法不管什么SQL都绑定全部参数的写法很容易出现参数错配；二是方法没有返回值，无法获取数据变更操作的实际影响行数，不适合删除、更新这类需要结果反馈的场景。日常用于无反馈要求的简单查询可以保留，但涉及数据变更类操作时单独编写逻辑会更稳定。

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