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

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

         

        1、实时错误‘91’

                             

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

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

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

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

          2、实时错误'13'

                                     

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

    If NotTesttxt(txtClassno.Text) Then

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

               txtClassno.SetFocus

               Exit Sub

       End If

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

      3、实时错误'-2147352571 （80020005）'

            

              

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

          4、实时错误'3021'

               

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

                     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'

                

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

                 

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

            

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

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

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

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