学步园

学生信息管理系统是自己第一次接触与数据库有关的一个系统，自然在敲写与调试的过程中问题也会不断地产生，不过正是一个问题一个问题的出现才会使得自己能够更快地，更好地熟悉数据库。

错误又在不断地产生，昨天的调试过程中又出现了问题：

（一）实时错误   实时错误：-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，导致错误的产生。

敲写代码时，一定要认真，也要多想想它们之间的逻辑问题，这是我几个反思。