— Начало метки A dim cmdStr = «SELECT « & _ «dbo.ufProductsInCategory(@CategoryID)» dim cmd1 AS New SqlCommand(cmdStr, cnn1) Dim prm1 AS SqlParameter = _ cmd1.Parameters.Add(«@CategoryID», _ SqlDbType.Int) prm1.value = integer.Parse(Textbox1.Text) int1 = cmd1.ExecuteScalar — Конец метки A — Начало метки B cmdStr = «SELECT dbo.ufDiscontinued» & _ «ProductsInCategory(@CategoryID)» cmd1.CommandText = cmdStr int2 = cmd1.ExecuteScalar — Конец метки B — Начало метки C Label2.Text = int2 & « discontinued « & _ «products from a total of « & int1 & «.» — Конец метки C — Начало метки D cmdStr = «SELECT CategoryName, ProductName « & _ «FROM ufDiscontinuedProductRowsInCategory» & _ «(@CategoryID)» cmd1.CommandText = cmdStr dim dap1 AS New SqlDataAdapter(cmd1) dap1.Fill(das1) DataGrid1.DataSource = das1.Tables(0) — Конец метки D