datagridform.aspx.vb

Mastering VBNet Include Source Code

Public Class DataGridForm
    Inherits System.Web.UI.Page
    Protected WithEvents DropDownList1 As System.Web.UI.WebControls.DropDownList
    Protected WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
    Protected WithEvents DACategories As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
    Protected WithEvents DsCategories1 As ProductsPerCategory.DSCategories
    Protected WithEvents DAProductsInCategory As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents DsProducts1 As ProductsPerCategory.DSProducts
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
        Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
        Me.DAProductsInCategory = New System.Data.SqlClient.SqlDataAdapter()
        Me.DACategories = New System.Data.SqlClient.SqlDataAdapter()
        Me.DsProducts1 = New ProductsPerCategory.DSProducts()
        Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.DsCategories1 = New ProductsPerCategory.DSCategories()
        CType(Me.DsProducts1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DsCategories1, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        '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 ProductID, ProductName, QuantityPerUnit, UnitPrice FROM dbo.Products WHERE" & _
        " (CategoryID = @CatID)"
        Me.SqlSelectCommand2.Connection = Me.SqlConnection1
        Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@CatID", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "CategoryID", System.Data.DataRowVersion.Current, Nothing))
        '
        'DAProductsInCategory
        '
        Me.DAProductsInCategory.SelectCommand = Me.SqlSelectCommand2
        Me.DAProductsInCategory.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"), New System.Data.Common.DataColumnMapping("QuantityPerUnit", "QuantityPerUnit"), New System.Data.Common.DataColumnMapping("UnitPrice", "UnitPrice"), New System.Data.Common.DataColumnMapping("UnitsInStock", "UnitsInStock")})})
        '
        'DACategories
        '
        Me.DACategories.SelectCommand = Me.SqlSelectCommand1
        Me.DACategories.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Categories", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("CategoryID", "CategoryID"), New System.Data.Common.DataColumnMapping("CategoryName", "CategoryName")})})
        '
        'DsProducts1
        '
        Me.DsProducts1.DataSetName = "DSProducts"
        Me.DsProducts1.Locale = New System.Globalization.CultureInfo("en-US")
        Me.DsProducts1.Namespace = "http://www.tempuri.org/DSProducts.xsd"
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT CategoryID, CategoryName FROM Categories"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'DsCategories1
        '
        Me.DsCategories1.DataSetName = "DSCategories"
        Me.DsCategories1.Locale = New System.Globalization.CultureInfo("en-US")
        Me.DsCategories1.Namespace = "http://www.tempuri.org/DSCategories.xsd"
        CType(Me.DsProducts1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DsCategories1, 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
            DACategories.Fill(DsCategories1)
            DropDownList1.DataBind()
        End If
    End Sub

    Private Sub DropDownList1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
        DAProductsInCategory.SelectCommand.Parameters("@catID").Value = DropDownList1.SelectedItem.Value
        DAProductsInCategory.Fill(DsProducts1)
        DataGrid1.DataBind()
    End Sub

    Private Sub DataGrid1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.ItemCommand
        Dim itm As Integer
        itm = e.Item.ItemIndex()
        Dim keys As DataKeyCollection
        keys = DataGrid1.DataKeys()
        Label1.Text = "SELECTED ID = " & keys(itm).ToString
    End Sub
End Class