vb6 - 如何在 Visual Basic 6 中从数据网格中删除选定的行

Question

请帮助我..我已经尝试将我的数据库调用到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

我在“删除按钮”上尝试了这些方法，但仍然无法正常工作

Private Sub cmdHapus_Click()

1.method 'dgData.(1).index
    dgData.rows.RemoveAt (i)
'dgData.Delete

2.method      ' Dim index As Integer
       ' index = dgData.CurrentCell.RowIndex

3.method   ' delete the selected row
       ' dgData.rows.RemoveAt (index)
        'If Not dgData.CurrentRow.IsNewRow Then
        'dgData.rows.Remove (dgData.CurrentRow)
    'End If
End Sub

我尝试了这3种方法，但没有奏效..

标签： vb6

Answer 1

填写完网格后，删除记录的简单方法是通过 Adodc 控件：

Private Sub cmdHapus_Click()
   Dim bm As Variant

   For Each bm In dgData.SelBookmarks
      AdoCupu.Recordset.Bookmark = bm
      AdoCupu.Recordset.Delete
   Next
End Sub