AbsolutePage怎么赋值？

Question

我用ADO分页，给记录集的属性AbsolutePage=1;报错int无法转换为PositionEnum_Param，这个PositionEnum_Param类型要怎么赋值？
MSDN都找不到这类型额....

Answer 1

AbsolutePage、PageCount 和 PageSize 属性范例 (VB)
'BeginAbsolutePageVB    'To integrate this code
    'replace the data source and initial catalog values
    'in the connection stringPublic Sub Main()
    On Error GoTo ErrorHandler
  
    'recordset and connection variables
    Dim rstEmployees As ADODB.Recordset
    Dim Cnxn As ADODB.Connection
    Dim strCnxn As String
    Dim strSQL As String
        'record variables
    Dim strMessage As String
    Dim intPage As Integer
    Dim intPageCount As Integer
    Dim intRecord As Integer    'Open connection
    Set Cnxn = New ADODB.Connection
    strCnxn = "Provider='sqloledb';Data Source='MySqlServer';" & _
        "Initial Catalog='Pubs';Integrated Security='SSPI';"
    Cnxn.Open strCnxn
    
    ' Open employee recordset
    ' Use client cursor to enable AbsolutePosition property
    Set rstEmployees = New ADODB.Recordset
    strSQL = "employee"
    rstEmployees.Open strSQL, strCnxn, adUseClient, adLockReadOnly, adCmdTable
   
    ' Display names and hire dates, five records at a time
    rstEmployees.PageSize = 5
    intPageCount = rstEmployees.PageCount
    For intPage = 1 To intPageCount
        rstEmployees.AbsolutePage = intPage
        strMessage = ""
        For intRecord = 1 To rstEmployees.PageSize
            strMessage = strMessage & _
                rstEmployees!fname & " " & _
                rstEmployees!lname & " " & _
                rstEmployees!hire_date & vbCr
            rstEmployees.MoveNext
            If rstEmployees.EOF Then Exit For
        Next intRecord
        MsgBox strMessage
    Next intPage
   
    ' clean up
    rstEmployees.Close
    Cnxn.Close
    Set rstEmployees = Nothing
    Set Cnxn = Nothing
    Exit Sub
    
ErrorHandler:
    ' clean up
    If Not rstEmployees Is Nothing Then
        If rstEmployees.State = adStateOpen Then rstEmployees.Close
    End If
    Set rstEmployees = Nothing
    
    If Not Cnxn Is Nothing Then
        If Cnxn.State = adStateOpen Then Cnxn.Close
    End If
    Set Cnxn = Nothing
    
    If Err <> 0 Then
        MsgBox Err.Source & "-->" & Err.Description, , "Error"
    End If
End Sub
'EndAbsolutePageVB

Answer 2

rs要用客户端游标才能保证absolutepage,book等属性正常使用

Answer 3

知道了应该这样赋值,AbsolutePage=((enum PositionEnum)CurPage)
但是还是有问题，现在可以正常显示第一页的数据，可以喔设置AbsolutePage到第二页怎么还是输出的第一页的数据？
代码如下：
MyMSSql.pRstSearch->PageSize=50;
CurPage=2;
MyMSSql.pRstSearch->AbsolutePage=((enum PositionEnum)CurPage);
try
{
MyMSSql.pRstSearch->MoveFirst();
}
catch (_com_error e)
{
return;
}
for (i=0;i<MyMSSql.pRstSearch->PageSize;i++)
{
if(!MyMSSql.pRstSearch->rsEOF)
{
m_ListtResult.AddString((LPCTSTR)(_bstr_t)MyMSSql.pRstSearch->GetCollect(_variant_t(long(0))));
MyMSSql.pRstSearch->MoveNext();
}
else
break;
}
我改成第二页显示的数据还是第一页的

Answer 4

囧 MyMSSql.pRstSearch->MoveFirst();这个地方原因....