vb6 – 如何从函数返回值
发布时间:2020-12-17 00:32:13 所属栏目:大数据 来源:网络整理
导读:如何从函数返回值 码 Private Function LeaveCheck(empid As String) Dim rdoRs1 As rdoResultset Dim desc As String Dim sSQL As String sSQL = "Select name from table1 wher empcode = '" empid "'" Set rdoRs1 = Rdoconn.OpenResultset(sSQL,rdOpenSta
如何从函数返回值
码 Private Function LeaveCheck(empid As String) Dim rdoRs1 As rdoResultset Dim desc As String Dim sSQL As String sSQL = "Select name from table1 wher empcode = '" & empid & "'" Set rdoRs1 = Rdoconn.OpenResultset(sSQL,rdOpenStatic) If rdoRs1.RowCount > 0 Then desc = rdors1!name return desc 'Showing error in this line End If rdoRs1.Close End Function 如何从上面的代码返回值. 需要Vb6代码帮助
您需要指定返回类型.
Private Function LeaveCheck(empid As String) As String ' Notice the As String Dim rdoRs1 As rdoResultset Dim desc As String Dim sSQL As String sSQL = "Select name from table1 wher empcode = '" & empid & "'" Set rdoRs1 = Rdoconn.OpenResultset(sSQL,rdOpenStatic) If rdoRs1.RowCount > 0 Then desc = rdors1!name End If rdoRs1.Close LeaveCheck = desc ' This will be blank or populated End Function 这是一个很好的阅读,用于理解VB6中的函数 编辑 阅读完评论后,我会创建一个类来存储您的值. Public Class MyClass Dim name As String Dim dept As String Dim country As String End Class 然后,您可以在代码中实例化此类的新实例: Private Function LeaveCheck(empid As String) As MyClass Dim myClass As New MyClass Dim rdoRs1 As rdoResultset Dim sSQL As String sSQL = "Select name,dept,country from table1 wher empcode = '" & empid & "'" Set rdoRs1 = Rdoconn.OpenResultset(sSQL,rdOpenStatic) If rdoRs1.RowCount > 0 Then myClass.name = rdors1!name myClass.dept = rdors1!dept myClass.country = rdors1!country End If rdoRs1.Close LeaveCheck = myClass End Function (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |