从经典 ASP 中的函数返回记录集

Question

我不知道如何从经典 ASP 中的函数返回可读记录集。

这是我想出的，但它不起作用：

Response.Clear
Response.CharSet = "utf-8"
Response.ContentType = "text/plain"

Dim Count

Set Count = Test

Response.Write Count.Fields(0).Value


Function Test

    Dim Query, Connection, Command, Recordset

    Query = " blah blah blah "

    Set Connection = Server.CreateObject("ADODB.Connection")
    Set Command = Server.CreateObject("ADODB.Command")
    Set Recordset = Server.CreateObject("ADODB.Recordset")

    Connection.ConnectionString = "blah blah blah"
    Connection.Open

    Set Command.ActiveConnection = Connection
    Command.CommandText = Query

    Set Recordset = Command.Execute

    Set Test = Recordset

    Recordset.Close
    Connection.Close

    Set Recordset = Nothing
    Set Command = Nothing
    Set Connection = Nothing

End Function

Response.Write Count.Fields(0).Value行产生Itemcannot befind in the collection returned by the requested name或序数。 错误。

将其替换为 Response.Write Count.Status 时，我得到了 对象关闭时不允许操作。 错误。

添加 Count.Open 会导致该连接无法用于执行此操作。它在此上下文中已关闭或无效。 错误。

在 Mark B 的回答后编辑：

我已经查看了断开连接的记录集，但我不知道如何在我的示例中使用它们：每个教程都使用 Recordset.Open< 将查询直接输入到记录集中/code>，但我正在使用参数化查询，甚至尝试了很多方法，当有 ADODB.Command 出现时，我都无法获得相同的结果。

我应该怎么办？

提前致谢。

这是基于 Eduardo Molteni 的答案的解决方案：

与数据库交互的函数：

Function Test

    Dim Connection, Command, Recordset

    Set Connection = Server.CreateObject("ADODB.Connection")
    Set Command = Server.CreateObject("ADODB.Command")
    Set Recordset = Server.CreateObject("ADODB.Recordset")

    Connection.ConnectionString = "blah blah blah"
    Connection.Open

    Command.ActiveConnection = Connection
    Command.CommandText = "blah blah blah"

    Recordset.CursorLocation = adUseClient
    Recordset.Open Command, , adOpenForwardOnly, adLockReadOnly

    Set Recordset.ActiveConnection = Nothing

    Set Test = Recordset

    Connection.Close

    Set Recordset = Nothing
    Set Command = Nothing
    Set Connection = Nothing

End Function

调用该函数的代码：

Response.Clear
Response.CharSet = "utf-8"
Response.ContentType = "text/plain"

Dim Recordset

Set Recordset = Test

Response.Write Recordset.Fields(0).Value

Recordset.Close

Set Recordset = Nothing

Answer 1

这是一个返回断开连接的记录集的函数

Function RunSQLReturnRS(sqlstmt, params())
    On Error Resume next

    ''//Create the ADO objects
    Dim rs , cmd
    Set rs = server.createobject("ADODB.Recordset")
    Set cmd = server.createobject("ADODB.Command")

    ''//Init the ADO objects  & the stored proc parameters
    cmd.ActiveConnection = GetConnectionString()
    cmd.CommandText = sqlstmt
    cmd.CommandType = adCmdText
    cmd.CommandTimeout = 900 

    ''// propietary function that put params in the cmd
    collectParams cmd, params

    ''//Execute the query for readonly
    rs.CursorLocation = adUseClient
    rs.Open cmd, , adOpenForwardOnly, adLockReadOnly
    If err.number > 0 then
        BuildErrorMessage()
        exit function
    end if

    ''// Disconnect the recordset
    Set cmd.ActiveConnection = Nothing
    Set cmd = Nothing
    Set rs.ActiveConnection = Nothing

    ''// Return the resultant recordset
    Set RunSQLReturnRS = rs

End Function

Answer 2

好吧，您在设置函数的返回变量后立即关闭记录集和连接，这解释了错误消息。

我不是 VB 开发人员，但我认为您需要查看断开连接的记录集。看看这篇文章< /a>，它所做的几乎正是您想要的。