急问！谢谢！

Question

怎么用BUTTON按钮来完成datagrid的翻上页、翻下页功能
就是相当于adodc的功能？
怎么弄?
谢谢！

Answer 1

VisibleRowCount得到一页有多少行

Answer 2

程序中的话,最好用ADO的分页功能来实现.'** ----- 数据库连接字符串模板 ---------------------------------------
'** ACCESS数据库
'** iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
'**     "Password=""密码"";Data Source=数据库名"
'**
'** SQL数据库
'** iConcStr = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
'**     "User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名"'VB中的分页例子,以ACCESS数据库为例,SQL数据库只需要更改连接字符串
'引用:Microsoft ActiveX Data Objects 2.x Library
'2.x是版本号
Sub split()
    Dim iRe As ADODB.Recordset
    Dim iConc As String, iCount&, iI&, iJ&
    
    iConc = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
        ";Data Source=F:\My Documents\客户资料.mdb"
    Set iRe = New ADODB.Recordset
    With iRe
        .CursorLocation = adUseClient
        .Open "客户", iConc, adOpenKeyset, adLockOptimistic
        .PageSize = 10
        iCount = .PageCount
        For iI = 1 To iCount
            .AbsolutePage = iI
            For iJ = 1 To .PageSize
                Debug.Print .Fields(1)
                .MoveNext
                If .EOF Then Exit For
            Next
        Next
    End With
    
    iRe.Close
    Set iRe = Nothing
End Sub

Answer 3

参考:
查询第X页,每页Y条记录
http://expert.csdn.net/Expert/topic/2365/2365596.xml?temp=.6861994