今天写代码时,要写一个带返回值的方法,如下:
'更新数据库操作
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类型变量,
声明之后就可以使用。