ASP.NET. Учебный курс (Г.Бучек.)

Объект Command использует объект Connection:

DBDelete.Connection - DBConn DBDelete.Connection.Open

После этого необходимо удалить ненужную запись:

DBDelete.ExecuteNonQuery()

и извлечь остающиеся в корзине покупателя товары:

DBCommand - New OleDbDataAdapter _

("Select ShoppingCartItemID, ProductName, " _ & "Quantity, Price, Shipping From " _ & "ShoppingCartltema Where " ? "CustomerlD - " ? Session("CustomerlD") _ & " Order By ProductName" _ , DBConn)

Эти товары помещаются в объект DataSet

DBCommand.Fill(DSPageData, _ "ShoppingCart")

с которым связан управляющий элемент DataGrid:

dgShoppingCart.DataSource -

DSPageData.Tables("ShoppingCart").DefaultView dgShoppingCart.DataBind

Теперь можно извлечь общую стоимость товаров, но при этом необходимо учесть, что удаленный посетителем товар мог быть последним товаром в его корзине:

if DSPageData.Tables("ShoppingCart").Rows.Count - 0 Then

В таком случае мы должны обеспечить отображение сообщения

lblPriceTotal.Text - "В Вашей корзине " & "нет товаров."

и очистку других элементов Label, содержащих итоговые значения:

lblShippingTotal.Text - "" lblGrandTotal.Text - ""

Если товар в корзине остался, необходимо рассчитать новые итоговые данные:

DBCommand - New OleDbDataAdapter

("Select Sum(Price) as PriceSum, " _ & "Sum(Shipping) as ShippingSum From " 6 "ShoppingCartltems Where " & "CustomerlD - " ? Session("CustomerlD") ^ , DBConn) DBCommand.Fill(DSPageData, "Totals")

и поместить их в соответствующие элементы управления Label:

lblPriceTotal.Text - "Итого:"

? FormatCurrency(DSPageData.Tables("Totals"). _ Rows(0).Item{"PriceSum")) lblShippingTotal.Text - "Доставка:"

? FormatCurrency(DSPageData.Tables("Totals").