使用 Active Server Page 将记录复制到另一个记录集

Question

我正在使用经典 ASP 进行编程。我正在尝试进行分页。我的后端是 SQL CE 3.5。不幸的是，它不支持 SQL 查询中的分页（如 sql server 中的 row_number() ）。

所以我选择 ASP 分页。但是当我询问记录集时，通过设置 rs.PageSize 和 rs.AbsolutePage 等给我前 10 条记录，它给我所有记录。因此，我计划仅将结果记录集中的前 10 行复制到另一个新记录集。所以我编码如下：

Set rsTemp = CopyRecordsetStructure(objRs)
rsTemp.Open
iRecordsShown = 0
Set objFields = objRs.Fields
intFieldsCount = objFields.Count-1 
Do While iRecordsShown < intPageSize And Not objRs.EOF
 rsTemp.AddNew
 For Idx = 0 To intFieldsCount
  rsTemp.Fields(Idx).Value = objRs.Fields(Idx).Value
 Next
 rsTemp.Update
 iRecordsShown = iRecordsShown + 1
 objRs.MoveNext
Loop


公共函数 CopyRecordsetStructure(ByVal rs)
 调暗温度
 设置 rsTemp = CreateObject("ADODB.Recordset")
 设置 objFields = rsTemp.Fields
 intFieldCount = objFields.Count - 1
 对于 Idx = 0 至 intFieldCount
  rsTemp.Fields.Append objFields(Idx).Name, _
        objFields(Idx).Type, _
        objFields(Idx).DefinedSize
 下一个
 设置 CopyRecordsetStructure = rsTemp
结束功能

问题是我无法打开“rsTemp”。它会抛出错误

The connection cannot be used to perform this operation. It is either closed or invalid in this context.

如果我使用一些虚拟查询和连接它就不起作用。

请帮助将记录从一个记录集复制到另一个新记录集。

提前致谢 加内什。

Answer 1

不确定，但这看起来不对，

Set objFields = rsTemp.Fields

不是吗？

Set objFields = rs.Fields

Answer 2

根据以上注释中的注释和修复，该函数应更新为：Set objFields = rs.Fields 为：

用法：

Dim rsTemp
Set rsTemp = CopyRecordset(rsPadicon)

更新代码

Public Function CopyRecordset(rs)

    Dim rsTemp, objFields, intFieldsCount, intPageSize
    Set rsTemp = CopyRecordsetStructure(rs)
    rsTemp.Open

    Set objFields = rs.Fields
    intFieldsCount = objFields.Count-1 

    response.write("<li> rs.RecordCount  :" & rs.RecordCount  & "</li>")
    ' response.write("<li> intFieldsCount  :" & intFieldsCount & "</li>")

    rs.MoveFirst 
    Do While Not rs.EOF
        rsTemp.AddNew

        Dim i
        For i = 0 to intFieldsCount 'use i as a counter
            ' response.write("<li> Name :" & rs.Fields(i).Name & "</li>")
            ' response.write("<li> Value :" & rs.Fields(i).Value & "</li>")
            if Not IsNull(rs.Fields(i).Value) then 
                rsTemp.Fields(i).Value = rs.Fields(i).Value
            End if
        Next

        rsTemp.Update

        rs.MoveNext
    Loop

    Set CopyRecordset = rsTemp


End Function


Public Function CopyRecordsetStructure(ByVal rs)
     Dim rsTemp, objFields, intFieldCount, Idx
     Set rsTemp = CreateObject("ADODB.Recordset")
     Set objFields = rs.Fields
     intFieldCount = objFields.Count - 1
     For Idx = 0 To intFieldCount
      rsTemp.Fields.Append objFields(Idx).Name, _
            objFields(Idx).Type, _
            objFields(Idx).DefinedSize
     Next
     Set CopyRecordsetStructure = rsTemp
End Function