学生信息管理系统 错误调试及错误总结(2)

9

错误描述

记录为空的时候进入修改页面错误

错误处理

添加判断语句

'---------------------------------------

numRecord = mrc.RecordCount

'---------------------------------------------

If mrc.RecordCount = 0 Then

MsgBox "记录已经为空,无法再提供修改!", vbOKOnly + vbExclamation, "警告"

'Exit Sub

'----------------------------------------------

然后设置相关按钮的有效性

采用判断语句

10

补充

定义一个变量记录结果集个数 ,删除一次,变量减一

11:

错误描述

添加记录的时候,增加是否继续添加选择

错误处理

添加判断语句

goOn = MsgBox("添加学籍信息成功,是否继续添加 ", vbOKCancel, "提示")

mrc.Close

If goOn = vbOK Then

Unload Me

Me.Show

Else

Me.Hide

End If

12

错误描述

删除数据以后,数据还显示在窗体上 ,解决办法

重新加载窗体

错误描述

Unload Me

Me.Show

还可以在executeSQL 总设置游标类型为客户端类型

Rst.cursorlocation=asUseClint

13

错误描述

在单击更新数据,在单击取消修改以后 ,在更新数据,

提示学号重复,然后报错

主要是因为,此时txt.enable为false

但是却要活的焦点

错误处理

修改方法

在cmdCancel 后边加上mcClean=true

标记没有修改