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

错误一:

“实时错误’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以后就可以了,这次不会出现假死了……

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

posted @ 2014-07-07 17:16  陈晓婵  阅读(881)  评论(0编辑  收藏  举报