Visual Basic 6中如何删除DataGrid选中行？求助解决删除功能失效问题

问题回顾 #

你已经成功通过ADO将数据库视图vJadwalRehab的数据加载到DataGrid中，但尝试直接操作DataGrid的行来删除数据时，几种方法都没生效。你的加载代码如下：

Private Sub cmdTampil_Click()
AdoCupu.ConnectionString = Buka
AdoCupu.RecordSource = "Select * from vJadwalRehab Where jadwalrehab between '" & Format(dtDari, "yyyy/MM/dd") & "' and '" & Format(dtpSampai, "yyyy/MM/dd") & "'"
AdoCupu.Refresh
Set dgData.DataSource = AdoCupu
End Sub

而你在删除按钮事件里尝试的几种方法，都是直接操作DataGrid的行集合，这正是问题的核心所在。

核心原因 #

当DataGrid绑定到ADO Recordset时，DataGrid只是数据的可视化展示控件，它的所有行都由底层的Recordset驱动。直接修改DataGrid的行不会影响数据库中的真实数据，也不会同步到Recordset，所以你的删除操作看起来完全没生效。

正确解决方案 #

我们需要直接操作绑定的ADO Recordset来完成删除，具体步骤如下：

1. 先确认当前存在可删除的有效记录
2. 弹出确认对话框，避免用户误删除
3. 调用Recordset的Delete方法删除当前选中的记录
4. 刷新Recordset并同步DataGrid界面

修改后的cmdHapus_Click代码如下：

Private Sub cmdHapus_Click()
    ' 检查是否有可操作的有效记录
    If Not AdoCupu.EOF And Not AdoCupu.BOF Then
        ' 弹出确认提示，防止误删
        If MsgBox("确定要删除选中的这条记录吗？", vbYesNo + vbQuestion, "删除确认") = vbYes Then
            ' 删除Recordset当前行（对应DataGrid选中的行）
            AdoCupu.Delete
            ' 刷新Recordset，同步数据库的变更
            AdoCupu.Refresh
            ' 重新绑定DataGrid确保界面完全同步（部分场景下Refresh后会自动同步，保险起见加上）
            Set dgData.DataSource = AdoCupu
        End If
    Else
        MsgBox "没有可删除的记录！", vbExclamation, "提示"
    End If
End Sub

额外注意事项 #

• Recordset锁定类型：确保你的AdoCupu的LockType属性设置为可更新的类型，比如adLockOptimistic或adLockPessimistic。如果是默认的adLockReadOnly，删除操作会直接失败。你可以在cmdTampil_Click中添加一行配置：

  AdoCupu.LockType = adLockOptimistic
  

• 视图的可删除性：因为你的数据源是视图vJadwalRehab，需要确保该视图支持DELETE操作。如果视图基于多个表，可能需要创建INSTEAD OF DELETE触发器来实现对应的删除逻辑，否则直接执行删除会报错。

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