那些美丽的实时错误—学生信息管理系统

                  在完成 一个项目或是敲一个系统时,总是难免会遇到很多美丽的错误,在做学生信息管理系统时,让我遇到的这些实时错误真的是急的我焦头烂额,有时因为这些错误弄的心情很不好。在调试代码过程中,想着还有个实时错误没有调好就没有时间做别的事情,其实解决了还真是觉得它们也挺美丽的……

         

        1、实时错误‘91’

                  那些美丽的实时错误—学生信息管理系统_第1张图片           

        这个错误可以说是贯穿着我整个学生信息系统,出现的频率最高,而且一开始用在解决这个错误的时间也是最多的。

         例如在登录时就弹出这个错误而不能进入系统,一种可能是没有连接好数据库,查询不了数据库的数据,以为查询到的数据都是空的,所有会报错。还有一种可能就是代码写错了,像我的错误就是太明显的错误 :

            错误代码  cnn.Execute SQL   正确代码   cnn.ExecuteSQL 

         最多的还是和数据库的连接问题,有时是SQL语句错误,例如小小的空格或是一个单引号都有可能出错,要小心认真一点。


          2、实时错误'13'

                       那些美丽的实时错误—学生信息管理系统_第2张图片              

          这个实在添加班级信息窗体出现的,当没有添加信息时,就点确认添加按钮,这时就会出项这个错误,其实有好多实时错误说的听美的,其实就是自己的代码有问题

    If NotTesttxt(txtClassno.Text) Then

               MsgBox "请输入班号","vbOKOnly+vbExclamation ", "警告"

               txtClassno.SetFocus

               Exit Sub

       End If

     改为:MsgBox "请输入班号", vbOKOnly +vbExclamation, "警告"    没有引号


      3、实时错误'-2147352571 (80020005)'

           那些美丽的实时错误—学生信息管理系统_第3张图片 

              

        这个错误也是代码的错误,改好了没有记录下来


          4、实时错误'3021'

               那些美丽的实时错误—学生信息管理系统_第4张图片

            这个也出现过很多次,出现这个错误的原因可能有以下几点:

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

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

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

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

         解决方法:

              添加错误判断:

                                                           On Error GoTowithoutErr

                                                                  mrc.MoveFirst

                                                                  Call viewData

                                                                  myBookmark = mrc.Bookmark

                                                                  mcclean = True

                                                           withoutErr:

                                                                 If Err = 3021 Then

                                                                         MsgBox "没有添加完全数据"

                                                                 End If


         5、实时错误'94'

                那些美丽的实时错误—学生信息管理系统_第5张图片

             这个错误困扰我的时间是最长的,无论则么调代码,都显示这个错误,而且我的系统放到别人的电脑上就可以运行这个窗体,显然不是我代码的错误,可是同样的代码为什么就不能写进我的数据库中呢?

                 

              后来觉得不是代码的问题,可能是数据库的情况,就检查了一下student数据库中class_Info这个表,结果问题果然在这,但是数据库是更改不了的。

            

             数据没有添加到表中,显示的总是NULL    

             最后的解决方法是:把student表删掉重新有连接一下ODBC,又创建了一个student数据库,就可以了。其实还是有点不明白为什么就是不能写进数据库,难道这是一种意外情况吗?问了别人,都没有遇到这个错误,请教师姐,说就是有可能没有添加到数据库中,是有这个可能的,有可能是连接的问题。

              这些错误其实解决完了以后觉得都不是什么大的错误,可是在解决过程中真的是痛并快乐着,以后加油吧!

              解决了这些美丽的实时错误之后,心情好多了……

你可能感兴趣的:(那些美丽的实时错误—学生信息管理系统)