| Coding123 2004-08-18, 3:55 pm |
| 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=Northw
ind")
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
|