'------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. ' Laufzeitversion:4.0.30319.42000 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ Option Strict Off Option Explicit On ''' '''Represents a strongly typed in-memory cache of data. ''' _ Partial Public Class DSMercator Inherits Global.System.Data.DataSet Private tableVKKOPF As VKKOPFDataTable Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ Public Sub New() MyBase.New Me.BeginInit Me.InitClass Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler Me.EndInit End Sub _ 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 Global.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) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) If (Not (ds.Tables("VKKOPF")) Is Nothing) Then MyBase.Tables.Add(New VKKOPFDataTable(ds.Tables("VKKOPF"))) 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 Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler Me.Relations.CollectionChanged, schemaChangedHandler End Sub _ Public ReadOnly Property VKKOPF() As VKKOPFDataTable Get Return Me.tableVKKOPF End Get End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode Get Return Me._schemaSerializationMode End Get Set Me._schemaSerializationMode = value End Set End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get Return MyBase.Tables End Get End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get Return MyBase.Relations End Get End Property _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass Me.EndInit End Sub _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As DSMercator = CType(MyBase.Clone,DSMercator) cln.InitVars cln.SchemaSerializationMode = Me.SchemaSerializationMode Return cln End Function _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ 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 Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXml(reader) If (Not (ds.Tables("VKKOPF")) Is Nothing) Then MyBase.Tables.Add(New VKKOPFDataTable(ds.Tables("VKKOPF"))) 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 _ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Dim stream As Global.System.IO.MemoryStream = 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 _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) Me.tableVKKOPF = CType(MyBase.Tables("VKKOPF"),VKKOPFDataTable) If (initTable = true) Then If (Not (Me.tableVKKOPF) Is Nothing) Then Me.tableVKKOPF.InitVars End If End If End Sub _ Private Sub InitClass() Me.DataSetName = "DSMercator" Me.Prefix = "" Me.Namespace = "http://tempuri.org/DSMercator.xsd" Me.EnforceConstraints = true Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.tableVKKOPF = New VKKOPFDataTable() MyBase.Tables.Add(Me.tableVKKOPF) End Sub _ Private Function ShouldSerializeVKKOPF() As Boolean Return false End Function _ 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 _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As DSMercator = New DSMercator() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim any As Global.System.Xml.Schema.XmlSchemaAny = 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 Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.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 (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function _ Public Delegate Sub VKKOPFRowChangeEventHandler(ByVal sender As Object, ByVal e As VKKOPFRowChangeEvent) ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class VKKOPFDataTable Inherits Global.System.Data.TypedTableBase(Of VKKOPFRow) Private columnvkkopf_bestellnr As Global.System.Data.DataColumn Private columnvkkopf_kopfpos As Global.System.Data.DataColumn Private columnvkkopf_projekt As Global.System.Data.DataColumn Private columnvkkopf_bestaetig_lang As Global.System.Data.DataColumn Private columnvkkopf_kunde As Global.System.Data.DataColumn Private columnvkkopf_eingang_nr As Global.System.Data.DataColumn Private columnvkkopf_gew_netto As Global.System.Data.DataColumn Private columnvkkopf_liefadr_name1 As Global.System.Data.DataColumn Private columnvkkopf_liefadr_name2 As Global.System.Data.DataColumn Private columnvkkopf_liefadr_name3 As Global.System.Data.DataColumn Private columnvkkopf_liefadr_strasse As Global.System.Data.DataColumn Private columnvkkopf_liefadr_land_nr As Global.System.Data.DataColumn Private columnvkkopf_liefadr_ldplz As Global.System.Data.DataColumn Private columnvkkopf_liefadr_ort As Global.System.Data.DataColumn Private columnvkkopf_liefadr_telefon As Global.System.Data.DataColumn Private columnvkkopf_liefadr_email As Global.System.Data.DataColumn Private columnvkkopf_anspr_vorname As Global.System.Data.DataColumn Private columnvkkopf_anspr_name As Global.System.Data.DataColumn Private columnvkkopf_anspr_telefon As Global.System.Data.DataColumn Private columnvkkopf_anspr_email As Global.System.Data.DataColumn Private columnvkkopf_vertriebsweg As Global.System.Data.DataColumn Private columnGUID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "VKKOPF" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.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 _ 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 _ Public ReadOnly Property vkkopf_bestellnrColumn() As Global.System.Data.DataColumn Get Return Me.columnvkkopf_bestellnr End Get End Property _ Public ReadOnly Property vkkopf_kopfposColumn() As Global.System.Data.DataColumn Get Return Me.columnvkkopf_kopfpos End Get End Property _ Public ReadOnly Property vkkopf_projektColumn() As Global.System.Data.DataColumn Get Return Me.columnvkkopf_projekt End Get End Property _ Public ReadOnly Property vkkopf_bestaetig_langColumn() As Global.System.Data.DataColumn Get Return Me.columnvkkopf_bestaetig_lang End Get End Property _ Public ReadOnly Property vkkopf_kundeColumn() As Global.System.Data.DataColumn Get Return Me.columnvkkopf_kunde End Get End Property _ Public ReadOnly Property vkkopf_eingang_nrColumn() As Global.System.Data.DataColumn Get Return Me.columnvkkopf_eingang_nr End Get End Property _ Public ReadOnly Property vkkopf_gew_nettoColumn() As Global.System.Data.DataColumn Get Return Me.columnvkkopf_gew_netto End Get End Property _ Public ReadOnly Property vkkopf_liefadr_name1Column() As Global.System.Data.DataColumn Get Return Me.columnvkkopf_liefadr_name1 End Get End Property _ Public ReadOnly Property vkkopf_liefadr_name2Column() As Global.System.Data.DataColumn Get Return Me.columnvkkopf_liefadr_name2 End Get End Property _ Public ReadOnly Property vkkopf_liefadr_name3Column() As Global.System.Data.DataColumn Get Return Me.columnvkkopf_liefadr_name3 End Get End Property _ Public ReadOnly Property vkkopf_liefadr_strasseColumn() As Global.System.Data.DataColumn Get Return Me.columnvkkopf_liefadr_strasse End Get End Property _ Public ReadOnly Property vkkopf_liefadr_land_nrColumn() As Global.System.Data.DataColumn Get Return Me.columnvkkopf_liefadr_land_nr End Get End Property _ Public ReadOnly Property vkkopf_liefadr_ldplzColumn() As Global.System.Data.DataColumn Get Return Me.columnvkkopf_liefadr_ldplz End Get End Property _ Public ReadOnly Property vkkopf_liefadr_ortColumn() As Global.System.Data.DataColumn Get Return Me.columnvkkopf_liefadr_ort End Get End Property _ Public ReadOnly Property vkkopf_liefadr_telefonColumn() As Global.System.Data.DataColumn Get Return Me.columnvkkopf_liefadr_telefon End Get End Property _ Public ReadOnly Property vkkopf_liefadr_emailColumn() As Global.System.Data.DataColumn Get Return Me.columnvkkopf_liefadr_email End Get End Property _ Public ReadOnly Property vkkopf_anspr_vornameColumn() As Global.System.Data.DataColumn Get Return Me.columnvkkopf_anspr_vorname End Get End Property _ Public ReadOnly Property vkkopf_anspr_nameColumn() As Global.System.Data.DataColumn Get Return Me.columnvkkopf_anspr_name End Get End Property _ Public ReadOnly Property vkkopf_anspr_telefonColumn() As Global.System.Data.DataColumn Get Return Me.columnvkkopf_anspr_telefon End Get End Property _ Public ReadOnly Property vkkopf_anspr_emailColumn() As Global.System.Data.DataColumn Get Return Me.columnvkkopf_anspr_email End Get End Property _ Public ReadOnly Property vkkopf_vertriebswegColumn() As Global.System.Data.DataColumn Get Return Me.columnvkkopf_vertriebsweg End Get End Property _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As VKKOPFRow Get Return CType(Me.Rows(index),VKKOPFRow) End Get End Property _ Public Event VKKOPFRowChanging As VKKOPFRowChangeEventHandler _ Public Event VKKOPFRowChanged As VKKOPFRowChangeEventHandler _ Public Event VKKOPFRowDeleting As VKKOPFRowChangeEventHandler _ Public Event VKKOPFRowDeleted As VKKOPFRowChangeEventHandler _ Public Overloads Sub AddVKKOPFRow(ByVal row As VKKOPFRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddVKKOPFRow( _ ByVal vkkopf_bestellnr As Long, _ ByVal vkkopf_kopfpos As Long, _ ByVal vkkopf_projekt As String, _ ByVal vkkopf_bestaetig_lang As String, _ ByVal vkkopf_kunde As Long, _ ByVal vkkopf_eingang_nr As Long, _ ByVal vkkopf_gew_netto As Decimal, _ ByVal vkkopf_liefadr_name1 As String, _ ByVal vkkopf_liefadr_name2 As String, _ ByVal vkkopf_liefadr_name3 As String, _ ByVal vkkopf_liefadr_strasse As String, _ ByVal vkkopf_liefadr_land_nr As String, _ ByVal vkkopf_liefadr_ldplz As String, _ ByVal vkkopf_liefadr_ort As String, _ ByVal vkkopf_liefadr_telefon As String, _ ByVal vkkopf_liefadr_email As String, _ ByVal vkkopf_anspr_vorname As String, _ ByVal vkkopf_anspr_name As String, _ ByVal vkkopf_anspr_telefon As String, _ ByVal vkkopf_anspr_email As String, _ ByVal vkkopf_vertriebsweg As String) As VKKOPFRow Dim rowVKKOPFRow As VKKOPFRow = CType(Me.NewRow,VKKOPFRow) Dim columnValuesArray() As Object = New Object() {vkkopf_bestellnr, vkkopf_kopfpos, vkkopf_projekt, vkkopf_bestaetig_lang, vkkopf_kunde, vkkopf_eingang_nr, vkkopf_gew_netto, vkkopf_liefadr_name1, vkkopf_liefadr_name2, vkkopf_liefadr_name3, vkkopf_liefadr_strasse, vkkopf_liefadr_land_nr, vkkopf_liefadr_ldplz, vkkopf_liefadr_ort, vkkopf_liefadr_telefon, vkkopf_liefadr_email, vkkopf_anspr_vorname, vkkopf_anspr_name, vkkopf_anspr_telefon, vkkopf_anspr_email, vkkopf_vertriebsweg, Nothing} rowVKKOPFRow.ItemArray = columnValuesArray Me.Rows.Add(rowVKKOPFRow) Return rowVKKOPFRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VKKOPFDataTable = CType(MyBase.Clone,VKKOPFDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VKKOPFDataTable() End Function _ Friend Sub InitVars() Me.columnvkkopf_bestellnr = MyBase.Columns("vkkopf_bestellnr") Me.columnvkkopf_kopfpos = MyBase.Columns("vkkopf_kopfpos") Me.columnvkkopf_projekt = MyBase.Columns("vkkopf_projekt") Me.columnvkkopf_bestaetig_lang = MyBase.Columns("vkkopf_bestaetig_lang") Me.columnvkkopf_kunde = MyBase.Columns("vkkopf_kunde") Me.columnvkkopf_eingang_nr = MyBase.Columns("vkkopf_eingang_nr") Me.columnvkkopf_gew_netto = MyBase.Columns("vkkopf_gew_netto") Me.columnvkkopf_liefadr_name1 = MyBase.Columns("vkkopf_liefadr_name1") Me.columnvkkopf_liefadr_name2 = MyBase.Columns("vkkopf_liefadr_name2") Me.columnvkkopf_liefadr_name3 = MyBase.Columns("vkkopf_liefadr_name3") Me.columnvkkopf_liefadr_strasse = MyBase.Columns("vkkopf_liefadr_strasse") Me.columnvkkopf_liefadr_land_nr = MyBase.Columns("vkkopf_liefadr_land_nr") Me.columnvkkopf_liefadr_ldplz = MyBase.Columns("vkkopf_liefadr_ldplz") Me.columnvkkopf_liefadr_ort = MyBase.Columns("vkkopf_liefadr_ort") Me.columnvkkopf_liefadr_telefon = MyBase.Columns("vkkopf_liefadr_telefon") Me.columnvkkopf_liefadr_email = MyBase.Columns("vkkopf_liefadr_email") Me.columnvkkopf_anspr_vorname = MyBase.Columns("vkkopf_anspr_vorname") Me.columnvkkopf_anspr_name = MyBase.Columns("vkkopf_anspr_name") Me.columnvkkopf_anspr_telefon = MyBase.Columns("vkkopf_anspr_telefon") Me.columnvkkopf_anspr_email = MyBase.Columns("vkkopf_anspr_email") Me.columnvkkopf_vertriebsweg = MyBase.Columns("vkkopf_vertriebsweg") Me.columnGUID = MyBase.Columns("GUID") End Sub _ Private Sub InitClass() Me.columnvkkopf_bestellnr = New Global.System.Data.DataColumn("vkkopf_bestellnr", GetType(Long), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvkkopf_bestellnr) Me.columnvkkopf_kopfpos = New Global.System.Data.DataColumn("vkkopf_kopfpos", GetType(Long), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvkkopf_kopfpos) Me.columnvkkopf_projekt = New Global.System.Data.DataColumn("vkkopf_projekt", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvkkopf_projekt) Me.columnvkkopf_bestaetig_lang = New Global.System.Data.DataColumn("vkkopf_bestaetig_lang", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvkkopf_bestaetig_lang) Me.columnvkkopf_kunde = New Global.System.Data.DataColumn("vkkopf_kunde", GetType(Long), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvkkopf_kunde) Me.columnvkkopf_eingang_nr = New Global.System.Data.DataColumn("vkkopf_eingang_nr", GetType(Long), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvkkopf_eingang_nr) Me.columnvkkopf_gew_netto = New Global.System.Data.DataColumn("vkkopf_gew_netto", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvkkopf_gew_netto) Me.columnvkkopf_liefadr_name1 = New Global.System.Data.DataColumn("vkkopf_liefadr_name1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvkkopf_liefadr_name1) Me.columnvkkopf_liefadr_name2 = New Global.System.Data.DataColumn("vkkopf_liefadr_name2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvkkopf_liefadr_name2) Me.columnvkkopf_liefadr_name3 = New Global.System.Data.DataColumn("vkkopf_liefadr_name3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvkkopf_liefadr_name3) Me.columnvkkopf_liefadr_strasse = New Global.System.Data.DataColumn("vkkopf_liefadr_strasse", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvkkopf_liefadr_strasse) Me.columnvkkopf_liefadr_land_nr = New Global.System.Data.DataColumn("vkkopf_liefadr_land_nr", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvkkopf_liefadr_land_nr) Me.columnvkkopf_liefadr_ldplz = New Global.System.Data.DataColumn("vkkopf_liefadr_ldplz", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvkkopf_liefadr_ldplz) Me.columnvkkopf_liefadr_ort = New Global.System.Data.DataColumn("vkkopf_liefadr_ort", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvkkopf_liefadr_ort) Me.columnvkkopf_liefadr_telefon = New Global.System.Data.DataColumn("vkkopf_liefadr_telefon", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvkkopf_liefadr_telefon) Me.columnvkkopf_liefadr_email = New Global.System.Data.DataColumn("vkkopf_liefadr_email", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvkkopf_liefadr_email) Me.columnvkkopf_anspr_vorname = New Global.System.Data.DataColumn("vkkopf_anspr_vorname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvkkopf_anspr_vorname) Me.columnvkkopf_anspr_name = New Global.System.Data.DataColumn("vkkopf_anspr_name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvkkopf_anspr_name) Me.columnvkkopf_anspr_telefon = New Global.System.Data.DataColumn("vkkopf_anspr_telefon", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvkkopf_anspr_telefon) Me.columnvkkopf_anspr_email = New Global.System.Data.DataColumn("vkkopf_anspr_email", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvkkopf_anspr_email) Me.columnvkkopf_vertriebsweg = New Global.System.Data.DataColumn("vkkopf_vertriebsweg", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnvkkopf_vertriebsweg) Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnvkkopf_bestellnr, Me.columnvkkopf_kopfpos}, false)) Me.columnvkkopf_projekt.MaxLength = 25 Me.columnvkkopf_bestaetig_lang.MaxLength = 60 Me.columnvkkopf_liefadr_name1.MaxLength = 50 Me.columnvkkopf_liefadr_name2.MaxLength = 50 Me.columnvkkopf_liefadr_name3.MaxLength = 50 Me.columnvkkopf_liefadr_strasse.MaxLength = 50 Me.columnvkkopf_liefadr_land_nr.MaxLength = 10 Me.columnvkkopf_liefadr_ldplz.MaxLength = 8 Me.columnvkkopf_liefadr_ort.MaxLength = 50 Me.columnvkkopf_liefadr_telefon.MaxLength = 20 Me.columnvkkopf_liefadr_email.MaxLength = 100 Me.columnvkkopf_anspr_vorname.MaxLength = 30 Me.columnvkkopf_anspr_name.MaxLength = 30 Me.columnvkkopf_anspr_telefon.MaxLength = 20 Me.columnvkkopf_anspr_email.MaxLength = 100 Me.columnvkkopf_vertriebsweg.MaxLength = 60 Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true End Sub _ Public Function NewVKKOPFRow() As VKKOPFRow Return CType(Me.NewRow,VKKOPFRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VKKOPFRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VKKOPFRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VKKOPFRowChangedEvent) Is Nothing) Then RaiseEvent VKKOPFRowChanged(Me, New VKKOPFRowChangeEvent(CType(e.Row,VKKOPFRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VKKOPFRowChangingEvent) Is Nothing) Then RaiseEvent VKKOPFRowChanging(Me, New VKKOPFRowChangeEvent(CType(e.Row,VKKOPFRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VKKOPFRowDeletedEvent) Is Nothing) Then RaiseEvent VKKOPFRowDeleted(Me, New VKKOPFRowChangeEvent(CType(e.Row,VKKOPFRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VKKOPFRowDeletingEvent) Is Nothing) Then RaiseEvent VKKOPFRowDeleting(Me, New VKKOPFRowChangeEvent(CType(e.Row,VKKOPFRow), e.Action)) End If End Sub _ Public Sub RemoveVKKOPFRow(ByVal row As VKKOPFRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DSMercator = New DSMercator() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = 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 Global.System.Xml.Schema.XmlSchemaAny = 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 Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "VKKOPFDataTable" 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 Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.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 (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class VKKOPFRow Inherits Global.System.Data.DataRow Private tableVKKOPF As VKKOPFDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVKKOPF = CType(Me.Table,VKKOPFDataTable) End Sub _ Public Property vkkopf_bestellnr() As Long Get Try Return CType(Me(Me.tableVKKOPF.vkkopf_bestellnrColumn),Long) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vkkopf_bestellnr in Tabelle VKKOPF ist DBNull.", e) End Try End Get Set Me(Me.tableVKKOPF.vkkopf_bestellnrColumn) = value End Set End Property _ Public Property vkkopf_kopfpos() As Long Get Try Return CType(Me(Me.tableVKKOPF.vkkopf_kopfposColumn),Long) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vkkopf_kopfpos in Tabelle VKKOPF ist DBNull.", e) End Try End Get Set Me(Me.tableVKKOPF.vkkopf_kopfposColumn) = value End Set End Property _ Public Property vkkopf_projekt() As String Get Try Return CType(Me(Me.tableVKKOPF.vkkopf_projektColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vkkopf_projekt in Tabelle VKKOPF ist DBNull.", e) End Try End Get Set Me(Me.tableVKKOPF.vkkopf_projektColumn) = value End Set End Property _ Public Property vkkopf_bestaetig_lang() As String Get Try Return CType(Me(Me.tableVKKOPF.vkkopf_bestaetig_langColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vkkopf_bestaetig_lang in Tabelle VKKOPF ist DBNull.", e) End Try End Get Set Me(Me.tableVKKOPF.vkkopf_bestaetig_langColumn) = value End Set End Property _ Public Property vkkopf_kunde() As Long Get Try Return CType(Me(Me.tableVKKOPF.vkkopf_kundeColumn),Long) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vkkopf_kunde in Tabelle VKKOPF ist DBNull.", e) End Try End Get Set Me(Me.tableVKKOPF.vkkopf_kundeColumn) = value End Set End Property _ Public Property vkkopf_eingang_nr() As Long Get Try Return CType(Me(Me.tableVKKOPF.vkkopf_eingang_nrColumn),Long) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vkkopf_eingang_nr in Tabelle VKKOPF ist DBNull.", e) End Try End Get Set Me(Me.tableVKKOPF.vkkopf_eingang_nrColumn) = value End Set End Property _ Public Property vkkopf_gew_netto() As Decimal Get Try Return CType(Me(Me.tableVKKOPF.vkkopf_gew_nettoColumn),Decimal) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vkkopf_gew_netto in Tabelle VKKOPF ist DBNull.", e) End Try End Get Set Me(Me.tableVKKOPF.vkkopf_gew_nettoColumn) = value End Set End Property _ Public Property vkkopf_liefadr_name1() As String Get Try Return CType(Me(Me.tableVKKOPF.vkkopf_liefadr_name1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vkkopf_liefadr_name1 in Tabelle VKKOPF ist DBNull.", e) End Try End Get Set Me(Me.tableVKKOPF.vkkopf_liefadr_name1Column) = value End Set End Property _ Public Property vkkopf_liefadr_name2() As String Get Try Return CType(Me(Me.tableVKKOPF.vkkopf_liefadr_name2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vkkopf_liefadr_name2 in Tabelle VKKOPF ist DBNull.", e) End Try End Get Set Me(Me.tableVKKOPF.vkkopf_liefadr_name2Column) = value End Set End Property _ Public Property vkkopf_liefadr_name3() As String Get Try Return CType(Me(Me.tableVKKOPF.vkkopf_liefadr_name3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vkkopf_liefadr_name3 in Tabelle VKKOPF ist DBNull.", e) End Try End Get Set Me(Me.tableVKKOPF.vkkopf_liefadr_name3Column) = value End Set End Property _ Public Property vkkopf_liefadr_strasse() As String Get Try Return CType(Me(Me.tableVKKOPF.vkkopf_liefadr_strasseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vkkopf_liefadr_strasse in Tabelle VKKOPF ist DBNull.", e) End Try End Get Set Me(Me.tableVKKOPF.vkkopf_liefadr_strasseColumn) = value End Set End Property _ Public Property vkkopf_liefadr_land_nr() As String Get Try Return CType(Me(Me.tableVKKOPF.vkkopf_liefadr_land_nrColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vkkopf_liefadr_land_nr in Tabelle VKKOPF ist DBNull.", e) End Try End Get Set Me(Me.tableVKKOPF.vkkopf_liefadr_land_nrColumn) = value End Set End Property _ Public Property vkkopf_liefadr_ldplz() As String Get Try Return CType(Me(Me.tableVKKOPF.vkkopf_liefadr_ldplzColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vkkopf_liefadr_ldplz in Tabelle VKKOPF ist DBNull.", e) End Try End Get Set Me(Me.tableVKKOPF.vkkopf_liefadr_ldplzColumn) = value End Set End Property _ Public Property vkkopf_liefadr_ort() As String Get Try Return CType(Me(Me.tableVKKOPF.vkkopf_liefadr_ortColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vkkopf_liefadr_ort in Tabelle VKKOPF ist DBNull.", e) End Try End Get Set Me(Me.tableVKKOPF.vkkopf_liefadr_ortColumn) = value End Set End Property _ Public Property vkkopf_liefadr_telefon() As String Get Try Return CType(Me(Me.tableVKKOPF.vkkopf_liefadr_telefonColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vkkopf_liefadr_telefon in Tabelle VKKOPF ist DBNull.", e) End Try End Get Set Me(Me.tableVKKOPF.vkkopf_liefadr_telefonColumn) = value End Set End Property _ Public Property vkkopf_liefadr_email() As String Get Try Return CType(Me(Me.tableVKKOPF.vkkopf_liefadr_emailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vkkopf_liefadr_email in Tabelle VKKOPF ist DBNull.", e) End Try End Get Set Me(Me.tableVKKOPF.vkkopf_liefadr_emailColumn) = value End Set End Property _ Public Property vkkopf_anspr_vorname() As String Get Try Return CType(Me(Me.tableVKKOPF.vkkopf_anspr_vornameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vkkopf_anspr_vorname in Tabelle VKKOPF ist DBNull.", e) End Try End Get Set Me(Me.tableVKKOPF.vkkopf_anspr_vornameColumn) = value End Set End Property _ Public Property vkkopf_anspr_name() As String Get Try Return CType(Me(Me.tableVKKOPF.vkkopf_anspr_nameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vkkopf_anspr_name in Tabelle VKKOPF ist DBNull.", e) End Try End Get Set Me(Me.tableVKKOPF.vkkopf_anspr_nameColumn) = value End Set End Property _ Public Property vkkopf_anspr_telefon() As String Get Try Return CType(Me(Me.tableVKKOPF.vkkopf_anspr_telefonColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vkkopf_anspr_telefon in Tabelle VKKOPF ist DBNull.", e) End Try End Get Set Me(Me.tableVKKOPF.vkkopf_anspr_telefonColumn) = value End Set End Property _ Public Property vkkopf_anspr_email() As String Get Try Return CType(Me(Me.tableVKKOPF.vkkopf_anspr_emailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vkkopf_anspr_email in Tabelle VKKOPF ist DBNull.", e) End Try End Get Set Me(Me.tableVKKOPF.vkkopf_anspr_emailColumn) = value End Set End Property _ Public Property vkkopf_vertriebsweg() As String Get Try Return CType(Me(Me.tableVKKOPF.vkkopf_vertriebswegColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte vkkopf_vertriebsweg in Tabelle VKKOPF ist DBNull.", e) End Try End Get Set Me(Me.tableVKKOPF.vkkopf_vertriebswegColumn) = value End Set End Property _ Public Property GUID() As Integer Get Return CType(Me(Me.tableVKKOPF.GUIDColumn),Integer) End Get Set Me(Me.tableVKKOPF.GUIDColumn) = value End Set End Property _ Public Function Isvkkopf_bestellnrNull() As Boolean Return Me.IsNull(Me.tableVKKOPF.vkkopf_bestellnrColumn) End Function _ Public Sub Setvkkopf_bestellnrNull() Me(Me.tableVKKOPF.vkkopf_bestellnrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvkkopf_kopfposNull() As Boolean Return Me.IsNull(Me.tableVKKOPF.vkkopf_kopfposColumn) End Function _ Public Sub Setvkkopf_kopfposNull() Me(Me.tableVKKOPF.vkkopf_kopfposColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvkkopf_projektNull() As Boolean Return Me.IsNull(Me.tableVKKOPF.vkkopf_projektColumn) End Function _ Public Sub Setvkkopf_projektNull() Me(Me.tableVKKOPF.vkkopf_projektColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvkkopf_bestaetig_langNull() As Boolean Return Me.IsNull(Me.tableVKKOPF.vkkopf_bestaetig_langColumn) End Function _ Public Sub Setvkkopf_bestaetig_langNull() Me(Me.tableVKKOPF.vkkopf_bestaetig_langColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvkkopf_kundeNull() As Boolean Return Me.IsNull(Me.tableVKKOPF.vkkopf_kundeColumn) End Function _ Public Sub Setvkkopf_kundeNull() Me(Me.tableVKKOPF.vkkopf_kundeColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvkkopf_eingang_nrNull() As Boolean Return Me.IsNull(Me.tableVKKOPF.vkkopf_eingang_nrColumn) End Function _ Public Sub Setvkkopf_eingang_nrNull() Me(Me.tableVKKOPF.vkkopf_eingang_nrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvkkopf_gew_nettoNull() As Boolean Return Me.IsNull(Me.tableVKKOPF.vkkopf_gew_nettoColumn) End Function _ Public Sub Setvkkopf_gew_nettoNull() Me(Me.tableVKKOPF.vkkopf_gew_nettoColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvkkopf_liefadr_name1Null() As Boolean Return Me.IsNull(Me.tableVKKOPF.vkkopf_liefadr_name1Column) End Function _ Public Sub Setvkkopf_liefadr_name1Null() Me(Me.tableVKKOPF.vkkopf_liefadr_name1Column) = Global.System.Convert.DBNull End Sub _ Public Function Isvkkopf_liefadr_name2Null() As Boolean Return Me.IsNull(Me.tableVKKOPF.vkkopf_liefadr_name2Column) End Function _ Public Sub Setvkkopf_liefadr_name2Null() Me(Me.tableVKKOPF.vkkopf_liefadr_name2Column) = Global.System.Convert.DBNull End Sub _ Public Function Isvkkopf_liefadr_name3Null() As Boolean Return Me.IsNull(Me.tableVKKOPF.vkkopf_liefadr_name3Column) End Function _ Public Sub Setvkkopf_liefadr_name3Null() Me(Me.tableVKKOPF.vkkopf_liefadr_name3Column) = Global.System.Convert.DBNull End Sub _ Public Function Isvkkopf_liefadr_strasseNull() As Boolean Return Me.IsNull(Me.tableVKKOPF.vkkopf_liefadr_strasseColumn) End Function _ Public Sub Setvkkopf_liefadr_strasseNull() Me(Me.tableVKKOPF.vkkopf_liefadr_strasseColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvkkopf_liefadr_land_nrNull() As Boolean Return Me.IsNull(Me.tableVKKOPF.vkkopf_liefadr_land_nrColumn) End Function _ Public Sub Setvkkopf_liefadr_land_nrNull() Me(Me.tableVKKOPF.vkkopf_liefadr_land_nrColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvkkopf_liefadr_ldplzNull() As Boolean Return Me.IsNull(Me.tableVKKOPF.vkkopf_liefadr_ldplzColumn) End Function _ Public Sub Setvkkopf_liefadr_ldplzNull() Me(Me.tableVKKOPF.vkkopf_liefadr_ldplzColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvkkopf_liefadr_ortNull() As Boolean Return Me.IsNull(Me.tableVKKOPF.vkkopf_liefadr_ortColumn) End Function _ Public Sub Setvkkopf_liefadr_ortNull() Me(Me.tableVKKOPF.vkkopf_liefadr_ortColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvkkopf_liefadr_telefonNull() As Boolean Return Me.IsNull(Me.tableVKKOPF.vkkopf_liefadr_telefonColumn) End Function _ Public Sub Setvkkopf_liefadr_telefonNull() Me(Me.tableVKKOPF.vkkopf_liefadr_telefonColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvkkopf_liefadr_emailNull() As Boolean Return Me.IsNull(Me.tableVKKOPF.vkkopf_liefadr_emailColumn) End Function _ Public Sub Setvkkopf_liefadr_emailNull() Me(Me.tableVKKOPF.vkkopf_liefadr_emailColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvkkopf_anspr_vornameNull() As Boolean Return Me.IsNull(Me.tableVKKOPF.vkkopf_anspr_vornameColumn) End Function _ Public Sub Setvkkopf_anspr_vornameNull() Me(Me.tableVKKOPF.vkkopf_anspr_vornameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvkkopf_anspr_nameNull() As Boolean Return Me.IsNull(Me.tableVKKOPF.vkkopf_anspr_nameColumn) End Function _ Public Sub Setvkkopf_anspr_nameNull() Me(Me.tableVKKOPF.vkkopf_anspr_nameColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvkkopf_anspr_telefonNull() As Boolean Return Me.IsNull(Me.tableVKKOPF.vkkopf_anspr_telefonColumn) End Function _ Public Sub Setvkkopf_anspr_telefonNull() Me(Me.tableVKKOPF.vkkopf_anspr_telefonColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvkkopf_anspr_emailNull() As Boolean Return Me.IsNull(Me.tableVKKOPF.vkkopf_anspr_emailColumn) End Function _ Public Sub Setvkkopf_anspr_emailNull() Me(Me.tableVKKOPF.vkkopf_anspr_emailColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isvkkopf_vertriebswegNull() As Boolean Return Me.IsNull(Me.tableVKKOPF.vkkopf_vertriebswegColumn) End Function _ Public Sub Setvkkopf_vertriebswegNull() Me(Me.tableVKKOPF.vkkopf_vertriebswegColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Row event argument class ''' _ Public Class VKKOPFRowChangeEvent Inherits Global.System.EventArgs Private eventRow As VKKOPFRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As VKKOPFRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As VKKOPFRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class End Class Namespace DSMercatorTableAdapters ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class VKKOPFTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.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),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set 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 ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "VKKOPF" tableMapping.ColumnMappings.Add("vkkopf_bestellnr", "vkkopf_bestellnr") tableMapping.ColumnMappings.Add("vkkopf_kopfpos", "vkkopf_kopfpos") tableMapping.ColumnMappings.Add("vkkopf_projekt", "vkkopf_projekt") tableMapping.ColumnMappings.Add("vkkopf_bestaetig_lang", "vkkopf_bestaetig_lang") tableMapping.ColumnMappings.Add("vkkopf_kunde", "vkkopf_kunde") tableMapping.ColumnMappings.Add("vkkopf_eingang_nr", "vkkopf_eingang_nr") tableMapping.ColumnMappings.Add("vkkopf_gew_netto", "vkkopf_gew_netto") tableMapping.ColumnMappings.Add("vkkopf_liefadr_name1", "vkkopf_liefadr_name1") tableMapping.ColumnMappings.Add("vkkopf_liefadr_name2", "vkkopf_liefadr_name2") tableMapping.ColumnMappings.Add("vkkopf_liefadr_name3", "vkkopf_liefadr_name3") tableMapping.ColumnMappings.Add("vkkopf_liefadr_strasse", "vkkopf_liefadr_strasse") tableMapping.ColumnMappings.Add("vkkopf_liefadr_land_nr", "vkkopf_liefadr_land_nr") tableMapping.ColumnMappings.Add("vkkopf_liefadr_ldplz", "vkkopf_liefadr_ldplz") tableMapping.ColumnMappings.Add("vkkopf_liefadr_ort", "vkkopf_liefadr_ort") tableMapping.ColumnMappings.Add("vkkopf_liefadr_telefon", "vkkopf_liefadr_telefon") tableMapping.ColumnMappings.Add("vkkopf_liefadr_email", "vkkopf_liefadr_email") tableMapping.ColumnMappings.Add("vkkopf_anspr_vorname", "vkkopf_anspr_vorname") tableMapping.ColumnMappings.Add("vkkopf_anspr_name", "vkkopf_anspr_name") tableMapping.ColumnMappings.Add("vkkopf_anspr_telefon", "vkkopf_anspr_telefon") tableMapping.ColumnMappings.Add("vkkopf_anspr_email", "vkkopf_anspr_email") tableMapping.ColumnMappings.Add("vkkopf_vertriebsweg", "vkkopf_vertriebsweg") tableMapping.ColumnMappings.Add("GUID", "GUID") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[VKKOPF] ([vkkopf_bestellnr], [vkkopf_kopfpos], [vkkopf_projekt"& _ "], [vkkopf_bestaetig_lang], [vkkopf_kunde], [vkkopf_eingang_nr], [vkkopf_gew_net"& _ "to], [vkkopf_liefadr_name1], [vkkopf_liefadr_name2], [vkkopf_liefadr_name3], [vk"& _ "kopf_liefadr_strasse], [vkkopf_liefadr_land_nr], [vkkopf_liefadr_ldplz], [vkkopf"& _ "_liefadr_ort], [vkkopf_liefadr_telefon], [vkkopf_liefadr_email], [vkkopf_anspr_v"& _ "orname], [vkkopf_anspr_name], [vkkopf_anspr_telefon], [vkkopf_anspr_email], [vkk"& _ "opf_vertriebsweg]) VALUES (@vkkopf_bestellnr, @vkkopf_kopfpos, @vkkopf_projekt, "& _ "@vkkopf_bestaetig_lang, @vkkopf_kunde, @vkkopf_eingang_nr, @vkkopf_gew_netto, @v"& _ "kkopf_liefadr_name1, @vkkopf_liefadr_name2, @vkkopf_liefadr_name3, @vkkopf_liefa"& _ "dr_strasse, @vkkopf_liefadr_land_nr, @vkkopf_liefadr_ldplz, @vkkopf_liefadr_ort,"& _ " @vkkopf_liefadr_telefon, @vkkopf_liefadr_email, @vkkopf_anspr_vorname, @vkkopf_"& _ "anspr_name, @vkkopf_anspr_telefon, @vkkopf_anspr_email, @vkkopf_vertriebsweg)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vkkopf_bestellnr", Global.System.Data.SqlDbType.BigInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_bestellnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vkkopf_kopfpos", Global.System.Data.SqlDbType.BigInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_kopfpos", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vkkopf_projekt", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_projekt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vkkopf_bestaetig_lang", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_bestaetig_lang", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vkkopf_kunde", Global.System.Data.SqlDbType.BigInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_kunde", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vkkopf_eingang_nr", Global.System.Data.SqlDbType.BigInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_eingang_nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vkkopf_gew_netto", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 15, 3, "vkkopf_gew_netto", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vkkopf_liefadr_name1", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_liefadr_name1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vkkopf_liefadr_name2", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_liefadr_name2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vkkopf_liefadr_name3", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_liefadr_name3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vkkopf_liefadr_strasse", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_liefadr_strasse", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vkkopf_liefadr_land_nr", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_liefadr_land_nr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vkkopf_liefadr_ldplz", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_liefadr_ldplz", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vkkopf_liefadr_ort", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_liefadr_ort", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vkkopf_liefadr_telefon", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_liefadr_telefon", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vkkopf_liefadr_email", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_liefadr_email", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vkkopf_anspr_vorname", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_anspr_vorname", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vkkopf_anspr_name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_anspr_name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vkkopf_anspr_telefon", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_anspr_telefon", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vkkopf_anspr_email", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_anspr_email", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@vkkopf_vertriebsweg", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_vertriebsweg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.CP2DDConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(8) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT vkkopf_bestellnr, vkkopf_kopfpos, vkkopf_projekt, vkkopf_bestaetig_lang, v"& _ "kkopf_kunde, vkkopf_eingang_nr, vkkopf_gew_netto, vkkopf_liefadr_name1, vkkopf_l"& _ "iefadr_name2, vkkopf_liefadr_name3, vkkopf_liefadr_strasse, vkkopf_liefadr_land_"& _ "nr, vkkopf_liefadr_ldplz, vkkopf_liefadr_ort, vkkopf_liefadr_telefon, vkkopf_lie"& _ "fadr_email, vkkopf_anspr_vorname, vkkopf_anspr_name, vkkopf_anspr_telefon, vkkop"& _ "f_anspr_email, vkkopf_vertriebsweg, GUID FROM dbo.VKKOPF" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection Me._commandCollection(1).CommandText = "SELECT vkkopf_liefadr_land_nr"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VKKOPF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (vkkop"& _ "f_bestellnr = @BestellNr)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP BY vkkopf_liefadr_land_nr" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BestellNr", Global.System.Data.SqlDbType.BigInt, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_bestellnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(2).Connection = Me.Connection Me._commandCollection(2).CommandText = "SELECT SUM(vkkopf_gew_netto) AS Expr1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VKKOPF"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ " (vkkopf_bestellnr = @BESTELLNR)" Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESTELLNR", Global.System.Data.SqlDbType.BigInt, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_bestellnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(3).Connection = Me.Connection Me._commandCollection(3).CommandText = "SELECT vkkopf_liefadr_name1 FROM VKKOPF where vkkopf_bestellnr = @BestellNr group"& _ " by vkkopf_liefadr_name1 " Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BestellNr", Global.System.Data.SqlDbType.BigInt, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_bestellnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(4).Connection = Me.Connection Me._commandCollection(4).CommandText = "SELECT vkkopf_liefadr_ort FROM VKKOPF where vkkopf_bestellnr = @BestellNr group b"& _ "y vkkopf_liefadr_ort" Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BestellNr", Global.System.Data.SqlDbType.BigInt, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_bestellnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(5).Connection = Me.Connection Me._commandCollection(5).CommandText = "SELECT vkkopf_liefadr_name2 FROM VKKOPF where vkkopf_bestellnr = @BestellNr group"& _ " by vkkopf_liefadr_name2 " Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BestellNr", Global.System.Data.SqlDbType.BigInt, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_bestellnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(6).Connection = Me.Connection Me._commandCollection(6).CommandText = "SELECT COUNT(*) FROM VKKOPF where vkkopf_bestellnr = @BestellNr" Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BestellNr", Global.System.Data.SqlDbType.BigInt, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_bestellnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(7) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(7).Connection = Me.Connection Me._commandCollection(7).CommandText = "SELECT [vkkopf_liefadr_ldplz] FROM VKKOPF where vkkopf_bestellnr = @BestellNr gro"& _ "up by [vkkopf_liefadr_ldplz] " Me._commandCollection(7).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BestellNr", Global.System.Data.SqlDbType.BigInt, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_bestellnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(8) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(8).Connection = Me.Connection Me._commandCollection(8).CommandText = "SELECT [vkkopf_liefadr_strasse]FROM VKKOPF where vkkopf_bestellnr = @BestellNr gr"& _ "oup by [vkkopf_liefadr_strasse]" Me._commandCollection(8).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BestellNr", Global.System.Data.SqlDbType.BigInt, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "vkkopf_bestellnr", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DSMercator.VKKOPFDataTable) 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 _ Public Overloads Overridable Function GetData() As DSMercator.VKKOPFDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DSMercator.VKKOPFDataTable = New DSMercator.VKKOPFDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DSMercator.VKKOPFDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DSMercator) As Integer Return Me.Adapter.Update(dataSet, "VKKOPF") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Insert( _ ByVal vkkopf_bestellnr As Global.System.Nullable(Of Long), _ ByVal vkkopf_kopfpos As Global.System.Nullable(Of Long), _ ByVal vkkopf_projekt As String, _ ByVal vkkopf_bestaetig_lang As String, _ ByVal vkkopf_kunde As Global.System.Nullable(Of Long), _ ByVal vkkopf_eingang_nr As Global.System.Nullable(Of Long), _ ByVal vkkopf_gew_netto As Global.System.Nullable(Of Decimal), _ ByVal vkkopf_liefadr_name1 As String, _ ByVal vkkopf_liefadr_name2 As String, _ ByVal vkkopf_liefadr_name3 As String, _ ByVal vkkopf_liefadr_strasse As String, _ ByVal vkkopf_liefadr_land_nr As String, _ ByVal vkkopf_liefadr_ldplz As String, _ ByVal vkkopf_liefadr_ort As String, _ ByVal vkkopf_liefadr_telefon As String, _ ByVal vkkopf_liefadr_email As String, _ ByVal vkkopf_anspr_vorname As String, _ ByVal vkkopf_anspr_name As String, _ ByVal vkkopf_anspr_telefon As String, _ ByVal vkkopf_anspr_email As String, _ ByVal vkkopf_vertriebsweg As String) As Integer If (vkkopf_bestellnr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(vkkopf_bestellnr.Value,Long) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (vkkopf_kopfpos.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(vkkopf_kopfpos.Value,Long) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (vkkopf_projekt Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(vkkopf_projekt,String) End If If (vkkopf_bestaetig_lang Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(vkkopf_bestaetig_lang,String) End If If (vkkopf_kunde.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(vkkopf_kunde.Value,Long) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (vkkopf_eingang_nr.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(vkkopf_eingang_nr.Value,Long) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (vkkopf_gew_netto.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(vkkopf_gew_netto.Value,Decimal) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (vkkopf_liefadr_name1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(vkkopf_liefadr_name1,String) End If If (vkkopf_liefadr_name2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(vkkopf_liefadr_name2,String) End If If (vkkopf_liefadr_name3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(vkkopf_liefadr_name3,String) End If If (vkkopf_liefadr_strasse Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(vkkopf_liefadr_strasse,String) End If If (vkkopf_liefadr_land_nr Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(vkkopf_liefadr_land_nr,String) End If If (vkkopf_liefadr_ldplz Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(vkkopf_liefadr_ldplz,String) End If If (vkkopf_liefadr_ort Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(vkkopf_liefadr_ort,String) End If If (vkkopf_liefadr_telefon Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(vkkopf_liefadr_telefon,String) End If If (vkkopf_liefadr_email Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(vkkopf_liefadr_email,String) End If If (vkkopf_anspr_vorname Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(vkkopf_anspr_vorname,String) End If If (vkkopf_anspr_name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(vkkopf_anspr_name,String) End If If (vkkopf_anspr_telefon Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(vkkopf_anspr_telefon,String) End If If (vkkopf_anspr_email Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(vkkopf_anspr_email,String) End If If (vkkopf_vertriebsweg Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(vkkopf_vertriebsweg,String) End If 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 _ Public Overloads Overridable Function cmbBestellNrGetLand(ByVal BestellNr As Global.System.Nullable(Of Long)) As Object Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) If (BestellNr.HasValue = true) Then command.Parameters(0).Value = CType(BestellNr.Value,Long) Else command.Parameters(0).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then command.Connection.Open End If Dim returnValue As Object Try returnValue = command.ExecuteScalar Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then command.Connection.Close End If End Try If ((returnValue Is Nothing) _ OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then Return Nothing Else Return CType(returnValue,Object) End If End Function _ Public Overloads Overridable Function cmdBestellNrGetGewichtNetto(ByVal BESTELLNR As Global.System.Nullable(Of Long)) As Object Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) If (BESTELLNR.HasValue = true) Then command.Parameters(0).Value = CType(BESTELLNR.Value,Long) Else command.Parameters(0).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then command.Connection.Open End If Dim returnValue As Object Try returnValue = command.ExecuteScalar Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then command.Connection.Close End If End Try If ((returnValue Is Nothing) _ OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then Return Nothing Else Return CType(returnValue,Object) End If End Function _ Public Overloads Overridable Function cmdBestellNrGetLieferFirma(ByVal BestellNr As Global.System.Nullable(Of Long)) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) If (BestellNr.HasValue = true) Then command.Parameters(0).Value = CType(BestellNr.Value,Long) Else command.Parameters(0).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then command.Connection.Open End If Dim returnValue As Object Try returnValue = command.ExecuteScalar Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then command.Connection.Close End If End Try If ((returnValue Is Nothing) _ OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then Return Nothing Else Return CType(returnValue,String) End If End Function _ Public Overloads Overridable Function cmdBestellNrGetLieferOrt(ByVal BestellNr As Global.System.Nullable(Of Long)) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) If (BestellNr.HasValue = true) Then command.Parameters(0).Value = CType(BestellNr.Value,Long) Else command.Parameters(0).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then command.Connection.Open End If Dim returnValue As Object Try returnValue = command.ExecuteScalar Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then command.Connection.Close End If End Try If ((returnValue Is Nothing) _ OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then Return Nothing Else Return CType(returnValue,String) End If End Function _ Public Overloads Overridable Function cmdBestellNrLieferFirma2(ByVal BestellNr As Global.System.Nullable(Of Long)) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) If (BestellNr.HasValue = true) Then command.Parameters(0).Value = CType(BestellNr.Value,Long) Else command.Parameters(0).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then command.Connection.Open End If Dim returnValue As Object Try returnValue = command.ExecuteScalar Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then command.Connection.Close End If End Try If ((returnValue Is Nothing) _ OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then Return Nothing Else Return CType(returnValue,String) End If End Function _ Public Overloads Overridable Function cmdCheckBestellNrExists(ByVal BestellNr As Global.System.Nullable(Of Long)) As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6) If (BestellNr.HasValue = true) Then command.Parameters(0).Value = CType(BestellNr.Value,Long) Else command.Parameters(0).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then command.Connection.Open End If Dim returnValue As Object Try returnValue = command.ExecuteScalar Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then command.Connection.Close End If End Try If ((returnValue Is Nothing) _ OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then Return New Global.System.Nullable(Of Integer)() Else Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) End If End Function _ Public Overloads Overridable Function cmdGetLieferPLZ(ByVal BestellNr As Global.System.Nullable(Of Long)) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(7) If (BestellNr.HasValue = true) Then command.Parameters(0).Value = CType(BestellNr.Value,Long) Else command.Parameters(0).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then command.Connection.Open End If Dim returnValue As Object Try returnValue = command.ExecuteScalar Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then command.Connection.Close End If End Try If ((returnValue Is Nothing) _ OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then Return Nothing Else Return CType(returnValue,String) End If End Function _ Public Overloads Overridable Function cmdGetLieferStrasse(ByVal BestellNr As Global.System.Nullable(Of Long)) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(8) If (BestellNr.HasValue = true) Then command.Parameters(0).Value = CType(BestellNr.Value,Long) Else command.Parameters(0).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then command.Connection.Open End If Dim returnValue As Object Try returnValue = command.ExecuteScalar Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then command.Connection.Close End If End Try If ((returnValue Is Nothing) _ OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then Return Nothing Else Return CType(returnValue,String) End If End Function End Class ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' _ Partial Public Class TableAdapterManager Inherits Global.System.ComponentModel.Component Private _updateOrder As UpdateOrderOption Private _vKKOPFTableAdapter As VKKOPFTableAdapter Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder End Get Set Me._updateOrder = value End Set End Property _ Public Property VKKOPFTableAdapter() As VKKOPFTableAdapter Get Return Me._vKKOPFTableAdapter End Get Set Me._vKKOPFTableAdapter = value End Set End Property _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate End Get Set Me._backupDataSetBeforeUpdate = value End Set End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get If (Not (Me._connection) Is Nothing) Then Return Me._connection End If If ((Not (Me._vKKOPFTableAdapter) Is Nothing) _ AndAlso (Not (Me._vKKOPFTableAdapter.Connection) Is Nothing)) Then Return Me._vKKOPFTableAdapter.Connection End If Return Nothing End Get Set Me._connection = value End Set End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get Dim count As Integer = 0 If (Not (Me._vKKOPFTableAdapter) Is Nothing) Then count = (count + 1) End If Return count End Get End Property ''' '''Update rows in top-down order. ''' _ Private Function UpdateUpdatedRows(ByVal dataSet As DSMercator, 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 (Not (Me._vKKOPFTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.VKKOPF.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._vKKOPFTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If Return result End Function ''' '''Insert rows in top-down order. ''' _ Private Function UpdateInsertedRows(ByVal dataSet As DSMercator, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._vKKOPFTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.VKKOPF.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._vKKOPFTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If Return result End Function ''' '''Delete rows in bottom-up order. ''' _ Private Function UpdateDeletedRows(ByVal dataSet As DSMercator, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._vKKOPFTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.VKKOPF.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._vKKOPFTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If Return result End Function ''' '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' _ 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 Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = 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 ''' '''Update all changes to the dataset. ''' _ Public Overridable Function UpdateAll(ByVal dataSet As DSMercator) 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 ((Not (Me._vKKOPFTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._vKKOPFTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If Dim workConnection As Global.System.Data.IDbConnection = Me.Connection If (workConnection Is Nothing) Then Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes"& _ "t.") 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("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst"& _ "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt"& _ "ion nicht zu.") End If Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = 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 (Not (Me._vKKOPFTableAdapter) Is Nothing) Then revertConnections.Add(Me._vKKOPFTableAdapter, Me._vKKOPFTableAdapter.Connection) Me._vKKOPFTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._vKKOPFTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._vKKOPFTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._vKKOPFTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._vKKOPFTableAdapter.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((Not (backupDataSet) Is 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 (Not (Me._vKKOPFTableAdapter) Is Nothing) Then Me._vKKOPFTableAdapter.Connection = CType(revertConnections(Me._vKKOPFTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._vKKOPFTableAdapter.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 _ Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) End Sub _ Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean If (Not (Me._connection) Is 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 ''' '''Update Order Option ''' _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 UpdateInsertDelete = 1 End Enum ''' '''Used to sort self-referenced table's rows ''' _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) Private _relation As Global.System.Data.DataRelation Private _childFirst As Integer _ Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) MyBase.New Me._relation = relation If childFirst Then Me._childFirst = -1 Else Me._childFirst = 1 End If End Sub _ Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) Dim root As Global.System.Data.DataRow = row distance = 0 Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() traversedRows(row) = row Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) Do While ((Not (parent) Is Nothing) _ AndAlso (traversedRows.ContainsKey(parent) = false)) distance = (distance + 1) root = parent traversedRows(parent) = parent parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) Loop If (distance = 0) Then traversedRows.Clear traversedRows(row) = row parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) Do While ((Not (parent) Is Nothing) _ AndAlso (traversedRows.ContainsKey(parent) = false)) distance = (distance + 1) root = parent traversedRows(parent) = parent parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) Loop End If Return root End Function _ Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare If Object.ReferenceEquals(row1, row2) Then Return 0 End If If (row1 Is Nothing) Then Return -1 End If If (row2 Is Nothing) Then Return 1 End If Dim distance1 As Integer = 0 Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) Dim distance2 As Integer = 0 Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) If Object.ReferenceEquals(root1, root2) Then Return (Me._childFirst * distance1.CompareTo(distance2)) Else Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ AndAlso (Not (root2.Table) Is Nothing))) If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then Return -1 Else Return 1 End If End If End Function End Class End Class End Namespace