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