学生管理系统——修改部分

1.代码内容

（1）  在修改部分，我们接触了一个新的名词——书签，其实我们对于它应该不陌生，尤其喜爱看小说的同学。所以联     系起来在这里在理解起来就不简单多了吧。

    书签简单理解就是做标记，让我们很好的控制使用数据表，在我们提前给自己的目的记录标记好书签的前提下，     我们可以随意的跳到我们想看的这条目的记录。

        MyBookmark = mrc.Bookmark                      '对当前记录做标记        mrc.MovePrevious                               '指向前一条记录        mrc.Delete        mrc.Bookmark = MyBookmark                      '让记录显示先前定义书签的位置

（2）执行修改

If Not Testtxt(txtClassNo.Text) Then                                      '判断班号文本框是否为空        MsgBox "请输入班号!", vbOKOnly + vbExclamation, "警告"        txtClassNo.SetFocus        Exit SubEnd If

</pre><pre name="code" class="vb">

txtSQL = "select * from class_Info where class_No = '" & Trim(txtClassNo.Text) & " '"Set mrcc = ExecuteSQL(txtSQL, MsgText)    If mrcc.EOF = False Then      MsgBox "班号重复，请重新输入!", vbOKOnly + vbExclamation, "警告"      mrcc.Close      txtClassNo.SetFocus

mrc.AddNewmrc.Fields(0) = Trim(txtClassNo.Text)mrc.Fields(1) = Trim(comboGrade.Text)mrc.Fields(2) = Trim(txtDirector.Text)mrc.Fields(3) = Trim(txtClassRoom.Text)mrc.Update        MsgBox "修改班级信息成功!", vbOKOnly + vbExclamation, "修改班级信息"

2.出现的问题

   

 vb 中的 实时错误'3021'，BOF或EOF中有一个是"真",或者当前的记录以被删除

原因是我们选择出来的记录集 是没有数据

 所以

A.在窗体show之前先判断

    txtSQL = "select * from class_Info "    Set mrc = ExecuteSQL(txtSQL, MsgText)    If mrc.BOF And mrc.EOF Then        MsgBox "没有记录，请先添加记录!", vbOKOnly + vbExclamation, "警告"        frmAddclassinfo.Show    Else        frmModifyclassinfo.Show    End If

B.当删除到最后一条时

   If mrc.EOF Then        mrc.MoveFirst                            '指向第一条记录        MyBookmark = mrc.Bookmark                '给第一条记录做标记        mrc.MoveLast        <span style="color:#ff0000;">mrc.Delete        MsgBox "没有记录"</span>