update - ASP Free

ASP Free Forums Sponsor:

March 12th, 2003, 01:10 AM

aya

Registered User

Join Date: Mar 2003

Posts: 5

Time spent in forums: < 1 sec
Reputation Power: 0

update

i'm trying to update but every time i click the edit button it gives me this error No value given for one or more required parameters i went over the codes over and over but couldn't fine the problem plz help <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.OLEDB" %> <HTML> <HEAD> <title>Untitled</title> <meta name="GENERATOR" Content="ASP Express 2.1"> <script language="VB" runat="server"> Dim strASS_Code, strASS_Description, strASS_Notes as string Dim strConn as string = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Inetpubwwwrootdelete asset inwinfix.mdb;" Sub Page_Load(Source as Object, E as EventArgs) if not Page.IsPostBack then BindData End If End Sub Sub BindData() Dim OLEDB as string = "Select ***_Code, ***_Description, ***_Notes from Asset" Dim conn as New OLEDBConnection(strConn) Dim Cmd as New OLEDBCommand(OLEDB, conn) Dim objDR as OLEDBDataReader conn.Open() objDR=Cmd.ExecuteReader(system.data.CommandBehavio r.CloseConnection) list1.datasource=objDR list1.DataValueField="***_Description" list1.datatextfield="***_Code" list1.databind list1.selectedindex=0 End Sub Sub EditRecord(Source as Object, E as EventArgs) Dim OLEDB as string = "Select ***_Code, ***_Descritpion, ***_Notes from Asset Where ***_Code = '" & list1.selecteditem.value & "'" Dim conn as New OLEDBConnection(strConn) Dim objDR as OLEDBDataReader Dim Cmd as New OLEDBCommand(OLEDB, conn) conn.Open() objDR=Cmd.ExecuteReader(system.data.CommandBehavio r.CloseConnection) While objDR.Read() strASS_Code=objDR("***_Code") strASS_Description=objDR("***_Description") strASS_Notes=objDR("***_Notes") End While page.databind() label1.text="" label2.text="" End Sub Sub doUpdate(Source as Object, E as EventArgs) Dim MySQL as string = "Update Asset Set ***_Description=@***_Description, ***_Notes=@***_Notes Where ***_Code=@***_Code" Dim Conn as New OLEDBConnection(strConn) Dim Cmd as New OLEDBCommand(MySQL, Conn) cmd.Parameters.Add(New OLEDBParameter("@***_Code", frmASS_Code.text)) cmd.Parameters.Add(New OLEDBParameter("@***_Description", frmASS_Description.text)) cmd.Parameters.Add(New OLEDBParameter("@***_Notes", frmASS_Notes.text)) Conn.Open() cmd.ExecuteNonQuery label1.text = "It's Done!" label1.text="Successfully updated -- - " BindData list1.SelectedIndex=List1.Items.IndexOf(List1.Item s.FindByValue(frmASS_Code.text)) End Sub </script> </HEAD> <body> <form Name="form1" runat="server" ID="Form1"> <table border="1" width="100%"> <tr> <td align="middle" width="145" valign="top">Choose from List: <asp:ListBox id="list1" Width="217px" height="150px" runat="server" /> <asp:button id="button1" Text="Edit Record" onclick="EditRecord" runat="server" Width="104px" /> </td> <td align="left" valign="top"> Code : <asp:textbox id="frmASS_Code" Text="<%# strASS_Code %>" runat="server" Width="358px"/> Description : <asp:textbox id="frmASS_Description" Text="<%# strASS_Description %>" runat="server" Width="317px"/> Notes : <asp:textbox id="frmASS_Notes" runat="server" Text="<%# strASS_Notes %>" Width="354px"/> <asp:button id="button2" Text="Update" onclick="doUpdate" runat="server" /> <asp:Label ID="label1" forecolor="red" runat="server" /> <asp:Label ID="label2" runat="server" /> </td> </tr> </table> </form> </body> </HTML>

Viewing: ASP Free Forums > Programming > .NET Development > update

« Previous Thread | Next Thread »

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump