'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:2.0.50727.91
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports System
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), _
Serializable(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.ComponentModel.ToolboxItem(true), _
System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
System.Xml.Serialization.XmlRootAttribute("NorthwindDataSet"), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
Partial Public Class NorthwindDataSet
Inherits System.Data.DataSet
Private tableCustomers As CustomersDataTable
Private _schemaSerializationMode As System.Data.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
MyBase.New
Me.BeginInit
Me.InitClass
Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
Me.EndInit
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Sub New(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context, false)
If (Me.IsBinarySerialized(info, context) = true) Then
Me.InitVars(false)
Dim schemaChangedHandler1 As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
Return
End If
Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
If (Me.DetermineSchemaSerializationMode(info, context) = System.Data.SchemaSerializationMode.IncludeSchema) Then
Dim ds As System.Data.DataSet = New System.Data.DataSet
ds.ReadXmlSchema(New System.Xml.XmlTextReader(New System.IO.StringReader(strSchema)))
If (Not (ds.Tables("Customers")) Is Nothing) Then
MyBase.Tables.Add(New CustomersDataTable(ds.Tables("Customers")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints
Me.Merge(ds, false, System.Data.MissingSchemaAction.Add)
Me.InitVars
Else
Me.ReadXmlSchema(New System.Xml.XmlTextReader(New System.IO.StringReader(strSchema)))
End If
Me.GetSerializationData(info, context)
Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Browsable(false), _
System.ComponentModel.DesignerSerializationVisibility(System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property Customers() As CustomersDataTable
Get
Return Me.tableCustomers
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.BrowsableAttribute(true), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Visible)> _
Public Overrides Property SchemaSerializationMode() As System.Data.SchemaSerializationMode
Get
Return Me._schemaSerializationMode
End Get
Set
Me._schemaSerializationMode = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
Public Shadows ReadOnly Property Tables() As System.Data.DataTableCollection
Get
Return MyBase.Tables
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
Public Shadows ReadOnly Property Relations() As System.Data.DataRelationCollection
Get
Return MyBase.Relations
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub InitializeDerivedDataSet()
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overrides Function Clone() As System.Data.DataSet
Dim cln As NorthwindDataSet = CType(MyBase.Clone,NorthwindDataSet)
cln.InitVars
cln.SchemaSerializationMode = Me.SchemaSerializationMode
Return cln
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function ShouldSerializeTables() As Boolean
Return false
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function ShouldSerializeRelations() As Boolean
Return false
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub ReadXmlSerializable(ByVal reader As System.Xml.XmlReader)
If (Me.DetermineSchemaSerializationMode(reader) = System.Data.SchemaSerializationMode.IncludeSchema) Then
Me.Reset
Dim ds As System.Data.DataSet = New System.Data.DataSet
ds.ReadXml(reader)
If (Not (ds.Tables("Customers")) Is Nothing) Then
MyBase.Tables.Add(New CustomersDataTable(ds.Tables("Customers")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints
Me.Merge(ds, false, System.Data.MissingSchemaAction.Add)
Me.InitVars
Else
Me.ReadXml(reader)
Me.InitVars
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function GetSchemaSerializable() As System.Xml.Schema.XmlSchema
Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
Me.WriteXmlSchema(New System.Xml.XmlTextWriter(stream, Nothing))
stream.Position = 0
Return System.Xml.Schema.XmlSchema.Read(New System.Xml.XmlTextReader(stream), Nothing)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Overloads Sub InitVars()
Me.InitVars(true)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Overloads Sub InitVars(ByVal initTable As Boolean)
Me.tableCustomers = CType(MyBase.Tables("Customers"),CustomersDataTable)
If (initTable = true) Then
If (Not (Me.tableCustomers) Is Nothing) Then
Me.tableCustomers.InitVars
End If
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitClass()
Me.DataSetName = "NorthwindDataSet"
Me.Prefix = ""
Me.Namespace = "http://tempuri.org/NorthwindDataSet.xsd"
Me.EnforceConstraints = true
Me.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
Me.tableCustomers = New CustomersDataTable
MyBase.Tables.Add(Me.tableCustomers)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Function ShouldSerializeCustomers() As Boolean
Return false
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As System.ComponentModel.CollectionChangeEventArgs)
If (e.Action = System.ComponentModel.CollectionChangeAction.Remove) Then
Me.InitVars
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Shared Function GetTypedDataSetSchema(ByVal xs As System.Xml.Schema.XmlSchemaSet) As System.Xml.Schema.XmlSchemaComplexType
Dim ds As NorthwindDataSet = New NorthwindDataSet
Dim type As System.Xml.Schema.XmlSchemaComplexType = New System.Xml.Schema.XmlSchemaComplexType
Dim sequence As System.Xml.Schema.XmlSchemaSequence = New System.Xml.Schema.XmlSchemaSequence
xs.Add(ds.GetSchemaSerializable)
Dim any As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
any.Namespace = ds.Namespace
sequence.Items.Add(any)
type.Particle = sequence
Return type
End Function
Public Delegate Sub CustomersRowChangeEventHandler(ByVal sender As Object, ByVal e As CustomersRowChangeEvent)
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), _
System.Serializable(), _
System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class CustomersDataTable
Inherits System.Data.DataTable
Implements System.Collections.IEnumerable
Private columnCompanyName As System.Data.DataColumn
Private columnContactName As System.Data.DataColumn
Private columnContactTitle As System.Data.DataColumn
Private columnAddress As System.Data.DataColumn
Private columnCity As System.Data.DataColumn
Private columnRegion As System.Data.DataColumn
Private columnPostalCode As System.Data.DataColumn
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
MyBase.New
Me.TableName = "Customers"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal table As System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Sub New(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property CompanyNameColumn() As System.Data.DataColumn
Get
Return Me.columnCompanyName
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ContactNameColumn() As System.Data.DataColumn
Get
Return Me.columnContactName
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property ContactTitleColumn() As System.Data.DataColumn
Get
Return Me.columnContactTitle
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property AddressColumn() As System.Data.DataColumn
Get
Return Me.columnAddress
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property CityColumn() As System.Data.DataColumn
Get
Return Me.columnCity
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property RegionColumn() As System.Data.DataColumn
Get
Return Me.columnRegion
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property PostalCodeColumn() As System.Data.DataColumn
Get
Return Me.columnPostalCode
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Default ReadOnly Property Item(ByVal index As Integer) As 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
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overloads Sub AddCustomersRow(ByVal row As CustomersRow)
Me.Rows.Add(row)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overloads Function AddCustomersRow(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) As CustomersRow
Dim rowCustomersRow As CustomersRow = CType(Me.NewRow,CustomersRow)
rowCustomersRow.ItemArray = New Object() {CompanyName, ContactName, ContactTitle, Address, City, _Region, PostalCode}
Me.Rows.Add(rowCustomersRow)
Return rowCustomersRow
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overridable Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
Return Me.Rows.GetEnumerator
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overrides Function Clone() As System.Data.DataTable
Dim cln As CustomersDataTable = CType(MyBase.Clone,CustomersDataTable)
cln.InitVars
Return cln
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function CreateInstance() As System.Data.DataTable
Return New CustomersDataTable
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub InitVars()
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")
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitClass()
Me.columnCompanyName = New System.Data.DataColumn("CompanyName", GetType(String), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCompanyName)
Me.columnContactName = New System.Data.DataColumn("ContactName", GetType(String), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnContactName)
Me.columnContactTitle = New System.Data.DataColumn("ContactTitle", GetType(String), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnContactTitle)
Me.columnAddress = New System.Data.DataColumn("Address", GetType(String), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnAddress)
Me.columnCity = New System.Data.DataColumn("City", GetType(String), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCity)
Me.columnRegion = New System.Data.DataColumn("Region", GetType(String), Nothing, System.Data.MappingType.Element)
Me.columnRegion.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "_Region")
Me.columnRegion.ExtendedProperties.Add("Generator_UserColumnName", "Region")
MyBase.Columns.Add(Me.columnRegion)
Me.columnPostalCode = New System.Data.DataColumn("PostalCode", GetType(String), Nothing, System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPostalCode)
Me.columnCompanyName.AllowDBNull = false
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
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function NewCustomersRow() As CustomersRow
Return CType(Me.NewRow,CustomersRow)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As System.Data.DataRowBuilder) As System.Data.DataRow
Return New CustomersRow(builder)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function GetRowType() As System.Type
Return GetType(CustomersRow)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanged(ByVal e As System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.CustomersRowChangedEvent) Is Nothing) Then
RaiseEvent CustomersRowChanged(Me, New CustomersRowChangeEvent(CType(e.Row,CustomersRow), e.Action))
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowChanging(ByVal e As System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.CustomersRowChangingEvent) Is Nothing) Then
RaiseEvent CustomersRowChanging(Me, New CustomersRowChangeEvent(CType(e.Row,CustomersRow), e.Action))
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleted(ByVal e As System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.CustomersRowDeletedEvent) Is Nothing) Then
RaiseEvent CustomersRowDeleted(Me, New CustomersRowChangeEvent(CType(e.Row,CustomersRow), e.Action))
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Sub OnRowDeleting(ByVal e As System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.CustomersRowDeletingEvent) Is Nothing) Then
RaiseEvent CustomersRowDeleting(Me, New CustomersRowChangeEvent(CType(e.Row,CustomersRow), e.Action))
End If
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub RemoveCustomersRow(ByVal row As CustomersRow)
Me.Rows.Remove(row)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Shared Function GetTypedTableSchema(ByVal xs As System.Xml.Schema.XmlSchemaSet) As System.Xml.Schema.XmlSchemaComplexType
Dim type As System.Xml.Schema.XmlSchemaComplexType = New System.Xml.Schema.XmlSchemaComplexType
Dim sequence As System.Xml.Schema.XmlSchemaSequence = New System.Xml.Schema.XmlSchemaSequence
Dim ds As NorthwindDataSet = New NorthwindDataSet
xs.Add(ds.GetSchemaSerializable)
Dim any1 As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As System.Xml.Schema.XmlSchemaAttribute = New System.Xml.Schema.XmlSchemaAttribute
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As System.Xml.Schema.XmlSchemaAttribute = New System.Xml.Schema.XmlSchemaAttribute
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "CustomersDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Return type
End Function
End Class
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")> _
Partial Public Class CustomersRow
Inherits System.Data.DataRow
Private tableCustomers As CustomersDataTable
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal rb As System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableCustomers = CType(Me.Table,CustomersDataTable)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property CompanyName() As String
Get
Return CType(Me(Me.tableCustomers.CompanyNameColumn),String)
End Get
Set
Me(Me.tableCustomers.CompanyNameColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ContactName() As String
Get
Try
Return CType(Me(Me.tableCustomers.ContactNameColumn),String)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'ContactName' in table 'Customers' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableCustomers.ContactNameColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ContactTitle() As String
Get
Try
Return CType(Me(Me.tableCustomers.ContactTitleColumn),String)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'ContactTitle' in table 'Customers' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableCustomers.ContactTitleColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property Address() As String
Get
Try
Return CType(Me(Me.tableCustomers.AddressColumn),String)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'Address' in table 'Customers' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableCustomers.AddressColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property City() As String
Get
Try
Return CType(Me(Me.tableCustomers.CityColumn),String)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'City' in table 'Customers' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableCustomers.CityColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property _Region() As String
Get
Try
Return CType(Me(Me.tableCustomers.RegionColumn),String)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'Region' in table 'Customers' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableCustomers.RegionColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property PostalCode() As String
Get
Try
Return CType(Me(Me.tableCustomers.PostalCodeColumn),String)
Catch e As System.InvalidCastException
Throw New System.Data.StrongTypingException("The value for column 'PostalCode' in table 'Customers' is DBNull.", e)
End Try
End Get
Set
Me(Me.tableCustomers.PostalCodeColumn) = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsContactNameNull() As Boolean
Return Me.IsNull(Me.tableCustomers.ContactNameColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetContactNameNull()
Me(Me.tableCustomers.ContactNameColumn) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsContactTitleNull() As Boolean
Return Me.IsNull(Me.tableCustomers.ContactTitleColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetContactTitleNull()
Me(Me.tableCustomers.ContactTitleColumn) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsAddressNull() As Boolean
Return Me.IsNull(Me.tableCustomers.AddressColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetAddressNull()
Me(Me.tableCustomers.AddressColumn) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsCityNull() As Boolean
Return Me.IsNull(Me.tableCustomers.CityColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetCityNull()
Me(Me.tableCustomers.CityColumn) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function Is_RegionNull() As Boolean
Return Me.IsNull(Me.tableCustomers.RegionColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub Set_RegionNull()
Me(Me.tableCustomers.RegionColumn) = System.Convert.DBNull
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function IsPostalCodeNull() As Boolean
Return Me.IsNull(Me.tableCustomers.PostalCodeColumn)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub SetPostalCodeNull()
Me(Me.tableCustomers.PostalCodeColumn) = System.Convert.DBNull
End Sub
End Class
<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 System.Data.DataRowAction
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New(ByVal row As CustomersRow, ByVal action As System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Row() As CustomersRow
Get
Return Me.eventRow
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property Action() As System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
End Class
Namespace NorthwindDataSetTableAdapters
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.ComponentModel.ToolboxItem(true), _
System.ComponentModel.DataObjectAttribute(true), _
System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Partial Public Class CustomersTableAdapter
Inherits System.ComponentModel.Component
Private WithEvents _adapter As System.Data.SqlClient.SqlDataAdapter
Private _connection As System.Data.SqlClient.SqlConnection
Private _commandCollection() As System.Data.SqlClient.SqlCommand
Private _clearBeforeFill As Boolean
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
MyBase.New
Me.ClearBeforeFill = true
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private ReadOnly Property Adapter() As System.Data.SqlClient.SqlDataAdapter
Get
If (Me._adapter Is Nothing) Then
Me.InitAdapter
End If
Return Me._adapter
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Property Connection() As System.Data.SqlClient.SqlConnection
Get
If (Me._connection Is Nothing) Then
Me.InitConnection
End If
Return Me._connection
End Get
Set
Me._connection = value
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
Me.Adapter.InsertCommand.Connection = value
End If
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
Me.Adapter.DeleteCommand.Connection = value
End If
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
Me.Adapter.UpdateCommand.Connection = value
End If
Dim i As Integer = 0
Do While (i < Me.CommandCollection.Length)
If (Not (Me.CommandCollection(i)) Is Nothing) Then
CType(Me.CommandCollection(i),System.Data.SqlClient.SqlCommand).Connection = value
End If
i = (i + 1)
Loop
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected ReadOnly Property CommandCollection() As System.Data.SqlClient.SqlCommand()
Get
If (Me._commandCollection Is Nothing) Then
Me.InitCommandCollection
End If
Return Me._commandCollection
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set
Me._clearBeforeFill = value
End Set
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitAdapter()
Me._adapter = New System.Data.SqlClient.SqlDataAdapter
Dim tableMapping As System.Data.Common.DataTableMapping = New System.Data.Common.DataTableMapping
tableMapping.SourceTable = "Table"
tableMapping.DataSetTable = "Customers"
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")
Me._adapter.TableMappings.Add(tableMapping)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitConnection()
Me._connection = New System.Data.SqlClient.SqlConnection
Me._connection.ConnectionString = Global.DG2BMP.My.MySettings.Default.NorthwindConnectionString
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Private Sub InitCommandCollection()
Me._commandCollection = New System.Data.SqlClient.SqlCommand(0) {}
Me._commandCollection(0) = New System.Data.SqlClient.SqlCommand
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT CompanyName, ContactName, ContactTitle, Address, City, Region, PostalCode "& _
"FROM dbo.Customers"
Me._commandCollection(0).CommandType = System.Data.CommandType.Text
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
System.ComponentModel.DataObjectMethodAttribute(System.ComponentModel.DataObjectMethodType.Fill, true)> _
Public Overloads Overridable Function Fill(ByVal dataTable As NorthwindDataSet.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
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
System.ComponentModel.DataObjectMethodAttribute(System.ComponentModel.DataObjectMethodType.[Select], true)> _
Public Overloads Overridable Function GetData() As NorthwindDataSet.CustomersDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Dim dataTable As NorthwindDataSet.CustomersDataTable = New NorthwindDataSet.CustomersDataTable
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
End Class
End Namespace