学生信息管理系统之问题总结（2）

 

         相比之下这篇博客来的晚了些、也不知道最近在忙什么，时间就不知不觉的找不到了...

 

       继之前的 “  学生信息管理系统之问题总结（1）  咱们继续完善在敲 学生管理系统中遇到的种

种问题，帮别人也帮自己、

 

 

      1、ByRef  参数类型不符，编译错误、

 

             

 

       出现这种问题可能会有很多种情况，我遇到的是 “上下不匹配” 、下面进行分析、

       1。传递参数未定义类型，假如参数在调用前未定义类型，系统自动将他定义为variant类型，由于和过程或函数

中的对就参数类型不相同，所以提示"byref参数类型不符"

       2。传递参数类型已定义，但由于定义方法不对，所以提示"byref参数类型不符"。具体情况如下：

       当vb中如此定义变量时，将会出现以上错误信息的出现

      private sub command1_click()
        dim i , j as integer
           i = 3
           j = 4

          call get1(i, j)
          text1.text = i

      end sub

      private sub get1(byref para1 as integer, para2 as integer)
         para1 = para1 + para2

     end sub

     假如将 dim i , j as integer 改为 

       dim i  as integer   

       dim i  as integer

      程式执行正常。也就是说，第一种方法的变量定义，只是对 j 做了定义，并未对前面的 i 进行定义

      一般在过程和函数中定义参数时采用byref，则需要参数声明的类型和实际参数的类型完全相同，否则vb就会报告错误。可以参考资料：http://www.sudu.cn/info/html/edu/net/20071226/24393.html

 

 

      

      2、实时错误 ' 340 '  :  

            控件数组元素 ’ 2' 不存在

 

                

 

 

       已存在的控件数组中没有引用的索引值所指定的控件。 

       对存在元素的其中之一，把 Index 属性的设置改为所引用的值。或者使用 Load 语句，向数组中添加一个控件，

该控件的索引等于此值，然后再引用此索引值。

 

       再者，就是你的控件与代码是不符合的，让其保持一致性、

 

 

       3、实时错误 ‘91’:对象变量或With块变量未设置

 

       在frmSetcourseinfo中

          Private Sub comboGrade_Click()

          Dim mrc As ADODB.Recordset

          Dim txtSQL As String

          Dim MsgText As String

          Dim i As Integer

   

          listSelectcourse.Clear

          txtSQL = "select * from gradecourse_Info where grade='" & comboGrade.Text & "'"

 

     没有查询出数据结果，查询语句出现了问题、

 

      错误原因:   缺少语句  Set mrc = ExecuteSQL(txtSQL, MsgText)

 

      4、实时错误 ’ 3201 ’ ：

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

 

                                                  

 

 

          先看这样一段错误的代码代码

 

            Private SubcmdPre_Click()

                    If mrc.BOF = True Then

                                   mrc.MoveLast

                     Else

                                  mrc.MovePrevious

                   End If

                   CallViewData

           End Sub

                         

        

      为什么会出错呢,我们来分析一下.当指针指向第一条记录的时候,if条件不成立,所以会执行mrc.MovePrevious,

此时指针指向第一条记录之前,callviewdata时出错.

 

 

               （“偷”的 “海燕学姐的”）

    所以正确的程序应该是这样的:

             Private SubcmdPre_Click() 

                      mrc.MovePrevious

                      If mrc.BOF = True Then

                                 mrc.MoveLast

                       End If

                       Call ViewData

              End Sub