实现了点击COMMAND1后删除DataGrid1 中的一行了 想实现点击COMMAND2 删除所有的数据 怎么实现 在线等待解决！！！

Question

实现了点击COMMAND1后删除DataGrid1 中的一行了 想实现点击COMMAND2 删除所有的数据 怎么实现 在线等待解决！！！

Answer 1

用  DataGrid1 连接的数据库

Answer 2

datagrid本身就有删除功能，打开允许删除属性，选中一行，然后按delete就行了。

Answer 3

Private Sub Command2_Click()
 If Adodc1.Recordset.BOF = True Then    MsgBox "没有记录可以删除", vbOKOnly, "22-24 LINE 设备故障"
    Exit Sub
    End If
    Command3.Enabled = False
    With Adodc1.Recordset
    If Not .EOF And Not .BOF Then
    If MsgBox("确认删除当前记录？", vbYesNo + vbQuestion, "22-24 LINE 设备故障") = vbYes Then
    Adodc1.Recordset.Delete
 
    '.Delete
    .MoveNext
   
'   If .EOF Then .MoveNext
   End If
     End If
   End With
    Exit Sub
 
End Sub