VB.NET连接Access数据库时删除按钮无法正常删除记录的问题

问题原因 #

你提供的删除按钮代码逻辑存在缺失：用户点击确认删除后仅执行了数据刷新操作，没有调用任何删除记录、提交变更到数据库的相关代码，因此无法实现删除效果，也不会触发报错。

修复后的删除按钮代码 #

'删除记录
Private Sub btn_delete_Click(sender As Object, e As EventArgs) Handles btn_delete.Click
    Try
        Dim u = MsgBox("您确定要删除该记录吗？", MsgBoxStyle.YesNo)
        If u = MsgBoxResult.Yes Then
            ' 校验是否选中了要删除的记录
            If Purchases_fileBindingSource.Current Is Nothing Then
                MsgBox("未选中任何需要删除的记录", MsgBoxStyle.Exclamation)
                Return
            End If
            ' 删除绑定源中当前选中的记录
            Purchases_fileBindingSource.RemoveCurrent()
            ' 提交编辑状态到数据集
            Me.Validate()
            Me.Purchases_fileBindingSource.EndEdit()
            ' 将删除变更同步到Access数据库
            Me.Purchases_fileTableAdapter.Update(Me.TNJ_Retail_Management_SystemDataSet.Purchases_file)
            MsgBox("记录已删除！", MsgBoxStyle.Exclamation)
            ' 刷新页面显示的数据
            Me.Purchases_fileTableAdapter.Fill(Me.TNJ_Retail_Management_SystemDataSet.Purchases_file)
        Else
            '点击了否按钮
            '不执行任何操作
            Return
        End If
    Catch ex As Exception
        '出现异常：
        MsgBox("无法删除数据库中的数据。" & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)
    End Try
End Sub

注意事项 #

• 确保Purchases_file表已设置主键，否则TableAdapter可能无法自动生成合法的删除SQL语句
• 若运行后提示缺少删除命令，可以重新配置TableAdapter，勾选自动生成增删改语句的选项即可

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