In this article we will learn how to do paging in a DataList control.
Program
Create an employee table, as in:
Create table employee (empid int primary key, empname varchar(50), empsal int, empadd varchar (50), empdes varchar (50) ).
![Table-in-SQL-Server.gif]()
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) HandlesMe.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:<b>" & count_data.Text
lblshow.Text += "</b> - Showing Page:<b> "
lblshow.Text += CStr(CInt(CInt(start_page.Text) / CInt(page_length.Text) + 1))
lblshow.Text += "</b> of <b>"
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 += "</b>"
End Sub
End Class
Output
![paging-in-DataList-in-VB.net.gif]()