学生信息管理系统 错误调试及错误总结(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
标记没有修改