学生管理系统问题集锦二

问题2：当表中只有一条记录时，删除此条记录会报错

解决方法：

'定义全局变量
'定义数据库记录集对象
Dim rstObj As ADODB.Recordset
'定义标记数据表当前状态的书签
Dim myBookmark As Variant

'当点击删除按钮时，判断此时表中是否只有一条记录
'如果只有一条记录，则删除此记录，关闭窗体
'如果含义多条记录，则删除此记录，显示下一条记录
Private Sub cmdDel_Click()

'定义记录Msgbox返回值的对象
Dim intMsg As Integer

'标记当前数据表的状态
myBookmark = rstObj.Bookmark
intMsg = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")

'如果选择“是”
If intMsg = vbOK Then

'游标指向下一条记录
rstObj.MoveNext

'如果表中只有一条记录
If rstObj.EOF Then
rstObj.MovePrevious
rstObj.Delete

'删除最后一条记录后，窗体关闭
MsgBox "没有记录"
Unload Me

'如果表中有多条记录
Else
'标记当前数据表的状态
myBookmark = rstObj.Bookmark
rstObj.MovePrevious
rstObj.Delete
rstObj.Bookmark = myBookmark
'显示数据表中的内容
Call viewData
End If

Else
'还原数据表状态
rstObj.Bookmark = myBookmark
'显示数据表中的内容
Call viewData
End If

End Sub