漏洞百出之学生管理系统（二）

漏洞百出之学生管理系统

现阶段，有些童鞋处于代码初步完成时期正在焦头烂额地调试中；有些童鞋紧追不舍地找师傅，检查；剩下的或许在洋洋得意地不急不躁地进行下一环节。无论如何，本人希望这次总结对一些正在代码调试过程的童鞋有所帮助，对一些处于过去式的童鞋起到温习功课的效果。

★常见问题

1、在工程属性中设置启动对象为Sub  Main .

2、在工程中连接数据库失败，检查SQL Server 的启动项  处于运行状态即可。

3、“调试”过程，仔细检查出错代码 上下行 代码的正确度，（往往是你粗心大意的一个字母的替换，便造成无法运行的结果）切记！切记！

4、对象的声明，在程序中已声明或引用？？？反复查找代码的合理性。

★  典型问题

本以为程序可以正常运行时，却往往不知道其中深藏着鲜为人知的“错误”。，当你数据库的记录删到一点也不剩的时候，你的苦日子也就来了。一五一十的检查代码的正确度，敲错的已经改正了，可调试仍在持续。其实，一段判断语句，就能化解。Eg:

txtSQL = "select * from result_Info"
    Set mrc = ExecuteSQL(txtSQL, MsgText) ' 调用数据库

 If mrc.EOF = True And mrc.BOF = True Then
        MsgBox "没有记录！请先添加记录！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End if   ' 判断数据没有数据是 引用Msfbox 函数 作为警告

 添加 循环语句 Mrc.MoveLast   是数据库循环在文本框显示，“下一条记录 ”同理。

★ 不解问题

1、到报错的那行，是一行正常的代码：Rs("TitleName")=TitleName，输出TitleName，值也是正常的值，再看数据库，可以发现问题就出在了数据库字段大小上，该字段大小为默认的50，而我输入的titlename已经60多。
修改字段大小，保存退出。

2、此类问题，还尚未完全解决，可以同享一下你的见解。

还有一些小错误，本文就不一一列举，用心解决，一切都不是问题。