在完成 一个项目或是敲一个系统时,总是难免会遇到很多美丽的错误,在做学生信息管理系统时,让我遇到的这些实时错误真的是急的我焦头烂额,有时因为这些错误弄的心情很不好。在调试代码过程中,想着还有个实时错误没有调好就没有时间做别的事情,其实解决了还真是觉得它们也挺美丽的……
1、实时错误‘91’
这个错误可以说是贯穿着我整个学生信息系统,出现的频率最高,而且一开始用在解决这个错误的时间也是最多的。
例如在登录时就弹出这个错误而不能进入系统,一种可能是没有连接好数据库,查询不了数据库的数据,以为查询到的数据都是空的,所有会报错。还有一种可能就是代码写错了,像我的错误就是太明显的错误 :
错误代码 cnn.Execute SQL 正确代码 cnn.ExecuteSQL
最多的还是和数据库的连接问题,有时是SQL语句错误,例如小小的空格或是一个单引号都有可能出错,要小心认真一点。
2、实时错误'13'
这个实在添加班级信息窗体出现的,当没有添加信息时,就点确认添加按钮,这时就会出项这个错误,其实有好多实时错误说的听美的,其实就是自己的代码有问题
If NotTesttxt(txtClassno.Text) Then
MsgBox "请输入班号","vbOKOnly+vbExclamation ", "警告"
txtClassno.SetFocus
Exit Sub
End If
改为:MsgBox "请输入班号", vbOKOnly +vbExclamation, "警告" 没有引号
3、实时错误'-2147352571 (80020005)'
这个错误也是代码的错误,改好了没有记录下来
4、实时错误'3021'
这个也出现过很多次,出现这个错误的原因可能有以下几点:
1.查找的数据库记录为空..可以用 rs.RecordCount 来判断数据是否等于0
2.查找到数据后,用 Del 命令删除记录后,再引用 Fields后会出现错误.
3.已经用MoveFirst或用 MovePrevious命令移动至数据库开始后再用MovePrevious命令.
4.已经用MoveLast或用 MoveNext命令移动至数据库开始后再用MoveNext命令.
解决方法:添加错误判断:
On Error GoTowithoutErr
mrc.MoveFirst
Call viewData
myBookmark = mrc.Bookmark
mcclean = True
withoutErr:
If Err = 3021 Then
MsgBox "没有添加完全数据"
End If
5、实时错误'94'
这个错误困扰我的时间是最长的,无论则么调代码,都显示这个错误,而且我的系统放到别人的电脑上就可以运行这个窗体,显然不是我代码的错误,可是同样的代码为什么就不能写进我的数据库中呢?
后来觉得不是代码的问题,可能是数据库的情况,就检查了一下student数据库中class_Info这个表,结果问题果然在这,但是数据库是更改不了的。
数据没有添加到表中,显示的总是NULL
最后的解决方法是:把student表删掉重新有连接一下ODBC,又创建了一个student数据库,就可以了。其实还是有点不明白为什么就是不能写进数据库,难道这是一种意外情况吗?问了别人,都没有遇到这个错误,请教师姐,说就是有可能没有添加到数据库中,是有这个可能的,有可能是连接的问题。
这些错误其实解决完了以后觉得都不是什么大的错误,可是在解决过程中真的是痛并快乐着,以后加油吧!
解决了这些美丽的实时错误之后,心情好多了……