学生管理系统调试——实时错误（实时错误“424”“5”“91”）

最近刚刚敲了一个小小的练习小程序，其中出现了一些实时错误，想着也许以后还会出现就打算写一个系列博文记录一下，同时也算是和大家交流学习吧！

1、实时错误“424” ----要求对象

个人觉得出现这种情况完全是初学者的不熟悉造成的，因为出现这种错误的原因无非是：工程内的类名无效（简单的说就是将窗体名或控件名写错了）；

这种情况没有遇到可能也有借鉴作用http://blog.sina.com.cn/s/blog_4eb23c8d01011f82.html。

2、实时错误"5"---无效的过程调用或参数

出错代码：

Private Sub Form_Load()
  Text1.Text = ""
  Text2.Text = ""
  Text1.SetFocus
End Sub

在Form_load过程中不能使用Text1.SetFocus属性（因为在窗体的加载过程中文本框还未画出）。

解决方法：

将控件Text1的TabIndex属性设为0。

3、实时错误“91”---对象变量或With块变量未设置

'调用ExecuteSQL函数执行SQL语句获得结果集
        strSQL = "select * from user_Info where user_ID='" & txtUserName.Text & "'"  
        Set objRs = ExecuteSQL(strSQL,strMsg)

创建对象变量有两个步骤。第一，必须先声明对象变量。然后必须用 Set 语句将一个正确的引用赋值给对象变量。同样地，With...End With 块必须先用 With 语句进入点来执行初始化。

此错误有以下的原因：

试图使用的对象变量，还没有用一个正确对象的引用来赋值。

我错误的原因：模块代码中设定的密码和ODBC配置过程设定的不一样，导致了Set语句无法将一个正确的引用赋值给对象变量。

解决方法：

给对象变量指定或再指定一个引用。例如，如果在下列的代码中省略 Set 语句的话，那么引用 MyObject 将会产生错误：

        Dim MyObject As Object    ' 创建对象变量。
        Set MyObject = Sheets(1)    ' 创建一个正确的对象引用。
        MyCount = MyObject.Count    ' 计数值赋给 MyCount。
        试图用的对象变量已经被设为 Nothing。 
        Set MyObject = Nothing    ' 释放此对象。
        MyCount = MyObject.Count    ' 引用了已释放的对象。

我的解决方法：修改模块中的用户名名称和相应的密码。

Public Function ConnectString() As String
'**************************************************
'作用：设置数据库连接字符串
'输入参数：无
'返回值：需要的数据库连接字符串connectString
'修改日期：2013.8.1
'作者：Senior_Lee
'**************************************************
    ConnectString = "FileDSN=student.dsn;UID=lee;PWD=123"
End Function

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!