关于VB方法返回值为值类型时,出现要求对象的理解

今天写代码时,要写一个带返回值的方法,如下:

 

'更新数据库操作
Public Function ExecuteCommand(ByVal strSql As String, _
                    ByVal dbcn As ADODB.Connection, _
                    Optional ByVal cmdType As ADODB.CommandTypeEnum = adCmdText _
                    ) As Long
     '截获错误
    On Error GoTo Err1
    
        Set cmd.ActiveConnection = dbcn
        
        With cmd
         .CommandText = strSql
           .CommandType = cmdType
         End With
         '必须设置一个RecordSet类型的对象来接收,否则lngRecs的返回结果不正确
         Set rs = cmd.Execute(lngRecs)
         Set ExecuteCommand = lngRecs
         Exit Function                       '错误处理'增加这行(必须增加)
Err1:
    MsgBox "出现异常错误:" & vbCrLf & "错误编号:" & Err.Number & " 错误描述:" & Err.Description
    
    '返回出错语句的下一句继续执行余下的代码
    Resume Next
End Function



当调用这个方法时,弹出 编译错误,要求对象的错误框。
从网上找了好久,也没找到类似的问题,
刚开始以为是
cmd.Execute (lngRecs)
的错误,以为是类型定义出错了。
后来把
cmd.Execute (lngRecs)
注释掉后,把红色部分的代码随便赋了一个整形值,
执行程序,还是错误。


后来 想到返回值为Long,是值类型,不是对象类型,所以应该不用Set,
把Set去掉之后,调用方法,成功!


结论:
只有对象类型的变量赋值才用Set,值类型的变量可以直接赋值。
也就是说只有能New的类型才能用Set。
vb中set语句的意思就是:将对象引用赋给变量或属性。
dim a as recordset '声明对象句柄
set a = new recordset '给对象分配内存空间,实例化、创建新的对象。
set之后a才可以使用。
dim b as Long '声明Long类型变量,
声明之后就可以使用。

 

 
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页