有没有简单点ListView分页代码?

Question

如题.谢谢!

Answer 1

Option ExplicitPrivate db As New ADODB.Connection
Private MDBSystemPath As String
Private SQLConnectionString As String
Private Rest As New ADODB.RecordsetPrivate intPageCount As Integer
Private intPage As Integer
Private itemTemp As ListItem
Private Const PageSize As Integer = 5
Private I As Integer
Private Y As Integer
Private h As Integer
    
Private Sub commN_Click()
On Error GoTo handler
    Me.ListView1.ListItems.Clear
    intPage = intPage + 1
    If intPage > intPageCount Then intPage = intPageCount ': Exit Sub
        Rest.AbsolutePage = intPage     For I = 1 To PageSize
        Set itemTemp = Me.ListView1.ListItems.Add
        itemTemp.Text = Rest.Fields(0).Value
        For Y = 1 To Rest.Fields.Count - 1
            itemTemp.SubItems(Y) = Rest.Fields(Y)
        Next
        Rest.MoveNext
    Next
handler:
    If Err.Number = 3021 Then MsgBox "已达最后页！", vbOKOnly, "提示"
End SubPrivate Sub commP_Click()
    Me.ListView1.ListItems.Clear
    intPage = intPage - 1
    If intPage <= 0 Then intPage = 1 ': Exit Sub    Rest.AbsolutePage = intPage
    For I = 1 To PageSize
        Set itemTemp = Me.ListView1.ListItems.Add
        itemTemp.Text = Rest.Fields(0).Value
        For Y = 1 To Rest.Fields.Count - 1
            itemTemp.SubItems(Y) = Rest.Fields(Y)
        Next
        Rest.MoveNext
    Next
End SubPrivate Sub Form_Load()
    MDBSystemPath = App.Path & "\123.mdb"
    '单机版
    SQLConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password=7777777;Data Source=" & MDBSystemPath
    
    '-------------------------------------------------------------------------------------------------------
    '开始连接
    db.Open SQLConnectionString
    db.CursorLocation = adUseClient
    
    Err.Clear
    Rest.Open "Select * From abc order by a1", db, adOpenDynamic, adLockOptimistic
    Rest.MoveLast
    Rest.MoveFirst
     
     
    intPage = 1
    Rest.PageSize = PageSize
    intPageCount = Rest.PageCount
    
    If intPageCount < 1 Then Exit Sub
    
    Y = Rest.Fields.Count
    Me.ListView1.ColumnHeaders.Clear
    For I = 0 To Y - 1
        Me.ListView1.ColumnHeaders.Add , , Rest.Fields(I).Name
    Next
    Rest.AbsolutePage = intPage
    
    For I = 1 To PageSize
        Set itemTemp = Me.ListView1.ListItems.Add
        itemTemp.Text = Rest.Fields(0).Value
        For Y = 1 To Rest.Fields.Count - 1
            itemTemp.SubItems(Y) = Rest.Fields(Y)
        Next
        Rest.MoveNext
    Next
    intPage = intPage + 1
   
End SubPrivate Sub Form_Unload(Cancel As Integer)
    Rest.Close: Set Rest = Nothing
    db.Close:   Set db = Nothing
End Sub

Answer 2

自己在程序目录下建立个 123.mdb 的数据库....添加若干条数据,运行上面的代码就可以了
(5条记录一页)