您所在位置：主题：向各位大哥请教下ado控件删除数据的问题
coffecat
[专家分：0] 发布于 2009-09-22 01:02:00
我写的代码如下
Private Sub cmd_del_Click()
If Me.txt_c.Text = "" Then
MsgBox "删除条件不能为空!"
Exit Sub
End If
Adodc1.RecordSource = "select * from class where 姓名=" '&txt_c.text&"'"
If Adodc1.Recordset.RecordCount <= 0 Then
MsgBox "数据库中没有该项记录可供删除!"
Else
Adodc1.Recordset.Delete
DataGrid1.ReBind
DataGrid1.Refresh
MsgBox "删除成功!"
End If
End Sub
---------------------------------------------------
不知道代码错在哪里该删的记录没删掉，却把不该删的给删掉了，郁闷，请各位大哥指导下，谢谢
