Question

VB 数据库删除问题

在数据库中我建立了售后回访这个表，其中一个字段是产品编号，我想通过在界面中的text1控件输入，在数据库中删除字段为text1.text的记录，代码如下

If Adodc1.Recordset.EOF = False Then
str1$ = "确定删除？"
str2$ = MsgBox(str1$, vbOKCancel, "删除记录")
If str2$ = vbOK Then
Adodc1.RecordSource = "delete from 售后回访 " & _
"where 产品编号 ='" + Text1.Text + "'"
Adodc1.Recordset.Update
a = MsgBox("删除成功！", , "操作提示")
Adodc1.Refresh
End If
End If

但是结果出来之后..记录是删掉了，在倒数第三行这里提示对象结束时不允许被操作，这要怎么解决啊，VB接触的比较少，最近被他弄的头啊疼死了。

Answer 1

If Adodc1.Recordset.EOF = False Then
If MsgBox("确定删除？", vbOKCancel, "删除记录") = vbOK Then
Adodc1.RecordSource = "delete from 售后回访 " & _
"where 产品编号 ='" + Text1.Text + "'"
'执行delete 后，命令结束会自动执行 adodc1.close
'这里你要重新打开adodc1连接，再看一下记录是不是为0，为0执行
'MsgBox("删除成功！", , "操作提示")
'否则执行
‘MsgBox("删除失败！", , "操作提示")
End If
End If

追问

还是非常感谢的！

Answer 2

建议你修改如下：

Adodc1.RecordSource = " Select * from 售后回访 where 产品编号 ='" + Text1.Text + "'"
Adodc1.Refresh
If Not (Adodc1.Recordset.EOF And Adodc1.Recordset.BOF) Then

str1$ = "确定删除？"
str2$ = MsgBox(str1$, vbOKCancel, "删除记录")
If str2$ = vbOK Then
Adodc1.Recordset.Delete

Adodc1.Refresh

a = MsgBox("删除成功！", , "操作提示")
End If

End If

Answer 3

delete记录不需要update。