'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:2.0.50727.42
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports System
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), _
Serializable(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.ComponentModel.ToolboxItem(true), _
System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
System.Xml.Serialization.XmlRootAttribute("NorthwindDataSet"), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
Partial Public Class NorthwindDataSet
Inherits System.Data.DataSet
Private tableSales_by_Category As Sales_by_CategoryDataTable
Private tableSales_by_Category_Filtered As Sales_by_Category_FilteredDataTable
Private tableCategories As CategoriesDataTable
Private _schemaSerializationMode As System.Data.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
MyBase.New
Me.BeginInit
Me.InitClass
Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
Me.EndInit
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Sub New(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context, false)
If (Me.IsBinarySerialized(info, context) = true) Then
Me.InitVars(false)
Dim schemaChangedHandler1 As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
Return
End If
Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
If (Me.DetermineSchemaSerializationMode(info, context) = System.Data.SchemaSerializationMode.IncludeSchema) Then
Dim ds As System.Data.DataSet = New System.Data.DataSet
ds.ReadXmlSchema(New System.Xml.XmlTextReader(New System.IO.StringReader(strSchema)))
If (Not (ds.Tables("Sales by Category")) Is Nothing) Then
MyBase.Tables.Add(New Sales_by_CategoryDataTable(ds.Tables("Sales by Category")))
End If
If (Not (ds.Tables("Sales by Category Filtered")) Is Nothing) Then
MyBase.Tables.Add(New Sales_by_Category_FilteredDataTable(ds.Tables("Sales by Category Filtered")))
End If
If (Not (ds.Tables("Categories")) Is Nothing) Then
MyBase.Tables.Add(New CategoriesDataTable(ds.Tables("Categories")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints
Me.Merge(ds, false, System.Data.MissingSchemaAction.Add)
Me.InitVars
Else
Me.ReadXmlSchema(New System.Xml.XmlTextReader(New System.IO.StringReader(strSchema)))
End If
Me.GetSerializationData(info, context)
Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Browsable(false), _
System.ComponentModel.DesignerSerializationVisibility(System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property Sales_by_Category() As Sales_by_CategoryDataTable
Get
Return Me.tableSales_by_Category
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Browsable(false), _
System.ComponentModel.DesignerSerializationVisibility(System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property Sales_by_Category_Filtered() As Sales_by_Category_FilteredDataTable
Get
Return Me.tableSales_by_Category_Filtered
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Browsable(false), _
System.ComponentModel.DesignerSerializationVisibility(System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property Categories() As CategoriesDataTable
Get
Return Me.tableCategories
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.BrowsableAttribute(true), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Visible)> _
Public Overrides Property SchemaSerializationMode() As System.Data.SchemaSerializationMode
Get
Return Me._schemaSerializationMode
End Get
Set
Me._schemaSerializationMode = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
Public Shadows ReadOnly Property Tables() As System.Data.DataTableCollection
Get
Return MyBase.Tables
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
Public Shadows ReadOnly Property Relations() As System.Data.DataRelationCollection
Get
Return MyBase.Relations
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub InitializeDerivedDataSet()
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overrides Function Clone() As System.Data.DataSet
Dim cln As NorthwindDataSet = CType(MyBase.Clone,NorthwindDataSet)
cln.InitVars
cln.SchemaSerializationMode = Me.SchemaSerializationMode
Return cln
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function ShouldSerializeTables() As Boolean
Return false
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function ShouldSerializeRelations() As Boolean
Return false
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub ReadXmlSerializable(ByVal reader As System.Xml.XmlReader)
If (Me.DetermineSchemaSerializationMode(reader) = System.Data.SchemaSerializationMode.IncludeSchema) Then
Me.Reset
Dim ds As System.Data.DataSet = New System.Data.DataSet
ds.ReadXml(reader)
If (Not (ds.Tables("Sales by Category")) Is Nothing) Then
MyBase.Tables.Add(New Sales_by_CategoryDataTable(ds.Tables("Sales by Category")))
End If
If (Not (ds.Tables("Sales by Category Filtered")) Is Nothing) Then
MyBase.Tables.Add(New Sales_by_Category_FilteredDataTable(ds.Tables("Sales by Category Filtered")))
End If
If (Not (ds.Tables("Categories")) Is Nothing) Then
MyBase.Tables.Add(New CategoriesDataTable(ds.Tables("Categories")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints
Me.Merge(ds, false, System.Data.MissingSchemaAction.Add)
Me.InitVars
Else
Me.ReadXml(reader)
Me.InitVars
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function GetSchemaSerializable() As System.Xml.Schema.XmlSchema
Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
Me.WriteXmlSchema(New System.Xml.XmlTextWriter(stream, Nothing))
stream.Position = 0
Return System.Xml.Schema.XmlSchema.Read(New System.Xml.XmlTextReader(stream), Nothing)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Overloads Sub InitVars()
Me.InitVars(true)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Overloads Sub InitVars(ByVal initTable As Boolean)
Me.tableSales_by_Category = CType(MyBase.Tables("Sales by Category"),Sales_by_CategoryDataTable)
If (initTable = true) Then
If (Not (Me.tableSales_by_Category) Is Nothing) Then
Me.tableSales_by_Category.InitVars
End If
End If
Me.tableSales_by_Category_Filtered = CType(MyBase.Tables("Sales by Category Filtered"),Sales_by_Category_FilteredDataTable)
If (initTable = true) Then
If (Not (Me.tableSales_by_Category_Filtered) Is Nothing) Then
Me.tableSales_by_Category_Filtered.InitVars
End If
End If
Me.tableCategories = CType(MyBase.Tables("Categories"),CategoriesDataTable)
If (initTable = true) Then
If (Not (Me.tableCategories) Is Nothing) Then
Me.tableCategories.InitVars
End If
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitClass()
Me.DataSetName = "NorthwindDataSet"
Me.Prefix = ""
Me.Namespace = "http://tempuri.org/NorthwindDataSet.xsd"
Me.EnforceConstraints = true
Me.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
Me.tableSales_by_Category = New Sales_by_CategoryDataTable
MyBase.Tables.Add(Me.tableSales_by_Category)
Me.tableSales_by_Category_Filtered = New Sales_by_Category_FilteredDataTable
MyBase.Tables.Add(Me.tableSales_by_Category_Filtered)
Me.tableCategories = New CategoriesDataTable
MyBase.Tables.Add(Me.tableCategories)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Function ShouldSerializeSales_by_Category() As Boolean
Return false
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Function ShouldSerializeSales_by_Category_Filtered() As Boolean
Return false
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Function ShouldSerializeCategories() As Boolean
Return false
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As System.ComponentModel.CollectionChangeEventArgs)
If (e.Action = System.ComponentModel.CollectionChangeAction.Remove) Then
Me.InitVars
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Shared Function GetTypedDataSetSchema(ByVal xs As System.Xml.Schema.XmlSchemaSet) As System.Xml.Schema.XmlSchemaComplexType
Dim ds As NorthwindDataSet = New NorthwindDataSet
Dim type As System.Xml.Schema.XmlSchemaComplexType = New System.Xml.Schema.XmlSchemaComplexType
Dim sequence As System.Xml.Schema.XmlSchemaSequence = New System.Xml.Schema.XmlSchemaSequence
xs.Add(ds.GetSchemaSerializable)
Dim any As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
any.Namespace = ds.Namespace
sequence.Items.Add(any)
type.Particle = sequence
Return type
End Function
Public Delegate Sub Sales_by_CategoryRowChangeEventHandler(ByVal sender As Object, ByVal e As Sales_by_CategoryRowChangeEvent)
Public Delegate Sub Sales_by_Category_FilteredRowChangeEventHandler(ByVal sender As Object, ByVal e As Sales_by_Category_FilteredRowChangeEvent)
Public Delegate Sub CategoriesRowChangeEventHandler(ByVal sender As Object, ByVal e As CategoriesRowChangeEvent)
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), _
System.Serializable(), _
System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class Sales_by_CategoryDataTable
Inherits System.Data.DataTable
Implements System.Collections.IEnumerable
Private columnCategoryID As System.Data.DataColumn
Private columnCategoryName As System.Data.DataColumn
Private columnProductName As System.Data.DataColumn
Private columnProductSales As System.Data.DataColumn
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
MyBase.New
Me.TableName = "Sales by Category"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal table As System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Sub New(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property CategoryIDColumn() As System.Data.DataColumn
Get
Return Me.columnCategoryID
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property CategoryNameColumn() As System.Data.DataColumn
Get
Return Me.columnCategoryName
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ProductNameColumn() As System.Data.DataColumn
Get
Return Me.columnProductName
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ProductSalesColumn() As System.Data.DataColumn
Get
Return Me.columnProductSales
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Default ReadOnly Property Item(ByVal index As Integer) As Sales_by_CategoryRow
Get
Return CType(Me.Rows(index),Sales_by_CategoryRow)
End Get
End Property
Public Event Sales_by_CategoryRowChanging As Sales_by_CategoryRowChangeEventHandler
Public Event Sales_by_CategoryRowChanged As Sales_by_CategoryRowChangeEventHandler
Public Event Sales_by_CategoryRowDeleting As Sales_by_CategoryRowChangeEventHandler
Public Event Sales_by_CategoryRowDeleted As Sales_by_CategoryRowChangeEventHandler
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overloads Sub AddSales_by_CategoryRow(ByVal row As Sales_by_CategoryRow)
Me.Rows.Add(row)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overloads Function AddSales_by_CategoryRow(ByVal CategoryName As String, ByVal ProductName As String, ByVal ProductSales As Decimal) As Sales_by_CategoryRow
Dim rowSales_by_CategoryRow As Sales_by_CategoryRow = CType(Me.NewRow,Sales_by_CategoryRow)
rowSales_by_CategoryRow.ItemArray = New Object() {Nothing, CategoryName, ProductName, ProductSales}
Me.Rows.Add(rowSales_by_CategoryRow)
Return rowSales_by_CategoryRow
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overridable Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
Return Me.Rows.GetEnumerator
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overrides Function Clone() As System.Data.DataTable
Dim cln As Sales_by_CategoryDataTable = CType(MyBase.Clone,Sales_by_CategoryDataTable)
cln.InitVars
Return cln
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function CreateInstance() As System.Data.DataTable
Return New Sales_by_CategoryDataTable
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub InitVars()
Me.columnCategoryID = MyBase.Columns("CategoryID")
Me.columnCategoryName = MyBase.Columns("CategoryName")
Me.columnProductName = MyBase.Columns("ProductName")
Me.columnProductSales = MyBase.Columns("ProductSales")
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitClass()
Me.columnCategoryID = New System.Data.DataColumn("CategoryID", GetType(Integer), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCategoryID)
Me.columnCategoryName = New System.Data.DataColumn("CategoryName", GetType(String), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCategoryName)
Me.columnProductName = New System.Data.DataColumn("ProductName", GetType(String), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnProductName)
Me.columnProductSales = New System.Data.DataColumn("ProductSales", GetType(Decimal), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnProductSales)
Me.columnCategoryID.AutoIncrement = true
Me.columnCategoryName.MaxLength = 15
Me.columnProductName.MaxLength = 40
Me.ExtendedProperties.Add("Generator_RowClassName", "Sales_by_CategoryRow")
Me.ExtendedProperties.Add("Generator_RowEvArgName", "Sales_by_CategoryRowChangeEvent")
Me.ExtendedProperties.Add("Generator_RowEvHandlerName", "Sales_by_CategoryRowChangeEventHandler")
Me.ExtendedProperties.Add("Generator_TableClassName", "Sales_by_CategoryDataTable")
Me.ExtendedProperties.Add("Generator_TablePropName", "Sales_by_Category")
Me.ExtendedProperties.Add("Generator_TableVarName", "tableSales_by_Category")
Me.ExtendedProperties.Add("Generator_UserTableName", "Sales by Category")
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function NewSales_by_CategoryRow() As Sales_by_CategoryRow
Return CType(Me.NewRow,Sales_by_CategoryRow)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As System.Data.DataRowBuilder) As System.Data.DataRow
Return New Sales_by_CategoryRow(builder)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function GetRowType() As System.Type
Return GetType(Sales_by_CategoryRow)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanged(ByVal e As System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.Sales_by_CategoryRowChangedEvent) Is Nothing) Then
RaiseEvent Sales_by_CategoryRowChanged(Me, New Sales_by_CategoryRowChangeEvent(CType(e.Row,Sales_by_CategoryRow), e.Action))
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanging(ByVal e As System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.Sales_by_CategoryRowChangingEvent) Is Nothing) Then
RaiseEvent Sales_by_CategoryRowChanging(Me, New Sales_by_CategoryRowChangeEvent(CType(e.Row,Sales_by_CategoryRow), e.Action))
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleted(ByVal e As System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.Sales_by_CategoryRowDeletedEvent) Is Nothing) Then
RaiseEvent Sales_by_CategoryRowDeleted(Me, New Sales_by_CategoryRowChangeEvent(CType(e.Row,Sales_by_CategoryRow), e.Action))
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleting(ByVal e As System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.Sales_by_CategoryRowDeletingEvent) Is Nothing) Then
RaiseEvent Sales_by_CategoryRowDeleting(Me, New Sales_by_CategoryRowChangeEvent(CType(e.Row,Sales_by_CategoryRow), e.Action))
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub RemoveSales_by_CategoryRow(ByVal row As Sales_by_CategoryRow)
Me.Rows.Remove(row)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Shared Function GetTypedTableSchema(ByVal xs As System.Xml.Schema.XmlSchemaSet) As System.Xml.Schema.XmlSchemaComplexType
Dim type As System.Xml.Schema.XmlSchemaComplexType = New System.Xml.Schema.XmlSchemaComplexType
Dim sequence As System.Xml.Schema.XmlSchemaSequence = New System.Xml.Schema.XmlSchemaSequence
Dim ds As NorthwindDataSet = New NorthwindDataSet
xs.Add(ds.GetSchemaSerializable)
Dim any1 As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As System.Xml.Schema.XmlSchemaAttribute = New System.Xml.Schema.XmlSchemaAttribute
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As System.Xml.Schema.XmlSchemaAttribute = New System.Xml.Schema.XmlSchemaAttribute
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "Sales_by_CategoryDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Return type
End Function
End Class
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), _
System.Serializable(), _
System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class Sales_by_Category_FilteredDataTable
Inherits System.Data.DataTable
Implements System.Collections.IEnumerable
Private columnCategoryID As System.Data.DataColumn
Private columnCategoryName As System.Data.DataColumn
Private columnProductName As System.Data.DataColumn
Private columnProductSales As System.Data.DataColumn
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
MyBase.New
Me.TableName = "Sales by Category Filtered"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal table As System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Sub New(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property CategoryIDColumn() As System.Data.DataColumn
Get
Return Me.columnCategoryID
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property CategoryNameColumn() As System.Data.DataColumn
Get
Return Me.columnCategoryName
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ProductNameColumn() As System.Data.DataColumn
Get
Return Me.columnProductName
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ProductSalesColumn() As System.Data.DataColumn
Get
Return Me.columnProductSales
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Default ReadOnly Property Item(ByVal index As Integer) As Sales_by_Category_FilteredRow
Get
Return CType(Me.Rows(index),Sales_by_Category_FilteredRow)
End Get
End Property
Public Event Sales_by_Category_FilteredRowChanging As Sales_by_Category_FilteredRowChangeEventHandler
Public Event Sales_by_Category_FilteredRowChanged As Sales_by_Category_FilteredRowChangeEventHandler
Public Event Sales_by_Category_FilteredRowDeleting As Sales_by_Category_FilteredRowChangeEventHandler
Public Event Sales_by_Category_FilteredRowDeleted As Sales_by_Category_FilteredRowChangeEventHandler
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overloads Sub AddSales_by_Category_FilteredRow(ByVal row As Sales_by_Category_FilteredRow)
Me.Rows.Add(row)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overloads Function AddSales_by_Category_FilteredRow(ByVal CategoryName As String, ByVal ProductName As String, ByVal ProductSales As Decimal) As Sales_by_Category_FilteredRow
Dim rowSales_by_Category_FilteredRow As Sales_by_Category_FilteredRow = CType(Me.NewRow,Sales_by_Category_FilteredRow)
rowSales_by_Category_FilteredRow.ItemArray = New Object() {Nothing, CategoryName, ProductName, ProductSales}
Me.Rows.Add(rowSales_by_Category_FilteredRow)
Return rowSales_by_Category_FilteredRow
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overridable Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
Return Me.Rows.GetEnumerator
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overrides Function Clone() As System.Data.DataTable
Dim cln As Sales_by_Category_FilteredDataTable = CType(MyBase.Clone,Sales_by_Category_FilteredDataTable)
cln.InitVars
Return cln
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function CreateInstance() As System.Data.DataTable
Return New Sales_by_Category_FilteredDataTable
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub InitVars()
Me.columnCategoryID = MyBase.Columns("CategoryID")
Me.columnCategoryName = MyBase.Columns("CategoryName")
Me.columnProductName = MyBase.Columns("ProductName")
Me.columnProductSales = MyBase.Columns("ProductSales")
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitClass()
Me.columnCategoryID = New System.Data.DataColumn("CategoryID", GetType(Integer), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCategoryID)
Me.columnCategoryName = New System.Data.DataColumn("CategoryName", GetType(String), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCategoryName)
Me.columnProductName = New System.Data.DataColumn("ProductName", GetType(String), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnProductName)
Me.columnProductSales = New System.Data.DataColumn("ProductSales", GetType(Decimal), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnProductSales)
Me.columnCategoryID.AutoIncrement = true
Me.columnCategoryName.MaxLength = 15
Me.columnProductName.MaxLength = 40
Me.ExtendedProperties.Add("Generator_RowClassName", "Sales_by_Category_FilteredRow")
Me.ExtendedProperties.Add("Generator_RowEvArgName", "Sales_by_Category_FilteredRowChangeEvent")
Me.ExtendedProperties.Add("Generator_RowEvHandlerName", "Sales_by_Category_FilteredRowChangeEventHandler")
Me.ExtendedProperties.Add("Generator_TableClassName", "Sales_by_Category_FilteredDataTable")
Me.ExtendedProperties.Add("Generator_TablePropName", "Sales_by_Category_Filtered")
Me.ExtendedProperties.Add("Generator_TableVarName", "tableSales_by_Category_Filtered")
Me.ExtendedProperties.Add("Generator_UserTableName", "Sales by Category Filtered")
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function NewSales_by_Category_FilteredRow() As Sales_by_Category_FilteredRow
Return CType(Me.NewRow,Sales_by_Category_FilteredRow)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As System.Data.DataRowBuilder) As System.Data.DataRow
Return New Sales_by_Category_FilteredRow(builder)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function GetRowType() As System.Type
Return GetType(Sales_by_Category_FilteredRow)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanged(ByVal e As System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.Sales_by_Category_FilteredRowChangedEvent) Is Nothing) Then
RaiseEvent Sales_by_Category_FilteredRowChanged(Me, New Sales_by_Category_FilteredRowChangeEvent(CType(e.Row,Sales_by_Category_FilteredRow), e.Action))
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanging(ByVal e As System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.Sales_by_Category_FilteredRowChangingEvent) Is Nothing) Then
RaiseEvent Sales_by_Category_FilteredRowChanging(Me, New Sales_by_Category_FilteredRowChangeEvent(CType(e.Row,Sales_by_Category_FilteredRow), e.Action))
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleted(ByVal e As System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.Sales_by_Category_FilteredRowDeletedEvent) Is Nothing) Then
RaiseEvent Sales_by_Category_FilteredRowDeleted(Me, New Sales_by_Category_FilteredRowChangeEvent(CType(e.Row,Sales_by_Category_FilteredRow), e.Action))
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleting(ByVal e As System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.Sales_by_Category_FilteredRowDeletingEvent) Is Nothing) Then
RaiseEvent Sales_by_Category_FilteredRowDeleting(Me, New Sales_by_Category_FilteredRowChangeEvent(CType(e.Row,Sales_by_Category_FilteredRow), e.Action))
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub RemoveSales_by_Category_FilteredRow(ByVal row As Sales_by_Category_FilteredRow)
Me.Rows.Remove(row)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Shared Function GetTypedTableSchema(ByVal xs As System.Xml.Schema.XmlSchemaSet) As System.Xml.Schema.XmlSchemaComplexType
Dim type As System.Xml.Schema.XmlSchemaComplexType = New System.Xml.Schema.XmlSchemaComplexType
Dim sequence As System.Xml.Schema.XmlSchemaSequence = New System.Xml.Schema.XmlSchemaSequence
Dim ds As NorthwindDataSet = New NorthwindDataSet
xs.Add(ds.GetSchemaSerializable)
Dim any1 As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As System.Xml.Schema.XmlSchemaAttribute = New System.Xml.Schema.XmlSchemaAttribute
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As System.Xml.Schema.XmlSchemaAttribute = New System.Xml.Schema.XmlSchemaAttribute
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "Sales_by_Category_FilteredDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Return type
End Function
End Class
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), _
System.Serializable(), _
System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class CategoriesDataTable
Inherits System.Data.DataTable
Implements System.Collections.IEnumerable
Private columnCategoryID As System.Data.DataColumn
Private columnCategoryName As System.Data.DataColumn
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
MyBase.New
Me.TableName = "Categories"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal table As System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Sub New(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property CategoryIDColumn() As System.Data.DataColumn
Get
Return Me.columnCategoryID
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property CategoryNameColumn() As System.Data.DataColumn
Get
Return Me.columnCategoryName
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Default ReadOnly Property Item(ByVal index As Integer) As CategoriesRow
Get
Return CType(Me.Rows(index),CategoriesRow)
End Get
End Property
Public Event CategoriesRowChanging As CategoriesRowChangeEventHandler
Public Event CategoriesRowChanged As CategoriesRowChangeEventHandler
Public Event CategoriesRowDeleting As CategoriesRowChangeEventHandler
Public Event CategoriesRowDeleted As CategoriesRowChangeEventHandler
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overloads Sub AddCategoriesRow(ByVal row As CategoriesRow)
Me.Rows.Add(row)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overloads Function AddCategoriesRow(ByVal CategoryName As String) As CategoriesRow
Dim rowCategoriesRow As CategoriesRow = CType(Me.NewRow,CategoriesRow)
rowCategoriesRow.ItemArray = New Object() {Nothing, CategoryName}
Me.Rows.Add(rowCategoriesRow)
Return rowCategoriesRow
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function FindByCategoryID(ByVal CategoryID As Integer) As CategoriesRow
Return CType(Me.Rows.Find(New Object() {CategoryID}),CategoriesRow)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overridable Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
Return Me.Rows.GetEnumerator
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overrides Function Clone() As System.Data.DataTable
Dim cln As CategoriesDataTable = CType(MyBase.Clone,CategoriesDataTable)
cln.InitVars
Return cln
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function CreateInstance() As System.Data.DataTable
Return New CategoriesDataTable
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub InitVars()
Me.columnCategoryID = MyBase.Columns("CategoryID")
Me.columnCategoryName = MyBase.Columns("CategoryName")
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitClass()
Me.columnCategoryID = New System.Data.DataColumn("CategoryID", GetType(Integer), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCategoryID)
Me.columnCategoryName = New System.Data.DataColumn("CategoryName", GetType(String), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCategoryName)
Me.Constraints.Add(New System.Data.UniqueConstraint("Constraint1", New System.Data.DataColumn() {Me.columnCategoryID}, true))
Me.columnCategoryID.AutoIncrement = true
Me.columnCategoryID.AllowDBNull = false
Me.columnCategoryID.Unique = true
Me.columnCategoryName.MaxLength = 15
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function NewCategoriesRow() As CategoriesRow
Return CType(Me.NewRow,CategoriesRow)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As System.Data.DataRowBuilder) As System.Data.DataRow
Return New CategoriesRow(builder)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function GetRowType() As System.Type
Return GetType(CategoriesRow)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanged(ByVal e As System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.CategoriesRowChangedEvent) Is Nothing) Then
RaiseEvent CategoriesRowChanged(Me, New CategoriesRowChangeEvent(CType(e.Row,CategoriesRow), e.Action))
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanging(ByVal e As System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.CategoriesRowChangingEvent) Is Nothing) Then
RaiseEvent CategoriesRowChanging(Me, New CategoriesRowChangeEvent(CType(e.Row,CategoriesRow), e.Action))
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleted(ByVal e As System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.CategoriesRowDeletedEvent) Is Nothing) Then
RaiseEvent CategoriesRowDeleted(Me, New CategoriesRowChangeEvent(CType(e.Row,CategoriesRow), e.Action))
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleting(ByVal e As System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.CategoriesRowDeletingEvent) Is Nothing) Then
RaiseEvent CategoriesRowDeleting(Me, New CategoriesRowChangeEvent(CType(e.Row,CategoriesRow), e.Action))
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub RemoveCategoriesRow(ByVal row As CategoriesRow)
Me.Rows.Remove(row)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Shared Function GetTypedTableSchema(ByVal xs As System.Xml.Schema.XmlSchemaSet) As System.Xml.Schema.XmlSchemaComplexType
Dim type As System.Xml.Schema.XmlSchemaComplexType = New System.Xml.Schema.XmlSchemaComplexType
Dim sequence As System.Xml.Schema.XmlSchemaSequence = New System.Xml.Schema.XmlSchemaSequence
Dim ds As NorthwindDataSet = New NorthwindDataSet
xs.Add(ds.GetSchemaSerializable)
Dim any1 As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As System.Xml.Schema.XmlSchemaAttribute = New System.Xml.Schema.XmlSchemaAttribute
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As System.Xml.Schema.XmlSchemaAttribute = New System.Xml.Schema.XmlSchemaAttribute
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "CategoriesDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Return type
End Function
End Class
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Partial Public Class Sales_by_CategoryRow
Inherits System.Data.DataRow
Private tableSales_by_Category As Sales_by_CategoryDataTable
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal rb As System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableSales_by_Category = CType(Me.Table,Sales_by_CategoryDataTable)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property CategoryID() As Integer
Get
Try
Return CType(Me(Me.tableSales_by_Category.CategoryIDColumn),Integer)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'CategoryID' in table 'Sales by Category' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableSales_by_Category.CategoryIDColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property CategoryName() As String
Get
Try
Return CType(Me(Me.tableSales_by_Category.CategoryNameColumn),String)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'CategoryName' in table 'Sales by Category' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableSales_by_Category.CategoryNameColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ProductName() As String
Get
Try
Return CType(Me(Me.tableSales_by_Category.ProductNameColumn),String)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'ProductName' in table 'Sales by Category' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableSales_by_Category.ProductNameColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ProductSales() As Decimal
Get
Try
Return CType(Me(Me.tableSales_by_Category.ProductSalesColumn),Decimal)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'ProductSales' in table 'Sales by Category' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableSales_by_Category.ProductSalesColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsCategoryIDNull() As Boolean
Return Me.IsNull(Me.tableSales_by_Category.CategoryIDColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetCategoryIDNull()
Me(Me.tableSales_by_Category.CategoryIDColumn) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsCategoryNameNull() As Boolean
Return Me.IsNull(Me.tableSales_by_Category.CategoryNameColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetCategoryNameNull()
Me(Me.tableSales_by_Category.CategoryNameColumn) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsProductNameNull() As Boolean
Return Me.IsNull(Me.tableSales_by_Category.ProductNameColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetProductNameNull()
Me(Me.tableSales_by_Category.ProductNameColumn) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsProductSalesNull() As Boolean
Return Me.IsNull(Me.tableSales_by_Category.ProductSalesColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetProductSalesNull()
Me(Me.tableSales_by_Category.ProductSalesColumn) = System.Convert.DBNull
End Sub
End Class
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Partial Public Class Sales_by_Category_FilteredRow
Inherits System.Data.DataRow
Private tableSales_by_Category_Filtered As Sales_by_Category_FilteredDataTable
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal rb As System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableSales_by_Category_Filtered = CType(Me.Table,Sales_by_Category_FilteredDataTable)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property CategoryID() As Integer
Get
Try
Return CType(Me(Me.tableSales_by_Category_Filtered.CategoryIDColumn),Integer)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'CategoryID' in table 'Sales by Category Filtered' is DBNull"& _
".", e)
End Try
End Get
Set
Me(Me.tableSales_by_Category_Filtered.CategoryIDColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property CategoryName() As String
Get
Try
Return CType(Me(Me.tableSales_by_Category_Filtered.CategoryNameColumn),String)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'CategoryName' in table 'Sales by Category Filtered' is DBNu"& _
"ll.", e)
End Try
End Get
Set
Me(Me.tableSales_by_Category_Filtered.CategoryNameColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ProductName() As String
Get
Try
Return CType(Me(Me.tableSales_by_Category_Filtered.ProductNameColumn),String)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'ProductName' in table 'Sales by Category Filtered' is DBNul"& _
"l.", e)
End Try
End Get
Set
Me(Me.tableSales_by_Category_Filtered.ProductNameColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ProductSales() As Decimal
Get
Try
Return CType(Me(Me.tableSales_by_Category_Filtered.ProductSalesColumn),Decimal)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'ProductSales' in table 'Sales by Category Filtered' is DBNu"& _
"ll.", e)
End Try
End Get
Set
Me(Me.tableSales_by_Category_Filtered.ProductSalesColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsCategoryIDNull() As Boolean
Return Me.IsNull(Me.tableSales_by_Category_Filtered.CategoryIDColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetCategoryIDNull()
Me(Me.tableSales_by_Category_Filtered.CategoryIDColumn) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsCategoryNameNull() As Boolean
Return Me.IsNull(Me.tableSales_by_Category_Filtered.CategoryNameColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetCategoryNameNull()
Me(Me.tableSales_by_Category_Filtered.CategoryNameColumn) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsProductNameNull() As Boolean
Return Me.IsNull(Me.tableSales_by_Category_Filtered.ProductNameColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetProductNameNull()
Me(Me.tableSales_by_Category_Filtered.ProductNameColumn) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsProductSalesNull() As Boolean
Return Me.IsNull(Me.tableSales_by_Category_Filtered.ProductSalesColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetProductSalesNull()
Me(Me.tableSales_by_Category_Filtered.ProductSalesColumn) = System.Convert.DBNull
End Sub
End Class
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Partial Public Class CategoriesRow
Inherits System.Data.DataRow
Private tableCategories As CategoriesDataTable
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal rb As System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableCategories = CType(Me.Table,CategoriesDataTable)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property CategoryID() As Integer
Get
Return CType(Me(Me.tableCategories.CategoryIDColumn),Integer)
End Get
Set
Me(Me.tableCategories.CategoryIDColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property CategoryName() As String
Get
Try
Return CType(Me(Me.tableCategories.CategoryNameColumn),String)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'CategoryName' in table 'Categories' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableCategories.CategoryNameColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsCategoryNameNull() As Boolean
Return Me.IsNull(Me.tableCategories.CategoryNameColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetCategoryNameNull()
Me(Me.tableCategories.CategoryNameColumn) = System.Convert.DBNull
End Sub
End Class
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Public Class Sales_by_CategoryRowChangeEvent
Inherits System.EventArgs
Private eventRow As Sales_by_CategoryRow
Private eventAction As System.Data.DataRowAction
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New(ByVal row As Sales_by_CategoryRow, ByVal action As System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Row() As Sales_by_CategoryRow
Get
Return Me.eventRow
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Action() As System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Public Class Sales_by_Category_FilteredRowChangeEvent
Inherits System.EventArgs
Private eventRow As Sales_by_Category_FilteredRow
Private eventAction As System.Data.DataRowAction
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New(ByVal row As Sales_by_Category_FilteredRow, ByVal action As System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Row() As Sales_by_Category_FilteredRow
Get
Return Me.eventRow
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Action() As System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Public Class CategoriesRowChangeEvent
Inherits System.EventArgs
Private eventRow As CategoriesRow
Private eventAction As System.Data.DataRowAction
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New(ByVal row As CategoriesRow, ByVal action As System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Row() As CategoriesRow
Get
Return Me.eventRow
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Action() As System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
End Class
Namespace NorthwindDataSetTableAdapters
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.ComponentModel.ToolboxItem(true), _
System.ComponentModel.DataObjectAttribute(true), _
System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Partial Public Class Sales_by_CategoryTableAdapter
Inherits System.ComponentModel.Component
Private WithEvents _adapter As System.Data.OleDb.OleDbDataAdapter
Private _connection As System.Data.OleDb.OleDbConnection
Private _commandCollection() As System.Data.OleDb.OleDbCommand
Private _clearBeforeFill As Boolean
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
MyBase.New
Me.ClearBeforeFill = true
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private ReadOnly Property Adapter() As System.Data.OleDb.OleDbDataAdapter
Get
If (Me._adapter Is Nothing) Then
Me.InitAdapter
End If
Return Me._adapter
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Property Connection() As System.Data.OleDb.OleDbConnection
Get
If (Me._connection Is Nothing) Then
Me.InitConnection
End If
Return Me._connection
End Get
Set
Me._connection = value
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
Me.Adapter.InsertCommand.Connection = value
End If
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
Me.Adapter.DeleteCommand.Connection = value
End If
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
Me.Adapter.UpdateCommand.Connection = value
End If
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
If (Not (Me.CommandCollection(i)) Is Nothing) Then
CType(Me.CommandCollection(i),System.Data.OleDb.OleDbCommand).Connection = value
End If
i = (i + 1)
Loop
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected ReadOnly Property CommandCollection() As System.Data.OleDb.OleDbCommand()
Get
If (Me._commandCollection Is Nothing) Then
Me.InitCommandCollection
End If
Return Me._commandCollection
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set
Me._clearBeforeFill = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitAdapter()
Me._adapter = New System.Data.OleDb.OleDbDataAdapter
Dim tableMapping As System.Data.Common.DataTableMapping = New System.Data.Common.DataTableMapping
tableMapping.SourceTable = "Table"
tableMapping.DataSetTable = "Sales by Category"
tableMapping.ColumnMappings.Add("CategoryID", "CategoryID")
tableMapping.ColumnMappings.Add("CategoryName", "CategoryName")
tableMapping.ColumnMappings.Add("ProductName", "ProductName")
tableMapping.ColumnMappings.Add("ProductSales", "ProductSales")
Me._adapter.TableMappings.Add(tableMapping)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitConnection()
Me._connection = New System.Data.OleDb.OleDbConnection
Me._connection.ConnectionString = Global.WindowsApplication4.My.MySettings.Default.NorthwindConnectionString
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitCommandCollection()
Me._commandCollection = New System.Data.OleDb.OleDbCommand(0) {}
Me._commandCollection(0) = New System.Data.OleDb.OleDbCommand
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT CategoryID, CategoryName, ProductName, ProductSales"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM [Sal"& _
"es by Category]"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)
Me._commandCollection(0).CommandType = System.Data.CommandType.Text
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
System.ComponentModel.DataObjectMethodAttribute(System.ComponentModel.DataObjectMethodType.Fill, true)> _
Public Overloads Overridable Function Fill(ByVal dataTable As NorthwindDataSet.Sales_by_CategoryDataTable) As Integer
Me.Adapter.SelectCommand = Me.CommandCollection(0)
If (Me.ClearBeforeFill = true) Then
dataTable.Clear
End If
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
Return returnValue
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
System.ComponentModel.DataObjectMethodAttribute(System.ComponentModel.DataObjectMethodType.[Select], true)> _
Public Overloads Overridable Function GetData() As NorthwindDataSet.Sales_by_CategoryDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Dim dataTable As NorthwindDataSet.Sales_by_CategoryDataTable = New NorthwindDataSet.Sales_by_CategoryDataTable
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
End Class
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.ComponentModel.ToolboxItem(true), _
System.ComponentModel.DataObjectAttribute(true), _
System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Partial Public Class Sales_by_Category_FilteredTableAdapter
Inherits System.ComponentModel.Component
Private WithEvents _adapter As System.Data.OleDb.OleDbDataAdapter
Private _connection As System.Data.OleDb.OleDbConnection
Private _commandCollection() As System.Data.OleDb.OleDbCommand
Private _clearBeforeFill As Boolean
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
MyBase.New
Me.ClearBeforeFill = true
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private ReadOnly Property Adapter() As System.Data.OleDb.OleDbDataAdapter
Get
If (Me._adapter Is Nothing) Then
Me.InitAdapter
End If
Return Me._adapter
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Property Connection() As System.Data.OleDb.OleDbConnection
Get
If (Me._connection Is Nothing) Then
Me.InitConnection
End If
Return Me._connection
End Get
Set
Me._connection = value
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
Me.Adapter.InsertCommand.Connection = value
End If
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
Me.Adapter.DeleteCommand.Connection = value
End If
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
Me.Adapter.UpdateCommand.Connection = value
End If
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
If (Not (Me.CommandCollection(i)) Is Nothing) Then
CType(Me.CommandCollection(i),System.Data.OleDb.OleDbCommand).Connection = value
End If
i = (i + 1)
Loop
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected ReadOnly Property CommandCollection() As System.Data.OleDb.OleDbCommand()
Get
If (Me._commandCollection Is Nothing) Then
Me.InitCommandCollection
End If
Return Me._commandCollection
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set
Me._clearBeforeFill = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitAdapter()
Me._adapter = New System.Data.OleDb.OleDbDataAdapter
Dim tableMapping As System.Data.Common.DataTableMapping = New System.Data.Common.DataTableMapping
tableMapping.SourceTable = "Table"
tableMapping.DataSetTable = "Sales by Category Filtered"
tableMapping.ColumnMappings.Add("CategoryID", "CategoryID")
tableMapping.ColumnMappings.Add("CategoryName", "CategoryName")
tableMapping.ColumnMappings.Add("ProductName", "ProductName")
tableMapping.ColumnMappings.Add("ProductSales", "ProductSales")
Me._adapter.TableMappings.Add(tableMapping)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitConnection()
Me._connection = New System.Data.OleDb.OleDbConnection
Me._connection.ConnectionString = Global.WindowsApplication4.My.MySettings.Default.NorthwindConnectionString
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitCommandCollection()
Me._commandCollection = New System.Data.OleDb.OleDbCommand(0) {}
Me._commandCollection(0) = New System.Data.OleDb.OleDbCommand
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT CategoryID, CategoryName, ProductName, ProductSales"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM [Sal"& _
"es by Category]"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (CategoryID = ?)"
Me._commandCollection(0).CommandType = System.Data.CommandType.Text
Me._commandCollection(0).Parameters.Add(New System.Data.OleDb.OleDbParameter("CategoryID", System.Data.OleDb.OleDbType.[Integer], 0, System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CategoryID", System.Data.DataRowVersion.Current, false, Nothing))
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
System.ComponentModel.DataObjectMethodAttribute(System.ComponentModel.DataObjectMethodType.Fill, true)> _
Public Overloads Overridable Function Fill(ByVal dataTable As NorthwindDataSet.Sales_by_Category_FilteredDataTable, ByVal CategoryID As Integer) As Integer
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Me.Adapter.SelectCommand.Parameters(0).Value = CType(CategoryID,Integer)
If (Me.ClearBeforeFill = true) Then
dataTable.Clear
End If
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
Return returnValue
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
System.ComponentModel.DataObjectMethodAttribute(System.ComponentModel.DataObjectMethodType.[Select], true)> _
Public Overloads Overridable Function GetData(ByVal CategoryID As Integer) As NorthwindDataSet.Sales_by_Category_FilteredDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Me.Adapter.SelectCommand.Parameters(0).Value = CType(CategoryID,Integer)
Dim dataTable As NorthwindDataSet.Sales_by_Category_FilteredDataTable = New NorthwindDataSet.Sales_by_Category_FilteredDataTable
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
End Class
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.ComponentModel.ToolboxItem(true), _
System.ComponentModel.DataObjectAttribute(true), _
System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Partial Public Class CategoriesTableAdapter
Inherits System.ComponentModel.Component
Private WithEvents _adapter As System.Data.OleDb.OleDbDataAdapter
Private _connection As System.Data.OleDb.OleDbConnection
Private _commandCollection() As System.Data.OleDb.OleDbCommand
Private _clearBeforeFill As Boolean
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
MyBase.New
Me.ClearBeforeFill = true
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private ReadOnly Property Adapter() As System.Data.OleDb.OleDbDataAdapter
Get
If (Me._adapter Is Nothing) Then
Me.InitAdapter
End If
Return Me._adapter
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Property Connection() As System.Data.OleDb.OleDbConnection
Get
If (Me._connection Is Nothing) Then
Me.InitConnection
End If
Return Me._connection
End Get
Set
Me._connection = value
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
Me.Adapter.InsertCommand.Connection = value
End If
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
Me.Adapter.DeleteCommand.Connection = value
End If
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
Me.Adapter.UpdateCommand.Connection = value
End If
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
If (Not (Me.CommandCollection(i)) Is Nothing) Then
CType(Me.CommandCollection(i),System.Data.OleDb.OleDbCommand).Connection = value
End If
i = (i + 1)
Loop
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected ReadOnly Property CommandCollection() As System.Data.OleDb.OleDbCommand()
Get
If (Me._commandCollection Is Nothing) Then
Me.InitCommandCollection
End If
Return Me._commandCollection
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set
Me._clearBeforeFill = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitAdapter()
Me._adapter = New System.Data.OleDb.OleDbDataAdapter
Dim tableMapping As System.Data.Common.DataTableMapping = New System.Data.Common.DataTableMapping
tableMapping.SourceTable = "Table"
tableMapping.DataSetTable = "Categories"
tableMapping.ColumnMappings.Add("CategoryID", "CategoryID")
tableMapping.ColumnMappings.Add("CategoryName", "CategoryName")
Me._adapter.TableMappings.Add(tableMapping)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitConnection()
Me._connection = New System.Data.OleDb.OleDbConnection
Me._connection.ConnectionString = Global.WindowsApplication4.My.MySettings.Default.NorthwindConnectionString
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitCommandCollection()
Me._commandCollection = New System.Data.OleDb.OleDbCommand(0) {}
Me._commandCollection(0) = New System.Data.OleDb.OleDbCommand
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT CategoryID, CategoryName"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Categories"
Me._commandCollection(0).CommandType = System.Data.CommandType.Text
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
System.ComponentModel.DataObjectMethodAttribute(System.ComponentModel.DataObjectMethodType.Fill, true)> _
Public Overloads Overridable Function Fill(ByVal dataTable As NorthwindDataSet.CategoriesDataTable) As Integer
Me.Adapter.SelectCommand = Me.CommandCollection(0)
If (Me.ClearBeforeFill = true) Then
dataTable.Clear
End If
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
Return returnValue
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
System.ComponentModel.DataObjectMethodAttribute(System.ComponentModel.DataObjectMethodType.[Select], true)> _
Public Overloads Overridable Function GetData() As NorthwindDataSet.CategoriesDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Dim dataTable As NorthwindDataSet.CategoriesDataTable = New NorthwindDataSet.CategoriesDataTable
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
End Class
End Namespace