---

Private con As New SqlConnection("server=.\SqlExpress;AttachDbFileName=|DataDirectory|Gallery.mdf;Integrated Security=True;User Instance=True")
Private fileNamePath As String

---

---

Protected Sub FormView1_ItemInserting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.FormViewInsertEventArgs) Handles FormView1.ItemInserting
        Try
           
            Dim theFileUpload As FileUpload = CType( _
                            FormView1.FindControl("FileUpload1"), FileUpload)
            If theFileUpload.HasFile Then
                fileNamePath = "~/Music/" & Guid.NewGuid.ToString()
                Dim theExtension As String = Path.GetExtension(theFileUpload.FileName)
                fileNamePath &= theExtension
                theFileUpload.SaveAs(Server.MapPath(fileNamePath))
               
                e.Values("SongPath") = fileNamePath
                e.Values("SongExtn") = theExtension
               
            End If
        Catch ex As Exception
            Throw
        End Try
    End Sub

---

---

Protected Sub FormView1_ItemDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.FormViewDeleteEventArgs) Handles FormView1.ItemDeleting
        con.Open()
        Dim musicId As Integer = Convert.ToInt32(Request.QueryString.Get("Id"))
        Dim filePath As String = "select SongPath from Music where Id = " & musicId
        Dim cmd As New SqlCommand(filePath, con)
        cmd.ExecuteNonQuery()
        File.Delete(filePath)
        con.Close()
    End Sub

---

---

<asp:DropDownList ID="lstCategoryId" runat="server" AutoPostBack="True" DataSourceID="ObjectDataSource1"
 DataTextField="Description" DataValueField="Id" AppendDataBoundItems="True">
  <asp:ListItem Value="">Please Choose Category</asp:ListItem>
  </asp:DropDownList>

---

---

<asp:FormView ID="FormView1" runat="server" DataSourceID="odsProducts" DefaultMode="Insert" DataKeyNames = "Id"
 OnItemInserting = "FormView1_ItemInserting" OnItemUpdating= "FormView1_ItemUpdating"
 OnItemInserted = "FormView1_ItemInserted" OnItemUpdated = "FormView1_ItemUpdated" >
    <EditItemTemplate >
    <h1>Update The Product</h1>
      <table border="0" cellpadding="3" cellspacing="0" style="width: 100%; height: 100%">
      <tr>
        <td class="Label" valign="top">
          Title:
        </td>
        <td>
          <asp:TextBox ID="TitleTextBox" runat="server" Text='<%# Bind("Title") %>' Width="300px" />
          <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TitleTextBox" ErrorMessage="Please Enter A Title" Display="Dynamic"></asp:RequiredFieldValidator>
        </td>
      </tr>
      <tr>
        <td class="Label" valign="top">
          Description:</td>
        <td>
          <asp:TextBox ID="DescriptionTextBox" runat="server" Text='<%# Bind("Description") %>' TextMode="MultiLine" Width="300px" Height="106px" />
          <asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="DescriptionTextBox" ErrorMessage="Please Enter A Description" Display="Dynamic"></asp:RequiredFieldValidator>
        </td>
      </tr>
      <tr>
        <td class="Label" valign="top">
          Category:
        </td>
        <td>
          <asp:DropDownList ID="lstCategoryId" runat="server" DataSourceID="odsProductCategories" DataTextField="Description" DataValueField="Id">
          </asp:DropDownList>
        </td>
      </tr>
      <tr>
        <td class="Label" valign="top">
          Price:
        </td>
        <td>
          <asp:TextBox ID="PriceTextBox" runat="server" Text='<%# Bind("Price") %>' Width="300px" />
          <asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" ControlToValidate="PriceTextBox" ErrorMessage="Please Enter The Price" Display="Dynamic"></asp:RequiredFieldValidator><asp:RangeValidator ID="RangeValidator1" runat="server" ControlToValidate="PriceTextBox" ErrorMessage="Please Enter A Number Between 0 And 10000" MaximumValue="10000" MinimumValue="0" Type="Currency" Display="Dynamic"></asp:RangeValidator>
        </td>
      </tr>
      <tr>
        <td class="Label" valign="top">
          Image:</td>
        <td>
          <asp:FileUpload ID="FileUpload1" runat="server" Width="300px" />
          <asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" ControlToValidate="FileUpload1" Display="Dynamic" ErrorMessage="Please Select An Image First"></asp:RequiredFieldValidator></td>
      </tr>
      <tr>
        <td>
        </td>
        <td>
          &nbsp;<asp:Button ID="btnInsert" runat="server" CommandName="Insert" Text="Insert" />
          <asp:Button ID="btnCancel" runat="server" CommandName="Cancel" Text="Cancel" CausesValidation="False" OnClick="btnCancel_Click" />
        </td>
      </tr>
      </table>
      <br />
      <br />
      <br />
      &nbsp;<br />
      <br />
      &nbsp;
    </EditItemTemplate>
     
    <InsertItemTemplate>
Same implementation as in book.....
 </InsertItemTemplate>
</asp:FormView>

---

---

<asp:ObjectDataSource ID="odsProducts" runat="server" DataObjectTypeName="Product" InsertMethod="InsertProduct" SelectMethod="GetProduct" UpdateMethod="UpdateProduct"  TypeName="ShopManager">

---

---

Public Shared Sub UpdateProduct(ByVal theProduct As Product)
        Try
            Using myConnection As New SqlConnection(AppConfiguration.ConnectionString)

                Dim myCommand As SqlCommand = New SqlCommand("sprocProductInsertUpdateSingleItem", myConnection)
                myCommand.CommandType = CommandType.StoredProcedure

              myCommand.Parameters.Clear()
                myCommand.Parameters.AddWithValue("@title", theProduct.Title)
                myCommand.Parameters.AddWithValue("@description", theProduct.Description)
                myCommand.Parameters.AddWithValue("@price", theProduct.Price)
                myCommand.Parameters.AddWithValue("@categoryId", theProduct.CategoryId)
                myCommand.Parameters.AddWithValue("@pictureUrlSmall", theProduct.PictureUrlSmall)
                myCommand.Parameters.AddWithValue("@pictureUrlMedium", theProduct.PictureUrlMedium)
                myCommand.Parameters.AddWithValue("@pictureUrlLarge", theProduct.PictureUrlLarge)

                myConnection.Open()

                myCommand.ExecuteNonQuery()
                myConnection.Close()
            End Using
        Catch ex As Exception
            ' Pass up the error; it will be caught by the code in the Global.asax and the generic error page set up in web.config.
            Throw
        End Try
    End Sub

---

---

If theProduct.Id = -1 Then
          myCommand.Parameters.AddWithValue("@id", DBNull.Value)
        Else
          myCommand.Parameters.AddWithValue("@id", theProduct.Id)
        End If

---