Question

vb +access中如何通过VB中添加删除按钮进行数据库数据的更改

就是通过ado连接的．如下编程肯定不对，但请问是那的问题，我是新手

Private Sub Cmd_Add_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.AddNew
End Sub

Private Sub Cmd_Delete_Click()
Adodc1.Recordset.Delete
Adodc2.Recordset.Delete
Adodc1.Recordset.MoveNext
Adodc2.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
Adodc1.Recordset.MoveLast
End If

End Sub

Private Sub Cmd_Ok_Click()
Adodc1.Recordset.Update
Adodc1.Recordset.Update
Private Sub Cmd_Add_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Cmd_Delete_Click()
Adodc1.Recordset.Delete
'在这里判断是否为最后一条记录，然后做MoveNext还是MoveLast
Adodc1.Recordset.MoveNext

Adodc1.Recordset.MoveLast

End If

End Sub

Private Sub Cmd_Ok_Click()
Adodc1.Recordset.Update
End Sub
我把程序改成这样,数据库连接的是ACCESS查询表,我按了新增按钮添加了数据,在按确认以便把数据保存到ACCESS查询表中,但是还是不能保存数据并显示以下提示:
实时错误'-2147467259(80004005):
由于将在索引,主关键字,或关系中创建重复的值,请求的改变没有成功.改变该字段中的或包含重复字段中的数据,删除索引或重新定义索引以允许重复的值并在试一次.然后按调试,黄色箭头指在这个语句

Adodc1.Recordset.Update

..........

谢谢各位的回答....我将感激不禁

Answer 1

Private Sub Cmd_Delete_Click()
Adodc1.Recordset.Delete
Adodc2.Recordset.Delete
Adodc1.Recordset.Update
Adodc2.Recordset.Update
End Sub

你是不是只要求删除游标所在记录集的数据？上面的语句可以实现。
问题关键是删除和更新必须在一起。对数据库的操作后，必须要有Update，不然做的一切都白费了

Answer 2

Private Sub Cmd_Add_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.AddNew
End Sub

Private Sub Cmd_Delete_Click()
Adodc1.Recordset.Delete
Adodc2.Recordset.Delete
'在这里判断是否为最后一条记录，然后做MoveNext还是MoveLast
Adodc1.Recordset.MoveNext
Adodc2.Recordset.MoveNext

Adodc1.Recordset.MoveLast
Adodc1.Recordset.MoveLast
End If

End Sub

Private Sub Cmd_Ok_Click()
Adodc1.Recordset.Update
Adodc1.Recordset.Update