Code Comments
Programming Forum and web based access to our favorite programming groups.Public Class WebForm1
Inherits System.Web.UI.Page
Dim conNorthwind As New SqlClient.SqlConnection
Dim dvwProducts As New DataView
Dim dadNorthwind As New SqlClient.SqlDataAdapter
Dim dstNorthwind As New DataSet
Dim dadsqlCommand As New SqlClient.SqlCommand
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
End Sub
Protected WithEvents Repeater1 As System.Web.UI.WebControls.Repeater
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
'NOTE: The following placeholder declaration is required by the Web Form
Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
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
If Not IsPostBack Then
' Dim conNorthwind As SqlClient.SqlConnection
'Dim dadNorthwind As SqlClient.SqlDataAdapter
'Dim dstNorthwind As DataSet
'dstNorthwind = New DataSet
conNorthwind = New
SqlClient.SqlConnection("Server=TEST-SERVER;UID=sa;PWD=secret;Database=North
wind")
dadNorthwind = New SqlClient.SqlDataAdapter("Select * From
Categories", conNorthwind)
dadNorthwind.Fill(dstNorthwind, "Categories")
dadNorthwind.SelectCommand = New SqlClient.SqlCommand("Select *
From Products", conNorthwind)
dadNorthwind.Fill(dstNorthwind, "Products")
'Create Default data view
dvwProducts = dstNorthwind.Tables("Products").DefaultView()
'Bind Repeater1 to dataset
Repeater1.DataSource = dstNorthwind
Repeater1.DataBind()
End If
End Sub
Public Sub DataGrid1_PageIndexChanged(ByVal source As Object, ByVal e As
System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles
DataGrid1.PageIndexChanged
DataGrid1.CurrentPageIndex = e.NewPageIndex
DataGrid1.DataSource = dvwProducts
DataGrid1.DataBind()
End Sub
Public Function FilterProducts(ByVal intCatID As Integer) As DataView
dvwProducts.RowFilter = "CategoryID=" & intCatID
Return dvwProducts
End Function
Public Sub DataGrid1_SortCommand(ByVal source As Object, ByVal e As
System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles
DataGrid1.SortCommand
'Create Default data view
'dvwProducts = dstNorthwind.Tables("Products").DefaultView()
dvwProducts.Sort = e.SortExpression
dvwProducts = dstNorthwind.Tables("Products").DefaultView()
DataGrid1.DataSource = dvwProducts
DataGrid1.DataBind()
'Repeater1.DataSource = dstNorthwind
'Repeater1.DataBind()
End Sub
Private Sub DataGrid1_SelectedIndexChanged(ByVal sender As Object, ByVal
e As System.EventArgs) Handles DataGrid1.SelectedIndexChanged
End Sub
End Class
--
Regards
Post Follow-up to this messagePowered by vBulletin
Copyright 2000-2006 Jelsoft Enterprises Limited.