怎样判断删除成功呀？

Question

sqlstr = "Delete From P_Info Where ID='" & id & "'"
cn.Execute sqlstr
我怎么知道是否已经把数据库中的记录删除掉了呀？
可以用什么来判断呀？或者有什么其他的方法？
谢谢！

Answer 1

Private Sub Command2_Click()
On Error GoTo Err    sqlstr = "Delete From P_Info Where ID='" & id & "'"
    cn.Execute sqlstr
    Exit Sub
    
Err:
    MsgBox "删除不成功!", vbCritical, "系统提示"
End Sub

Answer 2

不出错就代表成功了。
但是如果delete之前使用了begintrans，则在delete之后要记得commit.

Answer 3

还有一个办法就是再执行
"select * From P_Info Where ID='" & id & "'"
如果数据库中没有，则删除成功！

Answer 4

用笨一点的方法就是
再用sqlstr="select * frpm p_Info where id='" & id & "'"
如果记录不存在表示删除了

Answer 5

Private Sub Command2_Click()
On Error GoTo Err    sqlstr = "Delete From P_Info Where ID='" & id & "'"
    cn.Execute sqlstr
    Exit Sub
    
Err:
    MsgBox "删除不成功!", vbCritical, "系统提示"
End Sub
用这种方法做的时候，当where后面条件不成立时，是不是也会出现提示呀！
我这里好象不提示呀！

Answer 6

是的，，反正一出错就跳到Err

Answer 7

并不是出错呀，只是where后面条件不成立，并不跳到err处！

Answer 8

如果没有语法错误就不会跳到 ERR: 
但是否删除成功必须自己判断 用 select .....