Hi,
How to create custom paging for a DataList control when data is comming from sql database ?
Loading
Know the answer? Post it — somebody with the same question will find it here.
Sign in to answer this question
It is the same account you read, post and publish with — and you will come straight back to this page.
Satyapriya NayakPosted Aug 29, 2011, 7:32 AM
If this post helps you mark it as answer
Thanks
Satyapriya NayakPosted Aug 16, 2011, 10:39 AM
Here is your desired code.
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 Pagingtitle>
<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 IDfont>th>
<th><font color="red">Employee Namefont>th>
<th><font color="red">Employee Salaryfont>th>
<th><font color="red">Employee Addressfont>th>
<th><font color="red">Employee Degisnationfont>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) < 0 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 ClassThanks
If this post helps you mark it as answer