Public Class HDataGrid
Inherits System.Web.UI.Page
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()
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
' Step 1 Open a connection
Dim OrdersConnection As New SqlConnection("Data Source=Dennis;persist security info=False;user id=sa;password=;Initial Catalog=northwind")
' Step 2 Retrieve the orders and the order details
Dim OrderAdapter As New SqlDataAdapter("Select * from Orders; select OrderID ,Products.ProductName,[order Details].Unitprice,[order Details].Quantity,[order Details].discount from [order Details],Products where [Order Details].ProductId=Products.ProductID", OrdersConnection)
'Step 3 Create and fill the dataset
Dim OrderDataSet As New DataSet()
OrderAdapter.Fill(OrderDataSet)
'Step 4 Give Meaning full name to the tables
OrderDataSet.Tables(0).TableName = "Orders"
OrderDataSet.Tables(1).TableName = "Order Details"
' Step 5 Establish a Parent child relationship between the two tables based on the common field OrderID.
Dim Parent As DataColumn = OrderDataSet.Tables("Orders").Columns("OrderID")
Dim Child As DataColumn = OrderDataSet.Tables("Order Details").Columns("OrderID")
Dim OrderRelation As DataRelation = New DataRelation("OrderRelation", Parent, Child, False)
'Step 6 Add the relationship to the Dataset
OrderDataSet.Relations.Add(OrderRelation)
'Step 7 Bind the data grid to the default view of the Orders Table
DataGrid1.DataSource = OrderDataSet.Tables("Orders").DefaultView
DataBind()
End Sub
Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound
e.Item.Cells(0).BackColor = System.Drawing.Color.Ivory