【学生信息管理系统】3021错误原因及解决办法

错误描述

在敲学生信息管理系统的时候，我们都遇到过这个错误。

错误原因

1.查找的数据库记录为空.

2.查找到数据后,用 Del 命令删除记录后,再引用 Fields 后会出现错误.

3.已经用MoveFirst 或用 MovePrevious 命令 移动至数据库开始后再用 MovePrevious 命令.

4.已经用MoveLast 或用 MoveNext 命令 移动至数据库开始后再用 MoveNext 命令.

说的通俗一点，就是数据库中没有了数据。

解决办法

1、添加错误处理。

Private Sub Form_Load()     运行修改学籍窗体
Dim txtSQL As String
Dim MsgText As String

txtSQL = "select * from student_Info"
Set mrc = ExecuteSQL(txtSQL, MsgText)      得到student表，并显示出来

On Error GoTo dateErr    如果有错误直接执行dateErr那一步
mrc.MoveFirst
Call viewData
myBookmark = mrc.Bookmark
mcclean = True
dateErr:

If Err =3021 Then
MsgBox"没有数据"
End If
end sub

2.添加判断，判断数据中是否有需要查询的表中数据

Private Sub Form_Load()‘运行修改学籍窗体
Dim txtSQL As String
Dim MsgText As String
Dim str1 As String      '自己加的
'得到student表
txtSQL = "select * fromstudent_Info"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = False Then  ‘先判断是否还有记录，如果还有记录
mrc.MoveFirst
Call viewData
myBookmark = mrc.Bookmark
mcclean=True

Else                                      ‘如果没有记录

str1 =MsgBox("没有学籍信息,是否添加学籍信息？", vbOKCancel, "提示")
If str1 = vbOK Then    ‘点击确定
unload frmModifysinfo         ‘当前窗体卸载
frmAddsinfo.Show             ‘添加学籍窗体运行
Else                                      ‘点击取消
Unload frmModifysinfo         ‘当前窗体卸载
End If
End If
End Sub