【学生信息管理系统】错误调试

学生系统从开始到优化，期间遇到很多问题，这也难免，所以还是乖乖的解决了吧，这些问题相信大家也遇到过。

1、“错误91，对象变量或with块变量未设置。”

这个错误贯穿整个过程，具体的解决方法在/article/2335370.html中已有，在这里不再多说。

2、”错误424，要求对象“。




一般是由于对象名称的错误，调试一下报错的代码就可以了。

3、错误381，下表越界。








错误原因：




myflexgrid控件中只有两个表格，实际加载的信息有6个，所以才会报错越界。

怎么改：

选择myflexgrid控件右击——属性——修改列数即可。




4、错误3021






出现此错误原因:

查找的数据库记录为空..可以用 rs.RecordCount 来判断数据是否等于0

<span style="font-size:24px;">   有时候这是由于系统的漏洞，所以在这里添加错误处理，当在遇到这种错误时，错误转向显示信息“无记录！”</span>

Private Sub Form_Load()
    Dim txtSQL As String
    Dim msgText As String
    
    txtSQL = "SELECT * FROM student_Info "
    Set mrc = ExecuteSQL(txtSQL, msgText) '得到临时表
    
    On Error GoTo 1:

       mrc.MoveFirst
      Call viewData
        
        myBookmark = mrc.Bookmark '对当前记录进行标记
        mcclean = True '可编辑状态
    
    1:
    
        If Err = 3021 Then
          MsgBox "无记录！"
        End If
  end sub

5、实时错误，多步OLEDB操作产生错误。




出现此问题，原来是因为电话号输入的字符超过10个，在数据库studentSQL文件中找到相应的表，修改tele_Number的char值为11即可。



关于学生信息管理系统的问题还有很多，这只是其中的一部分，但我相信错误只会让我变得越来越勇敢，fighting！！！