<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="System.Data" %>
<Script Runat="Server">
Sub Page_Load
If Not isPostBack Then
BindDataGrid
End If
End Sub
Sub BindDataGrid
Dim conNorthwind As SqlConnection
Dim dadProducts As SqlDataAdapter
Dim dstProducts As DataSet
conNorthwind = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;Database=Northwind" )
dadProducts = New SqlDataAdapter( "Select * From Products Order By ProductID", conNorthwind )
dstProducts = New DataSet
dadProducts.Fill( dstProducts )
dgrdProducts.DataSource = dstProducts
dgrdProducts.DataBind()
End Sub
Sub dgrdProducts_PageIndexChanged( s As Object, e As DataGridPageChangedEventArgs )
dgrdProducts.CurrentPageIndex = e.NewPageIndex
BindDataGrid
End Sub
</Script>
<html>
<head><title>ExpertPaging.aspx</title></head>
<body>
<form Runat="Server">
<asp:DataGrid
ID="dgrdProducts"
AllowPaging="True"
PageSize="4"
OnPageIndexChanged="dgrdProducts_PageIndexChanged"
CellPadding="4"
Runat="Server" />
</form>
</body>
</html> |