学生信息管理系统是自己第一次接触与数据库有关的一个系统,自然在敲写与调试的过程中问题也会不断地产生,不过正是一个问题一个问题的出现才会使得自己能够更快地,更好地熟悉数据库。
错误又在不断地产生,昨天的调试过程中又出现了问题:
(一)实时错误 实时错误:-2147352571,原因是类型不匹配
自己开始寻找原因,原来是在修改成绩信息的窗体模块里,此处出了问题,正确的代码如下:
mrc.Fields(0) = comboExamtype.Text
mrc.Fields(1) = comboSID.Text
mrc.Fields(2) = txtName.Text
mrc.Fields(3) = comboClassno.Text
mrc.Fields(4) = comboCourse.Text
mrc.Fields(5) = txtResult.Text
而我写的过程中把第三个和第五个换了位置,从而导致了上述的错误。
(二)实时错误 出现实时错误3704,:对象关闭,不允许操作
原来是修改成绩信息窗体模块更新部分里少一些代码所致。
错误代码:
comboExamtype.Clear
comboClassno.Clear
comboSID.Clear
comboCourse.Clear
Call viewData
firstCommand.Enabled = True
lastCommand.Enabled = True
previousCommand.Enabled = True
nextCommand.Enabled = True
updateCommand.Enabled = False
cancelCommand.Enabled = False
comboExamtype.Enabled = False
comboClassno.Enabled = False
comboSID.Enabled = False
comboCourse.Enabled = False
正确的代码:
comboExamtype.Clear
comboClassno.Clear
comboSID.Clear
comboCourse.Clear
txtSQL = "select * from result_Info"
Set mrc = ExecuteSQL(txtSQL, MsgText)
'mrc.MoveLast
Call viewData
firstCommand.Enabled = True
lastCommand.Enabled = True
previousCommand.Enabled = True
nextCommand.Enabled = True
updateCommand.Enabled = False
cancelCommand.Enabled = False
comboExamtype.Enabled = False
comboClassno.Enabled = False
comboSID.Enabled = False
comboCourse.Enabled = False
就是少了一部分代码:
txtSQL = "select * from result_Info"
Set mrc = ExecuteSQL(txtSQL, MsgText)
这样导致无法从对象那里获取数据,然后把更改的输入回去,更新部分显示的错误。
(三)实时错误 3265即:在对应所需名称或序数的集合中,未找到项目
原因是自己在写的时候把:select * from class_Info写成了user_Info,导致错误的产生。
敲写代码时,一定要认真,也要多想想它们之间的逻辑问题,这是我几个反思。