vb+access，如果数据库中有相同的记录（需要有相同的记录），怎样实现只删除一条？

[zimodao]

datagrid控件与adodc控件绑定，用来实现查询，结果在datagrid中显示，如果我只想删除当前记录，而当前记录又与其他记录是完全相同的，该怎么办？我用下面的代码，结果把所有的重复记录都删了

Private Sub CmdDelete_Click()
Myval = MsgBox("是否真的删除该数据？", vbYesNo)
If Myval = vbYes Then
On Error Resume Next
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
End If
End Sub

请大家帮忙，谢谢

[downloadsm]

这种方法应该是只删除一条记录吧

具体加入我们的QQ群一起交流

群号 31012129