Mini Kabibi Habibi
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:2.0.50727.5448
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
'INSTANT VB TODO TASK: There is no equivalent to #pragma directives in VB.NET:
'#pragma warning disable 1591
Imports Microsoft.VisualBasic
Imports System
Namespace SnapDemos
''' <summary>
'''Represents a strongly typed in-memory cache of data.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), Global.System.Serializable(), Global.System.ComponentModel.DesignerCategoryAttribute("code"), Global.System.ComponentModel.ToolboxItem(True), Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), Global.System.Xml.Serialization.XmlRootAttribute("nwindDataSet"), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
Partial Public Class nwindDataSet
Inherits System.Data.DataSet
Private tableShippers As ShippersDataTable
Private tableOrders As OrdersDataTable
Private tableOrder_Details As Order_DetailsDataTable
Private tableCategories As CategoriesDataTable
Private tableProducts As ProductsDataTable
Private tableCustomers As CustomersDataTable
Private tableEmployees As EmployeesDataTable
Private tableSuppliers As SuppliersDataTable
Private tableOrderReports As OrderReportsDataTable
Private relationShippersOrders As Global.System.Data.DataRelation
Private relationOrdersOrder_Details As Global.System.Data.DataRelation
Private relationProductsOrder_Details As Global.System.Data.DataRelation
Private relationCategoriesProducts As Global.System.Data.DataRelation
Private relationCustomersOrders As Global.System.Data.DataRelation
Private relationEmployeesOrders As Global.System.Data.DataRelation
Private relationSuppliersProducts As Global.System.Data.DataRelation
Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
Me.BeginInit()
Me.InitClass()
Dim schemaChangedHandler As New Global.System.ComponentModel.CollectionChangeEventHandler(AddressOf Me.SchemaChanged)
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
Me.EndInit()
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context, False)
If (Me.IsBinarySerialized(info, context) = True) Then
Me.InitVars(False)
Dim schemaChangedHandler1 As New Global.System.ComponentModel.CollectionChangeEventHandler(AddressOf Me.SchemaChanged)
AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
Return
End If
Dim strSchema As String = (CStr(info.GetValue("XmlSchema", GetType(String))))
If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Dim ds As New Global.System.Data.DataSet()
ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
If (ds.Tables("Shippers") IsNot Nothing) Then
MyBase.Tables.Add(New ShippersDataTable(ds.Tables("Shippers")))
End If
If (ds.Tables("Orders") IsNot Nothing) Then
MyBase.Tables.Add(New OrdersDataTable(ds.Tables("Orders")))
End If
If (ds.Tables("Order Details") IsNot Nothing) Then
MyBase.Tables.Add(New Order_DetailsDataTable(ds.Tables("Order Details")))
End If
If (ds.Tables("Categories") IsNot Nothing) Then
MyBase.Tables.Add(New CategoriesDataTable(ds.Tables("Categories")))
End If
If (ds.Tables("Products") IsNot Nothing) Then
MyBase.Tables.Add(New ProductsDataTable(ds.Tables("Products")))
End If
If (ds.Tables("Customers") IsNot Nothing) Then
MyBase.Tables.Add(New CustomersDataTable(ds.Tables("Customers")))
End If
If (ds.Tables("Employees") IsNot Nothing) Then
MyBase.Tables.Add(New EmployeesDataTable(ds.Tables("Employees")))
End If
If (ds.Tables("Suppliers") IsNot Nothing) Then
MyBase.Tables.Add(New SuppliersDataTable(ds.Tables("Suppliers")))
End If
If (ds.Tables("OrderReports") IsNot Nothing) Then
MyBase.Tables.Add(New OrderReportsDataTable(ds.Tables("OrderReports")))
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, Global.System.Data.MissingSchemaAction.Add)
Me.InitVars()
Else
Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
End If
Me.GetSerializationData(info, context)
Dim schemaChangedHandler As New Global.System.ComponentModel.CollectionChangeEventHandler(AddressOf Me.SchemaChanged)
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Browsable(False), Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property Shippers() As ShippersDataTable
Get
Return Me.tableShippers
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Browsable(False), Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property Orders() As OrdersDataTable
Get
Return Me.tableOrders
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Browsable(False), Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property Order_Details() As Order_DetailsDataTable
Get
Return Me.tableOrder_Details
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Browsable(False), Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property Categories() As CategoriesDataTable
Get
Return Me.tableCategories
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Browsable(False), Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property Products() As ProductsDataTable
Get
Return Me.tableProducts
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Browsable(False), Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property Customers() As CustomersDataTable
Get
Return Me.tableCustomers
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Browsable(False), Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property Employees() As EmployeesDataTable
Get
Return Me.tableEmployees
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Browsable(False), Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property Suppliers() As SuppliersDataTable
Get
Return Me.tableSuppliers
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Browsable(False), Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property OrderReports() As OrderReportsDataTable
Get
Return Me.tableOrderReports
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.BrowsableAttribute(True), Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
Get
Return Me._schemaSerializationMode
End Get
Set(ByVal value As System.Data.SchemaSerializationMode)
Me._schemaSerializationMode = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
Get
Return MyBase.Tables
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
Get
Return MyBase.Relations
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub InitializeDerivedDataSet()
Me.BeginInit()
Me.InitClass()
Me.EndInit()
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overrides Function Clone() As Global.System.Data.DataSet
Dim cln As nwindDataSet = (CType(MyBase.Clone(), nwindDataSet))
cln.InitVars()
cln.SchemaSerializationMode = Me.SchemaSerializationMode
Return cln
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function ShouldSerializeTables() As Boolean
Return False
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function ShouldSerializeRelations() As Boolean
Return False
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Me.Reset()
Dim ds As New Global.System.Data.DataSet()
ds.ReadXml(reader)
If (ds.Tables("Shippers") IsNot Nothing) Then
MyBase.Tables.Add(New ShippersDataTable(ds.Tables("Shippers")))
End If
If (ds.Tables("Orders") IsNot Nothing) Then
MyBase.Tables.Add(New OrdersDataTable(ds.Tables("Orders")))
End If
If (ds.Tables("Order Details") IsNot Nothing) Then
MyBase.Tables.Add(New Order_DetailsDataTable(ds.Tables("Order Details")))
End If
If (ds.Tables("Categories") IsNot Nothing) Then
MyBase.Tables.Add(New CategoriesDataTable(ds.Tables("Categories")))
End If
If (ds.Tables("Products") IsNot Nothing) Then
MyBase.Tables.Add(New ProductsDataTable(ds.Tables("Products")))
End If
If (ds.Tables("Customers") IsNot Nothing) Then
MyBase.Tables.Add(New CustomersDataTable(ds.Tables("Customers")))
End If
If (ds.Tables("Employees") IsNot Nothing) Then
MyBase.Tables.Add(New EmployeesDataTable(ds.Tables("Employees")))
End If
If (ds.Tables("Suppliers") IsNot Nothing) Then
MyBase.Tables.Add(New SuppliersDataTable(ds.Tables("Suppliers")))
End If
If (ds.Tables("OrderReports") IsNot Nothing) Then
MyBase.Tables.Add(New OrderReportsDataTable(ds.Tables("OrderReports")))
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, Global.System.Data.MissingSchemaAction.Add)
Me.InitVars()
Else
Me.ReadXml(reader)
Me.InitVars()
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
Dim stream As New Global.System.IO.MemoryStream()
Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
stream.Position = 0
Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub InitVars()
Me.InitVars(True)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub InitVars(ByVal initTable As Boolean)
Me.tableShippers = (CType(MyBase.Tables("Shippers"), ShippersDataTable))
If (initTable = True) Then
If (Me.tableShippers IsNot Nothing) Then
Me.tableShippers.InitVars()
End If
End If
Me.tableOrders = (CType(MyBase.Tables("Orders"), OrdersDataTable))
If (initTable = True) Then
If (Me.tableOrders IsNot Nothing) Then
Me.tableOrders.InitVars()
End If
End If
Me.tableOrder_Details = (CType(MyBase.Tables("Order Details"), Order_DetailsDataTable))
If (initTable = True) Then
If (Me.tableOrder_Details IsNot Nothing) Then
Me.tableOrder_Details.InitVars()
End If
End If
Me.tableCategories = (CType(MyBase.Tables("Categories"), CategoriesDataTable))
If (initTable = True) Then
If (Me.tableCategories IsNot Nothing) Then
Me.tableCategories.InitVars()
End If
End If
Me.tableProducts = (CType(MyBase.Tables("Products"), ProductsDataTable))
If (initTable = True) Then
If (Me.tableProducts IsNot Nothing) Then
Me.tableProducts.InitVars()
End If
End If
Me.tableCustomers = (CType(MyBase.Tables("Customers"), CustomersDataTable))
If (initTable = True) Then
If (Me.tableCustomers IsNot Nothing) Then
Me.tableCustomers.InitVars()
End If
End If
Me.tableEmployees = (CType(MyBase.Tables("Employees"), EmployeesDataTable))
If (initTable = True) Then
If (Me.tableEmployees IsNot Nothing) Then
Me.tableEmployees.InitVars()
End If
End If
Me.tableSuppliers = (CType(MyBase.Tables("Suppliers"), SuppliersDataTable))
If (initTable = True) Then
If (Me.tableSuppliers IsNot Nothing) Then
Me.tableSuppliers.InitVars()
End If
End If
Me.tableOrderReports = (CType(MyBase.Tables("OrderReports"), OrderReportsDataTable))
If (initTable = True) Then
If (Me.tableOrderReports IsNot Nothing) Then
Me.tableOrderReports.InitVars()
End If
End If
Me.relationShippersOrders = Me.Relations("ShippersOrders")
Me.relationOrdersOrder_Details = Me.Relations("OrdersOrder Details")
Me.relationProductsOrder_Details = Me.Relations("ProductsOrder Details")
Me.relationCategoriesProducts = Me.Relations("CategoriesProducts")
Me.relationCustomersOrders = Me.Relations("CustomersOrders")
Me.relationEmployeesOrders = Me.Relations("EmployeesOrders")
Me.relationSuppliersProducts = Me.Relations("SuppliersProducts")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitClass()
Me.DataSetName = "nwindDataSet"
Me.Prefix = ""
Me.Namespace = "http://tempuri.org/nwindDataSet.xsd"
Me.EnforceConstraints = True
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
Me.tableShippers = New ShippersDataTable()
MyBase.Tables.Add(Me.tableShippers)
Me.tableOrders = New OrdersDataTable()
MyBase.Tables.Add(Me.tableOrders)
Me.tableOrder_Details = New Order_DetailsDataTable()
MyBase.Tables.Add(Me.tableOrder_Details)
Me.tableCategories = New CategoriesDataTable()
MyBase.Tables.Add(Me.tableCategories)
Me.tableProducts = New ProductsDataTable()
MyBase.Tables.Add(Me.tableProducts)
Me.tableCustomers = New CustomersDataTable()
MyBase.Tables.Add(Me.tableCustomers)
Me.tableEmployees = New EmployeesDataTable()
MyBase.Tables.Add(Me.tableEmployees)
Me.tableSuppliers = New SuppliersDataTable()
MyBase.Tables.Add(Me.tableSuppliers)
Me.tableOrderReports = New OrderReportsDataTable()
MyBase.Tables.Add(Me.tableOrderReports)
Me.relationShippersOrders = New Global.System.Data.DataRelation("ShippersOrders", New Global.System.Data.DataColumn() { Me.tableShippers.ShipperIDColumn}, New Global.System.Data.DataColumn() { Me.tableOrders.ShipViaColumn}, False)
Me.Relations.Add(Me.relationShippersOrders)
Me.relationOrdersOrder_Details = New Global.System.Data.DataRelation("OrdersOrder Details", New Global.System.Data.DataColumn() { Me.tableOrders.OrderIDColumn}, New Global.System.Data.DataColumn() { Me.tableOrder_Details.OrderIDColumn}, False)
Me.Relations.Add(Me.relationOrdersOrder_Details)
Me.relationProductsOrder_Details = New Global.System.Data.DataRelation("ProductsOrder Details", New Global.System.Data.DataColumn() { Me.tableProducts.ProductIDColumn}, New Global.System.Data.DataColumn() { Me.tableOrder_Details.ProductIDColumn}, False)
Me.Relations.Add(Me.relationProductsOrder_Details)
Me.relationCategoriesProducts = New Global.System.Data.DataRelation("CategoriesProducts", New Global.System.Data.DataColumn() { Me.tableCategories.CategoryIDColumn}, New Global.System.Data.DataColumn() { Me.tableProducts.CategoryIDColumn}, False)
Me.Relations.Add(Me.relationCategoriesProducts)
Me.relationCustomersOrders = New Global.System.Data.DataRelation("CustomersOrders", New Global.System.Data.DataColumn() { Me.tableCustomers.CustomerIDColumn}, New Global.System.Data.DataColumn() { Me.tableOrders.CustomerIDColumn}, False)
Me.Relations.Add(Me.relationCustomersOrders)
Me.relationEmployeesOrders = New Global.System.Data.DataRelation("EmployeesOrders", New Global.System.Data.DataColumn() { Me.tableEmployees.EmployeeIDColumn}, New Global.System.Data.DataColumn() { Me.tableOrders.EmployeeIDColumn}, False)
Me.Relations.Add(Me.relationEmployeesOrders)
Me.relationSuppliersProducts = New Global.System.Data.DataRelation("SuppliersProducts", New Global.System.Data.DataColumn() { Me.tableSuppliers.SupplierIDColumn}, New Global.System.Data.DataColumn() { Me.tableProducts.SupplierIDColumn}, False)
Me.Relations.Add(Me.relationSuppliersProducts)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Function ShouldSerializeShippers() As Boolean
Return False
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Function ShouldSerializeOrders() As Boolean
Return False
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Function ShouldSerializeOrder_Details() As Boolean
Return False
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Function ShouldSerializeCategories() As Boolean
Return False
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Function ShouldSerializeProducts() As Boolean
Return False
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Function ShouldSerializeCustomers() As Boolean
Return False
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Function ShouldSerializeEmployees() As Boolean
Return False
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Function ShouldSerializeSuppliers() As Boolean
Return False
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Function ShouldSerializeOrderReports() As Boolean
Return False
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
Me.InitVars()
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim ds As New nwindDataSet()
Dim type As New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As New Global.System.Xml.Schema.XmlSchemaSequence()
Dim any As New Global.System.Xml.Schema.XmlSchemaAny()
any.Namespace = ds.Namespace
sequence.Items.Add(any)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable()
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As New Global.System.IO.MemoryStream()
Dim s2 As New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator()
Do While schemas.MoveNext()
schema = (CType(schemas.Current, Global.System.Xml.Schema.XmlSchema))
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) AndAlso (s1.ReadByte() = s2.ReadByte()))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (s1 IsNot Nothing) Then
s1.Close()
End If
If (s2 IsNot Nothing) Then
s2.Close()
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
Public Delegate Sub ShippersRowChangeEventHandler(ByVal sender As Object, ByVal e As ShippersRowChangeEvent)
Public Delegate Sub OrdersRowChangeEventHandler(ByVal sender As Object, ByVal e As OrdersRowChangeEvent)
Public Delegate Sub Order_DetailsRowChangeEventHandler(ByVal sender As Object, ByVal e As Order_DetailsRowChangeEvent)
Public Delegate Sub CategoriesRowChangeEventHandler(ByVal sender As Object, ByVal e As CategoriesRowChangeEvent)
Public Delegate Sub ProductsRowChangeEventHandler(ByVal sender As Object, ByVal e As ProductsRowChangeEvent)
Public Delegate Sub CustomersRowChangeEventHandler(ByVal sender As Object, ByVal e As CustomersRowChangeEvent)
Public Delegate Sub EmployeesRowChangeEventHandler(ByVal sender As Object, ByVal e As EmployeesRowChangeEvent)
Public Delegate Sub SuppliersRowChangeEventHandler(ByVal sender As Object, ByVal e As SuppliersRowChangeEvent)
Public Delegate Sub OrderReportsRowChangeEventHandler(ByVal sender As Object, ByVal e As OrderReportsRowChangeEvent)
''' <summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), Global.System.Serializable(), Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class ShippersDataTable
Inherits System.Data.TypedTableBase(Of ShippersRow)
Private columnShipperID As Global.System.Data.DataColumn
Private columnCompanyName As Global.System.Data.DataColumn
Private columnPhone As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
Me.TableName = "Shippers"
Me.BeginInit()
Me.InitClass()
Me.EndInit()
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars()
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ShipperIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnShipperID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property CompanyNameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCompanyName
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property PhoneColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPhone
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Browsable(False)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Default Public ReadOnly Property Item(ByVal index As Integer) As ShippersRow
Get
Return (CType(Me.Rows(index), ShippersRow))
End Get
End Property
Public Event ShippersRowChanging As ShippersRowChangeEventHandler
Public Event ShippersRowChanged As ShippersRowChangeEventHandler
Public Event ShippersRowDeleting As ShippersRowChangeEventHandler
Public Event ShippersRowDeleted As ShippersRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub AddShippersRow(ByVal row As ShippersRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function AddShippersRow(ByVal CompanyName As String, ByVal Phone As String) As ShippersRow
Dim rowShippersRow As ShippersRow = (CType(Me.NewRow(), ShippersRow))
Dim columnValuesArray() As Object = { Nothing, CompanyName, Phone}
rowShippersRow.ItemArray = columnValuesArray
Me.Rows.Add(rowShippersRow)
Return rowShippersRow
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function FindByShipperID(ByVal ShipperID As Integer) As ShippersRow
Return (CType(Me.Rows.Find(New Object() { ShipperID}), ShippersRow))
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As ShippersDataTable = (CType(MyBase.Clone(), ShippersDataTable))
cln.InitVars()
Return cln
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New ShippersDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub InitVars()
Me.columnShipperID = MyBase.Columns("ShipperID")
Me.columnCompanyName = MyBase.Columns("CompanyName")
Me.columnPhone = MyBase.Columns("Phone")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitClass()
Me.columnShipperID = New Global.System.Data.DataColumn("ShipperID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnShipperID)
Me.columnCompanyName = New Global.System.Data.DataColumn("CompanyName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCompanyName)
Me.columnPhone = New Global.System.Data.DataColumn("Phone", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPhone)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() { Me.columnShipperID}, True))
Me.columnShipperID.AutoIncrement = True
Me.columnShipperID.AutoIncrementSeed = -1
Me.columnShipperID.AutoIncrementStep = -1
Me.columnShipperID.AllowDBNull = False
Me.columnShipperID.Unique = True
Me.columnCompanyName.MaxLength = 40
Me.columnPhone.MaxLength = 24
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function NewShippersRow() As ShippersRow
Return (CType(Me.NewRow(), ShippersRow))
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New ShippersRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(ShippersRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Me.ShippersRowChangedEvent IsNot Nothing) Then
RaiseEvent ShippersRowChanged(Me, New ShippersRowChangeEvent((CType(e.Row, ShippersRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Me.ShippersRowChangingEvent IsNot Nothing) Then
RaiseEvent ShippersRowChanging(Me, New ShippersRowChangeEvent((CType(e.Row, ShippersRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Me.ShippersRowDeletedEvent IsNot Nothing) Then
RaiseEvent ShippersRowDeleted(Me, New ShippersRowChangeEvent((CType(e.Row, ShippersRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Me.ShippersRowDeletingEvent IsNot Nothing) Then
RaiseEvent ShippersRowDeleting(Me, New ShippersRowChangeEvent((CType(e.Row, ShippersRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub RemoveShippersRow(ByVal row As ShippersRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As New nwindDataSet()
Dim any1 As New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "ShippersDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable()
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As New Global.System.IO.MemoryStream()
Dim s2 As New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator()
Do While schemas.MoveNext()
schema = (CType(schemas.Current, Global.System.Xml.Schema.XmlSchema))
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) AndAlso (s1.ReadByte() = s2.ReadByte()))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (s1 IsNot Nothing) Then
s1.Close()
End If
If (s2 IsNot Nothing) Then
s2.Close()
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
''' <summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), Global.System.Serializable(), Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class OrdersDataTable
Inherits System.Data.TypedTableBase(Of OrdersRow)
Private columnOrderID As Global.System.Data.DataColumn
Private columnCustomerID As Global.System.Data.DataColumn
Private columnEmployeeID As Global.System.Data.DataColumn
Private columnOrderDate As Global.System.Data.DataColumn
Private columnRequiredDate As Global.System.Data.DataColumn
Private columnShippedDate As Global.System.Data.DataColumn
Private columnShipVia As Global.System.Data.DataColumn
Private columnFreight As Global.System.Data.DataColumn
Private columnShipName As Global.System.Data.DataColumn
Private columnShipAddress As Global.System.Data.DataColumn
Private columnShipCity As Global.System.Data.DataColumn
Private columnShipRegion As Global.System.Data.DataColumn
Private columnShipPostalCode As Global.System.Data.DataColumn
Private columnShipCountry As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
Me.TableName = "Orders"
Me.BeginInit()
Me.InitClass()
Me.EndInit()
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars()
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property OrderIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnOrderID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property CustomerIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCustomerID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property EmployeeIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnEmployeeID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property OrderDateColumn() As Global.System.Data.DataColumn
Get
Return Me.columnOrderDate
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property RequiredDateColumn() As Global.System.Data.DataColumn
Get
Return Me.columnRequiredDate
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ShippedDateColumn() As Global.System.Data.DataColumn
Get
Return Me.columnShippedDate
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ShipViaColumn() As Global.System.Data.DataColumn
Get
Return Me.columnShipVia
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property FreightColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFreight
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ShipNameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnShipName
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ShipAddressColumn() As Global.System.Data.DataColumn
Get
Return Me.columnShipAddress
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ShipCityColumn() As Global.System.Data.DataColumn
Get
Return Me.columnShipCity
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ShipRegionColumn() As Global.System.Data.DataColumn
Get
Return Me.columnShipRegion
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ShipPostalCodeColumn() As Global.System.Data.DataColumn
Get
Return Me.columnShipPostalCode
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ShipCountryColumn() As Global.System.Data.DataColumn
Get
Return Me.columnShipCountry
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Browsable(False)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Default Public ReadOnly Property Item(ByVal index As Integer) As OrdersRow
Get
Return (CType(Me.Rows(index), OrdersRow))
End Get
End Property
Public Event OrdersRowChanging As OrdersRowChangeEventHandler
Public Event OrdersRowChanged As OrdersRowChangeEventHandler
Public Event OrdersRowDeleting As OrdersRowChangeEventHandler
Public Event OrdersRowDeleted As OrdersRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub AddOrdersRow(ByVal row As OrdersRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function AddOrdersRow(ByVal parentCustomersRowByCustomersOrders As CustomersRow, ByVal parentEmployeesRowByEmployeesOrders As EmployeesRow, ByVal OrderDate As System.DateTime, ByVal RequiredDate As System.DateTime, ByVal ShippedDate As System.DateTime, ByVal parentShippersRowByShippersOrders As ShippersRow, ByVal Freight As Decimal, ByVal ShipName As String, ByVal ShipAddress As String, ByVal ShipCity As String, ByVal ShipRegion As String, ByVal ShipPostalCode As String, ByVal ShipCountry As String) As OrdersRow
Dim rowOrdersRow As OrdersRow = (CType(Me.NewRow(), OrdersRow))
Dim columnValuesArray() As Object = { Nothing, Nothing, Nothing, OrderDate, RequiredDate, ShippedDate, Nothing, Freight, ShipName, ShipAddress, ShipCity, ShipRegion, ShipPostalCode, ShipCountry}
If (parentCustomersRowByCustomersOrders IsNot Nothing) Then
columnValuesArray(1) = parentCustomersRowByCustomersOrders(0)
End If
If (parentEmployeesRowByEmployeesOrders IsNot Nothing) Then
columnValuesArray(2) = parentEmployeesRowByEmployeesOrders(0)
End If
If (parentShippersRowByShippersOrders IsNot Nothing) Then
columnValuesArray(6) = parentShippersRowByShippersOrders(0)
End If
rowOrdersRow.ItemArray = columnValuesArray
Me.Rows.Add(rowOrdersRow)
Return rowOrdersRow
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function FindByOrderID(ByVal OrderID As Integer) As OrdersRow
Return (CType(Me.Rows.Find(New Object() { OrderID}), OrdersRow))
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As OrdersDataTable = (CType(MyBase.Clone(), OrdersDataTable))
cln.InitVars()
Return cln
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New OrdersDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub InitVars()
Me.columnOrderID = MyBase.Columns("OrderID")
Me.columnCustomerID = MyBase.Columns("CustomerID")
Me.columnEmployeeID = MyBase.Columns("EmployeeID")
Me.columnOrderDate = MyBase.Columns("OrderDate")
Me.columnRequiredDate = MyBase.Columns("RequiredDate")
Me.columnShippedDate = MyBase.Columns("ShippedDate")
Me.columnShipVia = MyBase.Columns("ShipVia")
Me.columnFreight = MyBase.Columns("Freight")
Me.columnShipName = MyBase.Columns("ShipName")
Me.columnShipAddress = MyBase.Columns("ShipAddress")
Me.columnShipCity = MyBase.Columns("ShipCity")
Me.columnShipRegion = MyBase.Columns("ShipRegion")
Me.columnShipPostalCode = MyBase.Columns("ShipPostalCode")
Me.columnShipCountry = MyBase.Columns("ShipCountry")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitClass()
Me.columnOrderID = New Global.System.Data.DataColumn("OrderID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnOrderID)
Me.columnCustomerID = New Global.System.Data.DataColumn("CustomerID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCustomerID)
Me.columnEmployeeID = New Global.System.Data.DataColumn("EmployeeID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnEmployeeID)
Me.columnOrderDate = New Global.System.Data.DataColumn("OrderDate", GetType(Global.System.DateTime), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnOrderDate)
Me.columnRequiredDate = New Global.System.Data.DataColumn("RequiredDate", GetType(Global.System.DateTime), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnRequiredDate)
Me.columnShippedDate = New Global.System.Data.DataColumn("ShippedDate", GetType(Global.System.DateTime), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnShippedDate)
Me.columnShipVia = New Global.System.Data.DataColumn("ShipVia", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnShipVia)
Me.columnFreight = New Global.System.Data.DataColumn("Freight", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnFreight)
Me.columnShipName = New Global.System.Data.DataColumn("ShipName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnShipName)
Me.columnShipAddress = New Global.System.Data.DataColumn("ShipAddress", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnShipAddress)
Me.columnShipCity = New Global.System.Data.DataColumn("ShipCity", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnShipCity)
Me.columnShipRegion = New Global.System.Data.DataColumn("ShipRegion", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnShipRegion)
Me.columnShipPostalCode = New Global.System.Data.DataColumn("ShipPostalCode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnShipPostalCode)
Me.columnShipCountry = New Global.System.Data.DataColumn("ShipCountry", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnShipCountry)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() { Me.columnOrderID}, True))
Me.columnOrderID.AutoIncrement = True
Me.columnOrderID.AutoIncrementSeed = -1
Me.columnOrderID.AutoIncrementStep = -1
Me.columnOrderID.AllowDBNull = False
Me.columnOrderID.Unique = True
Me.columnCustomerID.MaxLength = 5
Me.columnShipName.MaxLength = 40
Me.columnShipAddress.MaxLength = 60
Me.columnShipCity.MaxLength = 15
Me.columnShipRegion.MaxLength = 15
Me.columnShipPostalCode.MaxLength = 10
Me.columnShipCountry.MaxLength = 15
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function NewOrdersRow() As OrdersRow
Return (CType(Me.NewRow(), OrdersRow))
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New OrdersRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(OrdersRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Me.OrdersRowChangedEvent IsNot Nothing) Then
RaiseEvent OrdersRowChanged(Me, New OrdersRowChangeEvent((CType(e.Row, OrdersRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Me.OrdersRowChangingEvent IsNot Nothing) Then
RaiseEvent OrdersRowChanging(Me, New OrdersRowChangeEvent((CType(e.Row, OrdersRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Me.OrdersRowDeletedEvent IsNot Nothing) Then
RaiseEvent OrdersRowDeleted(Me, New OrdersRowChangeEvent((CType(e.Row, OrdersRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Me.OrdersRowDeletingEvent IsNot Nothing) Then
RaiseEvent OrdersRowDeleting(Me, New OrdersRowChangeEvent((CType(e.Row, OrdersRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub RemoveOrdersRow(ByVal row As OrdersRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As New nwindDataSet()
Dim any1 As New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "OrdersDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable()
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As New Global.System.IO.MemoryStream()
Dim s2 As New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator()
Do While schemas.MoveNext()
schema = (CType(schemas.Current, Global.System.Xml.Schema.XmlSchema))
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) AndAlso (s1.ReadByte() = s2.ReadByte()))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (s1 IsNot Nothing) Then
s1.Close()
End If
If (s2 IsNot Nothing) Then
s2.Close()
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
''' <summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), Global.System.Serializable(), Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class Order_DetailsDataTable
Inherits System.Data.TypedTableBase(Of Order_DetailsRow)
Private columnOrderID As Global.System.Data.DataColumn
Private columnProductID As Global.System.Data.DataColumn
Private columnUnitPrice As Global.System.Data.DataColumn
Private columnQuantity As Global.System.Data.DataColumn
Private columnDiscount As Global.System.Data.DataColumn
Private columnSubTotal As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
Me.TableName = "Order Details"
Me.BeginInit()
Me.InitClass()
Me.EndInit()
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars()
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property OrderIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnOrderID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ProductIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnProductID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property UnitPriceColumn() As Global.System.Data.DataColumn
Get
Return Me.columnUnitPrice
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property QuantityColumn() As Global.System.Data.DataColumn
Get
Return Me.columnQuantity
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property DiscountColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDiscount
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property SubTotalColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSubTotal
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Browsable(False)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Default Public ReadOnly Property Item(ByVal index As Integer) As Order_DetailsRow
Get
Return (CType(Me.Rows(index), Order_DetailsRow))
End Get
End Property
Public Event Order_DetailsRowChanging As Order_DetailsRowChangeEventHandler
Public Event Order_DetailsRowChanged As Order_DetailsRowChangeEventHandler
Public Event Order_DetailsRowDeleting As Order_DetailsRowChangeEventHandler
Public Event Order_DetailsRowDeleted As Order_DetailsRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub AddOrder_DetailsRow(ByVal row As Order_DetailsRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function AddOrder_DetailsRow(ByVal parentOrdersRowByOrdersOrder_Details As OrdersRow, ByVal parentProductsRowByProductsOrder_Details As ProductsRow, ByVal UnitPrice As Decimal, ByVal Quantity As Short, ByVal Discount As Single, ByVal SubTotal As Decimal) As Order_DetailsRow
Dim rowOrder_DetailsRow As Order_DetailsRow = (CType(Me.NewRow(), Order_DetailsRow))
Dim columnValuesArray() As Object = { Nothing, Nothing, UnitPrice, Quantity, Discount, SubTotal}
If (parentOrdersRowByOrdersOrder_Details IsNot Nothing) Then
columnValuesArray(0) = parentOrdersRowByOrdersOrder_Details(0)
End If
If (parentProductsRowByProductsOrder_Details IsNot Nothing) Then
columnValuesArray(1) = parentProductsRowByProductsOrder_Details(0)
End If
rowOrder_DetailsRow.ItemArray = columnValuesArray
Me.Rows.Add(rowOrder_DetailsRow)
Return rowOrder_DetailsRow
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function FindByOrderIDProductID(ByVal OrderID As Integer, ByVal ProductID As Integer) As Order_DetailsRow
Return (CType(Me.Rows.Find(New Object() { OrderID, ProductID}), Order_DetailsRow))
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As Order_DetailsDataTable = (CType(MyBase.Clone(), Order_DetailsDataTable))
cln.InitVars()
Return cln
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New Order_DetailsDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub InitVars()
Me.columnOrderID = MyBase.Columns("OrderID")
Me.columnProductID = MyBase.Columns("ProductID")
Me.columnUnitPrice = MyBase.Columns("UnitPrice")
Me.columnQuantity = MyBase.Columns("Quantity")
Me.columnDiscount = MyBase.Columns("Discount")
Me.columnSubTotal = MyBase.Columns("SubTotal")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitClass()
Me.columnOrderID = New Global.System.Data.DataColumn("OrderID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnOrderID)
Me.columnProductID = New Global.System.Data.DataColumn("ProductID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnProductID)
Me.columnUnitPrice = New Global.System.Data.DataColumn("UnitPrice", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnUnitPrice)
Me.columnQuantity = New Global.System.Data.DataColumn("Quantity", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnQuantity)
Me.columnDiscount = New Global.System.Data.DataColumn("Discount", GetType(Single), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDiscount)
Me.columnSubTotal = New Global.System.Data.DataColumn("SubTotal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSubTotal)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() { Me.columnOrderID, Me.columnProductID}, True))
Me.columnOrderID.AllowDBNull = False
Me.columnProductID.AllowDBNull = False
Me.columnSubTotal.ReadOnly = True
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function NewOrder_DetailsRow() As Order_DetailsRow
Return (CType(Me.NewRow(), Order_DetailsRow))
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New Order_DetailsRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(Order_DetailsRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Me.Order_DetailsRowChangedEvent IsNot Nothing) Then
RaiseEvent Order_DetailsRowChanged(Me, New Order_DetailsRowChangeEvent((CType(e.Row, Order_DetailsRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Me.Order_DetailsRowChangingEvent IsNot Nothing) Then
RaiseEvent Order_DetailsRowChanging(Me, New Order_DetailsRowChangeEvent((CType(e.Row, Order_DetailsRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Me.Order_DetailsRowDeletedEvent IsNot Nothing) Then
RaiseEvent Order_DetailsRowDeleted(Me, New Order_DetailsRowChangeEvent((CType(e.Row, Order_DetailsRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Me.Order_DetailsRowDeletingEvent IsNot Nothing) Then
RaiseEvent Order_DetailsRowDeleting(Me, New Order_DetailsRowChangeEvent((CType(e.Row, Order_DetailsRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub RemoveOrder_DetailsRow(ByVal row As Order_DetailsRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As New nwindDataSet()
Dim any1 As New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "Order_DetailsDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable()
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As New Global.System.IO.MemoryStream()
Dim s2 As New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator()
Do While schemas.MoveNext()
schema = (CType(schemas.Current, Global.System.Xml.Schema.XmlSchema))
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) AndAlso (s1.ReadByte() = s2.ReadByte()))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (s1 IsNot Nothing) Then
s1.Close()
End If
If (s2 IsNot Nothing) Then
s2.Close()
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
''' <summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), Global.System.Serializable(), Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class CategoriesDataTable
Inherits System.Data.TypedTableBase(Of CategoriesRow)
Private columnCategoryID As Global.System.Data.DataColumn
Private columnCategoryName As Global.System.Data.DataColumn
Private columnDescription As Global.System.Data.DataColumn
Private columnPicture As Global.System.Data.DataColumn
Private columnIcon_17 As Global.System.Data.DataColumn
Private columnIcon_25 As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
Me.TableName = "Categories"
Me.BeginInit()
Me.InitClass()
Me.EndInit()
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars()
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property CategoryIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCategoryID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property CategoryNameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCategoryName
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDescription
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property PictureColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPicture
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Icon_17Column() As Global.System.Data.DataColumn
Get
Return Me.columnIcon_17
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Icon_25Column() As Global.System.Data.DataColumn
Get
Return Me.columnIcon_25
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Browsable(False)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Default Public 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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub AddCategoriesRow(ByVal row As CategoriesRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function AddCategoriesRow(ByVal CategoryName As String, ByVal Description As String, ByVal Picture() As Byte, ByVal Icon_17() As Byte, ByVal Icon_25() As Byte) As CategoriesRow
Dim rowCategoriesRow As CategoriesRow = (CType(Me.NewRow(), CategoriesRow))
Dim columnValuesArray() As Object = { Nothing, CategoryName, Description, Picture, Icon_17, Icon_25}
rowCategoriesRow.ItemArray = columnValuesArray
Me.Rows.Add(rowCategoriesRow)
Return rowCategoriesRow
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function FindByCategoryID(ByVal CategoryID As Integer) As CategoriesRow
Return (CType(Me.Rows.Find(New Object() { CategoryID}), CategoriesRow))
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As CategoriesDataTable = (CType(MyBase.Clone(), CategoriesDataTable))
cln.InitVars()
Return cln
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New CategoriesDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub InitVars()
Me.columnCategoryID = MyBase.Columns("CategoryID")
Me.columnCategoryName = MyBase.Columns("CategoryName")
Me.columnDescription = MyBase.Columns("Description")
Me.columnPicture = MyBase.Columns("Picture")
Me.columnIcon_17 = MyBase.Columns("Icon_17")
Me.columnIcon_25 = MyBase.Columns("Icon_25")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitClass()
Me.columnCategoryID = New Global.System.Data.DataColumn("CategoryID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCategoryID)
Me.columnCategoryName = New Global.System.Data.DataColumn("CategoryName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCategoryName)
Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDescription)
Me.columnPicture = New Global.System.Data.DataColumn("Picture", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPicture)
Me.columnIcon_17 = New Global.System.Data.DataColumn("Icon_17", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnIcon_17)
Me.columnIcon_25 = New Global.System.Data.DataColumn("Icon_25", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnIcon_25)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() { Me.columnCategoryID}, True))
Me.columnCategoryID.AutoIncrement = True
Me.columnCategoryID.AutoIncrementSeed = -1
Me.columnCategoryID.AutoIncrementStep = -1
Me.columnCategoryID.AllowDBNull = False
Me.columnCategoryID.Unique = True
Me.columnCategoryName.MaxLength = 15
Me.columnDescription.MaxLength = 536870910
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function NewCategoriesRow() As CategoriesRow
Return (CType(Me.NewRow(), CategoriesRow))
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New CategoriesRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(CategoriesRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Me.CategoriesRowChangedEvent IsNot Nothing) Then
RaiseEvent CategoriesRowChanged(Me, New CategoriesRowChangeEvent((CType(e.Row, CategoriesRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Me.CategoriesRowChangingEvent IsNot Nothing) Then
RaiseEvent CategoriesRowChanging(Me, New CategoriesRowChangeEvent((CType(e.Row, CategoriesRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Me.CategoriesRowDeletedEvent IsNot Nothing) Then
RaiseEvent CategoriesRowDeleted(Me, New CategoriesRowChangeEvent((CType(e.Row, CategoriesRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Me.CategoriesRowDeletingEvent IsNot Nothing) Then
RaiseEvent CategoriesRowDeleting(Me, New CategoriesRowChangeEvent((CType(e.Row, CategoriesRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub RemoveCategoriesRow(ByVal row As CategoriesRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As New nwindDataSet()
Dim any1 As New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "CategoriesDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable()
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As New Global.System.IO.MemoryStream()
Dim s2 As New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator()
Do While schemas.MoveNext()
schema = (CType(schemas.Current, Global.System.Xml.Schema.XmlSchema))
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) AndAlso (s1.ReadByte() = s2.ReadByte()))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (s1 IsNot Nothing) Then
s1.Close()
End If
If (s2 IsNot Nothing) Then
s2.Close()
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
''' <summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), Global.System.Serializable(), Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class ProductsDataTable
Inherits System.Data.TypedTableBase(Of ProductsRow)
Private columnProductID As Global.System.Data.DataColumn
Private columnProductName As Global.System.Data.DataColumn
Private columnSupplierID As Global.System.Data.DataColumn
Private columnCategoryID As Global.System.Data.DataColumn
Private columnQuantityPerUnit As Global.System.Data.DataColumn
Private columnUnitPrice As Global.System.Data.DataColumn
Private columnDiscontinued As Global.System.Data.DataColumn
Private columnCategoryName As Global.System.Data.DataColumn
Private columnDescription As Global.System.Data.DataColumn
Private columnPicture As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
Me.TableName = "Products"
Me.BeginInit()
Me.InitClass()
Me.EndInit()
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars()
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ProductIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnProductID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ProductNameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnProductName
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property SupplierIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSupplierID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property CategoryIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCategoryID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property QuantityPerUnitColumn() As Global.System.Data.DataColumn
Get
Return Me.columnQuantityPerUnit
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property UnitPriceColumn() As Global.System.Data.DataColumn
Get
Return Me.columnUnitPrice
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property DiscontinuedColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDiscontinued
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property CategoryNameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCategoryName
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDescription
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property PictureColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPicture
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Browsable(False)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Default Public ReadOnly Property Item(ByVal index As Integer) As ProductsRow
Get
Return (CType(Me.Rows(index), ProductsRow))
End Get
End Property
Public Event ProductsRowChanging As ProductsRowChangeEventHandler
Public Event ProductsRowChanged As ProductsRowChangeEventHandler
Public Event ProductsRowDeleting As ProductsRowChangeEventHandler
Public Event ProductsRowDeleted As ProductsRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub AddProductsRow(ByVal row As ProductsRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function AddProductsRow(ByVal ProductName As String, ByVal parentSuppliersRowBySuppliersProducts As SuppliersRow, ByVal parentCategoriesRowByCategoriesProducts As CategoriesRow, ByVal QuantityPerUnit As String, ByVal UnitPrice As Decimal, ByVal Discontinued As Boolean, ByVal CategoryName As String, ByVal Description As String, ByVal Picture() As Byte) As ProductsRow
Dim rowProductsRow As ProductsRow = (CType(Me.NewRow(), ProductsRow))
Dim columnValuesArray() As Object = { Nothing, ProductName, Nothing, Nothing, QuantityPerUnit, UnitPrice, Discontinued, CategoryName, Description, Picture}
If (parentSuppliersRowBySuppliersProducts IsNot Nothing) Then
columnValuesArray(2) = parentSuppliersRowBySuppliersProducts(0)
End If
If (parentCategoriesRowByCategoriesProducts IsNot Nothing) Then
columnValuesArray(3) = parentCategoriesRowByCategoriesProducts(0)
End If
rowProductsRow.ItemArray = columnValuesArray
Me.Rows.Add(rowProductsRow)
Return rowProductsRow
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function FindByProductID(ByVal ProductID As Integer) As ProductsRow
Return (CType(Me.Rows.Find(New Object() { ProductID}), ProductsRow))
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As ProductsDataTable = (CType(MyBase.Clone(), ProductsDataTable))
cln.InitVars()
Return cln
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New ProductsDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub InitVars()
Me.columnProductID = MyBase.Columns("ProductID")
Me.columnProductName = MyBase.Columns("ProductName")
Me.columnSupplierID = MyBase.Columns("SupplierID")
Me.columnCategoryID = MyBase.Columns("CategoryID")
Me.columnQuantityPerUnit = MyBase.Columns("QuantityPerUnit")
Me.columnUnitPrice = MyBase.Columns("UnitPrice")
Me.columnDiscontinued = MyBase.Columns("Discontinued")
Me.columnCategoryName = MyBase.Columns("CategoryName")
Me.columnDescription = MyBase.Columns("Description")
Me.columnPicture = MyBase.Columns("Picture")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitClass()
Me.columnProductID = New Global.System.Data.DataColumn("ProductID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnProductID)
Me.columnProductName = New Global.System.Data.DataColumn("ProductName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnProductName)
Me.columnSupplierID = New Global.System.Data.DataColumn("SupplierID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSupplierID)
Me.columnCategoryID = New Global.System.Data.DataColumn("CategoryID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCategoryID)
Me.columnQuantityPerUnit = New Global.System.Data.DataColumn("QuantityPerUnit", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnQuantityPerUnit)
Me.columnUnitPrice = New Global.System.Data.DataColumn("UnitPrice", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnUnitPrice)
Me.columnDiscontinued = New Global.System.Data.DataColumn("Discontinued", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDiscontinued)
Me.columnCategoryName = New Global.System.Data.DataColumn("CategoryName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCategoryName)
Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDescription)
Me.columnPicture = New Global.System.Data.DataColumn("Picture", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPicture)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() { Me.columnProductID}, True))
Me.columnProductID.AutoIncrement = True
Me.columnProductID.AutoIncrementSeed = -1
Me.columnProductID.AutoIncrementStep = -1
Me.columnProductID.AllowDBNull = False
Me.columnProductID.Unique = True
Me.columnProductName.MaxLength = 40
Me.columnQuantityPerUnit.MaxLength = 20
Me.columnCategoryName.MaxLength = 15
Me.columnDescription.MaxLength = 536870910
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function NewProductsRow() As ProductsRow
Return (CType(Me.NewRow(), ProductsRow))
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New ProductsRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(ProductsRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Me.ProductsRowChangedEvent IsNot Nothing) Then
RaiseEvent ProductsRowChanged(Me, New ProductsRowChangeEvent((CType(e.Row, ProductsRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Me.ProductsRowChangingEvent IsNot Nothing) Then
RaiseEvent ProductsRowChanging(Me, New ProductsRowChangeEvent((CType(e.Row, ProductsRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Me.ProductsRowDeletedEvent IsNot Nothing) Then
RaiseEvent ProductsRowDeleted(Me, New ProductsRowChangeEvent((CType(e.Row, ProductsRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Me.ProductsRowDeletingEvent IsNot Nothing) Then
RaiseEvent ProductsRowDeleting(Me, New ProductsRowChangeEvent((CType(e.Row, ProductsRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub RemoveProductsRow(ByVal row As ProductsRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As New nwindDataSet()
Dim any1 As New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "ProductsDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable()
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As New Global.System.IO.MemoryStream()
Dim s2 As New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator()
Do While schemas.MoveNext()
schema = (CType(schemas.Current, Global.System.Xml.Schema.XmlSchema))
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) AndAlso (s1.ReadByte() = s2.ReadByte()))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (s1 IsNot Nothing) Then
s1.Close()
End If
If (s2 IsNot Nothing) Then
s2.Close()
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
''' <summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), Global.System.Serializable(), Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class CustomersDataTable
Inherits System.Data.TypedTableBase(Of CustomersRow)
Private columnCustomerID As Global.System.Data.DataColumn
Private columnCompanyName As Global.System.Data.DataColumn
Private columnContactName As Global.System.Data.DataColumn
Private columnContactTitle As Global.System.Data.DataColumn
Private columnAddress As Global.System.Data.DataColumn
Private columnCity As Global.System.Data.DataColumn
Private columnRegion As Global.System.Data.DataColumn
Private columnPostalCode As Global.System.Data.DataColumn
Private columnCountry As Global.System.Data.DataColumn
Private columnPhone As Global.System.Data.DataColumn
Private columnFax As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
Me.TableName = "Customers"
Me.BeginInit()
Me.InitClass()
Me.EndInit()
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars()
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property CustomerIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCustomerID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property CompanyNameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCompanyName
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ContactNameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnContactName
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ContactTitleColumn() As Global.System.Data.DataColumn
Get
Return Me.columnContactTitle
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property AddressColumn() As Global.System.Data.DataColumn
Get
Return Me.columnAddress
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property CityColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCity
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property RegionColumn() As Global.System.Data.DataColumn
Get
Return Me.columnRegion
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property PostalCodeColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPostalCode
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property CountryColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCountry
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property PhoneColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPhone
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property FaxColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFax
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Browsable(False)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Default Public ReadOnly Property Item(ByVal index As Integer) As CustomersRow
Get
Return (CType(Me.Rows(index), CustomersRow))
End Get
End Property
Public Event CustomersRowChanging As CustomersRowChangeEventHandler
Public Event CustomersRowChanged As CustomersRowChangeEventHandler
Public Event CustomersRowDeleting As CustomersRowChangeEventHandler
Public Event CustomersRowDeleted As CustomersRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub AddCustomersRow(ByVal row As CustomersRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function AddCustomersRow(ByVal CustomerID As String, ByVal CompanyName As String, ByVal ContactName As String, ByVal ContactTitle As String, ByVal Address As String, ByVal City As String, ByVal Region As String, ByVal PostalCode As String, ByVal Country As String, ByVal Phone As String, ByVal Fax As String) As CustomersRow
Dim rowCustomersRow As CustomersRow = (CType(Me.NewRow(), CustomersRow))
Dim columnValuesArray() As Object = { CustomerID, CompanyName, ContactName, ContactTitle, Address, City, Region, PostalCode, Country, Phone, Fax}
rowCustomersRow.ItemArray = columnValuesArray
Me.Rows.Add(rowCustomersRow)
Return rowCustomersRow
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function FindByCustomerID(ByVal CustomerID As String) As CustomersRow
Return (CType(Me.Rows.Find(New Object() { CustomerID}), CustomersRow))
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As CustomersDataTable = (CType(MyBase.Clone(), CustomersDataTable))
cln.InitVars()
Return cln
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New CustomersDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub InitVars()
Me.columnCustomerID = MyBase.Columns("CustomerID")
Me.columnCompanyName = MyBase.Columns("CompanyName")
Me.columnContactName = MyBase.Columns("ContactName")
Me.columnContactTitle = MyBase.Columns("ContactTitle")
Me.columnAddress = MyBase.Columns("Address")
Me.columnCity = MyBase.Columns("City")
Me.columnRegion = MyBase.Columns("Region")
Me.columnPostalCode = MyBase.Columns("PostalCode")
Me.columnCountry = MyBase.Columns("Country")
Me.columnPhone = MyBase.Columns("Phone")
Me.columnFax = MyBase.Columns("Fax")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitClass()
Me.columnCustomerID = New Global.System.Data.DataColumn("CustomerID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCustomerID)
Me.columnCompanyName = New Global.System.Data.DataColumn("CompanyName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCompanyName)
Me.columnContactName = New Global.System.Data.DataColumn("ContactName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnContactName)
Me.columnContactTitle = New Global.System.Data.DataColumn("ContactTitle", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnContactTitle)
Me.columnAddress = New Global.System.Data.DataColumn("Address", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnAddress)
Me.columnCity = New Global.System.Data.DataColumn("City", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCity)
Me.columnRegion = New Global.System.Data.DataColumn("Region", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnRegion)
Me.columnPostalCode = New Global.System.Data.DataColumn("PostalCode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPostalCode)
Me.columnCountry = New Global.System.Data.DataColumn("Country", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCountry)
Me.columnPhone = New Global.System.Data.DataColumn("Phone", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPhone)
Me.columnFax = New Global.System.Data.DataColumn("Fax", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnFax)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() { Me.columnCustomerID}, True))
Me.columnCustomerID.AllowDBNull = False
Me.columnCustomerID.Unique = True
Me.columnCustomerID.MaxLength = 5
Me.columnCompanyName.MaxLength = 40
Me.columnContactName.MaxLength = 30
Me.columnContactTitle.MaxLength = 30
Me.columnAddress.MaxLength = 60
Me.columnCity.MaxLength = 15
Me.columnRegion.MaxLength = 15
Me.columnPostalCode.MaxLength = 10
Me.columnCountry.MaxLength = 15
Me.columnPhone.MaxLength = 24
Me.columnFax.MaxLength = 24
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function NewCustomersRow() As CustomersRow
Return (CType(Me.NewRow(), CustomersRow))
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New CustomersRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(CustomersRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Me.CustomersRowChangedEvent IsNot Nothing) Then
RaiseEvent CustomersRowChanged(Me, New CustomersRowChangeEvent((CType(e.Row, CustomersRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Me.CustomersRowChangingEvent IsNot Nothing) Then
RaiseEvent CustomersRowChanging(Me, New CustomersRowChangeEvent((CType(e.Row, CustomersRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Me.CustomersRowDeletedEvent IsNot Nothing) Then
RaiseEvent CustomersRowDeleted(Me, New CustomersRowChangeEvent((CType(e.Row, CustomersRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Me.CustomersRowDeletingEvent IsNot Nothing) Then
RaiseEvent CustomersRowDeleting(Me, New CustomersRowChangeEvent((CType(e.Row, CustomersRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub RemoveCustomersRow(ByVal row As CustomersRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As New nwindDataSet()
Dim any1 As New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "CustomersDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable()
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As New Global.System.IO.MemoryStream()
Dim s2 As New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator()
Do While schemas.MoveNext()
schema = (CType(schemas.Current, Global.System.Xml.Schema.XmlSchema))
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) AndAlso (s1.ReadByte() = s2.ReadByte()))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (s1 IsNot Nothing) Then
s1.Close()
End If
If (s2 IsNot Nothing) Then
s2.Close()
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
''' <summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), Global.System.Serializable(), Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class EmployeesDataTable
Inherits System.Data.TypedTableBase(Of EmployeesRow)
Private columnEmployeeID As Global.System.Data.DataColumn
Private columnLastName As Global.System.Data.DataColumn
Private columnFirstName As Global.System.Data.DataColumn
Private columnTitle As Global.System.Data.DataColumn
Private columnTitleOfCourtesy As Global.System.Data.DataColumn
Private columnBirthDate As Global.System.Data.DataColumn
Private columnHireDate As Global.System.Data.DataColumn
Private columnAddress As Global.System.Data.DataColumn
Private columnCity As Global.System.Data.DataColumn
Private columnRegion As Global.System.Data.DataColumn
Private columnPostalCode As Global.System.Data.DataColumn
Private columnCountry As Global.System.Data.DataColumn
Private columnHomePhone As Global.System.Data.DataColumn
Private columnExtension As Global.System.Data.DataColumn
Private columnPhoto As Global.System.Data.DataColumn
Private columnNotes As Global.System.Data.DataColumn
Private columnReportsTo As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
Me.TableName = "Employees"
Me.BeginInit()
Me.InitClass()
Me.EndInit()
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars()
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property EmployeeIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnEmployeeID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property LastNameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLastName
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property FirstNameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFirstName
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property TitleColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTitle
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property TitleOfCourtesyColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTitleOfCourtesy
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property BirthDateColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBirthDate
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property HireDateColumn() As Global.System.Data.DataColumn
Get
Return Me.columnHireDate
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property AddressColumn() As Global.System.Data.DataColumn
Get
Return Me.columnAddress
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property CityColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCity
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property RegionColumn() As Global.System.Data.DataColumn
Get
Return Me.columnRegion
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property PostalCodeColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPostalCode
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property CountryColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCountry
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property HomePhoneColumn() As Global.System.Data.DataColumn
Get
Return Me.columnHomePhone
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ExtensionColumn() As Global.System.Data.DataColumn
Get
Return Me.columnExtension
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property PhotoColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPhoto
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property NotesColumn() As Global.System.Data.DataColumn
Get
Return Me.columnNotes
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ReportsToColumn() As Global.System.Data.DataColumn
Get
Return Me.columnReportsTo
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Browsable(False)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Default Public ReadOnly Property Item(ByVal index As Integer) As EmployeesRow
Get
Return (CType(Me.Rows(index), EmployeesRow))
End Get
End Property
Public Event EmployeesRowChanging As EmployeesRowChangeEventHandler
Public Event EmployeesRowChanged As EmployeesRowChangeEventHandler
Public Event EmployeesRowDeleting As EmployeesRowChangeEventHandler
Public Event EmployeesRowDeleted As EmployeesRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub AddEmployeesRow(ByVal row As EmployeesRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function AddEmployeesRow(ByVal LastName As String, ByVal FirstName As String, ByVal Title As String, ByVal TitleOfCourtesy As String, ByVal BirthDate As System.DateTime, ByVal HireDate As System.DateTime, ByVal Address As String, ByVal City As String, ByVal Region As String, ByVal PostalCode As String, ByVal Country As String, ByVal HomePhone As String, ByVal Extension As String, ByVal Photo() As Byte, ByVal Notes As String, ByVal ReportsTo As Integer) As EmployeesRow
Dim rowEmployeesRow As EmployeesRow = (CType(Me.NewRow(), EmployeesRow))
Dim columnValuesArray() As Object = { Nothing, LastName, FirstName, Title, TitleOfCourtesy, BirthDate, HireDate, Address, City, Region, PostalCode, Country, HomePhone, Extension, Photo, Notes, ReportsTo}
rowEmployeesRow.ItemArray = columnValuesArray
Me.Rows.Add(rowEmployeesRow)
Return rowEmployeesRow
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function FindByEmployeeID(ByVal EmployeeID As Integer) As EmployeesRow
Return (CType(Me.Rows.Find(New Object() { EmployeeID}), EmployeesRow))
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As EmployeesDataTable = (CType(MyBase.Clone(), EmployeesDataTable))
cln.InitVars()
Return cln
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New EmployeesDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub InitVars()
Me.columnEmployeeID = MyBase.Columns("EmployeeID")
Me.columnLastName = MyBase.Columns("LastName")
Me.columnFirstName = MyBase.Columns("FirstName")
Me.columnTitle = MyBase.Columns("Title")
Me.columnTitleOfCourtesy = MyBase.Columns("TitleOfCourtesy")
Me.columnBirthDate = MyBase.Columns("BirthDate")
Me.columnHireDate = MyBase.Columns("HireDate")
Me.columnAddress = MyBase.Columns("Address")
Me.columnCity = MyBase.Columns("City")
Me.columnRegion = MyBase.Columns("Region")
Me.columnPostalCode = MyBase.Columns("PostalCode")
Me.columnCountry = MyBase.Columns("Country")
Me.columnHomePhone = MyBase.Columns("HomePhone")
Me.columnExtension = MyBase.Columns("Extension")
Me.columnPhoto = MyBase.Columns("Photo")
Me.columnNotes = MyBase.Columns("Notes")
Me.columnReportsTo = MyBase.Columns("ReportsTo")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitClass()
Me.columnEmployeeID = New Global.System.Data.DataColumn("EmployeeID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnEmployeeID)
Me.columnLastName = New Global.System.Data.DataColumn("LastName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnLastName)
Me.columnFirstName = New Global.System.Data.DataColumn("FirstName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnFirstName)
Me.columnTitle = New Global.System.Data.DataColumn("Title", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnTitle)
Me.columnTitleOfCourtesy = New Global.System.Data.DataColumn("TitleOfCourtesy", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnTitleOfCourtesy)
Me.columnBirthDate = New Global.System.Data.DataColumn("BirthDate", GetType(Global.System.DateTime), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBirthDate)
Me.columnHireDate = New Global.System.Data.DataColumn("HireDate", GetType(Global.System.DateTime), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnHireDate)
Me.columnAddress = New Global.System.Data.DataColumn("Address", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnAddress)
Me.columnCity = New Global.System.Data.DataColumn("City", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCity)
Me.columnRegion = New Global.System.Data.DataColumn("Region", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnRegion)
Me.columnPostalCode = New Global.System.Data.DataColumn("PostalCode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPostalCode)
Me.columnCountry = New Global.System.Data.DataColumn("Country", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCountry)
Me.columnHomePhone = New Global.System.Data.DataColumn("HomePhone", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnHomePhone)
Me.columnExtension = New Global.System.Data.DataColumn("Extension", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnExtension)
Me.columnPhoto = New Global.System.Data.DataColumn("Photo", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPhoto)
Me.columnNotes = New Global.System.Data.DataColumn("Notes", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnNotes)
Me.columnReportsTo = New Global.System.Data.DataColumn("ReportsTo", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnReportsTo)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() { Me.columnEmployeeID}, True))
Me.columnEmployeeID.AutoIncrement = True
Me.columnEmployeeID.AutoIncrementSeed = -1
Me.columnEmployeeID.AutoIncrementStep = -1
Me.columnEmployeeID.AllowDBNull = False
Me.columnEmployeeID.Unique = True
Me.columnLastName.MaxLength = 20
Me.columnFirstName.MaxLength = 10
Me.columnTitle.MaxLength = 30
Me.columnTitleOfCourtesy.MaxLength = 25
Me.columnAddress.MaxLength = 60
Me.columnCity.MaxLength = 15
Me.columnRegion.MaxLength = 15
Me.columnPostalCode.MaxLength = 10
Me.columnCountry.MaxLength = 15
Me.columnHomePhone.MaxLength = 24
Me.columnExtension.MaxLength = 4
Me.columnNotes.MaxLength = 536870910
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function NewEmployeesRow() As EmployeesRow
Return (CType(Me.NewRow(), EmployeesRow))
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New EmployeesRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(EmployeesRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Me.EmployeesRowChangedEvent IsNot Nothing) Then
RaiseEvent EmployeesRowChanged(Me, New EmployeesRowChangeEvent((CType(e.Row, EmployeesRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Me.EmployeesRowChangingEvent IsNot Nothing) Then
RaiseEvent EmployeesRowChanging(Me, New EmployeesRowChangeEvent((CType(e.Row, EmployeesRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Me.EmployeesRowDeletedEvent IsNot Nothing) Then
RaiseEvent EmployeesRowDeleted(Me, New EmployeesRowChangeEvent((CType(e.Row, EmployeesRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Me.EmployeesRowDeletingEvent IsNot Nothing) Then
RaiseEvent EmployeesRowDeleting(Me, New EmployeesRowChangeEvent((CType(e.Row, EmployeesRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub RemoveEmployeesRow(ByVal row As EmployeesRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As New nwindDataSet()
Dim any1 As New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "EmployeesDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable()
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As New Global.System.IO.MemoryStream()
Dim s2 As New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator()
Do While schemas.MoveNext()
schema = (CType(schemas.Current, Global.System.Xml.Schema.XmlSchema))
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) AndAlso (s1.ReadByte() = s2.ReadByte()))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (s1 IsNot Nothing) Then
s1.Close()
End If
If (s2 IsNot Nothing) Then
s2.Close()
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
''' <summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), Global.System.Serializable(), Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class SuppliersDataTable
Inherits System.Data.TypedTableBase(Of SuppliersRow)
Private columnSupplierID As Global.System.Data.DataColumn
Private columnCompanyName As Global.System.Data.DataColumn
Private columnContactName As Global.System.Data.DataColumn
Private columnContactTitle As Global.System.Data.DataColumn
Private columnAddress As Global.System.Data.DataColumn
Private columnCity As Global.System.Data.DataColumn
Private columnRegion As Global.System.Data.DataColumn
Private columnPostalCode As Global.System.Data.DataColumn
Private columnCountry As Global.System.Data.DataColumn
Private columnPhone As Global.System.Data.DataColumn
Private columnFax As Global.System.Data.DataColumn
Private columnHomePage As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
Me.TableName = "Suppliers"
Me.BeginInit()
Me.InitClass()
Me.EndInit()
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars()
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property SupplierIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSupplierID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property CompanyNameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCompanyName
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ContactNameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnContactName
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ContactTitleColumn() As Global.System.Data.DataColumn
Get
Return Me.columnContactTitle
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property AddressColumn() As Global.System.Data.DataColumn
Get
Return Me.columnAddress
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property CityColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCity
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property RegionColumn() As Global.System.Data.DataColumn
Get
Return Me.columnRegion
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property PostalCodeColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPostalCode
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property CountryColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCountry
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property PhoneColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPhone
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property FaxColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFax
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property HomePageColumn() As Global.System.Data.DataColumn
Get
Return Me.columnHomePage
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Browsable(False)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Default Public ReadOnly Property Item(ByVal index As Integer) As SuppliersRow
Get
Return (CType(Me.Rows(index), SuppliersRow))
End Get
End Property
Public Event SuppliersRowChanging As SuppliersRowChangeEventHandler
Public Event SuppliersRowChanged As SuppliersRowChangeEventHandler
Public Event SuppliersRowDeleting As SuppliersRowChangeEventHandler
Public Event SuppliersRowDeleted As SuppliersRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub AddSuppliersRow(ByVal row As SuppliersRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function AddSuppliersRow(ByVal CompanyName As String, ByVal ContactName As String, ByVal ContactTitle As String, ByVal Address As String, ByVal City As String, ByVal Region As String, ByVal PostalCode As String, ByVal Country As String, ByVal Phone As String, ByVal Fax As String, ByVal HomePage As String) As SuppliersRow
Dim rowSuppliersRow As SuppliersRow = (CType(Me.NewRow(), SuppliersRow))
Dim columnValuesArray() As Object = { Nothing, CompanyName, ContactName, ContactTitle, Address, City, Region, PostalCode, Country, Phone, Fax, HomePage}
rowSuppliersRow.ItemArray = columnValuesArray
Me.Rows.Add(rowSuppliersRow)
Return rowSuppliersRow
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function FindBySupplierID(ByVal SupplierID As Integer) As SuppliersRow
Return (CType(Me.Rows.Find(New Object() { SupplierID}), SuppliersRow))
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As SuppliersDataTable = (CType(MyBase.Clone(), SuppliersDataTable))
cln.InitVars()
Return cln
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New SuppliersDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub InitVars()
Me.columnSupplierID = MyBase.Columns("SupplierID")
Me.columnCompanyName = MyBase.Columns("CompanyName")
Me.columnContactName = MyBase.Columns("ContactName")
Me.columnContactTitle = MyBase.Columns("ContactTitle")
Me.columnAddress = MyBase.Columns("Address")
Me.columnCity = MyBase.Columns("City")
Me.columnRegion = MyBase.Columns("Region")
Me.columnPostalCode = MyBase.Columns("PostalCode")
Me.columnCountry = MyBase.Columns("Country")
Me.columnPhone = MyBase.Columns("Phone")
Me.columnFax = MyBase.Columns("Fax")
Me.columnHomePage = MyBase.Columns("HomePage")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitClass()
Me.columnSupplierID = New Global.System.Data.DataColumn("SupplierID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSupplierID)
Me.columnCompanyName = New Global.System.Data.DataColumn("CompanyName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCompanyName)
Me.columnContactName = New Global.System.Data.DataColumn("ContactName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnContactName)
Me.columnContactTitle = New Global.System.Data.DataColumn("ContactTitle", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnContactTitle)
Me.columnAddress = New Global.System.Data.DataColumn("Address", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnAddress)
Me.columnCity = New Global.System.Data.DataColumn("City", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCity)
Me.columnRegion = New Global.System.Data.DataColumn("Region", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnRegion)
Me.columnPostalCode = New Global.System.Data.DataColumn("PostalCode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPostalCode)
Me.columnCountry = New Global.System.Data.DataColumn("Country", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCountry)
Me.columnPhone = New Global.System.Data.DataColumn("Phone", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPhone)
Me.columnFax = New Global.System.Data.DataColumn("Fax", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnFax)
Me.columnHomePage = New Global.System.Data.DataColumn("HomePage", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnHomePage)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() { Me.columnSupplierID}, True))
Me.columnSupplierID.AutoIncrement = True
Me.columnSupplierID.AutoIncrementSeed = -1
Me.columnSupplierID.AutoIncrementStep = -1
Me.columnSupplierID.AllowDBNull = False
Me.columnSupplierID.Unique = True
Me.columnCompanyName.MaxLength = 40
Me.columnContactName.MaxLength = 30
Me.columnContactTitle.MaxLength = 30
Me.columnAddress.MaxLength = 60
Me.columnCity.MaxLength = 15
Me.columnRegion.MaxLength = 15
Me.columnPostalCode.MaxLength = 10
Me.columnCountry.MaxLength = 15
Me.columnPhone.MaxLength = 24
Me.columnFax.MaxLength = 24
Me.columnHomePage.MaxLength = 536870910
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function NewSuppliersRow() As SuppliersRow
Return (CType(Me.NewRow(), SuppliersRow))
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New SuppliersRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(SuppliersRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Me.SuppliersRowChangedEvent IsNot Nothing) Then
RaiseEvent SuppliersRowChanged(Me, New SuppliersRowChangeEvent((CType(e.Row, SuppliersRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Me.SuppliersRowChangingEvent IsNot Nothing) Then
RaiseEvent SuppliersRowChanging(Me, New SuppliersRowChangeEvent((CType(e.Row, SuppliersRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Me.SuppliersRowDeletedEvent IsNot Nothing) Then
RaiseEvent SuppliersRowDeleted(Me, New SuppliersRowChangeEvent((CType(e.Row, SuppliersRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Me.SuppliersRowDeletingEvent IsNot Nothing) Then
RaiseEvent SuppliersRowDeleting(Me, New SuppliersRowChangeEvent((CType(e.Row, SuppliersRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub RemoveSuppliersRow(ByVal row As SuppliersRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As New nwindDataSet()
Dim any1 As New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "SuppliersDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable()
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As New Global.System.IO.MemoryStream()
Dim s2 As New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator()
Do While schemas.MoveNext()
schema = (CType(schemas.Current, Global.System.Xml.Schema.XmlSchema))
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) AndAlso (s1.ReadByte() = s2.ReadByte()))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (s1 IsNot Nothing) Then
s1.Close()
End If
If (s2 IsNot Nothing) Then
s2.Close()
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
''' <summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), Global.System.Serializable(), Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class OrderReportsDataTable
Inherits System.Data.TypedTableBase(Of OrderReportsRow)
Private columnOrderID As Global.System.Data.DataColumn
Private columnProductID As Global.System.Data.DataColumn
Private columnProductName As Global.System.Data.DataColumn
Private columnUnitPrice As Global.System.Data.DataColumn
Private columnQuantity As Global.System.Data.DataColumn
Private columnDiscount As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
Me.TableName = "OrderReports"
Me.BeginInit()
Me.InitClass()
Me.EndInit()
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars()
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property OrderIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnOrderID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ProductIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnProductID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ProductNameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnProductName
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property UnitPriceColumn() As Global.System.Data.DataColumn
Get
Return Me.columnUnitPrice
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property QuantityColumn() As Global.System.Data.DataColumn
Get
Return Me.columnQuantity
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property DiscountColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDiscount
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Browsable(False)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Default Public ReadOnly Property Item(ByVal index As Integer) As OrderReportsRow
Get
Return (CType(Me.Rows(index), OrderReportsRow))
End Get
End Property
Public Event OrderReportsRowChanging As OrderReportsRowChangeEventHandler
Public Event OrderReportsRowChanged As OrderReportsRowChangeEventHandler
Public Event OrderReportsRowDeleting As OrderReportsRowChangeEventHandler
Public Event OrderReportsRowDeleted As OrderReportsRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub AddOrderReportsRow(ByVal row As OrderReportsRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function AddOrderReportsRow(ByVal OrderID As Integer, ByVal ProductID As Integer, ByVal ProductName As String, ByVal UnitPrice As Decimal, ByVal Quantity As Short, ByVal Discount As Single) As OrderReportsRow
Dim rowOrderReportsRow As OrderReportsRow = (CType(Me.NewRow(), OrderReportsRow))
Dim columnValuesArray() As Object = { OrderID, ProductID, ProductName, UnitPrice, Quantity, Discount}
rowOrderReportsRow.ItemArray = columnValuesArray
Me.Rows.Add(rowOrderReportsRow)
Return rowOrderReportsRow
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As OrderReportsDataTable = (CType(MyBase.Clone(), OrderReportsDataTable))
cln.InitVars()
Return cln
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New OrderReportsDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub InitVars()
Me.columnOrderID = MyBase.Columns("OrderID")
Me.columnProductID = MyBase.Columns("ProductID")
Me.columnProductName = MyBase.Columns("ProductName")
Me.columnUnitPrice = MyBase.Columns("UnitPrice")
Me.columnQuantity = MyBase.Columns("Quantity")
Me.columnDiscount = MyBase.Columns("Discount")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitClass()
Me.columnOrderID = New Global.System.Data.DataColumn("OrderID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnOrderID)
Me.columnProductID = New Global.System.Data.DataColumn("ProductID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnProductID)
Me.columnProductName = New Global.System.Data.DataColumn("ProductName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnProductName)
Me.columnUnitPrice = New Global.System.Data.DataColumn("UnitPrice", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnUnitPrice)
Me.columnQuantity = New Global.System.Data.DataColumn("Quantity", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnQuantity)
Me.columnDiscount = New Global.System.Data.DataColumn("Discount", GetType(Single), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDiscount)
Me.columnProductName.MaxLength = 40
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function NewOrderReportsRow() As OrderReportsRow
Return (CType(Me.NewRow(), OrderReportsRow))
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New OrderReportsRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(OrderReportsRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Me.OrderReportsRowChangedEvent IsNot Nothing) Then
RaiseEvent OrderReportsRowChanged(Me, New OrderReportsRowChangeEvent((CType(e.Row, OrderReportsRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Me.OrderReportsRowChangingEvent IsNot Nothing) Then
RaiseEvent OrderReportsRowChanging(Me, New OrderReportsRowChangeEvent((CType(e.Row, OrderReportsRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Me.OrderReportsRowDeletedEvent IsNot Nothing) Then
RaiseEvent OrderReportsRowDeleted(Me, New OrderReportsRowChangeEvent((CType(e.Row, OrderReportsRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Me.OrderReportsRowDeletingEvent IsNot Nothing) Then
RaiseEvent OrderReportsRowDeleting(Me, New OrderReportsRowChangeEvent((CType(e.Row, OrderReportsRow)), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub RemoveOrderReportsRow(ByVal row As OrderReportsRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As New nwindDataSet()
Dim any1 As New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "OrderReportsDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable()
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As New Global.System.IO.MemoryStream()
Dim s2 As New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator()
Do While schemas.MoveNext()
schema = (CType(schemas.Current, Global.System.Xml.Schema.XmlSchema))
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) AndAlso (s1.ReadByte() = s2.ReadByte()))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (s1 IsNot Nothing) Then
s1.Close()
End If
If (s2 IsNot Nothing) Then
s2.Close()
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
''' <summary>
'''Represents strongly named DataRow class.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Partial Public Class ShippersRow
Inherits System.Data.DataRow
Private tableShippers As ShippersDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableShippers = (CType(Me.Table, ShippersDataTable))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ShipperID() As Integer
Get
Return (CInt(Fix(Me(Me.tableShippers.ShipperIDColumn))))
End Get
Set(ByVal value As Integer)
Me(Me.tableShippers.ShipperIDColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property CompanyName() As String
Get
Try
Return (CStr(Me(Me.tableShippers.CompanyNameColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'CompanyName' in table 'Shippers' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableShippers.CompanyNameColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Phone() As String
Get
Try
Return (CStr(Me(Me.tableShippers.PhoneColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Phone' in table 'Shippers' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableShippers.PhoneColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsCompanyNameNull() As Boolean
Return Me.IsNull(Me.tableShippers.CompanyNameColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetCompanyNameNull()
Me(Me.tableShippers.CompanyNameColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsPhoneNull() As Boolean
Return Me.IsNull(Me.tableShippers.PhoneColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetPhoneNull()
Me(Me.tableShippers.PhoneColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function GetOrdersRows() As OrdersRow()
If (Me.Table.ChildRelations("ShippersOrders") Is Nothing) Then
Return New OrdersRow(){}
Else
Return (CType(MyBase.GetChildRows(Me.Table.ChildRelations("ShippersOrders")), OrdersRow()))
End If
End Function
End Class
''' <summary>
'''Represents strongly named DataRow class.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Partial Public Class OrdersRow
Inherits System.Data.DataRow
Private tableOrders As OrdersDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableOrders = (CType(Me.Table, OrdersDataTable))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property OrderID() As Integer
Get
Return (CInt(Fix(Me(Me.tableOrders.OrderIDColumn))))
End Get
Set(ByVal value As Integer)
Me(Me.tableOrders.OrderIDColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property CustomerID() As String
Get
Try
Return (CStr(Me(Me.tableOrders.CustomerIDColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'CustomerID' in table 'Orders' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableOrders.CustomerIDColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property EmployeeID() As Integer
Get
Try
Return (CInt(Fix(Me(Me.tableOrders.EmployeeIDColumn))))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'EmployeeID' in table 'Orders' is DBNull.", e)
End Try
End Get
Set(ByVal value As Integer)
Me(Me.tableOrders.EmployeeIDColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property OrderDate() As System.DateTime
Get
Try
Return (CDate(Me(Me.tableOrders.OrderDateColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'OrderDate' in table 'Orders' is DBNull.", e)
End Try
End Get
Set(ByVal value As System.DateTime)
Me(Me.tableOrders.OrderDateColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property RequiredDate() As System.DateTime
Get
Try
Return (CDate(Me(Me.tableOrders.RequiredDateColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'RequiredDate' in table 'Orders' is DBNull.", e)
End Try
End Get
Set(ByVal value As System.DateTime)
Me(Me.tableOrders.RequiredDateColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ShippedDate() As System.DateTime
Get
Try
Return (CDate(Me(Me.tableOrders.ShippedDateColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'ShippedDate' in table 'Orders' is DBNull.", e)
End Try
End Get
Set(ByVal value As System.DateTime)
Me(Me.tableOrders.ShippedDateColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ShipVia() As Integer
Get
Try
Return (CInt(Fix(Me(Me.tableOrders.ShipViaColumn))))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'ShipVia' in table 'Orders' is DBNull.", e)
End Try
End Get
Set(ByVal value As Integer)
Me(Me.tableOrders.ShipViaColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Freight() As Decimal
Get
Try
Return (CDec(Me(Me.tableOrders.FreightColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Freight' in table 'Orders' is DBNull.", e)
End Try
End Get
Set(ByVal value As Decimal)
Me(Me.tableOrders.FreightColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ShipName() As String
Get
Try
Return (CStr(Me(Me.tableOrders.ShipNameColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'ShipName' in table 'Orders' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableOrders.ShipNameColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ShipAddress() As String
Get
Try
Return (CStr(Me(Me.tableOrders.ShipAddressColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'ShipAddress' in table 'Orders' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableOrders.ShipAddressColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ShipCity() As String
Get
Try
Return (CStr(Me(Me.tableOrders.ShipCityColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'ShipCity' in table 'Orders' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableOrders.ShipCityColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ShipRegion() As String
Get
Try
Return (CStr(Me(Me.tableOrders.ShipRegionColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'ShipRegion' in table 'Orders' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableOrders.ShipRegionColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ShipPostalCode() As String
Get
Try
Return (CStr(Me(Me.tableOrders.ShipPostalCodeColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'ShipPostalCode' in table 'Orders' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableOrders.ShipPostalCodeColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ShipCountry() As String
Get
Try
Return (CStr(Me(Me.tableOrders.ShipCountryColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'ShipCountry' in table 'Orders' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableOrders.ShipCountryColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ShippersRow() As ShippersRow
Get
Return (CType(Me.GetParentRow(Me.Table.ParentRelations("ShippersOrders")), ShippersRow))
End Get
Set(ByVal value As ShippersRow)
Me.SetParentRow(value, Me.Table.ParentRelations("ShippersOrders"))
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property CustomersRow() As CustomersRow
Get
Return (CType(Me.GetParentRow(Me.Table.ParentRelations("CustomersOrders")), CustomersRow))
End Get
Set(ByVal value As CustomersRow)
Me.SetParentRow(value, Me.Table.ParentRelations("CustomersOrders"))
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property EmployeesRow() As EmployeesRow
Get
Return (CType(Me.GetParentRow(Me.Table.ParentRelations("EmployeesOrders")), EmployeesRow))
End Get
Set(ByVal value As EmployeesRow)
Me.SetParentRow(value, Me.Table.ParentRelations("EmployeesOrders"))
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsCustomerIDNull() As Boolean
Return Me.IsNull(Me.tableOrders.CustomerIDColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetCustomerIDNull()
Me(Me.tableOrders.CustomerIDColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsEmployeeIDNull() As Boolean
Return Me.IsNull(Me.tableOrders.EmployeeIDColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetEmployeeIDNull()
Me(Me.tableOrders.EmployeeIDColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsOrderDateNull() As Boolean
Return Me.IsNull(Me.tableOrders.OrderDateColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetOrderDateNull()
Me(Me.tableOrders.OrderDateColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsRequiredDateNull() As Boolean
Return Me.IsNull(Me.tableOrders.RequiredDateColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetRequiredDateNull()
Me(Me.tableOrders.RequiredDateColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsShippedDateNull() As Boolean
Return Me.IsNull(Me.tableOrders.ShippedDateColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetShippedDateNull()
Me(Me.tableOrders.ShippedDateColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsShipViaNull() As Boolean
Return Me.IsNull(Me.tableOrders.ShipViaColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetShipViaNull()
Me(Me.tableOrders.ShipViaColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsFreightNull() As Boolean
Return Me.IsNull(Me.tableOrders.FreightColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetFreightNull()
Me(Me.tableOrders.FreightColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsShipNameNull() As Boolean
Return Me.IsNull(Me.tableOrders.ShipNameColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetShipNameNull()
Me(Me.tableOrders.ShipNameColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsShipAddressNull() As Boolean
Return Me.IsNull(Me.tableOrders.ShipAddressColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetShipAddressNull()
Me(Me.tableOrders.ShipAddressColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsShipCityNull() As Boolean
Return Me.IsNull(Me.tableOrders.ShipCityColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetShipCityNull()
Me(Me.tableOrders.ShipCityColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsShipRegionNull() As Boolean
Return Me.IsNull(Me.tableOrders.ShipRegionColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetShipRegionNull()
Me(Me.tableOrders.ShipRegionColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsShipPostalCodeNull() As Boolean
Return Me.IsNull(Me.tableOrders.ShipPostalCodeColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetShipPostalCodeNull()
Me(Me.tableOrders.ShipPostalCodeColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsShipCountryNull() As Boolean
Return Me.IsNull(Me.tableOrders.ShipCountryColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetShipCountryNull()
Me(Me.tableOrders.ShipCountryColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function GetOrder_DetailsRows() As Order_DetailsRow()
If (Me.Table.ChildRelations("OrdersOrder Details") Is Nothing) Then
Return New Order_DetailsRow(){}
Else
Return (CType(MyBase.GetChildRows(Me.Table.ChildRelations("OrdersOrder Details")), Order_DetailsRow()))
End If
End Function
End Class
''' <summary>
'''Represents strongly named DataRow class.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Partial Public Class Order_DetailsRow
Inherits System.Data.DataRow
Private tableOrder_Details As Order_DetailsDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableOrder_Details = (CType(Me.Table, Order_DetailsDataTable))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property OrderID() As Integer
Get
Return (CInt(Fix(Me(Me.tableOrder_Details.OrderIDColumn))))
End Get
Set(ByVal value As Integer)
Me(Me.tableOrder_Details.OrderIDColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ProductID() As Integer
Get
Return (CInt(Fix(Me(Me.tableOrder_Details.ProductIDColumn))))
End Get
Set(ByVal value As Integer)
Me(Me.tableOrder_Details.ProductIDColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property UnitPrice() As Decimal
Get
Try
Return (CDec(Me(Me.tableOrder_Details.UnitPriceColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'UnitPrice' in table 'Order Details' is DBNull.", e)
End Try
End Get
Set(ByVal value As Decimal)
Me(Me.tableOrder_Details.UnitPriceColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Quantity() As Short
Get
Try
Return (CShort(Fix(Me(Me.tableOrder_Details.QuantityColumn))))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Quantity' in table 'Order Details' is DBNull.", e)
End Try
End Get
Set(ByVal value As Short)
Me(Me.tableOrder_Details.QuantityColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Discount() As Single
Get
Try
Return (CSng(Me(Me.tableOrder_Details.DiscountColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Discount' in table 'Order Details' is DBNull.", e)
End Try
End Get
Set(ByVal value As Single)
Me(Me.tableOrder_Details.DiscountColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property SubTotal() As Decimal
Get
Try
Return (CDec(Me(Me.tableOrder_Details.SubTotalColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'SubTotal' in table 'Order Details' is DBNull.", e)
End Try
End Get
Set(ByVal value As Decimal)
Me(Me.tableOrder_Details.SubTotalColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property OrdersRow() As OrdersRow
Get
Return (CType(Me.GetParentRow(Me.Table.ParentRelations("OrdersOrder Details")), OrdersRow))
End Get
Set(ByVal value As OrdersRow)
Me.SetParentRow(value, Me.Table.ParentRelations("OrdersOrder Details"))
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ProductsRow() As ProductsRow
Get
Return (CType(Me.GetParentRow(Me.Table.ParentRelations("ProductsOrder Details")), ProductsRow))
End Get
Set(ByVal value As ProductsRow)
Me.SetParentRow(value, Me.Table.ParentRelations("ProductsOrder Details"))
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsUnitPriceNull() As Boolean
Return Me.IsNull(Me.tableOrder_Details.UnitPriceColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetUnitPriceNull()
Me(Me.tableOrder_Details.UnitPriceColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsQuantityNull() As Boolean
Return Me.IsNull(Me.tableOrder_Details.QuantityColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetQuantityNull()
Me(Me.tableOrder_Details.QuantityColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsDiscountNull() As Boolean
Return Me.IsNull(Me.tableOrder_Details.DiscountColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetDiscountNull()
Me(Me.tableOrder_Details.DiscountColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsSubTotalNull() As Boolean
Return Me.IsNull(Me.tableOrder_Details.SubTotalColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetSubTotalNull()
Me(Me.tableOrder_Details.SubTotalColumn) = Global.System.Convert.DBNull
End Sub
End Class
''' <summary>
'''Represents strongly named DataRow class.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Partial Public Class CategoriesRow
Inherits System.Data.DataRow
Private tableCategories As CategoriesDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableCategories = (CType(Me.Table, CategoriesDataTable))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property CategoryID() As Integer
Get
Return (CInt(Fix(Me(Me.tableCategories.CategoryIDColumn))))
End Get
Set(ByVal value As Integer)
Me(Me.tableCategories.CategoryIDColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property CategoryName() As String
Get
Try
Return (CStr(Me(Me.tableCategories.CategoryNameColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'CategoryName' in table 'Categories' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableCategories.CategoryNameColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Description() As String
Get
Try
Return (CStr(Me(Me.tableCategories.DescriptionColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Description' in table 'Categories' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableCategories.DescriptionColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Picture() As Byte()
Get
Try
Return (CType(Me(Me.tableCategories.PictureColumn), Byte()))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Picture' in table 'Categories' is DBNull.", e)
End Try
End Get
Set(ByVal value As Byte())
Me(Me.tableCategories.PictureColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Icon_17() As Byte()
Get
Try
Return (CType(Me(Me.tableCategories.Icon_17Column), Byte()))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Icon_17' in table 'Categories' is DBNull.", e)
End Try
End Get
Set(ByVal value As Byte())
Me(Me.tableCategories.Icon_17Column) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Icon_25() As Byte()
Get
Try
Return (CType(Me(Me.tableCategories.Icon_25Column), Byte()))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Icon_25' in table 'Categories' is DBNull.", e)
End Try
End Get
Set(ByVal value As Byte())
Me(Me.tableCategories.Icon_25Column) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsCategoryNameNull() As Boolean
Return Me.IsNull(Me.tableCategories.CategoryNameColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetCategoryNameNull()
Me(Me.tableCategories.CategoryNameColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsDescriptionNull() As Boolean
Return Me.IsNull(Me.tableCategories.DescriptionColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetDescriptionNull()
Me(Me.tableCategories.DescriptionColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsPictureNull() As Boolean
Return Me.IsNull(Me.tableCategories.PictureColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetPictureNull()
Me(Me.tableCategories.PictureColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsIcon_17Null() As Boolean
Return Me.IsNull(Me.tableCategories.Icon_17Column)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetIcon_17Null()
Me(Me.tableCategories.Icon_17Column) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsIcon_25Null() As Boolean
Return Me.IsNull(Me.tableCategories.Icon_25Column)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetIcon_25Null()
Me(Me.tableCategories.Icon_25Column) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function GetProductsRows() As ProductsRow()
If (Me.Table.ChildRelations("CategoriesProducts") Is Nothing) Then
Return New ProductsRow(){}
Else
Return (CType(MyBase.GetChildRows(Me.Table.ChildRelations("CategoriesProducts")), ProductsRow()))
End If
End Function
End Class
''' <summary>
'''Represents strongly named DataRow class.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Partial Public Class ProductsRow
Inherits System.Data.DataRow
Private tableProducts As ProductsDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableProducts = (CType(Me.Table, ProductsDataTable))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ProductID() As Integer
Get
Return (CInt(Fix(Me(Me.tableProducts.ProductIDColumn))))
End Get
Set(ByVal value As Integer)
Me(Me.tableProducts.ProductIDColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ProductName() As String
Get
Try
Return (CStr(Me(Me.tableProducts.ProductNameColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'ProductName' in table 'Products' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableProducts.ProductNameColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property SupplierID() As Integer
Get
Try
Return (CInt(Fix(Me(Me.tableProducts.SupplierIDColumn))))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'SupplierID' in table 'Products' is DBNull.", e)
End Try
End Get
Set(ByVal value As Integer)
Me(Me.tableProducts.SupplierIDColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property CategoryID() As Integer
Get
Try
Return (CInt(Fix(Me(Me.tableProducts.CategoryIDColumn))))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'CategoryID' in table 'Products' is DBNull.", e)
End Try
End Get
Set(ByVal value As Integer)
Me(Me.tableProducts.CategoryIDColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property QuantityPerUnit() As String
Get
Try
Return (CStr(Me(Me.tableProducts.QuantityPerUnitColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'QuantityPerUnit' in table 'Products' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableProducts.QuantityPerUnitColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property UnitPrice() As Decimal
Get
Try
Return (CDec(Me(Me.tableProducts.UnitPriceColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'UnitPrice' in table 'Products' is DBNull.", e)
End Try
End Get
Set(ByVal value As Decimal)
Me(Me.tableProducts.UnitPriceColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Discontinued() As Boolean
Get
Try
Return (CBool(Me(Me.tableProducts.DiscontinuedColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Discontinued' in table 'Products' is DBNull.", e)
End Try
End Get
Set(ByVal value As Boolean)
Me(Me.tableProducts.DiscontinuedColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property CategoryName() As String
Get
Try
Return (CStr(Me(Me.tableProducts.CategoryNameColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'CategoryName' in table 'Products' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableProducts.CategoryNameColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Description() As String
Get
Try
Return (CStr(Me(Me.tableProducts.DescriptionColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Description' in table 'Products' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableProducts.DescriptionColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Picture() As Byte()
Get
Try
Return (CType(Me(Me.tableProducts.PictureColumn), Byte()))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Picture' in table 'Products' is DBNull.", e)
End Try
End Get
Set(ByVal value As Byte())
Me(Me.tableProducts.PictureColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property CategoriesRow() As CategoriesRow
Get
Return (CType(Me.GetParentRow(Me.Table.ParentRelations("CategoriesProducts")), CategoriesRow))
End Get
Set(ByVal value As CategoriesRow)
Me.SetParentRow(value, Me.Table.ParentRelations("CategoriesProducts"))
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property SuppliersRow() As SuppliersRow
Get
Return (CType(Me.GetParentRow(Me.Table.ParentRelations("SuppliersProducts")), SuppliersRow))
End Get
Set(ByVal value As SuppliersRow)
Me.SetParentRow(value, Me.Table.ParentRelations("SuppliersProducts"))
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsProductNameNull() As Boolean
Return Me.IsNull(Me.tableProducts.ProductNameColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetProductNameNull()
Me(Me.tableProducts.ProductNameColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsSupplierIDNull() As Boolean
Return Me.IsNull(Me.tableProducts.SupplierIDColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetSupplierIDNull()
Me(Me.tableProducts.SupplierIDColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsCategoryIDNull() As Boolean
Return Me.IsNull(Me.tableProducts.CategoryIDColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetCategoryIDNull()
Me(Me.tableProducts.CategoryIDColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsQuantityPerUnitNull() As Boolean
Return Me.IsNull(Me.tableProducts.QuantityPerUnitColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetQuantityPerUnitNull()
Me(Me.tableProducts.QuantityPerUnitColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsUnitPriceNull() As Boolean
Return Me.IsNull(Me.tableProducts.UnitPriceColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetUnitPriceNull()
Me(Me.tableProducts.UnitPriceColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsDiscontinuedNull() As Boolean
Return Me.IsNull(Me.tableProducts.DiscontinuedColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetDiscontinuedNull()
Me(Me.tableProducts.DiscontinuedColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsCategoryNameNull() As Boolean
Return Me.IsNull(Me.tableProducts.CategoryNameColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetCategoryNameNull()
Me(Me.tableProducts.CategoryNameColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsDescriptionNull() As Boolean
Return Me.IsNull(Me.tableProducts.DescriptionColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetDescriptionNull()
Me(Me.tableProducts.DescriptionColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsPictureNull() As Boolean
Return Me.IsNull(Me.tableProducts.PictureColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetPictureNull()
Me(Me.tableProducts.PictureColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function GetOrder_DetailsRows() As Order_DetailsRow()
If (Me.Table.ChildRelations("ProductsOrder Details") Is Nothing) Then
Return New Order_DetailsRow(){}
Else
Return (CType(MyBase.GetChildRows(Me.Table.ChildRelations("ProductsOrder Details")), Order_DetailsRow()))
End If
End Function
End Class
''' <summary>
'''Represents strongly named DataRow class.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Partial Public Class CustomersRow
Inherits System.Data.DataRow
Private tableCustomers As CustomersDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableCustomers = (CType(Me.Table, CustomersDataTable))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property CustomerID() As String
Get
Return (CStr(Me(Me.tableCustomers.CustomerIDColumn)))
End Get
Set(ByVal value As String)
Me(Me.tableCustomers.CustomerIDColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property CompanyName() As String
Get
Try
Return (CStr(Me(Me.tableCustomers.CompanyNameColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'CompanyName' in table 'Customers' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableCustomers.CompanyNameColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ContactName() As String
Get
Try
Return (CStr(Me(Me.tableCustomers.ContactNameColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'ContactName' in table 'Customers' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableCustomers.ContactNameColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ContactTitle() As String
Get
Try
Return (CStr(Me(Me.tableCustomers.ContactTitleColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'ContactTitle' in table 'Customers' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableCustomers.ContactTitleColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Address() As String
Get
Try
Return (CStr(Me(Me.tableCustomers.AddressColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Address' in table 'Customers' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableCustomers.AddressColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property City() As String
Get
Try
Return (CStr(Me(Me.tableCustomers.CityColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'City' in table 'Customers' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableCustomers.CityColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Region() As String
Get
Try
Return (CStr(Me(Me.tableCustomers.RegionColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Region' in table 'Customers' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableCustomers.RegionColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property PostalCode() As String
Get
Try
Return (CStr(Me(Me.tableCustomers.PostalCodeColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'PostalCode' in table 'Customers' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableCustomers.PostalCodeColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Country() As String
Get
Try
Return (CStr(Me(Me.tableCustomers.CountryColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Country' in table 'Customers' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableCustomers.CountryColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Phone() As String
Get
Try
Return (CStr(Me(Me.tableCustomers.PhoneColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Phone' in table 'Customers' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableCustomers.PhoneColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Fax() As String
Get
Try
Return (CStr(Me(Me.tableCustomers.FaxColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Fax' in table 'Customers' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableCustomers.FaxColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsCompanyNameNull() As Boolean
Return Me.IsNull(Me.tableCustomers.CompanyNameColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetCompanyNameNull()
Me(Me.tableCustomers.CompanyNameColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsContactNameNull() As Boolean
Return Me.IsNull(Me.tableCustomers.ContactNameColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetContactNameNull()
Me(Me.tableCustomers.ContactNameColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsContactTitleNull() As Boolean
Return Me.IsNull(Me.tableCustomers.ContactTitleColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetContactTitleNull()
Me(Me.tableCustomers.ContactTitleColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsAddressNull() As Boolean
Return Me.IsNull(Me.tableCustomers.AddressColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetAddressNull()
Me(Me.tableCustomers.AddressColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsCityNull() As Boolean
Return Me.IsNull(Me.tableCustomers.CityColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetCityNull()
Me(Me.tableCustomers.CityColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsRegionNull() As Boolean
Return Me.IsNull(Me.tableCustomers.RegionColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetRegionNull()
Me(Me.tableCustomers.RegionColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsPostalCodeNull() As Boolean
Return Me.IsNull(Me.tableCustomers.PostalCodeColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetPostalCodeNull()
Me(Me.tableCustomers.PostalCodeColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsCountryNull() As Boolean
Return Me.IsNull(Me.tableCustomers.CountryColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetCountryNull()
Me(Me.tableCustomers.CountryColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsPhoneNull() As Boolean
Return Me.IsNull(Me.tableCustomers.PhoneColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetPhoneNull()
Me(Me.tableCustomers.PhoneColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsFaxNull() As Boolean
Return Me.IsNull(Me.tableCustomers.FaxColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetFaxNull()
Me(Me.tableCustomers.FaxColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function GetOrdersRows() As OrdersRow()
If (Me.Table.ChildRelations("CustomersOrders") Is Nothing) Then
Return New OrdersRow(){}
Else
Return (CType(MyBase.GetChildRows(Me.Table.ChildRelations("CustomersOrders")), OrdersRow()))
End If
End Function
End Class
''' <summary>
'''Represents strongly named DataRow class.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Partial Public Class EmployeesRow
Inherits System.Data.DataRow
Private tableEmployees As EmployeesDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableEmployees = (CType(Me.Table, EmployeesDataTable))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property EmployeeID() As Integer
Get
Return (CInt(Fix(Me(Me.tableEmployees.EmployeeIDColumn))))
End Get
Set(ByVal value As Integer)
Me(Me.tableEmployees.EmployeeIDColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property LastName() As String
Get
Try
Return (CStr(Me(Me.tableEmployees.LastNameColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'LastName' in table 'Employees' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableEmployees.LastNameColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property FirstName() As String
Get
Try
Return (CStr(Me(Me.tableEmployees.FirstNameColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'FirstName' in table 'Employees' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableEmployees.FirstNameColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Title() As String
Get
Try
Return (CStr(Me(Me.tableEmployees.TitleColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Title' in table 'Employees' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableEmployees.TitleColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property TitleOfCourtesy() As String
Get
Try
Return (CStr(Me(Me.tableEmployees.TitleOfCourtesyColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'TitleOfCourtesy' in table 'Employees' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableEmployees.TitleOfCourtesyColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property BirthDate() As System.DateTime
Get
Try
Return (CDate(Me(Me.tableEmployees.BirthDateColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'BirthDate' in table 'Employees' is DBNull.", e)
End Try
End Get
Set(ByVal value As System.DateTime)
Me(Me.tableEmployees.BirthDateColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property HireDate() As System.DateTime
Get
Try
Return (CDate(Me(Me.tableEmployees.HireDateColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'HireDate' in table 'Employees' is DBNull.", e)
End Try
End Get
Set(ByVal value As System.DateTime)
Me(Me.tableEmployees.HireDateColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Address() As String
Get
Try
Return (CStr(Me(Me.tableEmployees.AddressColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Address' in table 'Employees' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableEmployees.AddressColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property City() As String
Get
Try
Return (CStr(Me(Me.tableEmployees.CityColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'City' in table 'Employees' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableEmployees.CityColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Region() As String
Get
Try
Return (CStr(Me(Me.tableEmployees.RegionColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Region' in table 'Employees' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableEmployees.RegionColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property PostalCode() As String
Get
Try
Return (CStr(Me(Me.tableEmployees.PostalCodeColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'PostalCode' in table 'Employees' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableEmployees.PostalCodeColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Country() As String
Get
Try
Return (CStr(Me(Me.tableEmployees.CountryColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Country' in table 'Employees' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableEmployees.CountryColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property HomePhone() As String
Get
Try
Return (CStr(Me(Me.tableEmployees.HomePhoneColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'HomePhone' in table 'Employees' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableEmployees.HomePhoneColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Extension() As String
Get
Try
Return (CStr(Me(Me.tableEmployees.ExtensionColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Extension' in table 'Employees' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableEmployees.ExtensionColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Photo() As Byte()
Get
Try
Return (CType(Me(Me.tableEmployees.PhotoColumn), Byte()))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Photo' in table 'Employees' is DBNull.", e)
End Try
End Get
Set(ByVal value As Byte())
Me(Me.tableEmployees.PhotoColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Notes() As String
Get
Try
Return (CStr(Me(Me.tableEmployees.NotesColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Notes' in table 'Employees' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableEmployees.NotesColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ReportsTo() As Integer
Get
Try
Return (CInt(Fix(Me(Me.tableEmployees.ReportsToColumn))))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'ReportsTo' in table 'Employees' is DBNull.", e)
End Try
End Get
Set(ByVal value As Integer)
Me(Me.tableEmployees.ReportsToColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsLastNameNull() As Boolean
Return Me.IsNull(Me.tableEmployees.LastNameColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetLastNameNull()
Me(Me.tableEmployees.LastNameColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsFirstNameNull() As Boolean
Return Me.IsNull(Me.tableEmployees.FirstNameColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetFirstNameNull()
Me(Me.tableEmployees.FirstNameColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsTitleNull() As Boolean
Return Me.IsNull(Me.tableEmployees.TitleColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetTitleNull()
Me(Me.tableEmployees.TitleColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsTitleOfCourtesyNull() As Boolean
Return Me.IsNull(Me.tableEmployees.TitleOfCourtesyColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetTitleOfCourtesyNull()
Me(Me.tableEmployees.TitleOfCourtesyColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsBirthDateNull() As Boolean
Return Me.IsNull(Me.tableEmployees.BirthDateColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetBirthDateNull()
Me(Me.tableEmployees.BirthDateColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsHireDateNull() As Boolean
Return Me.IsNull(Me.tableEmployees.HireDateColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetHireDateNull()
Me(Me.tableEmployees.HireDateColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsAddressNull() As Boolean
Return Me.IsNull(Me.tableEmployees.AddressColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetAddressNull()
Me(Me.tableEmployees.AddressColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsCityNull() As Boolean
Return Me.IsNull(Me.tableEmployees.CityColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetCityNull()
Me(Me.tableEmployees.CityColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsRegionNull() As Boolean
Return Me.IsNull(Me.tableEmployees.RegionColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetRegionNull()
Me(Me.tableEmployees.RegionColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsPostalCodeNull() As Boolean
Return Me.IsNull(Me.tableEmployees.PostalCodeColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetPostalCodeNull()
Me(Me.tableEmployees.PostalCodeColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsCountryNull() As Boolean
Return Me.IsNull(Me.tableEmployees.CountryColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetCountryNull()
Me(Me.tableEmployees.CountryColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsHomePhoneNull() As Boolean
Return Me.IsNull(Me.tableEmployees.HomePhoneColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetHomePhoneNull()
Me(Me.tableEmployees.HomePhoneColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsExtensionNull() As Boolean
Return Me.IsNull(Me.tableEmployees.ExtensionColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetExtensionNull()
Me(Me.tableEmployees.ExtensionColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsPhotoNull() As Boolean
Return Me.IsNull(Me.tableEmployees.PhotoColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetPhotoNull()
Me(Me.tableEmployees.PhotoColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsNotesNull() As Boolean
Return Me.IsNull(Me.tableEmployees.NotesColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetNotesNull()
Me(Me.tableEmployees.NotesColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsReportsToNull() As Boolean
Return Me.IsNull(Me.tableEmployees.ReportsToColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetReportsToNull()
Me(Me.tableEmployees.ReportsToColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function GetOrdersRows() As OrdersRow()
If (Me.Table.ChildRelations("EmployeesOrders") Is Nothing) Then
Return New OrdersRow(){}
Else
Return (CType(MyBase.GetChildRows(Me.Table.ChildRelations("EmployeesOrders")), OrdersRow()))
End If
End Function
End Class
''' <summary>
'''Represents strongly named DataRow class.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Partial Public Class SuppliersRow
Inherits System.Data.DataRow
Private tableSuppliers As SuppliersDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableSuppliers = (CType(Me.Table, SuppliersDataTable))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property SupplierID() As Integer
Get
Return (CInt(Fix(Me(Me.tableSuppliers.SupplierIDColumn))))
End Get
Set(ByVal value As Integer)
Me(Me.tableSuppliers.SupplierIDColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property CompanyName() As String
Get
Try
Return (CStr(Me(Me.tableSuppliers.CompanyNameColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'CompanyName' in table 'Suppliers' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableSuppliers.CompanyNameColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ContactName() As String
Get
Try
Return (CStr(Me(Me.tableSuppliers.ContactNameColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'ContactName' in table 'Suppliers' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableSuppliers.ContactNameColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ContactTitle() As String
Get
Try
Return (CStr(Me(Me.tableSuppliers.ContactTitleColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'ContactTitle' in table 'Suppliers' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableSuppliers.ContactTitleColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Address() As String
Get
Try
Return (CStr(Me(Me.tableSuppliers.AddressColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Address' in table 'Suppliers' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableSuppliers.AddressColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property City() As String
Get
Try
Return (CStr(Me(Me.tableSuppliers.CityColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'City' in table 'Suppliers' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableSuppliers.CityColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Region() As String
Get
Try
Return (CStr(Me(Me.tableSuppliers.RegionColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Region' in table 'Suppliers' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableSuppliers.RegionColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property PostalCode() As String
Get
Try
Return (CStr(Me(Me.tableSuppliers.PostalCodeColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'PostalCode' in table 'Suppliers' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableSuppliers.PostalCodeColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Country() As String
Get
Try
Return (CStr(Me(Me.tableSuppliers.CountryColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Country' in table 'Suppliers' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableSuppliers.CountryColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Phone() As String
Get
Try
Return (CStr(Me(Me.tableSuppliers.PhoneColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Phone' in table 'Suppliers' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableSuppliers.PhoneColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Fax() As String
Get
Try
Return (CStr(Me(Me.tableSuppliers.FaxColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Fax' in table 'Suppliers' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableSuppliers.FaxColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property HomePage() As String
Get
Try
Return (CStr(Me(Me.tableSuppliers.HomePageColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'HomePage' in table 'Suppliers' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableSuppliers.HomePageColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsCompanyNameNull() As Boolean
Return Me.IsNull(Me.tableSuppliers.CompanyNameColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetCompanyNameNull()
Me(Me.tableSuppliers.CompanyNameColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsContactNameNull() As Boolean
Return Me.IsNull(Me.tableSuppliers.ContactNameColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetContactNameNull()
Me(Me.tableSuppliers.ContactNameColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsContactTitleNull() As Boolean
Return Me.IsNull(Me.tableSuppliers.ContactTitleColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetContactTitleNull()
Me(Me.tableSuppliers.ContactTitleColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsAddressNull() As Boolean
Return Me.IsNull(Me.tableSuppliers.AddressColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetAddressNull()
Me(Me.tableSuppliers.AddressColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsCityNull() As Boolean
Return Me.IsNull(Me.tableSuppliers.CityColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetCityNull()
Me(Me.tableSuppliers.CityColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsRegionNull() As Boolean
Return Me.IsNull(Me.tableSuppliers.RegionColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetRegionNull()
Me(Me.tableSuppliers.RegionColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsPostalCodeNull() As Boolean
Return Me.IsNull(Me.tableSuppliers.PostalCodeColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetPostalCodeNull()
Me(Me.tableSuppliers.PostalCodeColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsCountryNull() As Boolean
Return Me.IsNull(Me.tableSuppliers.CountryColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetCountryNull()
Me(Me.tableSuppliers.CountryColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsPhoneNull() As Boolean
Return Me.IsNull(Me.tableSuppliers.PhoneColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetPhoneNull()
Me(Me.tableSuppliers.PhoneColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsFaxNull() As Boolean
Return Me.IsNull(Me.tableSuppliers.FaxColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetFaxNull()
Me(Me.tableSuppliers.FaxColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsHomePageNull() As Boolean
Return Me.IsNull(Me.tableSuppliers.HomePageColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetHomePageNull()
Me(Me.tableSuppliers.HomePageColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function GetProductsRows() As ProductsRow()
If (Me.Table.ChildRelations("SuppliersProducts") Is Nothing) Then
Return New ProductsRow(){}
Else
Return (CType(MyBase.GetChildRows(Me.Table.ChildRelations("SuppliersProducts")), ProductsRow()))
End If
End Function
End Class
''' <summary>
'''Represents strongly named DataRow class.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Partial Public Class OrderReportsRow
Inherits System.Data.DataRow
Private tableOrderReports As OrderReportsDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableOrderReports = (CType(Me.Table, OrderReportsDataTable))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property OrderID() As Integer
Get
Try
Return (CInt(Fix(Me(Me.tableOrderReports.OrderIDColumn))))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'OrderID' in table 'OrderReports' is DBNull.", e)
End Try
End Get
Set(ByVal value As Integer)
Me(Me.tableOrderReports.OrderIDColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ProductID() As Integer
Get
Try
Return (CInt(Fix(Me(Me.tableOrderReports.ProductIDColumn))))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'ProductID' in table 'OrderReports' is DBNull.", e)
End Try
End Get
Set(ByVal value As Integer)
Me(Me.tableOrderReports.ProductIDColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ProductName() As String
Get
Try
Return (CStr(Me(Me.tableOrderReports.ProductNameColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'ProductName' in table 'OrderReports' is DBNull.", e)
End Try
End Get
Set(ByVal value As String)
Me(Me.tableOrderReports.ProductNameColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property UnitPrice() As Decimal
Get
Try
Return (CDec(Me(Me.tableOrderReports.UnitPriceColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'UnitPrice' in table 'OrderReports' is DBNull.", e)
End Try
End Get
Set(ByVal value As Decimal)
Me(Me.tableOrderReports.UnitPriceColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Quantity() As Short
Get
Try
Return (CShort(Fix(Me(Me.tableOrderReports.QuantityColumn))))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Quantity' in table 'OrderReports' is DBNull.", e)
End Try
End Get
Set(ByVal value As Short)
Me(Me.tableOrderReports.QuantityColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Discount() As Single
Get
Try
Return (CSng(Me(Me.tableOrderReports.DiscountColumn)))
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("The value for column 'Discount' in table 'OrderReports' is DBNull.", e)
End Try
End Get
Set(ByVal value As Single)
Me(Me.tableOrderReports.DiscountColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsOrderIDNull() As Boolean
Return Me.IsNull(Me.tableOrderReports.OrderIDColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetOrderIDNull()
Me(Me.tableOrderReports.OrderIDColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsProductIDNull() As Boolean
Return Me.IsNull(Me.tableOrderReports.ProductIDColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetProductIDNull()
Me(Me.tableOrderReports.ProductIDColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsProductNameNull() As Boolean
Return Me.IsNull(Me.tableOrderReports.ProductNameColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetProductNameNull()
Me(Me.tableOrderReports.ProductNameColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsUnitPriceNull() As Boolean
Return Me.IsNull(Me.tableOrderReports.UnitPriceColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetUnitPriceNull()
Me(Me.tableOrderReports.UnitPriceColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsQuantityNull() As Boolean
Return Me.IsNull(Me.tableOrderReports.QuantityColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetQuantityNull()
Me(Me.tableOrderReports.QuantityColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsDiscountNull() As Boolean
Return Me.IsNull(Me.tableOrderReports.DiscountColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetDiscountNull()
Me(Me.tableOrderReports.DiscountColumn) = Global.System.Convert.DBNull
End Sub
End Class
''' <summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Public Class ShippersRowChangeEvent
Inherits System.EventArgs
Private eventRow As ShippersRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New(ByVal row As ShippersRow, ByVal action As Global.System.Data.DataRowAction)
Me.eventRow = row
Me.eventAction = action
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Row() As ShippersRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
''' <summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Public Class OrdersRowChangeEvent
Inherits System.EventArgs
Private eventRow As OrdersRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New(ByVal row As OrdersRow, ByVal action As Global.System.Data.DataRowAction)
Me.eventRow = row
Me.eventAction = action
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Row() As OrdersRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
''' <summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Public Class Order_DetailsRowChangeEvent
Inherits System.EventArgs
Private eventRow As Order_DetailsRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New(ByVal row As Order_DetailsRow, ByVal action As Global.System.Data.DataRowAction)
Me.eventRow = row
Me.eventAction = action
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Row() As Order_DetailsRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
''' <summary>
'''Row event argument class
'''</summary>
<Global.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 Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New(ByVal row As CategoriesRow, ByVal action As Global.System.Data.DataRowAction)
Me.eventRow = row
Me.eventAction = action
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Row() As CategoriesRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
''' <summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Public Class ProductsRowChangeEvent
Inherits System.EventArgs
Private eventRow As ProductsRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New(ByVal row As ProductsRow, ByVal action As Global.System.Data.DataRowAction)
Me.eventRow = row
Me.eventAction = action
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Row() As ProductsRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
''' <summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Public Class CustomersRowChangeEvent
Inherits System.EventArgs
Private eventRow As CustomersRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New(ByVal row As CustomersRow, ByVal action As Global.System.Data.DataRowAction)
Me.eventRow = row
Me.eventAction = action
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Row() As CustomersRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
''' <summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Public Class EmployeesRowChangeEvent
Inherits System.EventArgs
Private eventRow As EmployeesRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New(ByVal row As EmployeesRow, ByVal action As Global.System.Data.DataRowAction)
Me.eventRow = row
Me.eventAction = action
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Row() As EmployeesRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
''' <summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Public Class SuppliersRowChangeEvent
Inherits System.EventArgs
Private eventRow As SuppliersRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New(ByVal row As SuppliersRow, ByVal action As Global.System.Data.DataRowAction)
Me.eventRow = row
Me.eventAction = action
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Row() As SuppliersRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
''' <summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Public Class OrderReportsRowChangeEvent
Inherits System.EventArgs
Private eventRow As OrderReportsRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New(ByVal row As OrderReportsRow, ByVal action As Global.System.Data.DataRowAction)
Me.eventRow = row
Me.eventAction = action
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Row() As OrderReportsRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
End Class
End Namespace
Namespace SnapDemos.nwindDataSetTableAdapters
''' <summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), Global.System.ComponentModel.DesignerCategoryAttribute("code"), Global.System.ComponentModel.ToolboxItem(True), Global.System.ComponentModel.DataObjectAttribute(True), Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner" & ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Partial Public Class ShippersTableAdapter
Inherits System.ComponentModel.Component
Private _adapter As Global.System.Data.OleDb.OleDbDataAdapter
Private _connection As Global.System.Data.OleDb.OleDbConnection
Private _transaction As Global.System.Data.OleDb.OleDbTransaction
Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
Private _clearBeforeFill As Boolean
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
Me.ClearBeforeFill = True
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
Get
If (Me._adapter Is Nothing) Then
Me.InitAdapter()
End If
Return Me._adapter
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
Get
If (Me._connection Is Nothing) Then
Me.InitConnection()
End If
Return Me._connection
End Get
Set(ByVal value As System.Data.OleDb.OleDbConnection)
Me._connection = value
If (Me.Adapter.InsertCommand IsNot Nothing) Then
Me.Adapter.InsertCommand.Connection = value
End If
If (Me.Adapter.DeleteCommand IsNot Nothing) Then
Me.Adapter.DeleteCommand.Connection = value
End If
If (Me.Adapter.UpdateCommand IsNot Nothing) Then
Me.Adapter.UpdateCommand.Connection = value
End If
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
If (Me.CommandCollection(i) IsNot Nothing) Then
CType(Me.CommandCollection(i), Global.System.Data.OleDb.OleDbCommand).Connection = value
End If
i = (i + 1)
Loop
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
Get
Return Me._transaction
End Get
Set(ByVal value As System.Data.OleDb.OleDbTransaction)
Me._transaction = value
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
Me.CommandCollection(i).Transaction = Me._transaction
i = (i + 1)
Loop
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.DeleteCommand IsNot Nothing)) Then
Me.Adapter.DeleteCommand.Transaction = Me._transaction
End If
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.InsertCommand IsNot Nothing)) Then
Me.Adapter.InsertCommand.Transaction = Me._transaction
End If
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.UpdateCommand IsNot Nothing)) Then
Me.Adapter.UpdateCommand.Transaction = Me._transaction
End If
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
Get
If (Me._commandCollection Is Nothing) Then
Me.InitCommandCollection()
End If
Return Me._commandCollection
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set(ByVal value As Boolean)
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitAdapter()
Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
Dim tableMapping As New Global.System.Data.Common.DataTableMapping()
tableMapping.SourceTable = "Table"
tableMapping.DataSetTable = "Shippers"
tableMapping.ColumnMappings.Add("ShipperID", "ShipperID")
tableMapping.ColumnMappings.Add("CompanyName", "CompanyName")
tableMapping.ColumnMappings.Add("Phone", "Phone")
Me._adapter.TableMappings.Add(tableMapping)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitConnection()
Me._connection = New Global.System.Data.OleDb.OleDbConnection()
Me._connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\DXProducts\2012.1\Demos.Win\EasyR" & "eportsDemos\Data\nwind.mdb"
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitCommandCollection()
Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0){}
Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT ShipperID, CompanyName, Phone" & Constants.vbCrLf & "FROM Shippers"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, True)> _
Public Overridable Function Fill(ByVal dataTable As nwindDataSet.ShippersDataTable) 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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Select, True)> _
Public Overridable Function GetData() As nwindDataSet.ShippersDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Dim dataTable As New nwindDataSet.ShippersDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
End Class
''' <summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), Global.System.ComponentModel.DesignerCategoryAttribute("code"), Global.System.ComponentModel.ToolboxItem(True), Global.System.ComponentModel.DataObjectAttribute(True), Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner" & ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Partial Public Class OrdersTableAdapter
Inherits System.ComponentModel.Component
Private _adapter As Global.System.Data.OleDb.OleDbDataAdapter
Private _connection As Global.System.Data.OleDb.OleDbConnection
Private _transaction As Global.System.Data.OleDb.OleDbTransaction
Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
Private _clearBeforeFill As Boolean
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
Me.ClearBeforeFill = True
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
Get
If (Me._adapter Is Nothing) Then
Me.InitAdapter()
End If
Return Me._adapter
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
Get
If (Me._connection Is Nothing) Then
Me.InitConnection()
End If
Return Me._connection
End Get
Set(ByVal value As System.Data.OleDb.OleDbConnection)
Me._connection = value
If (Me.Adapter.InsertCommand IsNot Nothing) Then
Me.Adapter.InsertCommand.Connection = value
End If
If (Me.Adapter.DeleteCommand IsNot Nothing) Then
Me.Adapter.DeleteCommand.Connection = value
End If
If (Me.Adapter.UpdateCommand IsNot Nothing) Then
Me.Adapter.UpdateCommand.Connection = value
End If
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
If (Me.CommandCollection(i) IsNot Nothing) Then
CType(Me.CommandCollection(i), Global.System.Data.OleDb.OleDbCommand).Connection = value
End If
i = (i + 1)
Loop
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
Get
Return Me._transaction
End Get
Set(ByVal value As System.Data.OleDb.OleDbTransaction)
Me._transaction = value
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
Me.CommandCollection(i).Transaction = Me._transaction
i = (i + 1)
Loop
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.DeleteCommand IsNot Nothing)) Then
Me.Adapter.DeleteCommand.Transaction = Me._transaction
End If
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.InsertCommand IsNot Nothing)) Then
Me.Adapter.InsertCommand.Transaction = Me._transaction
End If
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.UpdateCommand IsNot Nothing)) Then
Me.Adapter.UpdateCommand.Transaction = Me._transaction
End If
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
Get
If (Me._commandCollection Is Nothing) Then
Me.InitCommandCollection()
End If
Return Me._commandCollection
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set(ByVal value As Boolean)
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitAdapter()
Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
Dim tableMapping As New Global.System.Data.Common.DataTableMapping()
tableMapping.SourceTable = "Table"
tableMapping.DataSetTable = "Orders"
tableMapping.ColumnMappings.Add("OrderID", "OrderID")
tableMapping.ColumnMappings.Add("CustomerID", "CustomerID")
tableMapping.ColumnMappings.Add("EmployeeID", "EmployeeID")
tableMapping.ColumnMappings.Add("OrderDate", "OrderDate")
tableMapping.ColumnMappings.Add("RequiredDate", "RequiredDate")
tableMapping.ColumnMappings.Add("ShippedDate", "ShippedDate")
tableMapping.ColumnMappings.Add("ShipVia", "ShipVia")
tableMapping.ColumnMappings.Add("Freight", "Freight")
tableMapping.ColumnMappings.Add("ShipName", "ShipName")
tableMapping.ColumnMappings.Add("ShipAddress", "ShipAddress")
tableMapping.ColumnMappings.Add("ShipCity", "ShipCity")
tableMapping.ColumnMappings.Add("ShipRegion", "ShipRegion")
tableMapping.ColumnMappings.Add("ShipPostalCode", "ShipPostalCode")
tableMapping.ColumnMappings.Add("ShipCountry", "ShipCountry")
Me._adapter.TableMappings.Add(tableMapping)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitConnection()
Me._connection = New Global.System.Data.OleDb.OleDbConnection()
Me._connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\DXProducts\2012.1\Demos.Win\EasyR" & "eportsDemos\Data\nwind.mdb"
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitCommandCollection()
Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0){}
Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT OrderID, CustomerID, EmployeeID, OrderDate, RequiredDate, ShippedDa" & "te, ShipVia, Freight, ShipName, ShipAddress, ShipCity, ShipRegion, ShipPostalCod" & "e, " & Constants.vbCrLf & " ShipCountry" & Constants.vbCrLf & "FROM Orders"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, True)> _
Public Overridable Function Fill(ByVal dataTable As nwindDataSet.OrdersDataTable) 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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Select, True)> _
Public Overridable Function GetData() As nwindDataSet.OrdersDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Dim dataTable As New nwindDataSet.OrdersDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
End Class
''' <summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), Global.System.ComponentModel.DesignerCategoryAttribute("code"), Global.System.ComponentModel.ToolboxItem(True), Global.System.ComponentModel.DataObjectAttribute(True), Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner" & ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Partial Public Class Order_DetailsTableAdapter
Inherits System.ComponentModel.Component
Private _adapter As Global.System.Data.OleDb.OleDbDataAdapter
Private _connection As Global.System.Data.OleDb.OleDbConnection
Private _transaction As Global.System.Data.OleDb.OleDbTransaction
Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
Private _clearBeforeFill As Boolean
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
Me.ClearBeforeFill = True
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
Get
If (Me._adapter Is Nothing) Then
Me.InitAdapter()
End If
Return Me._adapter
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
Get
If (Me._connection Is Nothing) Then
Me.InitConnection()
End If
Return Me._connection
End Get
Set(ByVal value As System.Data.OleDb.OleDbConnection)
Me._connection = value
If (Me.Adapter.InsertCommand IsNot Nothing) Then
Me.Adapter.InsertCommand.Connection = value
End If
If (Me.Adapter.DeleteCommand IsNot Nothing) Then
Me.Adapter.DeleteCommand.Connection = value
End If
If (Me.Adapter.UpdateCommand IsNot Nothing) Then
Me.Adapter.UpdateCommand.Connection = value
End If
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
If (Me.CommandCollection(i) IsNot Nothing) Then
CType(Me.CommandCollection(i), Global.System.Data.OleDb.OleDbCommand).Connection = value
End If
i = (i + 1)
Loop
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
Get
Return Me._transaction
End Get
Set(ByVal value As System.Data.OleDb.OleDbTransaction)
Me._transaction = value
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
Me.CommandCollection(i).Transaction = Me._transaction
i = (i + 1)
Loop
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.DeleteCommand IsNot Nothing)) Then
Me.Adapter.DeleteCommand.Transaction = Me._transaction
End If
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.InsertCommand IsNot Nothing)) Then
Me.Adapter.InsertCommand.Transaction = Me._transaction
End If
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.UpdateCommand IsNot Nothing)) Then
Me.Adapter.UpdateCommand.Transaction = Me._transaction
End If
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
Get
If (Me._commandCollection Is Nothing) Then
Me.InitCommandCollection()
End If
Return Me._commandCollection
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set(ByVal value As Boolean)
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitAdapter()
Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
Dim tableMapping As New Global.System.Data.Common.DataTableMapping()
tableMapping.SourceTable = "Table"
tableMapping.DataSetTable = "Order Details"
tableMapping.ColumnMappings.Add("OrderID", "OrderID")
tableMapping.ColumnMappings.Add("ProductID", "ProductID")
tableMapping.ColumnMappings.Add("UnitPrice", "UnitPrice")
tableMapping.ColumnMappings.Add("Quantity", "Quantity")
tableMapping.ColumnMappings.Add("Discount", "Discount")
tableMapping.ColumnMappings.Add("SubTotal", "SubTotal")
Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection
Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Order Details` WHERE (((? = 1 AND `Discount` IS NULL) OR (`Discount`" & " = ?)) AND (`OrderID` = ?) AND (`ProductID` = ?) AND ((? = 1 AND `Quantity` IS N" & "ULL) OR (`Quantity` = ?)) AND ((? = 1 AND `UnitPrice` IS NULL) OR (`UnitPrice` =" & " ?)))"
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Discount", Global.System.Data.OleDb.OleDbType.Integer, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "Discount", Global.System.Data.DataRowVersion.Original, True, Nothing))
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Discount", Global.System.Data.OleDb.OleDbType.Single, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "Discount", Global.System.Data.DataRowVersion.Original, False, Nothing))
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OrderID", Global.System.Data.OleDb.OleDbType.Integer, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "OrderID", Global.System.Data.DataRowVersion.Original, False, Nothing))
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ProductID", Global.System.Data.OleDb.OleDbType.Integer, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "ProductID", Global.System.Data.DataRowVersion.Original, False, Nothing))
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Quantity", Global.System.Data.OleDb.OleDbType.Integer, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "Quantity", Global.System.Data.DataRowVersion.Original, True, Nothing))
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Quantity", Global.System.Data.OleDb.OleDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "Quantity", Global.System.Data.DataRowVersion.Original, False, Nothing))
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_UnitPrice", Global.System.Data.OleDb.OleDbType.Integer, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "UnitPrice", Global.System.Data.DataRowVersion.Original, True, Nothing))
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UnitPrice", Global.System.Data.OleDb.OleDbType.Currency, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "UnitPrice", Global.System.Data.DataRowVersion.Original, False, Nothing))
Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO `Order Details` (`Discount`, `OrderID`, `ProductID`, `Quantity`, `Uni" & "tPrice`) VALUES (?, ?, ?, ?, ?)"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Discount", Global.System.Data.OleDb.OleDbType.Single, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "Discount", Global.System.Data.DataRowVersion.Current, False, Nothing))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OrderID", Global.System.Data.OleDb.OleDbType.Integer, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "OrderID", Global.System.Data.DataRowVersion.Current, False, Nothing))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("ProductID", Global.System.Data.OleDb.OleDbType.Integer, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "ProductID", Global.System.Data.DataRowVersion.Current, False, Nothing))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Quantity", Global.System.Data.OleDb.OleDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "Quantity", Global.System.Data.DataRowVersion.Current, False, Nothing))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("UnitPrice", Global.System.Data.OleDb.OleDbType.Currency, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "UnitPrice", Global.System.Data.DataRowVersion.Current, False, Nothing))
Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection
Me._adapter.UpdateCommand.CommandText = "UPDATE `Order Details` SET `Discount` = ?, `OrderID` = ?, `ProductID` = ?, `Quantity` = ?, `UnitPrice` = ? WHERE (((? = 1 AND `Discount` IS NULL) OR (`Discount` = ?)) AND (`OrderID` = ?) AND (`ProductID` = ?) AND ((? = 1 AND `Quantity` IS NULL) OR (`Quantity` = ?)) AND ((? = 1 AND `UnitPrice` IS NULL) OR (`UnitPrice` = ?)))"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Discount", Global.System.Data.OleDb.OleDbType.Single, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "Discount", Global.System.Data.DataRowVersion.Current, False, Nothing))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OrderID", Global.System.Data.OleDb.OleDbType.Integer, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "OrderID", Global.System.Data.DataRowVersion.Current, False, Nothing))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("ProductID", Global.System.Data.OleDb.OleDbType.Integer, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "ProductID", Global.System.Data.DataRowVersion.Current, False, Nothing))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Quantity", Global.System.Data.OleDb.OleDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "Quantity", Global.System.Data.DataRowVersion.Current, False, Nothing))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("UnitPrice", Global.System.Data.OleDb.OleDbType.Currency, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "UnitPrice", Global.System.Data.DataRowVersion.Current, False, Nothing))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Discount", Global.System.Data.OleDb.OleDbType.Integer, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "Discount", Global.System.Data.DataRowVersion.Original, True, Nothing))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Discount", Global.System.Data.OleDb.OleDbType.Single, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "Discount", Global.System.Data.DataRowVersion.Original, False, Nothing))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OrderID", Global.System.Data.OleDb.OleDbType.Integer, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "OrderID", Global.System.Data.DataRowVersion.Original, False, Nothing))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ProductID", Global.System.Data.OleDb.OleDbType.Integer, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "ProductID", Global.System.Data.DataRowVersion.Original, False, Nothing))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Quantity", Global.System.Data.OleDb.OleDbType.Integer, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "Quantity", Global.System.Data.DataRowVersion.Original, True, Nothing))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Quantity", Global.System.Data.OleDb.OleDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "Quantity", Global.System.Data.DataRowVersion.Original, False, Nothing))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_UnitPrice", Global.System.Data.OleDb.OleDbType.Integer, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "UnitPrice", Global.System.Data.DataRowVersion.Original, True, Nothing))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_UnitPrice", Global.System.Data.OleDb.OleDbType.Currency, 0, Global.System.Data.ParameterDirection.Input, (CByte(0)), (CByte(0)), "UnitPrice", Global.System.Data.DataRowVersion.Original, False, Nothing))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitConnection()
Me._connection = New Global.System.Data.OleDb.OleDbConnection()
Me._connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\DXProducts\2012.1\Demos.Win\EasyR" & "eportsDemos\Data\nwind.mdb"
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitCommandCollection()
Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0){}
Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT Discount, OrderID, ProductID, Quantity, UnitPrice, Quantity * UnitP" & "rice AS SubTotal" & Constants.vbCrLf & "FROM [Order Details]"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, True)> _
Public Overridable Function Fill(ByVal dataTable As nwindDataSet.Order_DetailsDataTable) 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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Select, True)> _
Public Overridable Function GetData() As nwindDataSet.Order_DetailsDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Dim dataTable As New nwindDataSet.Order_DetailsDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overridable Function Update(ByVal dataTable As nwindDataSet.Order_DetailsDataTable) As Integer
Return Me.Adapter.Update(dataTable)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overridable Function Update(ByVal dataSet As nwindDataSet) As Integer
Return Me.Adapter.Update(dataSet, "Order Details")
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
Return Me.Adapter.Update(New Global.System.Data.DataRow() { dataRow})
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
Return Me.Adapter.Update(dataRows)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, True)> _
Public Overridable Function Delete(ByVal Original_Discount As Single, ByVal Original_OrderID? As Integer, ByVal Original_ProductID As Integer, ByVal Original_Quantity As Short, ByVal Original_UnitPrice As Decimal) As Integer
Me.Adapter.DeleteCommand.Parameters(0).Value = (CObj(0))
Me.Adapter.DeleteCommand.Parameters(1).Value = (CSng(Original_Discount))
If (Original_OrderID.HasValue = True) Then
Me.Adapter.DeleteCommand.Parameters(2).Value = (CInt(Fix(Original_OrderID.Value)))
Else
Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
End If
Me.Adapter.DeleteCommand.Parameters(3).Value = (CInt(Fix(Original_ProductID)))
Me.Adapter.DeleteCommand.Parameters(4).Value = (CObj(0))
Me.Adapter.DeleteCommand.Parameters(5).Value = (CShort(Fix(Original_Quantity)))
Me.Adapter.DeleteCommand.Parameters(6).Value = (CObj(0))
Me.Adapter.DeleteCommand.Parameters(7).Value = (CDec(Original_UnitPrice))
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) <> Global.System.Data.ConnectionState.Open) Then
Me.Adapter.DeleteCommand.Connection.Open()
End If
Try
Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery()
Return returnValue
Finally
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
Me.Adapter.DeleteCommand.Connection.Close()
End If
End Try
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, True)> _
Public Overridable Function Insert(ByVal Discount As Single, ByVal OrderID? As Integer, ByVal ProductID As Integer, ByVal Quantity As Short, ByVal UnitPrice As Decimal) As Integer
Me.Adapter.InsertCommand.Parameters(0).Value = (CSng(Discount))
If (OrderID.HasValue = True) Then
Me.Adapter.InsertCommand.Parameters(1).Value = (CInt(Fix(OrderID.Value)))
Else
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
End If
Me.Adapter.InsertCommand.Parameters(2).Value = (CInt(Fix(ProductID)))
Me.Adapter.InsertCommand.Parameters(3).Value = (CShort(Fix(Quantity)))
Me.Adapter.InsertCommand.Parameters(4).Value = (CDec(UnitPrice))
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) <> Global.System.Data.ConnectionState.Open) Then
Me.Adapter.InsertCommand.Connection.Open()
End If
Try
Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery()
Return returnValue
Finally
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
Me.Adapter.InsertCommand.Connection.Close()
End If
End Try
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, True)> _
Public Overridable Function Update(ByVal Discount As Single, ByVal OrderID? As Integer, ByVal ProductID As Integer, ByVal Quantity As Short, ByVal UnitPrice As Decimal, ByVal Original_Discount As Single, ByVal Original_OrderID? As Integer, ByVal Original_ProductID As Integer, ByVal Original_Quantity As Short, ByVal Original_UnitPrice As Decimal) As Integer
Me.Adapter.UpdateCommand.Parameters(0).Value = (CSng(Discount))
If (OrderID.HasValue = True) Then
Me.Adapter.UpdateCommand.Parameters(1).Value = (CInt(Fix(OrderID.Value)))
Else
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
End If
Me.Adapter.UpdateCommand.Parameters(2).Value = (CInt(Fix(ProductID)))
Me.Adapter.UpdateCommand.Parameters(3).Value = (CShort(Fix(Quantity)))
Me.Adapter.UpdateCommand.Parameters(4).Value = (CDec(UnitPrice))
Me.Adapter.UpdateCommand.Parameters(5).Value = (CObj(0))
Me.Adapter.UpdateCommand.Parameters(6).Value = (CSng(Original_Discount))
If (Original_OrderID.HasValue = True) Then
Me.Adapter.UpdateCommand.Parameters(7).Value = (CInt(Fix(Original_OrderID.Value)))
Else
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
End If
Me.Adapter.UpdateCommand.Parameters(8).Value = (CInt(Fix(Original_ProductID)))
Me.Adapter.UpdateCommand.Parameters(9).Value = (CObj(0))
Me.Adapter.UpdateCommand.Parameters(10).Value = (CShort(Fix(Original_Quantity)))
Me.Adapter.UpdateCommand.Parameters(11).Value = (CObj(0))
Me.Adapter.UpdateCommand.Parameters(12).Value = (CDec(Original_UnitPrice))
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) <> Global.System.Data.ConnectionState.Open) Then
Me.Adapter.UpdateCommand.Connection.Open()
End If
Try
Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery()
Return returnValue
Finally
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
Me.Adapter.UpdateCommand.Connection.Close()
End If
End Try
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, True)> _
Public Overridable Function Update(ByVal Discount As Single, ByVal Quantity As Short, ByVal UnitPrice As Decimal, ByVal Original_Discount As Single, ByVal Original_OrderID? As Integer, ByVal Original_ProductID As Integer, ByVal Original_Quantity As Short, ByVal Original_UnitPrice As Decimal) As Integer
Return Me.Update(Discount, Original_OrderID, Original_ProductID, Quantity, UnitPrice, Original_Discount, Original_OrderID, Original_ProductID, Original_Quantity, Original_UnitPrice)
End Function
End Class
''' <summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), Global.System.ComponentModel.DesignerCategoryAttribute("code"), Global.System.ComponentModel.ToolboxItem(True), Global.System.ComponentModel.DataObjectAttribute(True), Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner" & ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Partial Public Class CategoriesTableAdapter
Inherits System.ComponentModel.Component
Private _adapter As Global.System.Data.OleDb.OleDbDataAdapter
Private _connection As Global.System.Data.OleDb.OleDbConnection
Private _transaction As Global.System.Data.OleDb.OleDbTransaction
Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
Private _clearBeforeFill As Boolean
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
Me.ClearBeforeFill = True
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
Get
If (Me._adapter Is Nothing) Then
Me.InitAdapter()
End If
Return Me._adapter
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
Get
If (Me._connection Is Nothing) Then
Me.InitConnection()
End If
Return Me._connection
End Get
Set(ByVal value As System.Data.OleDb.OleDbConnection)
Me._connection = value
If (Me.Adapter.InsertCommand IsNot Nothing) Then
Me.Adapter.InsertCommand.Connection = value
End If
If (Me.Adapter.DeleteCommand IsNot Nothing) Then
Me.Adapter.DeleteCommand.Connection = value
End If
If (Me.Adapter.UpdateCommand IsNot Nothing) Then
Me.Adapter.UpdateCommand.Connection = value
End If
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
If (Me.CommandCollection(i) IsNot Nothing) Then
CType(Me.CommandCollection(i), Global.System.Data.OleDb.OleDbCommand).Connection = value
End If
i = (i + 1)
Loop
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
Get
Return Me._transaction
End Get
Set(ByVal value As System.Data.OleDb.OleDbTransaction)
Me._transaction = value
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
Me.CommandCollection(i).Transaction = Me._transaction
i = (i + 1)
Loop
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.DeleteCommand IsNot Nothing)) Then
Me.Adapter.DeleteCommand.Transaction = Me._transaction
End If
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.InsertCommand IsNot Nothing)) Then
Me.Adapter.InsertCommand.Transaction = Me._transaction
End If
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.UpdateCommand IsNot Nothing)) Then
Me.Adapter.UpdateCommand.Transaction = Me._transaction
End If
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
Get
If (Me._commandCollection Is Nothing) Then
Me.InitCommandCollection()
End If
Return Me._commandCollection
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set(ByVal value As Boolean)
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitAdapter()
Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
Dim tableMapping As New Global.System.Data.Common.DataTableMapping()
tableMapping.SourceTable = "Table"
tableMapping.DataSetTable = "Categories"
tableMapping.ColumnMappings.Add("CategoryID", "CategoryID")
tableMapping.ColumnMappings.Add("CategoryName", "CategoryName")
tableMapping.ColumnMappings.Add("Description", "Description")
tableMapping.ColumnMappings.Add("Picture", "Picture")
tableMapping.ColumnMappings.Add("Icon_17", "Icon_17")
tableMapping.ColumnMappings.Add("Icon_25", "Icon_25")
Me._adapter.TableMappings.Add(tableMapping)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitConnection()
Me._connection = New Global.System.Data.OleDb.OleDbConnection()
Me._connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\DXProducts\2012.1\Demos.Win\EasyR" & "eportsDemos\Data\nwind.mdb"
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitCommandCollection()
Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0){}
Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT Categories.*" & Constants.vbCrLf & "FROM Categories"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, True)> _
Public Overridable Function Fill(ByVal dataTable As nwindDataSet.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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Select, True)> _
Public Overridable Function GetData() As nwindDataSet.CategoriesDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Dim dataTable As New nwindDataSet.CategoriesDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
End Class
''' <summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), Global.System.ComponentModel.DesignerCategoryAttribute("code"), Global.System.ComponentModel.ToolboxItem(True), Global.System.ComponentModel.DataObjectAttribute(True), Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner" & ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Partial Public Class ProductsTableAdapter
Inherits System.ComponentModel.Component
Private _adapter As Global.System.Data.OleDb.OleDbDataAdapter
Private _connection As Global.System.Data.OleDb.OleDbConnection
Private _transaction As Global.System.Data.OleDb.OleDbTransaction
Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
Private _clearBeforeFill As Boolean
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
Me.ClearBeforeFill = True
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
Get
If (Me._adapter Is Nothing) Then
Me.InitAdapter()
End If
Return Me._adapter
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
Get
If (Me._connection Is Nothing) Then
Me.InitConnection()
End If
Return Me._connection
End Get
Set(ByVal value As System.Data.OleDb.OleDbConnection)
Me._connection = value
If (Me.Adapter.InsertCommand IsNot Nothing) Then
Me.Adapter.InsertCommand.Connection = value
End If
If (Me.Adapter.DeleteCommand IsNot Nothing) Then
Me.Adapter.DeleteCommand.Connection = value
End If
If (Me.Adapter.UpdateCommand IsNot Nothing) Then
Me.Adapter.UpdateCommand.Connection = value
End If
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
If (Me.CommandCollection(i) IsNot Nothing) Then
CType(Me.CommandCollection(i), Global.System.Data.OleDb.OleDbCommand).Connection = value
End If
i = (i + 1)
Loop
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
Get
Return Me._transaction
End Get
Set(ByVal value As System.Data.OleDb.OleDbTransaction)
Me._transaction = value
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
Me.CommandCollection(i).Transaction = Me._transaction
i = (i + 1)
Loop
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.DeleteCommand IsNot Nothing)) Then
Me.Adapter.DeleteCommand.Transaction = Me._transaction
End If
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.InsertCommand IsNot Nothing)) Then
Me.Adapter.InsertCommand.Transaction = Me._transaction
End If
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.UpdateCommand IsNot Nothing)) Then
Me.Adapter.UpdateCommand.Transaction = Me._transaction
End If
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
Get
If (Me._commandCollection Is Nothing) Then
Me.InitCommandCollection()
End If
Return Me._commandCollection
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set(ByVal value As Boolean)
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitAdapter()
Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
Dim tableMapping As New Global.System.Data.Common.DataTableMapping()
tableMapping.SourceTable = "Table"
tableMapping.DataSetTable = "Products"
tableMapping.ColumnMappings.Add("ProductID", "ProductID")
tableMapping.ColumnMappings.Add("ProductName", "ProductName")
tableMapping.ColumnMappings.Add("SupplierID", "SupplierID")
tableMapping.ColumnMappings.Add("CategoryID", "CategoryID")
tableMapping.ColumnMappings.Add("QuantityPerUnit", "QuantityPerUnit")
tableMapping.ColumnMappings.Add("UnitPrice", "UnitPrice")
tableMapping.ColumnMappings.Add("Discontinued", "Discontinued")
tableMapping.ColumnMappings.Add("CategoryName", "CategoryName")
tableMapping.ColumnMappings.Add("Description", "Description")
tableMapping.ColumnMappings.Add("Picture", "Picture")
Me._adapter.TableMappings.Add(tableMapping)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitConnection()
Me._connection = New Global.System.Data.OleDb.OleDbConnection()
Me._connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\DXProducts\2012.1\Demos.Win\EasyR" & "eportsDemos\Data\nwind.mdb"
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitCommandCollection()
Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0){}
Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT Categories.CategoryName, Categories.Description, Categories.Picture, Products.CategoryID, Products.Discontinued, Products.ProductID, Products.ProductName, " & ControlChars.CrLf & " Products.QuantityPerUnit, Products.SupplierID, Products.UnitPrice" & ControlChars.CrLf & "FROM (Products INNER JOIN" & ControlChars.CrLf & " Categories ON Products.CategoryID = Categories.CategoryID)"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, True)> _
Public Overridable Function Fill(ByVal dataTable As nwindDataSet.ProductsDataTable) 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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Select, True)> _
Public Overridable Function GetData() As nwindDataSet.ProductsDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Dim dataTable As New nwindDataSet.ProductsDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
End Class
''' <summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), Global.System.ComponentModel.DesignerCategoryAttribute("code"), Global.System.ComponentModel.ToolboxItem(True), Global.System.ComponentModel.DataObjectAttribute(True), Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner" & ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Partial Public Class CustomersTableAdapter
Inherits System.ComponentModel.Component
Private _adapter As Global.System.Data.OleDb.OleDbDataAdapter
Private _connection As Global.System.Data.OleDb.OleDbConnection
Private _transaction As Global.System.Data.OleDb.OleDbTransaction
Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
Private _clearBeforeFill As Boolean
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
Me.ClearBeforeFill = True
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
Get
If (Me._adapter Is Nothing) Then
Me.InitAdapter()
End If
Return Me._adapter
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
Get
If (Me._connection Is Nothing) Then
Me.InitConnection()
End If
Return Me._connection
End Get
Set(ByVal value As System.Data.OleDb.OleDbConnection)
Me._connection = value
If (Me.Adapter.InsertCommand IsNot Nothing) Then
Me.Adapter.InsertCommand.Connection = value
End If
If (Me.Adapter.DeleteCommand IsNot Nothing) Then
Me.Adapter.DeleteCommand.Connection = value
End If
If (Me.Adapter.UpdateCommand IsNot Nothing) Then
Me.Adapter.UpdateCommand.Connection = value
End If
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
If (Me.CommandCollection(i) IsNot Nothing) Then
CType(Me.CommandCollection(i), Global.System.Data.OleDb.OleDbCommand).Connection = value
End If
i = (i + 1)
Loop
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
Get
Return Me._transaction
End Get
Set(ByVal value As System.Data.OleDb.OleDbTransaction)
Me._transaction = value
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
Me.CommandCollection(i).Transaction = Me._transaction
i = (i + 1)
Loop
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.DeleteCommand IsNot Nothing)) Then
Me.Adapter.DeleteCommand.Transaction = Me._transaction
End If
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.InsertCommand IsNot Nothing)) Then
Me.Adapter.InsertCommand.Transaction = Me._transaction
End If
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.UpdateCommand IsNot Nothing)) Then
Me.Adapter.UpdateCommand.Transaction = Me._transaction
End If
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
Get
If (Me._commandCollection Is Nothing) Then
Me.InitCommandCollection()
End If
Return Me._commandCollection
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set(ByVal value As Boolean)
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitAdapter()
Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
Dim tableMapping As New Global.System.Data.Common.DataTableMapping()
tableMapping.SourceTable = "Table"
tableMapping.DataSetTable = "Customers"
tableMapping.ColumnMappings.Add("CustomerID", "CustomerID")
tableMapping.ColumnMappings.Add("CompanyName", "CompanyName")
tableMapping.ColumnMappings.Add("ContactName", "ContactName")
tableMapping.ColumnMappings.Add("ContactTitle", "ContactTitle")
tableMapping.ColumnMappings.Add("Address", "Address")
tableMapping.ColumnMappings.Add("City", "City")
tableMapping.ColumnMappings.Add("Region", "Region")
tableMapping.ColumnMappings.Add("PostalCode", "PostalCode")
tableMapping.ColumnMappings.Add("Country", "Country")
tableMapping.ColumnMappings.Add("Phone", "Phone")
tableMapping.ColumnMappings.Add("Fax", "Fax")
Me._adapter.TableMappings.Add(tableMapping)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitConnection()
Me._connection = New Global.System.Data.OleDb.OleDbConnection()
Me._connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\DXProducts\2012.1\Demos.Win\EasyR" & "eportsDemos\Data\nwind.mdb"
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitCommandCollection()
Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0){}
Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT Customers.*" & Constants.vbCrLf & "FROM Customers"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, True)> _
Public Overridable Function Fill(ByVal dataTable As nwindDataSet.CustomersDataTable) 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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Select, True)> _
Public Overridable Function GetData() As nwindDataSet.CustomersDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Dim dataTable As New nwindDataSet.CustomersDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
End Class
''' <summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), Global.System.ComponentModel.DesignerCategoryAttribute("code"), Global.System.ComponentModel.ToolboxItem(True), Global.System.ComponentModel.DataObjectAttribute(True), Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner" & ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Partial Public Class EmployeesTableAdapter
Inherits System.ComponentModel.Component
Private _adapter As Global.System.Data.OleDb.OleDbDataAdapter
Private _connection As Global.System.Data.OleDb.OleDbConnection
Private _transaction As Global.System.Data.OleDb.OleDbTransaction
Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
Private _clearBeforeFill As Boolean
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
Me.ClearBeforeFill = True
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
Get
If (Me._adapter Is Nothing) Then
Me.InitAdapter()
End If
Return Me._adapter
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
Get
If (Me._connection Is Nothing) Then
Me.InitConnection()
End If
Return Me._connection
End Get
Set(ByVal value As System.Data.OleDb.OleDbConnection)
Me._connection = value
If (Me.Adapter.InsertCommand IsNot Nothing) Then
Me.Adapter.InsertCommand.Connection = value
End If
If (Me.Adapter.DeleteCommand IsNot Nothing) Then
Me.Adapter.DeleteCommand.Connection = value
End If
If (Me.Adapter.UpdateCommand IsNot Nothing) Then
Me.Adapter.UpdateCommand.Connection = value
End If
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
If (Me.CommandCollection(i) IsNot Nothing) Then
CType(Me.CommandCollection(i), Global.System.Data.OleDb.OleDbCommand).Connection = value
End If
i = (i + 1)
Loop
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
Get
Return Me._transaction
End Get
Set(ByVal value As System.Data.OleDb.OleDbTransaction)
Me._transaction = value
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
Me.CommandCollection(i).Transaction = Me._transaction
i = (i + 1)
Loop
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.DeleteCommand IsNot Nothing)) Then
Me.Adapter.DeleteCommand.Transaction = Me._transaction
End If
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.InsertCommand IsNot Nothing)) Then
Me.Adapter.InsertCommand.Transaction = Me._transaction
End If
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.UpdateCommand IsNot Nothing)) Then
Me.Adapter.UpdateCommand.Transaction = Me._transaction
End If
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
Get
If (Me._commandCollection Is Nothing) Then
Me.InitCommandCollection()
End If
Return Me._commandCollection
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set(ByVal value As Boolean)
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitAdapter()
Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
Dim tableMapping As New Global.System.Data.Common.DataTableMapping()
tableMapping.SourceTable = "Table"
tableMapping.DataSetTable = "Employees"
tableMapping.ColumnMappings.Add("EmployeeID", "EmployeeID")
tableMapping.ColumnMappings.Add("LastName", "LastName")
tableMapping.ColumnMappings.Add("FirstName", "FirstName")
tableMapping.ColumnMappings.Add("Title", "Title")
tableMapping.ColumnMappings.Add("TitleOfCourtesy", "TitleOfCourtesy")
tableMapping.ColumnMappings.Add("BirthDate", "BirthDate")
tableMapping.ColumnMappings.Add("HireDate", "HireDate")
tableMapping.ColumnMappings.Add("Address", "Address")
tableMapping.ColumnMappings.Add("City", "City")
tableMapping.ColumnMappings.Add("Region", "Region")
tableMapping.ColumnMappings.Add("PostalCode", "PostalCode")
tableMapping.ColumnMappings.Add("Country", "Country")
tableMapping.ColumnMappings.Add("HomePhone", "HomePhone")
tableMapping.ColumnMappings.Add("Extension", "Extension")
tableMapping.ColumnMappings.Add("Photo", "Photo")
tableMapping.ColumnMappings.Add("Notes", "Notes")
tableMapping.ColumnMappings.Add("ReportsTo", "ReportsTo")
Me._adapter.TableMappings.Add(tableMapping)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitConnection()
Me._connection = New Global.System.Data.OleDb.OleDbConnection()
Me._connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\DXProducts\2012.1\Demos.Win\EasyR" & "eportsDemos\Data\nwind.mdb"
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitCommandCollection()
Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0){}
Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT Employees.*" & Constants.vbCrLf & "FROM Employees"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, True)> _
Public Overridable Function Fill(ByVal dataTable As nwindDataSet.EmployeesDataTable) 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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Select, True)> _
Public Overridable Function GetData() As nwindDataSet.EmployeesDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Dim dataTable As New nwindDataSet.EmployeesDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
End Class
''' <summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), Global.System.ComponentModel.DesignerCategoryAttribute("code"), Global.System.ComponentModel.ToolboxItem(True), Global.System.ComponentModel.DataObjectAttribute(True), Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner" & ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Partial Public Class SuppliersTableAdapter
Inherits System.ComponentModel.Component
Private _adapter As Global.System.Data.OleDb.OleDbDataAdapter
Private _connection As Global.System.Data.OleDb.OleDbConnection
Private _transaction As Global.System.Data.OleDb.OleDbTransaction
Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
Private _clearBeforeFill As Boolean
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
Me.ClearBeforeFill = True
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
Get
If (Me._adapter Is Nothing) Then
Me.InitAdapter()
End If
Return Me._adapter
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
Get
If (Me._connection Is Nothing) Then
Me.InitConnection()
End If
Return Me._connection
End Get
Set(ByVal value As System.Data.OleDb.OleDbConnection)
Me._connection = value
If (Me.Adapter.InsertCommand IsNot Nothing) Then
Me.Adapter.InsertCommand.Connection = value
End If
If (Me.Adapter.DeleteCommand IsNot Nothing) Then
Me.Adapter.DeleteCommand.Connection = value
End If
If (Me.Adapter.UpdateCommand IsNot Nothing) Then
Me.Adapter.UpdateCommand.Connection = value
End If
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
If (Me.CommandCollection(i) IsNot Nothing) Then
CType(Me.CommandCollection(i), Global.System.Data.OleDb.OleDbCommand).Connection = value
End If
i = (i + 1)
Loop
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
Get
Return Me._transaction
End Get
Set(ByVal value As System.Data.OleDb.OleDbTransaction)
Me._transaction = value
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
Me.CommandCollection(i).Transaction = Me._transaction
i = (i + 1)
Loop
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.DeleteCommand IsNot Nothing)) Then
Me.Adapter.DeleteCommand.Transaction = Me._transaction
End If
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.InsertCommand IsNot Nothing)) Then
Me.Adapter.InsertCommand.Transaction = Me._transaction
End If
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.UpdateCommand IsNot Nothing)) Then
Me.Adapter.UpdateCommand.Transaction = Me._transaction
End If
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
Get
If (Me._commandCollection Is Nothing) Then
Me.InitCommandCollection()
End If
Return Me._commandCollection
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set(ByVal value As Boolean)
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitAdapter()
Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
Dim tableMapping As New Global.System.Data.Common.DataTableMapping()
tableMapping.SourceTable = "Table"
tableMapping.DataSetTable = "Suppliers"
tableMapping.ColumnMappings.Add("SupplierID", "SupplierID")
tableMapping.ColumnMappings.Add("CompanyName", "CompanyName")
tableMapping.ColumnMappings.Add("ContactName", "ContactName")
tableMapping.ColumnMappings.Add("ContactTitle", "ContactTitle")
tableMapping.ColumnMappings.Add("Address", "Address")
tableMapping.ColumnMappings.Add("City", "City")
tableMapping.ColumnMappings.Add("Region", "Region")
tableMapping.ColumnMappings.Add("PostalCode", "PostalCode")
tableMapping.ColumnMappings.Add("Country", "Country")
tableMapping.ColumnMappings.Add("Phone", "Phone")
tableMapping.ColumnMappings.Add("Fax", "Fax")
tableMapping.ColumnMappings.Add("HomePage", "HomePage")
Me._adapter.TableMappings.Add(tableMapping)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitConnection()
Me._connection = New Global.System.Data.OleDb.OleDbConnection()
Me._connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\DXProducts\2012.1\Demos.Win\EasyR" & "eportsDemos\Data\nwind.mdb"
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitCommandCollection()
Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0){}
Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT Suppliers.*" & Constants.vbCrLf & "FROM Suppliers"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, True)> _
Public Overridable Function Fill(ByVal dataTable As nwindDataSet.SuppliersDataTable) 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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Select, True)> _
Public Overridable Function GetData() As nwindDataSet.SuppliersDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Dim dataTable As New nwindDataSet.SuppliersDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
End Class
''' <summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), Global.System.ComponentModel.DesignerCategoryAttribute("code"), Global.System.ComponentModel.ToolboxItem(True), Global.System.ComponentModel.DataObjectAttribute(True), Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner" & ", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Partial Public Class OrderReportsTableAdapter
Inherits System.ComponentModel.Component
Private _adapter As Global.System.Data.OleDb.OleDbDataAdapter
Private _connection As Global.System.Data.OleDb.OleDbConnection
Private _transaction As Global.System.Data.OleDb.OleDbTransaction
Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
Private _clearBeforeFill As Boolean
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
Me.ClearBeforeFill = True
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
Get
If (Me._adapter Is Nothing) Then
Me.InitAdapter()
End If
Return Me._adapter
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
Get
If (Me._connection Is Nothing) Then
Me.InitConnection()
End If
Return Me._connection
End Get
Set(ByVal value As System.Data.OleDb.OleDbConnection)
Me._connection = value
If (Me.Adapter.InsertCommand IsNot Nothing) Then
Me.Adapter.InsertCommand.Connection = value
End If
If (Me.Adapter.DeleteCommand IsNot Nothing) Then
Me.Adapter.DeleteCommand.Connection = value
End If
If (Me.Adapter.UpdateCommand IsNot Nothing) Then
Me.Adapter.UpdateCommand.Connection = value
End If
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
If (Me.CommandCollection(i) IsNot Nothing) Then
CType(Me.CommandCollection(i), Global.System.Data.OleDb.OleDbCommand).Connection = value
End If
i = (i + 1)
Loop
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
Get
Return Me._transaction
End Get
Set(ByVal value As System.Data.OleDb.OleDbTransaction)
Me._transaction = value
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
Me.CommandCollection(i).Transaction = Me._transaction
i = (i + 1)
Loop
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.DeleteCommand IsNot Nothing)) Then
Me.Adapter.DeleteCommand.Transaction = Me._transaction
End If
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.InsertCommand IsNot Nothing)) Then
Me.Adapter.InsertCommand.Transaction = Me._transaction
End If
If ((Me.Adapter IsNot Nothing) AndAlso (Me.Adapter.UpdateCommand IsNot Nothing)) Then
Me.Adapter.UpdateCommand.Transaction = Me._transaction
End If
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
Get
If (Me._commandCollection Is Nothing) Then
Me.InitCommandCollection()
End If
Return Me._commandCollection
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set(ByVal value As Boolean)
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitAdapter()
Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
Dim tableMapping As New Global.System.Data.Common.DataTableMapping()
tableMapping.SourceTable = "Table"
tableMapping.DataSetTable = "OrderReports"
tableMapping.ColumnMappings.Add("OrderID", "OrderID")
tableMapping.ColumnMappings.Add("ProductID", "ProductID")
tableMapping.ColumnMappings.Add("ProductName", "ProductName")
tableMapping.ColumnMappings.Add("UnitPrice", "UnitPrice")
tableMapping.ColumnMappings.Add("Quantity", "Quantity")
tableMapping.ColumnMappings.Add("Discount", "Discount")
Me._adapter.TableMappings.Add(tableMapping)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitConnection()
Me._connection = New Global.System.Data.OleDb.OleDbConnection()
Me._connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\DXProducts\2012.1\Demos.Win\EasyR" & "eportsDemos\Data\nwind.mdb"
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitCommandCollection()
Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0){}
Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT OrderID, ProductID, ProductName, UnitPrice, Quantity, Discount FROM OrderR" & "eports"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, True)> _
Public Overridable Function Fill(ByVal dataTable As nwindDataSet.OrderReportsDataTable) 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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Select, True)> _
Public Overridable Function GetData() As nwindDataSet.OrderReportsDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Dim dataTable As New nwindDataSet.OrderReportsDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
End Class
''' <summary>
'''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), Global.System.ComponentModel.DesignerCategoryAttribute("code"), Global.System.ComponentModel.ToolboxItem(True), Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD" & "esigner, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")> _
Partial Public Class TableAdapterManager
Inherits System.ComponentModel.Component
Private _updateOrder As UpdateOrderOption
Private _order_DetailsTableAdapter As Order_DetailsTableAdapter
Private _backupDataSetBeforeUpdate As Boolean
Private _connection As Global.System.Data.IDbConnection
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property UpdateOrder() As UpdateOrderOption
Get
Return Me._updateOrder
End Get
Set(ByVal value As UpdateOrderOption)
Me._updateOrder = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso" & "ft.VSDesigner, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" & "", "System.Drawing.Design.UITypeEditor")> _
Public Property Order_DetailsTableAdapter() As Order_DetailsTableAdapter
Get
Return Me._order_DetailsTableAdapter
End Get
Set(ByVal value As Order_DetailsTableAdapter)
Me._order_DetailsTableAdapter = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property BackupDataSetBeforeUpdate() As Boolean
Get
Return Me._backupDataSetBeforeUpdate
End Get
Set(ByVal value As Boolean)
Me._backupDataSetBeforeUpdate = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Browsable(False)> _
Public Property Connection() As Global.System.Data.IDbConnection
Get
If (Me._connection IsNot Nothing) Then
Return Me._connection
End If
If ((Me._order_DetailsTableAdapter IsNot Nothing) AndAlso (Me._order_DetailsTableAdapter.Connection IsNot Nothing)) Then
Return Me._order_DetailsTableAdapter.Connection
End If
Return Nothing
End Get
Set(ByVal value As System.Data.IDbConnection)
Me._connection = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.Browsable(False)> _
Public ReadOnly Property TableAdapterInstanceCount() As Integer
Get
Dim count As Integer = 0
If (Me._order_DetailsTableAdapter IsNot Nothing) Then
count = (count + 1)
End If
Return count
End Get
End Property
''' <summary>
'''Update rows in top-down order.
'''</summary>
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Function UpdateUpdatedRows(ByVal dataSet As nwindDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
Dim result As Integer = 0
If (Me._order_DetailsTableAdapter IsNot Nothing) Then
Dim updatedRows() As Global.System.Data.DataRow = dataSet.Order_Details.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
If ((updatedRows IsNot Nothing) AndAlso (0 < updatedRows.Length)) Then
result = (result + Me._order_DetailsTableAdapter.Update(updatedRows))
allChangedRows.AddRange(updatedRows)
End If
End If
Return result
End Function
''' <summary>
'''Insert rows in top-down order.
'''</summary>
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Function UpdateInsertedRows(ByVal dataSet As nwindDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
Dim result As Integer = 0
If (Me._order_DetailsTableAdapter IsNot Nothing) Then
Dim addedRows() As Global.System.Data.DataRow = dataSet.Order_Details.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
If ((addedRows IsNot Nothing) AndAlso (0 < addedRows.Length)) Then
result = (result + Me._order_DetailsTableAdapter.Update(addedRows))
allAddedRows.AddRange(addedRows)
End If
End If
Return result
End Function
''' <summary>
'''Delete rows in bottom-up order.
'''</summary>
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Function UpdateDeletedRows(ByVal dataSet As nwindDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
Dim result As Integer = 0
If (Me._order_DetailsTableAdapter IsNot Nothing) Then
Dim deletedRows() As Global.System.Data.DataRow = dataSet.Order_Details.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
If ((deletedRows IsNot Nothing) AndAlso (0 < deletedRows.Length)) Then
result = (result + Me._order_DetailsTableAdapter.Update(deletedRows))
allChangedRows.AddRange(deletedRows)
End If
End If
Return result
End Function
''' <summary>
'''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
'''</summary>
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow()
If ((updatedRows Is Nothing) OrElse (updatedRows.Length < 1)) Then
Return updatedRows
End If
If ((allAddedRows Is Nothing) OrElse (allAddedRows.Count < 1)) Then
Return updatedRows
End If
Dim realUpdatedRows As New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
Dim i As Integer = 0
Do While (i < updatedRows.Length)
Dim row As Global.System.Data.DataRow = updatedRows(i)
If (allAddedRows.Contains(row) = False) Then
realUpdatedRows.Add(row)
End If
i = (i + 1)
Loop
Return realUpdatedRows.ToArray()
End Function
''' <summary>
'''Update all changes to the dataset.
'''</summary>
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overridable Function UpdateAll(ByVal dataSet As nwindDataSet) As Integer
If (dataSet Is Nothing) Then
Throw New Global.System.ArgumentNullException("dataSet")
End If
If (dataSet.HasChanges() = False) Then
Return 0
End If
If ((Me._order_DetailsTableAdapter IsNot Nothing) AndAlso (Me.MatchTableAdapterConnection(Me._order_DetailsTableAdapter.Connection) = False)) Then
Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s" & "tring.")
End If
Dim workConnection As Global.System.Data.IDbConnection = Me.Connection
If (workConnection Is Nothing) Then
Throw New Global.System.ApplicationException("TableAdapterManager contains no connection information. Set each TableAdapterMana" & "ger TableAdapter property to a valid TableAdapter instance.")
End If
Dim workConnOpened As Boolean = False
If ((workConnection.State And Global.System.Data.ConnectionState.Broken) = Global.System.Data.ConnectionState.Broken) Then
workConnection.Close()
End If
If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then
workConnection.Open()
workConnOpened = True
End If
Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction()
If (workTransaction Is Nothing) Then
Throw New Global.System.ApplicationException("The transaction cannot begin. The current data connection does not support transa" & "ctions or the current state is not allowing the transaction to begin.")
End If
Dim allChangedRows As New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
Dim allAddedRows As New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
Dim adaptersWithAcceptChangesDuringUpdate As New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)()
Dim revertConnections As New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)()
Dim result As Integer = 0
Dim backupDataSet As Global.System.Data.DataSet = Nothing
If Me.BackupDataSetBeforeUpdate Then
backupDataSet = New Global.System.Data.DataSet()
backupDataSet.Merge(dataSet)
End If
Try
' ---- Prepare for update -----------
'
If (Me._order_DetailsTableAdapter IsNot Nothing) Then
revertConnections.Add(Me._order_DetailsTableAdapter, Me._order_DetailsTableAdapter.Connection)
Me._order_DetailsTableAdapter.Connection = (CType(workConnection, Global.System.Data.OleDb.OleDbConnection))
Me._order_DetailsTableAdapter.Transaction = (CType(workTransaction, Global.System.Data.OleDb.OleDbTransaction))
If Me._order_DetailsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
Me._order_DetailsTableAdapter.Adapter.AcceptChangesDuringUpdate = False
adaptersWithAcceptChangesDuringUpdate.Add(Me._order_DetailsTableAdapter.Adapter)
End If
End If
'
'---- Perform updates -----------
'
If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then
result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
Else
result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
End If
result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows))
'
'---- Commit updates -----------
'
workTransaction.Commit()
If (0 < allAddedRows.Count) Then
Dim rows(allAddedRows.Count - 1) As Global.System.Data.DataRow
allAddedRows.CopyTo(rows)
Dim i As Integer = 0
Do While (i < rows.Length)
Dim row As Global.System.Data.DataRow = rows(i)
row.AcceptChanges()
i = (i + 1)
Loop
End If
If (0 < allChangedRows.Count) Then
Dim rows(allChangedRows.Count - 1) As Global.System.Data.DataRow
allChangedRows.CopyTo(rows)
Dim i As Integer = 0
Do While (i < rows.Length)
Dim row As Global.System.Data.DataRow = rows(i)
row.AcceptChanges()
i = (i + 1)
Loop
End If
Catch ex As Global.System.Exception
workTransaction.Rollback()
' ---- Restore the dataset -----------
If Me.BackupDataSetBeforeUpdate Then
Global.System.Diagnostics.Debug.Assert((backupDataSet IsNot Nothing))
dataSet.Clear()
dataSet.Merge(backupDataSet)
Else
If (0 < allAddedRows.Count) Then
Dim rows(allAddedRows.Count - 1) As Global.System.Data.DataRow
allAddedRows.CopyTo(rows)
Dim i As Integer = 0
Do While (i < rows.Length)
Dim row As Global.System.Data.DataRow = rows(i)
row.AcceptChanges()
row.SetAdded()
i = (i + 1)
Loop
End If
End If
Throw ex
Finally
If workConnOpened Then
workConnection.Close()
End If
If (Me._order_DetailsTableAdapter IsNot Nothing) Then
Me._order_DetailsTableAdapter.Connection = (CType(revertConnections(Me._order_DetailsTableAdapter), Global.System.Data.OleDb.OleDbConnection))
Me._order_DetailsTableAdapter.Transaction = Nothing
End If
If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then
Dim adapters(adaptersWithAcceptChangesDuringUpdate.Count - 1) As Global.System.Data.Common.DataAdapter
adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters)
Dim i As Integer = 0
Do While (i < adapters.Length)
Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i)
adapter.AcceptChangesDuringUpdate = True
i = (i + 1)
Loop
End If
End Try
Return result
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean
If (Me._connection IsNot Nothing) Then
Return True
End If
If ((Me.Connection Is Nothing) OrElse (inputConnection Is Nothing)) Then
Return True
End If
If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then
Return True
End If
Return False
End Function
''' <summary>
'''Update Order Option
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Public Enum UpdateOrderOption
InsertUpdateDelete = 0
UpdateInsertDelete = 1
End Enum
End Class
End Namespace
'INSTANT VB TODO TASK: There is no equivalent to #pragma directives in VB.NET:
'#pragma warning restore 1591