Question

出错！BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录~

源码：
Private Sub Command2_Click()
Dim dele As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_wygl.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from TestTypeSet "

If Adodc1.Recordset.RecordCount > 0 Then
dele = MsgBox("确定删除吗？", vbYesNo + vbInformation, "系统提示")
If dele = vbYes Then
Adodc1.Recordset.Delete
Unload Me
Adodc1.Refresh
Else
End If
Else
MsgBox "数据库中没有记录要删除", , "系统提示"
End If
End Sub
错误指在 Adodc1.Recordset.Delete

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏20（财富值+成长值）

Answer 1

Private Sub Command2_Click()
Dim dele As String
dele = MsgBox("确定删除吗？", vbYesNo + vbInformation, "系统提示")
If dele = vbYes Then
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_wygl.mdb;Persist Security Info=False"
Adodc1.RecordSource = "Delete from TestTypeSet "
Adodc1.Refresh
End If
End Sub

Answer 2

因为只有当记录集不为空,也就是读到了记录时,才会把字段值输出来.否则的话是不能输出的.输出了就会报上面的错误.所以你在输出时加个判断是最是最后一条记录获没记录 if not recordset1.eof then 你的页面内容 else ...