Aspnetpager+GridView+oracle实现分页功能

关注

原创最新推荐文章于 2026-09-07 10:26:30 发布 889 阅读 AI 写同款· GEO 优化 ›

AspNetPager实现分页 chanagePage.css提供了多种样式，具体使用方式见博客立即下载

学习AspnetPager+GridView实现分页功能

写下来免得以后忘掉呵呵

Imports System
Imports System.Data
Imports System.Configuration
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data.OracleClient

Partial Class page1_dtc_Log
    Inherits System.Web.UI.Page
    Dim sql, sql2 As String
    Dim ds, ds2 As DataSet
    Dim str As String = PublicFunction.getconnStr("ldsfisdb")
    Dim recordcount As Integer

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If IsPostBack Then
        Else
            

            databind()


        End If
    End Sub
    Sub databind()

        sql = "select * from sajet.SYS_DTC_LOG where to_char(trigger_date,'YYYYMMDD')>='20120619' and new_status='0' "
        ds = GetPage(sql, AspNetPager1.CurrentPageIndex, AspNetPager1.PageSize)
        getpagerecord(sql)
        AspNetPager1.RecordCount = getpagerecord(sql)
        Label1.Text = getpagerecord(sql)
        GridView1.DataSource = ds
        GridView1.DataBind()
        AspNetPager1.CustomInfoHTML = "记录总数：<b>" + AspNetPager1.RecordCount.ToString() + "</b>  "
        AspNetPager1.CustomInfoHTML += " 总页数：<b>" + AspNetPager1.PageCount.ToString() + "</b>"
        AspNetPager1.CustomInfoHTML += " 当前页：<font color=\""red\""><b>" + AspNetPager1.CurrentPageIndex.ToString() + "</b></font>"

    End Sub

    Protected Sub AspNetPager1_PageChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles AspNetPager1.PageChanged
        databind()
    End Sub

    Protected Sub btn1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn1.Click

    End Sub
    Function getpagerecord(ByVal sql As String) As Integer   ' get total record
        sql2 = "select count(*) from (" & sql & ") from dual "
        ds2 = OracleHelper.ExecuteDataset(str, CommandType.Text, sql)
        recordcount = ds2.Tables(0).Rows.Count
        Return recordcount

    End Function

    Function GetPage(ByVal sql As String, ByVal currentPage As Integer, ByVal pagesize As Integer) As DataSet 'get each page record dataset

        Dim ada As OracleDataAdapter = New OracleDataAdapter(sql, str)
        Dim ds3 As DataSet = New DataSet
        Dim startRow As Integer = (currentPage - 1) * pagesize
        ada.Fill(ds3, startRow, pagesize, "table")

        Return ds3

    End Function

End Class

收录于