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