学生信息管理系统-错误‘3021’

这个错误算是发生最多的一个了。

                                                                       

其一：是在打开修改XX信息的窗体时都会遇见的错误，经网上查询得知是因为，Recordset里没有数据的原因，当首先添加一组信息后，就可以打开修改修改了，但这并没有解决根本问题。我是这样修改的：写一组判断语句加frmMain的菜单项单击事件中。

Private Sub modifycinfoMenu_Click()



    txtSQL = "select * from class_Info"

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



    '判断记录是否为空，如果为空弹出提示框，确认后弹出添加信息窗体

    If mrc.RecordCount = 0 Then

        MsgBox "记录为空，请先添加！", vbOKOnly + vbExclamation, "警告"

        mrc.Close

        Set mrc = Nothing

        frmAddclassinfo.Show

        Exit Sub

    Else

        frmModifyclassinfo.Show

    End If

End Sub



Private Sub modifycourseMenu_Click()



    txtSQL = "select * from course_Info"

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



    '判断记录是否为空，

    If mrc.RecordCount = 0 Then

        MsgBox "记录为空，请先添加！", vbOKOnly + vbExclamation, "警告"

        mrc.Close

        Set mrc = Nothing

        frmAddcourseinfo.Show

        Exit Sub

    Else

        frmModifycourseinfo.Show

    End If

End Sub

其它几个做类似修改即可。

其二：是在删除数据的时候，删除两条以上的记录时不会出现错误，但在删除最后一条记录时便会发生错误。

法1、利用错误处理语句，（前提：虽然点击删除按钮后出错，但是重新打开时记录已经被删除了）

Private Sub deleteCommand_Click()

On Error GoTo d_Err

    myBookmark = mrc.Bookmark         '做标记

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



    If str2$ = vbOK Then

          .

          .

          .

    End If

d_EXIT:

         Exit Sub

         Unload Me

d_Err:

    txtSID.Text = ""                 ’把各文本框清空(可选)

    txtName.Text = ""

          .

          .

          .

    MsgBox "记录为空了。", vbOKOnly + vbExclamation, "警告"

         GoTo d_EXIT



End Sub

法2、编写判断语句判断是否为最后一条记录。

Private Sub deleteCommand_Click()

    myBookmark = mrc.Bookmark

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

    

    If str2$ = vbOK Then

        mrc.MoveNext



                  ’判断是否为最后一条记录

        If mrc.EOF Then

            mrc.MovePrevious

            mrc.MovePrevious

            If mrc.BOF Then       ’若是 则删除，避免执行语句call viewdata

                mrc.MoveNext

                mrc.Delete

                MsgBox "记录已经为空，，", vbOKOnly + vbExclamation, "警告"

                Unload Me

            Else

                mrc.MoveFirst

                myBookmark = mrc.Bookmark

                mrc.MoveLast

                mrc.Delete

                mrc.Bookmark = myBookmark

                mrc.Close

                

                txtSQL = "select * from class_Info"

                Set mrc = ExecuteSQL(txtSQL, MsgText)

                mrc.MoveLast

                Call viewData

            End If

        Else

            myBookmark = mrc.Bookmark

            mrc.MovePrevious

            mrc.Delete

            mrc.Bookmark = myBookmark

            mrc.Close

                

            txtSQL = "select * from class_Info"

            Set mrc = ExecuteSQL(txtSQL, MsgText)

            mrc.MoveLast

            Call viewData

        End If

    Else

        mrc.Bookmark = myBookmark

        Call viewData

    End If



End Sub

其它窗体里面的删除按钮代码做类似修改即可。