Post
Ask Question

Paging in a DataGrid in Two Modes in VB.NET

In this article we will learn to do Paging in a DataGrid in two different modes.

  1. NextPrevious Mode
  2. 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) HandlesMe.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 AsSystem.Web.UI.WebControls.DataGridPageChangedEventArgs) HandlesDataGrid1.PageIndexChanged
        DataGrid1.CurrentPageIndex = e.NewPageIndex
        bindgrid1()
    End Sub
    Protected Sub datagrid2_pageindexchanged(ByVal source As Object, ByVal e AsSystem.Web.UI.WebControls.DataGridPageChangedEventArgs) HandlesDataGrid2.PageIndexChanged
        DataGrid2.CurrentPageIndex = e.NewPageIndex
        bindgrid2()
    End Sub
 End Class

Output


Paging-in-DataGrid-in-VB.net.jpg


Similar Articles