How to create custom paging for a DataList control

Question

Hi, How to create custom paging for a DataList control when data is comming from sql database ?

Satyapriya Nayak · Answer

Hi Gurjeet , If this post helps you mark it as answer Thanks

Satyapriya Nayak · Answer

Hi Gurjeet, Here is your desired code. Normal 0 Datalistpaging.aspx code @ Page Language ="VB" AutoEventWireup ="false" CodeFile ="datalistpaging.aspx.vb" Inherits ="datalistpaging" %> DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> html xmlns ="http://www.w3.org/1999/xhtml"> head runat ="server"> title > Datalist Paging title > style type ="text/css"> .wdt { width : 10% ; } style > head > body > form id ="form1" runat ="server"> div > a name ="this"> a > asp : DataList ID ="datalist_paging" Runat ="server"> HeaderTemplate > table > tr > th > font color ="red"> Employee ID font > th > th > font color ="red"> Employee Name font > th > th > font color ="red"> Employee Salary font > th > th > font color ="red"> Employee Address font > th > th > font color ="red"> Employee Degisnation font > th > tr > HeaderTemplate > ItemTemplate > tr > td > # Eval( "empid" ) %> td > td > # Eval( "empname" ) %> td > td > # Eval( "empsal" ) %> td > td > # Eval( "empadd" ) %> td > td > # Eval( "empdes" ) %> td > tr > ItemTemplate > HeaderStyle BackColor ="#FFCC66" /> FooterTemplate > table > FooterTemplate > asp : DataList > table > tr > td > asp : label ID ="lblshow" Runat ="server" Font-Bold ="False" /> td > td class ="wdt"> a href ="#this" ID ="Firstrecord" onserverclick ="First_record" runat ="server"> b > b > a > td > td class ="wdt"> a href ="#this" ID ="Previousrecord" onserverclick ="Previous_record" runat ="server"> b > b > a > td > td class ="wdt"> a href ="#this" ID ="Nextrecord" onserverclick ="Next_record" runat ="server"> b > > b > a > td > td class ="wdt"> a href ="#this" ID ="Lastrecord" onserverclick ="Last_record" runat ="server"> b > >> b > a > td > tr > table > asp : label ID ="start_page" Visible ="False" Runat ="server" /> asp : label ID ="page_length" Visible ="False" Runat ="server" /> asp : label ID ="count_data" Visible ="False" Runat ="server" /> div > form > body > html > Datalistpaging.aspx.vb code Imports System.Data Imports System.Data.SqlClient Partial Class datalistpaging Inherits System.Web.UI.Page Dim strConnString As String = System.Configuration.ConfigurationManager.ConnectionStrings.Item( "ConnectionString" ).ToString() Dim con As New SqlConnection(strConnString) Dim str As String Dim com As SqlCommand Dim sqlda As SqlDataAdapter Dim ds As DataSet Protected Sub Page_Load( ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Load If Not Page.IsPostBack() Then page_length.Text = "5" start_page.Text = "0" bindlist() End If End Sub Public Sub First_record( ByVal s As Object , ByVal e As EventArgs) start_page.Text = "0" bindlist() End Sub Public Sub Previous_record( ByVal s As Object , ByVal e As EventArgs) start_page.Text = CStr ( CInt (start_page.Text) - CInt (page_length.Text)) If CInt (start_page.Text) Then start_page.Text = "0" End If bindlist() End Sub Public Sub Next_record( ByVal s As Object , ByVal e As EventArgs) If CInt (start_page.Text) + 1 CInt (count_data.Text) Then start_page.Text = CStr ( CInt (start_page.Text) + CInt (page_length.Text)) End If bindlist() End Sub Public Sub Last_record( ByVal s As Object , ByVal e As EventArgs) Dim i As Integer i = CInt (count_data.Text) Mod CInt (page_length.Text) If i > 0 Then start_page.Text = CStr ( CInt (count_data.Text) - i) Else start_page.Text = CStr ( CInt (count_data.Text) - CInt (page_length.Text)) End If bindlist() End Sub Sub bindlist() con.Open() str = "select * from employee" sqlda = New SqlDataAdapter(str, con) ds = New DataSet() If Not Page.IsPostBack() Then sqlda.Fill(ds) count_data.Text = CStr (ds.Tables(0).Rows.Count) End If sqlda.Fill(ds, CInt (start_page.Text), CInt (page_length.Text), "employee" ) datalist_paging.DataSource = ds datalist_paging.DataMember = "employee" datalist_paging.DataBind() con.Close() navigate() End Sub Private Sub navigate() lblshow.ForeColor = Drawing.Color.Tomato lblshow.BackColor = Drawing.Color.Yellow lblshow.Text = "Total Records: " & count_data.Text lblshow.Text += " - Showing Page: " lblshow.Text += CStr ( CInt ( CInt (start_page.Text) / CInt (page_length.Text) + 1)) lblshow.Text += " of " If ( CInt (count_data.Text) Mod CInt (page_length.Text)) > 0 Then lblshow.Text += CStr ( CInt ( CInt (count_data.Text) / CInt (page_length.Text) + 1)) Else lblshow.Text += CStr ( CInt (count_data.Text) / CInt (page_length.Text)) End If lblshow.Text += " " End Sub End Class Thanks If this post helps you mark it as answer

How to create custom paging for a DataList control

Answers (2)