学生信息管理系统系列二：常见问题

错误一：

“实时错误’3021’，BOF或EOF中有一个是“真“，或者当前的记录已被删除，所需的操作要求一个当前的记录。”

学生信息管理系统中一点击修改信息都会出现这个错误：

产生这种错误的原因是因为没有数据可以进行修改，为了避免他在使用过程中出现这种提示对源代码进行了一下改进：

Private Sub Form_Load()
'添加错误处理
    Dim txtSQL As String
    Dim MsgText As String
   
    txtSQL = "select * from class_Info"
    Set mrc = executesql(txtSQL, MsgText)       '得到student表，并显示出来
    On Error GoTo dateErr  '如果有错误直接执行dateErr那一步
    mrc.MoveFirst       '
    Call viewData
    myBookmark = mrc.Bookmark
    mcclean = True


dateErr:
     If Err = 3021 Then
         MsgBox "没有数据"
    End If

错误二：

实时错误91 对象变量或with块变量未设置

这个错误可是个经典的错误啊，这学生信息管理系统中经常会出现的错误，一个不小心可能就会出现这个错误，为什么会出现这个错误呢？最大的原因就是ODBC配置数据库没有配置好

那么从哪里找错误呢？

找connectstring 语句中找错误，图中的那两个红色标记的地方一定要注意（前面注释的那行是正确的），FileDSN这个是要连接的数据库的名称，这个名称要跟ODBC配置数据库的名字是同一个，PWD这个是SQL server 的登陆密码，如下图中显示的，这两个地方是最关键的。

其中可能会出现这种错误的原因就是查询语句出错的原因了。注意要查找表的名字是否正确，大小写的问题，是否多或者少空格，符号是否丢失，符号是否正确。细心点就好啦。

错误三：

实时错误381  下标越限

错误的原因是什么呢？myflexgrid 属性设置的问题，下图这还是最原始的状态……

选中myflexgrid，右击-->属性，出现属性页。如图，在“通用”中选择合适的行和列，点击确定就可以了……

错误四：

编辑错误：未找到方法和数据成员

这个从字面上就可以找到原因了，主要是这个控件或者某个属性写的不对了，才会出现这种错误，点击确定以后，焦点就自动放到出错的那行了，自己修改一下就好了。

错误五：

有个错误我把它叫做“假死”，为什么要叫做这个名字呢？我点击运行以后，登陆界面打开，输入账号和密码以后，没有进入frmmain的界面，就这样运行着，什么也不出现。

我以为是我connectstring语句的问题，看了以后发现没什么问题，于是把启动窗体改成了frmmain，这个可以进去，那么就不是connectstring语句的问题了。这次发现启动窗体刚才是frmlogin而不是sub main，改成sub main以后就可以了，这次不会出现假死了……

这些问题都是在学生信息系统中经常会出现，自己也是遇到问题以后无从下手，弄完以后才发现遇到的问题也就这几个，反复着，找到原因就知道从哪里下手了。