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

「爱情、让人受尽委屈。」 2022-08-08 06:37 139阅读 0赞

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

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

这个错误贯穿整个过程，具体的解决方法在[http://blog.csdn.net/hongwei15732623364/article/details/45460175][http_blog.csdn.net_hongwei15732623364_article_details_45460175]中已有，在这里不再多说。

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

![Center][]

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

3、错误381，下表越界。

![Center 1][]

![Center 2][]

错误原因：

![Center 3][]

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

怎么改：

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

![Center 4][]

4、错误3021

![Center 5][]

出现此错误原因:

查找的数据库记录为空..可以用 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操作产生错误。

![Center 6][]

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

![Center 7][]

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

[http_blog.csdn.net_hongwei15732623364_article_details_45460175]: http://blog.csdn.net/hongwei15732623364/article/details/45460175
[Center]: /images/20220805/2e7b6b1ccc2b4d5a8f80271345e167d7.png
[Center 1]: /images/20220805/c226d71a3282472f8ec386fb0367dc14.png
[Center 2]: /images/20220805/9a18f3a26a3b4359930ed9dc9b9c6652.png
[Center 3]: /images/20220805/5d88ad03695b4380ad456747dce07a06.png
[Center 4]: /images/20220805/4eeb568dbc924b71a9dd269fd42f3861.png
[Center 5]: /images/20220805/744cae290d7348bfa9f757b851bbbf84.png
[Center 6]: /images/20220805/74716bcdd9714f38a4f2003ce468f926.png
[Center 7]: /images/20220805/0dd2ae11d1354a35b23102fd0acde54c.png