学生管理系统（2）——实时错误 ‘-2147217887

在满怀期待的第三次运行时遇到的第二个错误是 实时错误’-2147217887：

分析

 Set mrc = ExecuteSQL(txtSQL, MsgText)
                    mrc.AddNew
                    mrc.Fields(0) = Trim(txtSID.Text)
                    mrc.Fields(1) = Trim(txtName.Text)
                    mrc.Fields(2) = Trim(comboSex.Text)
                    mrc.Fields(3) = Trim(txtBorndate.Text)
                    mrc.Fields(4) = Trim(comboClassno.Text)
                    mrc.Fields(5) = Trim(txtTel.Text)
                    mrc.Fields(6) = Trim(txtRudate.Text)
                    mrc.Fields(7) = Trim(txtAddress.Text)
                    mrc.Fields(8) = Trim(txtComment.Text)
                    mrc.Update
                    MsgBox "添加学籍信息成功！", vbOKOnly + vbExclamation, "警告"
                    mrc.Close
                    Me.Hide

观察以上的代码没有发现错误，但是实时错误 '-2147217887显示在mrc.Fields(5)=Trim(txtTel.Text)，那错误可能存在数据库中，下面就让我们打开数据库：

从列“tele_Number”的限制条件是长度为10。也就是说我们在与“tele_Number”对应的“联系电话”一栏中只能输入长度为10的长整型字符串，而在运行时我们输入的电话号码一般都是十一位数字，明显的超出了这个范围。

解决
如何解决这个问题呢？为了能够完整的输入电话号码，我们就要把只能输入长度为10的改为11。但是当你改权限的时候发现不能修改。现在就打开工具-选项-设计器-标设计器和数据库设计器，把阻止保存要求重新创建表的更改前面的对勾取消就可以啦~

然后再重新打开tele_Number修改页面，把限制长度10改为11。

这个时候再次运行就不会出现这个错误啦，小伙伴们赶紧去尝试一下吧！