学生信息管理系统（三）更新数据时，不正当输入是如何使数据被删除的

以更新班级信息为例子来我们说明更新数据的功能是如何实现的。

过程段如下：
1.首先是保证当前窗体下的mcclean为false才能对数据进行更新（mcclean的false，true对当前窗体的控制可以自己设定）。
2.检查数据的输入，和数据的添加功能无太大差别。
3.在数据库中删除当前显示的记录。
4.检查输入的数据是否和数据库中数据是否冲突（主键）。
5.冲突则从新输入，相反则添加数据到数据库中。

部分代码如下：

Private Sub updateCommand_Click()    Dim txtSQL As String    Dim MsgText As String    Dim mrcc As ADODB.Recordset        If mcclean = True Then          'mcclean的默认属性为真,弹出对话框，无法对数据进行更新。        MsgBox "请先修改班级信息", vbOKOnly + vbExclamation, "警告"        Exit Sub    End If       。。。。。。。。。。。。。。。。        If Not Testtxt(txtClassroom.Text) Then        MsgBox "请输入教室号码！", vbOKOnly + vbExclamation, "警告"        txtClassroom.SetFocus        Exit Sub    End If                         '完成信息的检测，保证输入不为空        mrc.Delete                     '删除当期显示的记录    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          Else        mrcc.Close                       '不冲突的话添加修改的信息        mrc.AddNew        mrc.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        。。。。。。。。。。。                        mcclean = True    End IfEnd Sub

正常情况下操作是不会出错的。但当我们不正当输入时错误就出现了。

比如在教室：的输入12345678910

当单机更新时则会显示如下的错误，调试时出现在数据添加进数据库过程中出错了。

而当输入的数字不超过10时，数据能添加成功。在代码和窗体中没有对数字的限制，则可能出现的错误在与数据库对该字段的输入有要求。打开数据库查看我们可以看到数据库中要求classroom_No的字符不能超过10个。所以当我们输入的字符超过10个之后数据添加不成功。

 

报错后退出程序，在打开时原有记录已经被删除了，
      因为我们在检测到输入不为空后，就删除了当前显示的记录。然后检测主键是否冲突，在添加进库的过程中出错了，在出错前记录已经被删除了。
      假设我们去掉mrc.Delete这句话，意思就是更新数据时当前显示的记录不被删除，当修改教室后单击更新按钮，显示“班号已经，请重新输入”。   除非修改主键（而且和库中的不能相同）才能显示更新数据成功。但结果是对原来要修改的记录没有进行修改，而是有添加了一个新记录。
   
解决的办法：

根据输入的数据定义合理的数据类型（存储空间可以设的稍微大一点）。