在敲学生的过程中不可避免的会出现一系列的错误,边调试边记录,结束学生了,也是时候把这些错误整理一下,为之后的机房提供参考。
错误一:
解决方法:我觉得这句话在这儿没有什么意义,就把它删了,然后运行就没问题了。
错误二:
出现这个问题的原因是因为数据库没有记录。
解决方法:添加如下代码:
txtSQL = "select * from student_Info " 'SQL语句
Set mrc = ExecuteSQL(txtSQL, MsgText) '执行查询操作
If mrc.RecordCount = 0 Then
MsgBox "数据为空", vbOKOnly + vbExclamation, "提示"
'功能按钮全部失效
cmdFirst.Enabled = False
cmdPrevious.Enabled = False
cmdNext.Enabled = False
cmdLast.Enabled = False
txtSID.Enabled = False
txtName.Enabled = False
comboGender.Enabled = False
DTPicker1.Enabled = False
comboClassno.Enabled = False
txtTel.Enabled = False
DTPicker2.Enabled = False
txtAddress.Enabled = False
txtComment.Enabled = False
cmdEdit.Enabled = False
cmdUpdate.Enabled = False
cmdCancel.Enabled = False
cmdDelete.Enabled = False
Else
mrc.MoveFirst
Call viewData
错误三:当前用户不显示
原因:我在模块定义了一个Username,又在该窗体下定义了,所以导致它为空值。
解决方法:把该窗体下的Username定义删除。
错误四:添加学籍窗体
原因:VB中的联系电话的text文本框输入了11位,而数据库中的数据类型中设置字符为10。
解决方法:点击菜单栏中的工具,之后如下所示
错误五:这种错误产生的原因就是窗体上缺少控件或者控件名称不对。
错误六:窗体setcourseinfo
原因:出现这个错误一般有两个原因,
①数据库ODBC配置问题
②代码输入错误
解决方法:这个就是粗心导致代码输入错误,只要在set和mrcc之间输入空格即可。