ASP.Net/ADO.net Database/DataGrid Page
asp:datagrid page index
<source lang="csharp">
<%@ Page Language=VB Debug=true %> <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.OLEDB" %> <script runat=server> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Not IsPostBack Then Dim DSPageData As New DataSet Dim DBConn as OleDbConnection Dim DBCommand As OleDbDataAdapter DBConn = New OleDbConnection( _ "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _ & "DATA SOURCE=" _ & Server.MapPath("EmployeeDatabase.mdb;")) DBCommand = New OleDbDataAdapter _ ("Select * " _ & "From Employee " _ & "Order By LastName, FirstName", DBConn) DBCommand.Fill(DSPageData, _ "Employee") dgEmps.DataSource = _ DSPageData.Tables("Employee").DefaultView dgEmps.DataBind() End If
End Sub Sub Page_Change(sender As Object, e As DataGridPageChangedEventArgs)
dgEmps.CurrentPageIndex = e.NewPageIndex Dim DSPageData As New DataSet Dim DBConn as OleDbConnection Dim DBCommand As OleDbDataAdapter DBConn = New OleDbConnection( _ "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _ & "DATA SOURCE=" _ & Server.MapPath("EmployeeDatabase.mdb;")) DBCommand = New OleDbDataAdapter _ ("Select * " _ & "From Employee " _ & "Order By LastName, FirstName", DBConn) DBCommand.Fill(DSPageData, _ "Employee") dgEmps.DataSource = _ DSPageData.Tables("Employee").DefaultView dgEmps.DataBind()
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Displaying Pages of Data through a DataGrid Control</TITLE>
</HEAD>
<Body LEFTMARGIN="40">
<form runat="server">
<asp:datagrid
id="dgEmps" pagerstyle-backcolor="White" pagerstyle-forecolor="DarkGreen" pagerstyle-font-bold="True" allowpaging="True" pagesize=3 onpageindexchanged="Page_Change" autogeneratecolumns="true" runat="server"
> </asp:datagrid> </form> </BODY> </HTML>
</source>
<A href="http://www.nfex.ru/Code/ASPDownload/EmployeeDatabase.zip">EmployeeDatabase.zip( 10 k)</a>