Question

关于VB中RecordSet中Delete方法的问题

在VB中使用Data控件与access数据库进行处理，在工程的窗体中建立了两个按钮
一个为“添加记录”
Private Sub Command3_Click()
str1$ = "输入新的记录"
str2$ = MsgBox(str1$, vbOKCancel, "添加记录")
If str2$ = vbOK Then
Text1.SetFocus
Data1.Recordset.AddNew
End If
End Sub

另一个为“删除记录”
Private Sub Command4_Click()
str1$ = "你确定你要删除当前记录吗？"
str2$ = MsgBox(str1$, vbOKCancel, "删除记录")
If str2$ = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End If
End Sub

结果如下：
添加能对数据库正常进行操作。而删除却无法正常删除（程序在运行中没有报错），请高人做个指点。本人是初学者。谢谢！

Answer 1

Data1.Recordset.MoveNext 因为这句
如果你表里就一条数据 就不能moveNext了 做下判断就好了。

Answer 2

原因是这样的，删除了，Data1只是做了删除标记，你得做确认操作即可（相当于提交）。

Answer 3

你删除以后没有update吧，就是删除以后没有更新数据库，所有没反应。