如何调用返回值类型为recordset的函数？

[oldsky]

我遇到如下问题：
Dim rst As New adodb.Recordset
Set rst = ReadTQStyle() 'ReadTQStyle函数返回类型为recordset
Debug.Print rst.RecordCount '报错：对象关闭时，操作不允许

[pyhjy]

连接对象connection的execute方法的返回值是recordset

[szyhy810518]

建议用函数参数传递Recordset对象

Public Function ReadTQStyle(objRs as adodb.recordset) As boolean
Dim strSql As String
strSql = "SELECT * FROM YourTable WHERE con..."

On Error Resume Next
objRs.Open strSql, cn, 1, 3
If Err.Number <> 0 Then
ReadTQStyle=false
else
ReadTQStyle=true
End If
End Function

[dary_zhou]

我建义你用F8进行调试一下，看问题出在哪里
还有一种可能就是你的记录集打开方试如果不是1,1那rst.RecordCount 这个属性就会是-1

[wumy_ld]

把ReadTQStyle()的代码贴出来看看，应该是那里面有问题

[lxcc]

Public Function ReadTQStyle() As Object
Dim strSql As String
strSql = "SELECT * FROM YourTable WHERE con..."

On Error Resume Next
rs.Open strSql, cn, 1, 3
If Err.Number <> 0 Then
'MsgBox "应用程序出错，错误提示：" & Err.Description
Exit Function
End If

Set ReadTQStyle= rs.Clone
rs.Close
End Function

[lxcc]

Public Function ReadTQStyle() As Object
Dim strSql As String
strSql = "SELECT * FROM YourTable WHERE con..."

On Error Resume Next
rs.Open strSql, cn, 1, 3
If Err.Number <> 0 Then
'MsgBox "应用程序出错，错误提示：" & Err.Description
Exit Function
End If

Set ReadTQStyle= rs.Clone
rs.Close
End Function

[betagain]

ReadTQStyle(里面少东西？)

[xingnup]

应该是你的函数返回Recordset失败了.或返回的Recordset未打开.

[oldsky]

ReadTQStyle()
函数F8单步调没问题

[tfront]

为什么不把函数直接写成Public Function ReadTQStyle() As Adodb.RecordSet
返回值也不用写rs.clone，直接Set ReadTQStyle=rs就可以了。

[xingnup]

你应该贴ReadTQStyle函数的代码出来大家才能帮你分析.