<%@ Import namespace="System.Data" %>
<%@ Import namespace="System.Data.SqlClient" %>
DataGrid Paging
DataGrid Paging
OnPageIndexChanged="GridPageChange"
PageSize="8" />
Sub Page_Load(Source As Object, E As EventArgs)
If Not Page.IsPostBack Then
DataFiller()
End IF
End Sub
Sub DataFiller()
Dim strConnection As String = "Data Source=whsql-v08.prod.mesa1.secureserver.net;Initial Catalog=DB_49907;User ID=rntsoftuser;Password='password';"
Dim objConnection As New SqlConnection(strConnection)
Dim strSqlProducts As String = "SELECT ID, FirstName FROM Employee"
Dim objAdapter As New SqlDataAdapter(strSqlProducts, objConnection)
Dim objDataSet As New DataSet()
objAdapter.Fill(objDataSet, "Employee")
dgProducts.PagerStyle.NextPageText = "Next"
dgProducts.PagerStyle.PrevPageText = "Previous"
dgProducts.DataSource = objDataSet.Tables.Item("Employee")
dgProducts.DataBind()
End Sub
Sub GridPageChange(S As Object, E As DataGridPageChangedEventArgs)
dgProducts.CurrentPageIndex = E.NewPageIndex
DataFiller()
End Sub