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

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

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