学生信息管理系统（三）更新数据时，不正当输入是如何使数据被删除的
以更新班级信息为例子来我们说明更新数据的功能是如何实现的。
过程段如下：
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 If
End Sub
正常情况下操作是不会出错的。但当我们不正当输入时错误就出现了。
比如在教室：的输入12345678910
当单机更新时则会显示如下的错误，调试时出现在数据添加进数据库过程中出错了。
而当输入的数字不超过10时，数据能添加成功。在代码和窗体中没有对数字的限制，则可能出现的错误在与数据库对该字段的输入有要求。打开数据库查看我们可以看到数据库中要求classroom_No的字符不能超过10个。所以当我们输入的字符超过10个之后数据添加不成功。
报错后退出程序，在打开时原有记录已经被删除了，
因为我们在检测到输入不为空后，就删除了当前显示的记录。然后检测主键是否冲突，在添加进库的过程中出错了，在出错前记录已经被删除了。
假设我们去掉mrc.Delete这句话，意思就是更新数据时当前显示的记录不被删除，当修改教室后单击更新按钮，显示“班号已经，请重新输入”。 除非修改主键（而且和库中的不能相同）才能显示更新数据成功。但结果是对原来要修改的记录没有进行修改，而是有添加了一个新记录。
解决的办法：
根据输入的数据定义合理的数据类型（存储空间可以设的稍微大一点）。