How custom paging works

[josie2007]

This is my first attempt to work with objectdatasource control. I have a huge number of records to be displayed in the gird view and in order for the result to be displayed fast I am using a procedure where it takes startrowindex and maximumrow in order to display a selected records and so far so good. My question is how can I get the where is the value for the start row index come from? For the maximumrow (page size) I am selected this value from the dropdown menu. Below is my code for and please let me know how can I put it together for the custom paging to work as it supposed to. thank you

Imports System.Data
Imports System.Data.OracleClient
Imports System.Configuration.ConfigurationManager
Partial Class proposal
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
lettingDate()
lettingDate1()
End If
End Sub
Sub lettingDate()
Dim connectionString As String = ConnectionStrings("ConnectionString").ConnectionString
Dim oOracleConn As OracleConnection = New OracleConnection(connectionString)

Dim strStringBuilder As StringBuilder
strStringBuilder = New StringBuilder
With strStringBuilder
.Append(" select distinct trim(to_char(b.datelet ,'fmMonth ddth yyyy')) DateForLetting , b.datelet")
.Append(" from bidlet b , letprop l ")
.Append(" where datelet > to_date('12/31/2004','MM/DD/YYYY') ")
.Append(" and datelet < trunc(sysdate) ")
.Append(" and l.letting = b.letting ")
.Append(" AND SUBSTR (l.lcontid, 4, 4) <= '5' ")
.Append(" order by 2 DESC ")
End With
Dim cmdLetting As OracleCommand = New OracleCommand()
cmdLetting.Connection = oOracleConn
cmdLetting.CommandType = CommandType.Text
cmdLetting.CommandText = strStringBuilder.ToString
Dim adLetting As New OracleDataAdapter(cmdLetting)
Dim dsLetting As New DataSet
adLetting.Fill(dsLetting, "LettingDate")
ddLetting.DataValueField = "datelet"
ddLetting.DataTextField = "DateForLetting"
ddLetting.DataSource = dsLetting
ddLetting.DataBind()
End Sub
Sub lettingDate1()
Dim connectionString As String = ConnectionStrings("ConnectionString").ConnectionString
Dim oOracleConn As OracleConnection = New OracleConnection(connectionString)

Dim strStringBuilder As StringBuilder
strStringBuilder = New StringBuilder
With strStringBuilder
.Append(" select distinct trim(to_char(b.datelet ,'fmMonth ddth yyyy')) DateForLetting , b.datelet")
.Append(" from bidlet b , letprop l ")
.Append(" where datelet > to_date('12/31/2004','MM/DD/YYYY') ")
.Append(" and datelet < trunc(sysdate) ")
.Append(" and l.letting = b.letting ")
.Append(" AND SUBSTR (l.lcontid, 4, 4) <= '5' ")
.Append(" order by 2 DESC")
End With
Dim cmdLetting As OracleCommand = New OracleCommand()
cmdLetting.Connection = oOracleConn
cmdLetting.CommandType = CommandType.Text
cmdLetting.CommandText = strStringBuilder.ToString
Dim adLetting As New OracleDataAdapter(cmdLetting)
Dim dsLetting As New DataSet
adLetting.Fill(dsLetting, "LettingDate")
ddLetting1.DataValueField = "datelet"
ddLetting1.DataTextField = "DateForLetting"
ddLetting1.DataSource = dsLetting
ddLetting1.DataBind()
End Sub

Sub BindLetData()
Dim connectionString As String = ConnectionStrings("ConnectionString").ConnectionString
Dim oOracleConn As OracleConnection = New OracleConnection(connectionString)
oOracleConn.Open()

Dim drPropItems As OracleDataReader
Dim cmdPropItems As OracleCommand = New OracleCommand()
With cmdPropItems
.Connection = oOracleConn
.CommandText = "ITEMCUSTOMPAGING"
.CommandType = CommandType.StoredProcedure
.Parameters.Clear()
.Parameters.Add(New OracleParameter("p_desc", OracleType.VarChar)).Value = Trim(txtDescription.Text)
.Parameters.Add(New OracleParameter("p_letting", OracleType.VarChar)).Value = ddLetting1.DataValueField = "datelet"
.Parameters.Add(New OracleParameter("p_letting1", OracleType.VarChar)).Value = ddLetting.DataValueField = "datelet"
'.Parameters.Add(New OracleParameter(":startRowIndex", OracleType.Number)).Value = currentpageNumber
.Parameters.Add(New OracleParameter(":maximumRows", OracleType.Number)).Value = ddlPageSize.DataValueField
.Parameters.Add(New OracleParameter("i_results", OracleType.Cursor)).Direction = ParameterDirection.Output
End With
drPropItems = cmdPropItems.ExecuteReader()
gvPropItems.DataSource = drPropItems
gvPropItems.DataBind()
drPropItems.Close()
End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
BindLetData()
End Sub
End Class


<%@ Page Language="VB" AutoEventWireup="false" CodeFile="propSearch.aspx.vb" Inherits="proposal" %>

<!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>Untitled Page</title>
</head>
<body style="font-family: Times New Roman">
<form id="form1" runat="server">


<table style="width: 65%">
<tr>
<td >
Keywords:
<asp:TextBox ID="txtDescription" runat="server" Width="423px"></asp:TextBox><br />
(E<em>nter Item Description)<br />
</em>
</td>

</tr>
<tr>


</tr>
<tr>
<td s>
<br />
From:&nbsp;
<aspropDownList ID="ddLetting" runat="server" Width="170px">
</aspropDownList></td>
<td >
<br />
To:&nbsp; &nbsp;<aspropDownList ID="ddLetting1" runat="server" Width="170px">
</aspropDownList></td>

</tr>
<tr>
<td >
</td>
<td >
<br />
</td>

</tr>
<tr>
<td >
<asp:Button ID="Button1" runat="server" Text="Search" Width="105px" /></td>
<td >
Change PageSize:
<aspropDownList ID="ddlPageSize" runat="server">
<asp:ListItem>10</asp:ListItem>
<asp:ListItem>15</asp:ListItem>
<asp:ListItem Selected="true">20</asp:ListItem>
<asp:ListItem>25</asp:ListItem>
<asp:ListItem>30</asp:ListItem>
</aspropDownList></td>
</tr>
</table>
<br />
<asp:GridView ID="gvPropItems" runat="server" DataSourceID="ObjectDataSource1" AllowPaging="true">
</asp:GridView>
<asp:ObjectDataSource ID="ObjectDataSource1" runat="server" ></asp:ObjectDataSource>

</form>
</body>
</html>