In this article we will learn
to do Paging in a DataGrid in two different modes.
a. NextPrevious Mode
b. NumericPages Mode
Program
Default.aspx
code
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<!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>Paging
in a Datagrid</title>
<style type="text/css">
.hr1
{
color: #f00;
background-color: #f00;
height: 5px;
}
</style>
</head>
<body>
<form id="form1" runat="server">
<div>
<hr class="hr1" />
<asp:Label ID="lb1" Text="NextPrevious Mode" BackColor="Yellow" ForeColor="Red" runat="server"></asp:Label>
<asp:DataGrid id="DataGrid1" BackColor="#FF9999" AllowPaging="True" PageSize="3" OnPageIndexChanged="datagrid1_pageindexchanged" PagerStyle-Mode="NextPrev" runat="server" Width="328px">
<HeaderStyle BackColor="#FFCC99" />
</asp:DataGrid>
<hr class="hr1" />
<asp:Label ID="Label1" Text="NumericPages Mode" BackColor="Yellow" ForeColor="Red" runat="server"></asp:Label>
<asp:DataGrid id="DataGrid2" BackColor="#FF9999" AllowPaging="True" PageSize="3"
OnPageIndexChanged="datagrid2_pageindexchanged" PagerStyle-Mode="NumericPages" runat="server" Width="328px">
<HeaderStyle BackColor="#FFCC99" />
</asp:DataGrid>
<hr class="hr1" />
</div>
</form>
</body>
</html>
Default.aspx.vb code
Imports
System.Data.SqlClient
Imports
System.Data
Partial Class _Default
Inherits System.Web.UI.Page
Dim strConnString As String =
System.Configuration.ConfigurationManager.ConnectionStrings.Item("ConnectionString").ToString()
Dim con As New SqlConnection(strConnString)
Dim sqlda As
SqlDataAdapter
Dim com As
SqlCommand
Dim ds As
DataSet
Dim str As String
Protected Sub
Page_Load(ByVal sender
As Object, ByVal
e As System.EventArgs)
Handles Me.Load
If Not
IsPostBack Then
bindgrid1()
bindgrid2()
End If
End Sub
Sub bindgrid1()
Try
con.Open()
str =
"select * from student"
com =
New SqlCommand(str, con)
sqlda =
New SqlDataAdapter(com)
ds =
New DataSet
sqlda.Fill(ds,
"student")
DataGrid1.DataSource = ds
DataGrid1.DataMember = "student"
DataGrid1.DataBind()
con.Close()
Catch ex As
Exception
MsgBox(ex.Message)
End Try
End Sub
Sub bindgrid2()
Try
con.Open()
str =
"select * from student"
com =
New SqlCommand(str, con)
sqlda =
New SqlDataAdapter(com)
ds =
New DataSet
sqlda.Fill(ds,
"student")
DataGrid2.DataSource = ds
DataGrid2.DataMember = "student"
DataGrid2.DataBind()
con.Close()
Catch ex As
Exception
MsgBox(ex.Message)
End Try
End Sub
Protected Sub
datagrid1_pageindexchanged(ByVal source
As Object,
ByVal e As
System.Web.UI.WebControls.DataGridPageChangedEventArgs)
Handles DataGrid1.PageIndexChanged
DataGrid1.CurrentPageIndex = e.NewPageIndex
bindgrid1()
End Sub
Protected Sub
datagrid2_pageindexchanged(ByVal source
As Object,
ByVal e As
System.Web.UI.WebControls.DataGridPageChangedEventArgs)
Handles DataGrid2.PageIndexChanged
DataGrid2.CurrentPageIndex = e.NewPageIndex
bindgrid2()
End Sub
End Class
Output
Thanks for reading