学生管理系统之修改信息报错3021解决方案

*前言

进行到学生管理系统，在修改信息界面，经常会出现如下报错：

报错原因：因为数据库中并没有信息，所以他会报错。

代码：

'学籍信息菜单下的修改学籍信息
Private Sub modificationRoll_Click()
    Dim txtSQL$ '用来存放SQL语句
    Dim MsgText$ '用于存放返回信息
    Dim Str2$ '用于存放Msgbox函数的返回值
    Dim mrc As ADODB.Recordset '用来存放记录集对象

    '查询表中的记录
    txtSQL = "select *from student_info"
    '执行查询语句
    Set mrc = ExecuteSQL(txtSQL, MsgText)

    If mrc.EOF = True And mrc.BOF = True Then
        Str2 = MsgBox("当前没有记录，是否需要添加？", vbOKCancel + vbQuestion, "提示")
        If Str2$ = vbOK Then
            frminfo.Show '显示添加学籍信息窗体
            Exit Sub '结束当前过程
        Else
            Exit Sub '结束当前过程
        End If
    Else
        frmModifysinfo.Show '显示修改学籍窗体
    End If
End Sub

在还没有进入修改学籍信息的窗体时，进行判断，连接数据库获取学籍表中的信息，如果数据库中没有信息，直接弹出提示，这样就会避免报错！

结束语

如果你有其他方法，非常欢迎分享！

感谢阅读！