Re: Passing parameter from textbox

Tech-Archive recommends: Speed Up your PC by fixing your registry

From: Cemal Karademir (c.karademir_at_zonnet.nl)
Date: 07/24/04 

Date: Sat, 24 Jul 2004 10:50:55 +0200

Okay, I did evrything you said, but now i get an error message:
System.ArgumentOutOfRangeException: .......

Am i doimg something wrong? I include below the complete source for further
investigations. Please help we this?

Thanx, Cemal

<%@ Page Language="VB" Debug="TRUE" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">

    Sub Page_Load
        dim SQLString as string="Select * from ARTICLE"
        dim Conn as OleDbConnection
        dim ConnectionString as string="Provider=Microsoft.Jet.OLEDB.4.0;
Ole DB Services=-4; Data Source=C:\SmartSoft.NET\ORSDB.mdb"
        dim Cmdselect as OleDbCommand
        dim dtrArticle as OleDbDataReader

        Conn = New OleDbConnection (ConnectionString)
        Conn.Open()
        CmdSelect = New OleDbCommand(SQLString, Conn)
        dtrArticle = CmdSelect.ExecuteReader()

        While dtrArticle.Read()
           dgrArticle.DataSource=dtrArticle
           dgrArticle.DataBind()
        End While

        dtrArticle.Close()
        Conn.Close()
    End Sub

    Private Sub ItemCommand(ByVal source As Object, ByVal e As
System.Web.UI.WebControls.DataGridCommandEventArgs)
        Dim Item As DataGridItem = CType(e.Item, DataGridItem)
        Dim URL As String

        With Item
            URL = "ArticleDetail.aspx?debtorid=" & (Me.txtDebtor.Text.Trim)
& _
                  "&plu=" &
Server.UrlEncode(CType(.Cells(0).FindControl("lnkPLU"), LinkButton).Text) &
_
                  "&description=" & Server.UrlEncode(.Cells(1).Text)
        End With

        Response.Redirect(URL)
    End Sub

</script>
<html>
<head>
</head>
<body>
    <form runat="server">
        <p>
            <asp:TextBox id="txtDebtor" runat="server"
Width="100px"></asp:TextBox>
            <br />
            <asp:DataGrid id="dgrArticle" runat="server"
OnItemCommand="ItemCommand" autoGenerateColumns="False">
                <Columns>
                    <asp:TemplateColumn>
                        <ItemTemplate>
                            <asp:LinkButton id="lnkPLU" runat="server">
                                <%#DataBinder.Eval(Container.DataItem,
"PLU")%>
                            </asp:LinkButton>
                            <%#DataBinder.Eval(Container.DataItem,
"DESCRIPTION")%>
                        </ItemTemplate>
                    </asp:TemplateColumn>
                </Columns>
            </asp:DataGrid>
        </p>
    </form>
</body>
</html>

Quantcast