vb ListView数据库分页显示

最新推荐文章于 2021-08-12 12:33:49 发布

gyzsky

最新推荐文章于 2021-08-12 12:33:49 发布

阅读量1.7k

点赞数

分类专栏： VB数据库

本文链接：https://blog.csdn.net/hws1058648831a/article/details/8803322

版权

这个博客介绍了如何在VB中使用ADODB连接数据库，并通过ListView控件实现数据的分页显示。代码示例展示了分页导航按钮的事件处理，以及根据当前页加载ListView数据的方法。

摘要由CSDN通过智能技术生成

最近在做一个数据库管理系统，其中要用到数据的分页显示技术，所以花点时间研究了一下，实现比较简单，代码如下：

Option Explicit
Dim Con As New ADODB.Connection
Dim Res As New ADODB.Recordset
Dim ResTemp As New ADODB.Recordset '记录每一次记录集的位置
Dim RecordCount As Integer
Dim CurrentPage As Integer
Const PageSize = 25
Public PageCount As Integer
Private FormOldWidth As Long '保存窗体宽度
Private FormOldHeight As Long '保存窗体高度
Private FormOldFont As Single '保存字体尺寸大小

Private Sub CmdFirst_Click(Index As Integer) '显示第一页记录
    CurrentPage = 1
    Call ShowInfo(CurrentPage)
    CmdFirst(0).Enabled = False
    CmdLast(3).Enabled = True
    CmdNext(1).Enabled = True
    CmdPre(2).Enabled = False
End Sub

Private Sub CmdLast_Click(Index As Integer) '显示最后一页记录
    CurrentPage = PageCount
    Call ShowInfo(CurrentPage)
    CmdLast(3).Enabled = False
    CmdNext(1).Enabled = False
    CmdPre(2).Enabled = True
    CmdFirst(0).Enabled = True
End Sub

Private Sub CmdNext_Click(Index As Integer) '显示下一页记录
    CurrentPage = CurrentPage + 1
    Call ShowInfo(CurrentPage)
    If CurrentPage = PageCount Then
        CmdNext(1).Enabled = False
    End If
    CmdFirst(0).Enabled = True
    CmdPre(2).Enabled = True
End Sub

Private Sub CmdPre_Click(Index As Integer) '显示前一页记录
    CurrentPage = CurrentPage - 1
    If CurrentPage < 1 Then
        CurrentPage = 1
        CmdPre(2).Enabled = False
    End If
    CmdFirst(0).Enabled = True
    CmdNext(1).Enabled = True
    CmdLast(3).Enabled = True
    Call ShowInfo(CurrentPage)
End Sub

Private Sub Form_Load()
C