Hi , I Hope You fine.
I have some problem with this code for paging in asp.net
this bottom code work correctly without any error but when
I try to place separate code in .VB file then error is begin and occured .I want to separate this code and compiling .vb code using VBC.exe later .(bin/paging.dll)
when do it like me so you retrive only < Previous Page Next Page > in your web browser and you don't retrive list Of data in your web browser.
then i try this job and place <% dopagin() %> in paging.aspx file between <body> ... </body>
then i retrive list of data but when you click next you cannot navigate than more 1 page and when
you click previous page you get error "Index -5 is not non-negative and below total rows count"
how can i correct this code .somebody help me please
thank you very much -
-
-------------Correct pagingDS.aspx Code begin ---------------------
-
-
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" %>
-
<%@ Import Namespace="System.Data" %>
-
<%@ Import Namespace="System.Data.SQLClient" %>
-
-
<script language="VB" runat="server">
-
Dim pagedData As New pagedDataSource
-
-
Sub Page_Load(byVal obj As Object, byVal e As EventArgs)
-
doPaging()
-
End Sub
-
-
Function getTheData() As DataTable
-
Dim DS As New DataSet()
-
Dim strConnect As New SQLConnection("server=localhost;uid=sa;pwd=relayer;Database=Northwind")
-
Dim objSQLAdapter As New SQLDataAdapter("SELECT companyName, contactName, contactTitle FROM customers", strConnect)
-
objSQLAdapter.Fill(DS, "customers")
-
-
Return DS.Tables("customers").Copy
-
End Function
-
-
Sub doPaging()
-
pagedData.DataSource = getTheData().DefaultView
-
pagedData.AllowPaging = True
-
pagedData.PageSize = 5
-
-
Try
-
pagedData.CurrentPageIndex = Int32.Parse(Request.QueryString("Page")).ToString()
-
Catch ex As Exception
-
pagedData.CurrentPageIndex = 0
-
End Try
-
-
btnPrev.Visible = ( NOT pagedData.IsFirstPage )
-
btnNext.Visible = ( NOT pagedData.IsLastPage )
-
-
pageNumber.Text = (pagedData.CurrentPageIndex + 1) & " of " & pagedData.PageCount
-
-
theDataList.DataSource = pagedData
-
theDataList.DataBind()
-
End Sub
-
-
Public Sub Prev_Click(ByVal obj As Object, ByVal e As EventArgs)
-
Response.Redirect(Request.CurrentExecutionFilePath & "?Page=" & (pagedData.CurrentPageIndex - 1))
-
End Sub
-
-
Public Sub Next_Click(ByVal obj As Object, ByVal e As EventArgs)
-
Response.Redirect(Request.CurrentExecutionFilePath & "?Page=" & (pagedData.CurrentPageIndex + 1))
-
End Sub
-
</script>
-
<html>
-
<head>
-
<title>Paging with ASP.NET - DataSet Example - VB.NET</title>
-
</head>
-
<body>
-
<form runat="server">
-
<font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><asp:label id="pageNumber" runat="server" /></font>
-
<asp:DataList id="theDataList" runat="server">
-
<ItemTemplate>
-
<table border="0" cellpadding="0" cellspacing="0" width="500">
-
<tr>
-
<td width="140"><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Company Name</strong>:</font></td>
-
<td><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><%# DataBinder.Eval(Container.DataItem, "companyName") %></font></td>
-
</tr>
-
<tr>
-
<td width="110"><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Contact Name</strong>:</font></td>
-
<td><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><%# DataBinder.Eval(Container.DataItem, "contactName") %></td>
-
</tr>
-
<tr>
-
<td width="110"><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Contact Title</strong>:</font></td>
-
<td><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><%# DataBinder.Eval(Container.DataItem, "contactTitle") %></font></td>
-
</tr>
-
</table>
-
</ItemTemplate>
-
<separatortemplate>
-
<hr color="#0099FF" />
-
</separatortemplate>
-
</asp:DataList>
-
-
<asp:LinkButton id="btnPrev" Text="<" OnClick="Prev_Click" runat="server" />
-
<asp:LinkButton id="btnNext" Text=">" OnClick="Next_Click" runat="server" />
-
</form>
-
</body>
-
</html>
-
-
-------------------Paging.aspx End Code-----------------------------------------
-
-
-
***********************************************************************
-
-
-
---------------MY .ASPX file begin------------------------
-
-
<%@ Page src="paging.vb" language="vb" AutoEventWireup="false" Explicit="True" Inherits="farhad.myfunction2" ContentType="text/html" %>
-
-
<html>
-
<head>
-
<title>Paging with ASP.NET - DataSet Example - VB.NET</title>
-
</head>
-
<body>
-
<form runat="server">
-
<font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><asp:label id="pageNumber" runat="server" /></font>
-
<asp:DataList id="theDataList" runat="server">
-
<ItemTemplate>
-
-
<table border="0" cellpadding="0" cellspacing="0" width="500">
-
<tr>
-
<td width="140"><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Company Name</strong>:</font></td>
-
<td><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><%# DataBinder.Eval(Container.DataItem, "companyName") %></font></td>
-
</tr>
-
<tr>
-
<td width="110"><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Contact Name</strong>:</font></td>
-
<td><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><%# DataBinder.Eval(Container.DataItem, "contactName") %></td>
-
</tr>
-
<tr>
-
<td width="110"><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Contact Title</strong>:</font></td>
-
<td><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><%# DataBinder.Eval(Container.DataItem, "contactTitle") %></font></td>
-
</tr>
-
</table>
-
-
</ItemTemplate>
-
<separatortemplate>
-
<hr color="#0099FF" />
-
</separatortemplate>
-
</asp:DataList>
-
-
<asp:LinkButton id="btnPrev" Text="< Previous Page" OnClick="Prev_Click" runat="server" />
-
<asp:LinkButton id="btnNext" Text="Next Page > " OnClick="Next_Click" runat="server" />
-
</form>
-
</body>
-
</html>
-
-
------------End My ASPX file ------------------------------
-
-
*************************************************
-
-------MY .VB Code AND CLASS begin--> Paging.vb --------------------
-
Imports System
-
Imports System.Data
-
Imports System.Data.SQLClient
-
Imports System.Web
-
Imports System.Web.UI
-
Imports System.Web.UI.Webcontrols
-
Imports System.Xml
-
-
-
namespace farhad
-
-
public class myfunction2 : Inherits Page
-
-
public pagedData As New pagedDataSource
-
public ds As New DataSet()
-
public strConnect As New SQLConnection("server=localhost;uid=sa;pwd=mysecretpass;Database=northwind")
-
public objSQLAdapter As New SQLDataAdapter("SELECT companyName, contactName, contactTitle FROM customers", strConnect)
-
public btnPrev AS LinkButton
-
public btnNext AS LinkButton
-
public pageNumber AS Label
-
public theDataList AS DataList
-
-
public Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
-
dopaging()
-
end sub
-
public function getTheData() As DataTable
-
-
objSQLAdapter.Fill(DS, "customers")
-
-
Return DS.Tables("customers").Copy
-
End function
-
-
public Sub doPaging()
-
pagedData.DataSource = getTheData().DefaultView
-
pagedData.AllowPaging = True
-
pagedData.PageSize = 5
-
-
Try
-
pagedData.CurrentPageIndex = Int32.Parse(Request.QueryString("Page")).ToString()
-
Catch ex As Exception
-
pagedData.CurrentPageIndex = 0
-
End Try
-
-
btnPrev.Visible = ( NOT pagedData.IsFirstPage )
-
btnNext.Visible = ( NOT pagedData.IsLastPage )
-
-
pageNumber.Text = (pagedData.CurrentPageIndex + 1) & " of " & pagedData.PageCount
-
-
theDataList.DataSource = pagedData
-
theDataList.DataBind()
-
End Sub
-
-
public Sub Prev_Click(ByVal obj As Object, ByVal e As EventArgs)
-
Response.Redirect(Request.CurrentExecutionFilePath & "?Page=" & (pagedData.CurrentPageIndex - 1))
-
End Sub
-
-
public Sub Next_Click(ByVal obj As Object, ByVal e As EventArgs)
-
Response.Redirect(Request.CurrentExecutionFilePath & "?Page=" & (pagedData.CurrentPageIndex + 1))
-
End Sub
-
-
end class
-
end namespace
-
----------------------End My CLASS IN paging.VB FILE----------
-
2 6120
play with the index
If pagedData.CurrentPageIndex < 0 Then
pagedData.CurrentPageIndex = pagedData.CurrentPageIndex + (-pagedData.CurrentPageIndex)
End If
theDataList.DataSource = pagedData
theDataList.DataBind()
i have added this part to the dopaging() and things worked.
sorry for previous post. i have corrected your code better. i hope it helps. im sending you dopaging sub only. but there are some extra controls that i have used. filter them please.
Sub doPaging()
pagedData.DataSource = getTheData().DefaultView
pagedData.AllowPaging = True
pagedData.PageSize = 5
Dim deg As Integer
Try
deg = Int32.Parse(Request.QueryString("Page"))
Catch ex As Exception
deg = 0
End Try
If deg < 0 Then
deg = deg + (-deg)
End If
Try
pagedData.CurrentPageIndex = deg
Catch ex As Exception
pagedData.CurrentPageIndex = 0
End Try
btnPrev.Visible = (Not pagedData.IsFirstPage)
btnNext.Visible = (Not pagedData.IsLastPage)
pageNumber.Text = pagedData.PageCount & " de " & (pagedData.CurrentPageIndex + 1)
pageNumber1.Text = pagedData.PageCount & " de " & (pagedData.CurrentPageIndex + 1)
If pagedData.CurrentPageIndex < 0 Then
pagedData.CurrentPageIndex = pagedData.CurrentPageIndex + (-pagedData.CurrentPageIndex)
End If
theDataList.DataSource = pagedData
theDataList.DataBind()
End Sub
Hi , I Hope You fine.
I have some problem with this code for paging in asp.net
this bottom code work correctly without any error but when
I try to place separate code in .VB file then error is begin and occured .I want to separate this code and compiling .vb code using VBC.exe later .(bin/paging.dll)
when do it like me so you retrive only < Previous Page Next Page > in your web browser and you don't retrive list Of data in your web browser.
then i try this job and place <% dopagin() %> in paging.aspx file between <body> ... </body>
then i retrive list of data but when you click next you cannot navigate than more 1 page and when
you click previous page you get error "Index -5 is not non-negative and below total rows count"
how can i correct this code .somebody help me please
thank you very much -
-
-------------Correct pagingDS.aspx Code begin ---------------------
-
-
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" %>
-
<%@ Import Namespace="System.Data" %>
-
<%@ Import Namespace="System.Data.SQLClient" %>
-
-
<script language="VB" runat="server">
-
Dim pagedData As New pagedDataSource
-
-
Sub Page_Load(byVal obj As Object, byVal e As EventArgs)
-
doPaging()
-
End Sub
-
-
Function getTheData() As DataTable
-
Dim DS As New DataSet()
-
Dim strConnect As New SQLConnection("server=localhost;uid=sa;pwd=relayer;Database=Northwind")
-
Dim objSQLAdapter As New SQLDataAdapter("SELECT companyName, contactName, contactTitle FROM customers", strConnect)
-
objSQLAdapter.Fill(DS, "customers")
-
-
Return DS.Tables("customers").Copy
-
End Function
-
-
Sub doPaging()
-
pagedData.DataSource = getTheData().DefaultView
-
pagedData.AllowPaging = True
-
pagedData.PageSize = 5
-
-
Try
-
pagedData.CurrentPageIndex = Int32.Parse(Request.QueryString("Page")).ToString()
-
Catch ex As Exception
-
pagedData.CurrentPageIndex = 0
-
End Try
-
-
btnPrev.Visible = ( NOT pagedData.IsFirstPage )
-
btnNext.Visible = ( NOT pagedData.IsLastPage )
-
-
pageNumber.Text = (pagedData.CurrentPageIndex + 1) & " of " & pagedData.PageCount
-
-
theDataList.DataSource = pagedData
-
theDataList.DataBind()
-
End Sub
-
-
Public Sub Prev_Click(ByVal obj As Object, ByVal e As EventArgs)
-
Response.Redirect(Request.CurrentExecutionFilePath & "?Page=" & (pagedData.CurrentPageIndex - 1))
-
End Sub
-
-
Public Sub Next_Click(ByVal obj As Object, ByVal e As EventArgs)
-
Response.Redirect(Request.CurrentExecutionFilePath & "?Page=" & (pagedData.CurrentPageIndex + 1))
-
End Sub
-
</script>
-
<html>
-
<head>
-
<title>Paging with ASP.NET - DataSet Example - VB.NET</title>
-
</head>
-
<body>
-
<form runat="server">
-
<font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><asp:label id="pageNumber" runat="server" /></font>
-
<asp:DataList id="theDataList" runat="server">
-
<ItemTemplate>
-
<table border="0" cellpadding="0" cellspacing="0" width="500">
-
<tr>
-
<td width="140"><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Company Name</strong>:</font></td>
-
<td><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><%# DataBinder.Eval(Container.DataItem, "companyName") %></font></td>
-
</tr>
-
<tr>
-
<td width="110"><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Contact Name</strong>:</font></td>
-
<td><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><%# DataBinder.Eval(Container.DataItem, "contactName") %></td>
-
</tr>
-
<tr>
-
<td width="110"><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Contact Title</strong>:</font></td>
-
<td><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><%# DataBinder.Eval(Container.DataItem, "contactTitle") %></font></td>
-
</tr>
-
</table>
-
</ItemTemplate>
-
<separatortemplate>
-
<hr color="#0099FF" />
-
</separatortemplate>
-
</asp:DataList>
-
-
<asp:LinkButton id="btnPrev" Text="<" OnClick="Prev_Click" runat="server" />
-
<asp:LinkButton id="btnNext" Text=">" OnClick="Next_Click" runat="server" />
-
</form>
-
</body>
-
</html>
-
-
-------------------Paging.aspx End Code-----------------------------------------
-
-
-
***********************************************************************
-
-
-
---------------MY .ASPX file begin------------------------
-
-
<%@ Page src="paging.vb" language="vb" AutoEventWireup="false" Explicit="True" Inherits="farhad.myfunction2" ContentType="text/html" %>
-
-
<html>
-
<head>
-
<title>Paging with ASP.NET - DataSet Example - VB.NET</title>
-
</head>
-
<body>
-
<form runat="server">
-
<font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><asp:label id="pageNumber" runat="server" /></font>
-
<asp:DataList id="theDataList" runat="server">
-
<ItemTemplate>
-
-
<table border="0" cellpadding="0" cellspacing="0" width="500">
-
<tr>
-
<td width="140"><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Company Name</strong>:</font></td>
-
<td><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><%# DataBinder.Eval(Container.DataItem, "companyName") %></font></td>
-
</tr>
-
<tr>
-
<td width="110"><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Contact Name</strong>:</font></td>
-
<td><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><%# DataBinder.Eval(Container.DataItem, "contactName") %></td>
-
</tr>
-
<tr>
-
<td width="110"><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Contact Title</strong>:</font></td>
-
<td><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><%# DataBinder.Eval(Container.DataItem, "contactTitle") %></font></td>
-
</tr>
-
</table>
-
-
</ItemTemplate>
-
<separatortemplate>
-
<hr color="#0099FF" />
-
</separatortemplate>
-
</asp:DataList>
-
-
<asp:LinkButton id="btnPrev" Text="< Previous Page" OnClick="Prev_Click" runat="server" />
-
<asp:LinkButton id="btnNext" Text="Next Page > " OnClick="Next_Click" runat="server" />
-
</form>
-
</body>
-
</html>
-
-
------------End My ASPX file ------------------------------
-
-
*************************************************
-
-------MY .VB Code AND CLASS begin--> Paging.vb --------------------
-
Imports System
-
Imports System.Data
-
Imports System.Data.SQLClient
-
Imports System.Web
-
Imports System.Web.UI
-
Imports System.Web.UI.Webcontrols
-
Imports System.Xml
-
-
-
namespace farhad
-
-
public class myfunction2 : Inherits Page
-
-
public pagedData As New pagedDataSource
-
public ds As New DataSet()
-
public strConnect As New SQLConnection("server=localhost;uid=sa;pwd=mysecretpass;Database=northwind")
-
public objSQLAdapter As New SQLDataAdapter("SELECT companyName, contactName, contactTitle FROM customers", strConnect)
-
public btnPrev AS LinkButton
-
public btnNext AS LinkButton
-
public pageNumber AS Label
-
public theDataList AS DataList
-
-
public Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
-
dopaging()
-
end sub
-
public function getTheData() As DataTable
-
-
objSQLAdapter.Fill(DS, "customers")
-
-
Return DS.Tables("customers").Copy
-
End function
-
-
public Sub doPaging()
-
pagedData.DataSource = getTheData().DefaultView
-
pagedData.AllowPaging = True
-
pagedData.PageSize = 5
-
-
Try
-
pagedData.CurrentPageIndex = Int32.Parse(Request.QueryString("Page")).ToString()
-
Catch ex As Exception
-
pagedData.CurrentPageIndex = 0
-
End Try
-
-
btnPrev.Visible = ( NOT pagedData.IsFirstPage )
-
btnNext.Visible = ( NOT pagedData.IsLastPage )
-
-
pageNumber.Text = (pagedData.CurrentPageIndex + 1) & " of " & pagedData.PageCount
-
-
theDataList.DataSource = pagedData
-
theDataList.DataBind()
-
End Sub
-
-
public Sub Prev_Click(ByVal obj As Object, ByVal e As EventArgs)
-
Response.Redirect(Request.CurrentExecutionFilePath & "?Page=" & (pagedData.CurrentPageIndex - 1))
-
End Sub
-
-
public Sub Next_Click(ByVal obj As Object, ByVal e As EventArgs)
-
Response.Redirect(Request.CurrentExecutionFilePath & "?Page=" & (pagedData.CurrentPageIndex + 1))
-
End Sub
-
-
end class
-
end namespace
-
----------------------End My CLASS IN paging.VB FILE----------
-
Post your reply Sign in to post your reply or Sign up for a free account.
Similar topics
10 posts
views
Thread by Tobias Nilsson |
last post: by
|
reply
views
Thread by Daniel |
last post: by
|
4 posts
views
Thread by Nathan |
last post: by
|
3 posts
views
Thread by John Salerno |
last post: by
|
1 post
views
Thread by Naveen M |
last post: by
|
1 post
views
Thread by Greg Collins [MVP] |
last post: by
|
3 posts
views
Thread by noneya22 |
last post: by
| | | | | | | | | | | | | |