学生信息管理系统问题集锦

系统敲完了，也调试完了，在完成系统的过程中遇到不少的问题，做一下总结。

1、With 未设置，实时错误‘91’

 

 1）、数据库的ODBC配置出现错误，没有配置好，与数据库的连接没有连接好，就会出现这样的问题

 2）、与代码中从数据库中调用数据的语句有关：

  前面的空格不应该有

     

 where 后面有条件，所以与引号间必须有空格

 

  2、多步OLE DB操作产生错误。

  

 

  出现这个问题时，调试的指针会指在写的代码的某一行，

 

             

 

            这是因为每一个数据都有各自的数据类型，字段的大小都有限制，但你超出这个限制的时候，就会出现上述的情况！

 

    3、实时错误“3021”

   

  出现这个问题的时候，一般是你的数据库里面已经为空，当你继续执行Form_Load()事件或者在你删除数据时，把数据库中的数据已经全部删除之后，会出现这种情况！对于这种情况，我对Form_Load()和deleteCommand_Click()两个事件下的过程做了相应的改变

Private Sub From_Load()

      txtsql="select * from class_info "

      set mrc=ExecuteSQL(txtSQL,MsgText)

      If mrc.EOF And mrc.EOF then       '指针未在记录集之中，没有记录，说明数据库为空



          MsgBox"数据库为空，请先添加班级信息！",vbOkonly + vbExclamation,"警告"

          mrc.Close

          Frame2.Enabled=False          '使所有的控件按钮无法使用

          Frame3.enabled=False

      Else

          mrc.MoveFirst

          Call viewData

          myBookmark=mrc.Bookmark 

          mcclean=True

      End If

 。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

Private Sub deleteCommand_Click()

     

     myBookmark = mrc.Bookmark

     str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")

     If str2$ = vbOK Then

            mrc.MoveNext                                '删除后显示下一条记录

            If mrc.EOF Then

                mrc.MoveFirst

                myBookmark = mrc.Bookmark

                mrc.MoveLast

                mrc.Delete

                mrc.Bookmark = myBookmark



                

                txtSQL = "select * from class_info "    '重新从数据库中提取数据，相当于刷新      

                Set mrc = ExecuteSQL(txtSQL, MsgText)   '得到student表，并显示出来

                

                If mrc.EOF And mrc.BOF Then

                    MsgBox "数据库为空，请先添加班级信息！", vbOKCancel, "警告"

                    mrc.Close                           '关闭连接

                    Frame2.Enabled = False

                    Frame3.Enabled = False

                    

                    txtClassno.Text = ""

                    comboGrade.Text = ""

                    txtDirector.Text = ""

                    txtClassroom.Text = ""

                Else

                    Call viewData

                End If

            Else

                myBookmark = mrc.Bookmark

                mrc.MovePrevious

                mrc.Delete

                mrc.Bookmark = myBookmark

                Call viewData

            End If

     Else

         mrc.Bookmark = myBookmark

         Call viewData

     End If