webform1.aspx.vb

Mastering VBNet Include Source Code

Public Class WebForm1
    Inherits System.Web.UI.Page
    Protected WithEvents txtPrice As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtPackage As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtStock As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtSupplier As System.Web.UI.WebControls.TextBox
    Protected WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
    Protected WithEvents DAProducts As System.Data.SqlClient.SqlDataAdapter
        Protected WithEvents lstProducts As System.Web.UI.WebControls.ListBox
    Protected WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents DASelectedProduct As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
    Protected WithEvents DsSelectedProducts1 As WebProducts.DSSelectedProducts
    Protected WithEvents DsProducts1 As WebProducts.DSProducts

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.DsSelectedProducts1 = New WebProducts.DSSelectedProducts()
        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
        Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
        Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.DAProducts = New System.Data.SqlClient.SqlDataAdapter()
        Me.DASelectedProduct = New System.Data.SqlClient.SqlDataAdapter()
        Me.DsProducts1 = New WebProducts.DSProducts()
        CType(Me.DsSelectedProducts1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DsProducts1, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'DsSelectedProducts1
        '
        Me.DsSelectedProducts1.DataSetName = "DSSelectedProducts"
        Me.DsSelectedProducts1.Locale = New System.Globalization.CultureInfo("en-US")
        Me.DsSelectedProducts1.Namespace = "http://www.tempuri.org/DSSelectedProducts.xsd"
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "data source=(local);initial catalog=Northwind;persist security info=False;user id" & _
        "=sa;workstation id=PROTSERVER;packet size=4096"
        '
        'SqlSelectCommand2
        '
        Me.SqlSelectCommand2.CommandText = "SELECT dbo.Products.QuantityPerUnit, dbo.Products.UnitPrice, dbo.Products.UnitsIn" & _
        "Stock, dbo.Suppliers.CompanyName, dbo.Products.ProductID, dbo.Suppliers.Supplier" & _
        "ID FROM dbo.Products INNER JOIN dbo.Suppliers ON dbo.Products.SupplierID = dbo.S" & _
        "uppliers.SupplierID WHERE (dbo.Products.ProductID = @prodID)"
        Me.SqlSelectCommand2.Connection = Me.SqlConnection1
        Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@prodID", System.Data.SqlDbType.Int, 4, "ProductID"))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT ProductID, ProductName FROM dbo.Products"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'DAProducts
        '
        Me.DAProducts.SelectCommand = Me.SqlSelectCommand1
        Me.DAProducts.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Products", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("ProductID", "ProductID"), New System.Data.Common.DataColumnMapping("ProductName", "ProductName")})})
        '
        'DASelectedProduct
        '
        Me.DASelectedProduct.SelectCommand = Me.SqlSelectCommand2
        Me.DASelectedProduct.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Products", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("QuantityPerUnit", "QuantityPerUnit"), New System.Data.Common.DataColumnMapping("UnitPrice", "UnitPrice"), New System.Data.Common.DataColumnMapping("UnitsInStock", "UnitsInStock"), New System.Data.Common.DataColumnMapping("CompanyName", "CompanyName")})})
        '
        'DsProducts1
        '
        Me.DsProducts1.DataSetName = "DSProducts"
        Me.DsProducts1.Locale = New System.Globalization.CultureInfo("en-US")
        Me.DsProducts1.Namespace = "http://www.tempuri.org/DSProducts.xsd"
        CType(Me.DsSelectedProducts1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DsProducts1, System.ComponentModel.ISupportInitialize).EndInit()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        If Not Me.IsPostBack Then
            DAProducts.Fill(DsProducts1, "Products")
            lstProducts.DataBind()
        End If
    End Sub

    Private Sub lstProducts_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstProducts.SelectedIndexChanged
        DASelectedProduct.SelectCommand.Parameters("@prodID").Value = lstProducts.SelectedItem.Value
        DASelectedProduct.Fill(DsSelectedProducts1, "Products")
        txtPrice.DataBind()
        txtPackage.DataBind()
        txtStock.DataBind()
        txtSupplier.DataBind()
    End Sub
End Class