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

14

错误描述

查询学信息时,如果没有查询到,要提示没有查到

 错误处理

在程序中添加一个判断

If not mrc.EOF then

………….

Else

MsgBox "没有您所要查找的数据"

 

End If

15

错误描述

修改班级信息时,如果修改了一下,然后取消修改了,但是显示的是修改了以后的数据

错误处理

解决办法

在cmdcancel 后加上

Call viewdata

重新添加数据

16

错误描述

在所有的删除记录中,都没有判断记录是否完全删除

错误处理

和前边的一样,加上判断记录是否删除

 

17,

错误描述

在修改数据的窗体中,如果记录为空则出错

错误处理

在form_load中添加判读语句

 

If mrc.RecordCount = 0 Then

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

Exit Sub

Else

mrc.MoveFirst

Call viewData

myBookMark = mrc.Bookmark

mcClean = True

End If

18

错误描述

在调用iewdata时 保证记录不为空,

错误描述

采用判断

Mrc.recordcount>0 判断

20

错误描述

在成绩修改中,

删除代码中有查找记录集的一段代码

错误处理

需要提前判断是否记录,再movenext

 

源代码为

txtSQL = "select * from result_Info "

Set mrc = ExecuteSQL(txtSQL, MsgText)

mrc.MoveLast

Call viewData

 

修改为

txtSQL = "select * from result_Info "

Set mrc = ExecuteSQL(txtSQL, MsgText)

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

If mrc.RecordCount > 0 Then

 

mrc.MoveLast

Call viewData

End If

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

21

错误描述

在查询数据时

判断是否查询到数据

先end if 后end with

如果先end with

就不会执行end if

导致错误

代码

 错误处理

If Not mrc.EOF Then

Do While Not mrc.EOF

.Rows = .Rows + 1

.CellAlignment = 4

.TextMatrix(.Rows - 1, 0) = mrc.Fields(0)

.TextMatrix(.Rows - 1, 1) = mrc.Fields(1)

.TextMatrix(.Rows - 1, 2) = mrc.Fields(2)

.TextMatrix(.Rows - 1, 3) = mrc.Fields(3)

.TextMatrix(.Rows - 1, 4) = mrc.Fields(4)

.TextMatrix(.Rows - 1, 5) = mrc.Fields(5)

mrc.MoveNext

Loop

Else

MsgBox "没有找到记录", , "提示"

End If

End With

 

 22

错误描述

在修改数据的时候

主关键字,如学号,班号,课程号等不允许修改

 错误处理

设置器属性locked 为true