【学生信息管理系统】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