'------------------------------------------------------------------------------ ' ' 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 DSIDB_Stammdaten Inherits Global.System.Data.DataSet Private tableTBIDB_BUSINESS_ENTITY As TBIDB_BUSINESS_ENTITYDataTable Private tableTBIDB_ATTRIBUTE As TBIDB_ATTRIBUTEDataTable Private tableTBIDB_ATTRIBUTE_TYPE As TBIDB_ATTRIBUTE_TYPEDataTable Private tableVWIDB_BE_ATTRIBUTE As VWIDB_BE_ATTRIBUTEDataTable Private tableTBZF_ADMIN_SOURCE_SQL As TBZF_ADMIN_SOURCE_SQLDataTable Private tableTBIDB_OBJECT_STORE As TBIDB_OBJECT_STOREDataTable Private tableTBIDB_CATALOG As TBIDB_CATALOGDataTable Private tableTBWH_ATTRIBUTE_TYPE As TBWH_ATTRIBUTE_TYPEDataTable Private tableVWIDB_OBJECT_STORE As VWIDB_OBJECT_STOREDataTable Private relationFK_TYP_ID As Global.System.Data.DataRelation Private relationFK_OS_CAT_ID As Global.System.Data.DataRelation 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("TBIDB_BUSINESS_ENTITY")) Is Nothing) Then MyBase.Tables.Add(New TBIDB_BUSINESS_ENTITYDataTable(ds.Tables("TBIDB_BUSINESS_ENTITY"))) End If If (Not (ds.Tables("TBIDB_ATTRIBUTE")) Is Nothing) Then MyBase.Tables.Add(New TBIDB_ATTRIBUTEDataTable(ds.Tables("TBIDB_ATTRIBUTE"))) End If If (Not (ds.Tables("TBIDB_ATTRIBUTE_TYPE")) Is Nothing) Then MyBase.Tables.Add(New TBIDB_ATTRIBUTE_TYPEDataTable(ds.Tables("TBIDB_ATTRIBUTE_TYPE"))) End If If (Not (ds.Tables("VWIDB_BE_ATTRIBUTE")) Is Nothing) Then MyBase.Tables.Add(New VWIDB_BE_ATTRIBUTEDataTable(ds.Tables("VWIDB_BE_ATTRIBUTE"))) End If If (Not (ds.Tables("TBZF_ADMIN_SOURCE_SQL")) Is Nothing) Then MyBase.Tables.Add(New TBZF_ADMIN_SOURCE_SQLDataTable(ds.Tables("TBZF_ADMIN_SOURCE_SQL"))) End If If (Not (ds.Tables("TBIDB_OBJECT_STORE")) Is Nothing) Then MyBase.Tables.Add(New TBIDB_OBJECT_STOREDataTable(ds.Tables("TBIDB_OBJECT_STORE"))) End If If (Not (ds.Tables("TBIDB_CATALOG")) Is Nothing) Then MyBase.Tables.Add(New TBIDB_CATALOGDataTable(ds.Tables("TBIDB_CATALOG"))) End If If (Not (ds.Tables("TBWH_ATTRIBUTE_TYPE")) Is Nothing) Then MyBase.Tables.Add(New TBWH_ATTRIBUTE_TYPEDataTable(ds.Tables("TBWH_ATTRIBUTE_TYPE"))) End If If (Not (ds.Tables("VWIDB_OBJECT_STORE")) Is Nothing) Then MyBase.Tables.Add(New VWIDB_OBJECT_STOREDataTable(ds.Tables("VWIDB_OBJECT_STORE"))) 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 TBIDB_BUSINESS_ENTITY() As TBIDB_BUSINESS_ENTITYDataTable Get Return Me.tableTBIDB_BUSINESS_ENTITY End Get End Property _ Public ReadOnly Property TBIDB_ATTRIBUTE() As TBIDB_ATTRIBUTEDataTable Get Return Me.tableTBIDB_ATTRIBUTE End Get End Property _ Public ReadOnly Property TBIDB_ATTRIBUTE_TYPE() As TBIDB_ATTRIBUTE_TYPEDataTable Get Return Me.tableTBIDB_ATTRIBUTE_TYPE End Get End Property _ Public ReadOnly Property VWIDB_BE_ATTRIBUTE() As VWIDB_BE_ATTRIBUTEDataTable Get Return Me.tableVWIDB_BE_ATTRIBUTE End Get End Property _ Public ReadOnly Property TBZF_ADMIN_SOURCE_SQL() As TBZF_ADMIN_SOURCE_SQLDataTable Get Return Me.tableTBZF_ADMIN_SOURCE_SQL End Get End Property _ Public ReadOnly Property TBIDB_OBJECT_STORE() As TBIDB_OBJECT_STOREDataTable Get Return Me.tableTBIDB_OBJECT_STORE End Get End Property _ Public ReadOnly Property TBIDB_CATALOG() As TBIDB_CATALOGDataTable Get Return Me.tableTBIDB_CATALOG End Get End Property _ Public ReadOnly Property TBWH_ATTRIBUTE_TYPE() As TBWH_ATTRIBUTE_TYPEDataTable Get Return Me.tableTBWH_ATTRIBUTE_TYPE End Get End Property _ Public ReadOnly Property VWIDB_OBJECT_STORE() As VWIDB_OBJECT_STOREDataTable Get Return Me.tableVWIDB_OBJECT_STORE 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 DSIDB_Stammdaten = CType(MyBase.Clone,DSIDB_Stammdaten) 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("TBIDB_BUSINESS_ENTITY")) Is Nothing) Then MyBase.Tables.Add(New TBIDB_BUSINESS_ENTITYDataTable(ds.Tables("TBIDB_BUSINESS_ENTITY"))) End If If (Not (ds.Tables("TBIDB_ATTRIBUTE")) Is Nothing) Then MyBase.Tables.Add(New TBIDB_ATTRIBUTEDataTable(ds.Tables("TBIDB_ATTRIBUTE"))) End If If (Not (ds.Tables("TBIDB_ATTRIBUTE_TYPE")) Is Nothing) Then MyBase.Tables.Add(New TBIDB_ATTRIBUTE_TYPEDataTable(ds.Tables("TBIDB_ATTRIBUTE_TYPE"))) End If If (Not (ds.Tables("VWIDB_BE_ATTRIBUTE")) Is Nothing) Then MyBase.Tables.Add(New VWIDB_BE_ATTRIBUTEDataTable(ds.Tables("VWIDB_BE_ATTRIBUTE"))) End If If (Not (ds.Tables("TBZF_ADMIN_SOURCE_SQL")) Is Nothing) Then MyBase.Tables.Add(New TBZF_ADMIN_SOURCE_SQLDataTable(ds.Tables("TBZF_ADMIN_SOURCE_SQL"))) End If If (Not (ds.Tables("TBIDB_OBJECT_STORE")) Is Nothing) Then MyBase.Tables.Add(New TBIDB_OBJECT_STOREDataTable(ds.Tables("TBIDB_OBJECT_STORE"))) End If If (Not (ds.Tables("TBIDB_CATALOG")) Is Nothing) Then MyBase.Tables.Add(New TBIDB_CATALOGDataTable(ds.Tables("TBIDB_CATALOG"))) End If If (Not (ds.Tables("TBWH_ATTRIBUTE_TYPE")) Is Nothing) Then MyBase.Tables.Add(New TBWH_ATTRIBUTE_TYPEDataTable(ds.Tables("TBWH_ATTRIBUTE_TYPE"))) End If If (Not (ds.Tables("VWIDB_OBJECT_STORE")) Is Nothing) Then MyBase.Tables.Add(New VWIDB_OBJECT_STOREDataTable(ds.Tables("VWIDB_OBJECT_STORE"))) 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.tableTBIDB_BUSINESS_ENTITY = CType(MyBase.Tables("TBIDB_BUSINESS_ENTITY"),TBIDB_BUSINESS_ENTITYDataTable) If (initTable = true) Then If (Not (Me.tableTBIDB_BUSINESS_ENTITY) Is Nothing) Then Me.tableTBIDB_BUSINESS_ENTITY.InitVars End If End If Me.tableTBIDB_ATTRIBUTE = CType(MyBase.Tables("TBIDB_ATTRIBUTE"),TBIDB_ATTRIBUTEDataTable) If (initTable = true) Then If (Not (Me.tableTBIDB_ATTRIBUTE) Is Nothing) Then Me.tableTBIDB_ATTRIBUTE.InitVars End If End If Me.tableTBIDB_ATTRIBUTE_TYPE = CType(MyBase.Tables("TBIDB_ATTRIBUTE_TYPE"),TBIDB_ATTRIBUTE_TYPEDataTable) If (initTable = true) Then If (Not (Me.tableTBIDB_ATTRIBUTE_TYPE) Is Nothing) Then Me.tableTBIDB_ATTRIBUTE_TYPE.InitVars End If End If Me.tableVWIDB_BE_ATTRIBUTE = CType(MyBase.Tables("VWIDB_BE_ATTRIBUTE"),VWIDB_BE_ATTRIBUTEDataTable) If (initTable = true) Then If (Not (Me.tableVWIDB_BE_ATTRIBUTE) Is Nothing) Then Me.tableVWIDB_BE_ATTRIBUTE.InitVars End If End If Me.tableTBZF_ADMIN_SOURCE_SQL = CType(MyBase.Tables("TBZF_ADMIN_SOURCE_SQL"),TBZF_ADMIN_SOURCE_SQLDataTable) If (initTable = true) Then If (Not (Me.tableTBZF_ADMIN_SOURCE_SQL) Is Nothing) Then Me.tableTBZF_ADMIN_SOURCE_SQL.InitVars End If End If Me.tableTBIDB_OBJECT_STORE = CType(MyBase.Tables("TBIDB_OBJECT_STORE"),TBIDB_OBJECT_STOREDataTable) If (initTable = true) Then If (Not (Me.tableTBIDB_OBJECT_STORE) Is Nothing) Then Me.tableTBIDB_OBJECT_STORE.InitVars End If End If Me.tableTBIDB_CATALOG = CType(MyBase.Tables("TBIDB_CATALOG"),TBIDB_CATALOGDataTable) If (initTable = true) Then If (Not (Me.tableTBIDB_CATALOG) Is Nothing) Then Me.tableTBIDB_CATALOG.InitVars End If End If Me.tableTBWH_ATTRIBUTE_TYPE = CType(MyBase.Tables("TBWH_ATTRIBUTE_TYPE"),TBWH_ATTRIBUTE_TYPEDataTable) If (initTable = true) Then If (Not (Me.tableTBWH_ATTRIBUTE_TYPE) Is Nothing) Then Me.tableTBWH_ATTRIBUTE_TYPE.InitVars End If End If Me.tableVWIDB_OBJECT_STORE = CType(MyBase.Tables("VWIDB_OBJECT_STORE"),VWIDB_OBJECT_STOREDataTable) If (initTable = true) Then If (Not (Me.tableVWIDB_OBJECT_STORE) Is Nothing) Then Me.tableVWIDB_OBJECT_STORE.InitVars End If End If Me.relationFK_TYP_ID = Me.Relations("FK_TYP_ID") Me.relationFK_OS_CAT_ID = Me.Relations("FK_OS_CAT_ID") End Sub _ Private Sub InitClass() Me.DataSetName = "DSIDB_Stammdaten" Me.Prefix = "" Me.Namespace = "http://tempuri.org/DSIDB_Stammdaten.xsd" Me.EnforceConstraints = true Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.tableTBIDB_BUSINESS_ENTITY = New TBIDB_BUSINESS_ENTITYDataTable() MyBase.Tables.Add(Me.tableTBIDB_BUSINESS_ENTITY) Me.tableTBIDB_ATTRIBUTE = New TBIDB_ATTRIBUTEDataTable() MyBase.Tables.Add(Me.tableTBIDB_ATTRIBUTE) Me.tableTBIDB_ATTRIBUTE_TYPE = New TBIDB_ATTRIBUTE_TYPEDataTable() MyBase.Tables.Add(Me.tableTBIDB_ATTRIBUTE_TYPE) Me.tableVWIDB_BE_ATTRIBUTE = New VWIDB_BE_ATTRIBUTEDataTable() MyBase.Tables.Add(Me.tableVWIDB_BE_ATTRIBUTE) Me.tableTBZF_ADMIN_SOURCE_SQL = New TBZF_ADMIN_SOURCE_SQLDataTable() MyBase.Tables.Add(Me.tableTBZF_ADMIN_SOURCE_SQL) Me.tableTBIDB_OBJECT_STORE = New TBIDB_OBJECT_STOREDataTable() MyBase.Tables.Add(Me.tableTBIDB_OBJECT_STORE) Me.tableTBIDB_CATALOG = New TBIDB_CATALOGDataTable() MyBase.Tables.Add(Me.tableTBIDB_CATALOG) Me.tableTBWH_ATTRIBUTE_TYPE = New TBWH_ATTRIBUTE_TYPEDataTable() MyBase.Tables.Add(Me.tableTBWH_ATTRIBUTE_TYPE) Me.tableVWIDB_OBJECT_STORE = New VWIDB_OBJECT_STOREDataTable() MyBase.Tables.Add(Me.tableVWIDB_OBJECT_STORE) Me.relationFK_TYP_ID = New Global.System.Data.DataRelation("FK_TYP_ID", New Global.System.Data.DataColumn() {Me.tableTBIDB_ATTRIBUTE_TYPE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBIDB_ATTRIBUTE.TYP_IDColumn}, false) Me.Relations.Add(Me.relationFK_TYP_ID) Me.relationFK_OS_CAT_ID = New Global.System.Data.DataRelation("FK_OS_CAT_ID", New Global.System.Data.DataColumn() {Me.tableTBIDB_CATALOG.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBIDB_OBJECT_STORE.CAT_IDColumn}, false) Me.Relations.Add(Me.relationFK_OS_CAT_ID) End Sub _ Private Function ShouldSerializeTBIDB_BUSINESS_ENTITY() As Boolean Return false End Function _ Private Function ShouldSerializeTBIDB_ATTRIBUTE() As Boolean Return false End Function _ Private Function ShouldSerializeTBIDB_ATTRIBUTE_TYPE() As Boolean Return false End Function _ Private Function ShouldSerializeVWIDB_BE_ATTRIBUTE() As Boolean Return false End Function _ Private Function ShouldSerializeTBZF_ADMIN_SOURCE_SQL() As Boolean Return false End Function _ Private Function ShouldSerializeTBIDB_OBJECT_STORE() As Boolean Return false End Function _ Private Function ShouldSerializeTBIDB_CATALOG() As Boolean Return false End Function _ Private Function ShouldSerializeTBWH_ATTRIBUTE_TYPE() As Boolean Return false End Function _ Private Function ShouldSerializeVWIDB_OBJECT_STORE() 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 DSIDB_Stammdaten = New DSIDB_Stammdaten() 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 TBIDB_BUSINESS_ENTITYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_BUSINESS_ENTITYRowChangeEvent) _ Public Delegate Sub TBIDB_ATTRIBUTERowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_ATTRIBUTERowChangeEvent) _ Public Delegate Sub TBIDB_ATTRIBUTE_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_ATTRIBUTE_TYPERowChangeEvent) _ Public Delegate Sub VWIDB_BE_ATTRIBUTERowChangeEventHandler(ByVal sender As Object, ByVal e As VWIDB_BE_ATTRIBUTERowChangeEvent) _ Public Delegate Sub TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler(ByVal sender As Object, ByVal e As TBZF_ADMIN_SOURCE_SQLRowChangeEvent) _ Public Delegate Sub TBIDB_OBJECT_STORERowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_OBJECT_STORERowChangeEvent) _ Public Delegate Sub TBIDB_CATALOGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_CATALOGRowChangeEvent) _ Public Delegate Sub TBWH_ATTRIBUTE_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_ATTRIBUTE_TYPERowChangeEvent) _ Public Delegate Sub VWIDB_OBJECT_STORERowChangeEventHandler(ByVal sender As Object, ByVal e As VWIDB_OBJECT_STORERowChangeEvent) ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBIDB_BUSINESS_ENTITYDataTable Inherits Global.System.Data.TypedTableBase(Of TBIDB_BUSINESS_ENTITYRow) Private columnGUID As Global.System.Data.DataColumn Private columnPARENT_ENT_ID As Global.System.Data.DataColumn Private columnTITLE As Global.System.Data.DataColumn Private columnINHERITS_ATTRIBUTES As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBIDB_BUSINESS_ENTITY" 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 GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property PARENT_ENT_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPARENT_ENT_ID End Get End Property _ Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnTITLE End Get End Property _ Public ReadOnly Property INHERITS_ATTRIBUTESColumn() As Global.System.Data.DataColumn Get Return Me.columnINHERITS_ATTRIBUTES End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN 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 TBIDB_BUSINESS_ENTITYRow Get Return CType(Me.Rows(index),TBIDB_BUSINESS_ENTITYRow) End Get End Property _ Public Event TBIDB_BUSINESS_ENTITYRowChanging As TBIDB_BUSINESS_ENTITYRowChangeEventHandler _ Public Event TBIDB_BUSINESS_ENTITYRowChanged As TBIDB_BUSINESS_ENTITYRowChangeEventHandler _ Public Event TBIDB_BUSINESS_ENTITYRowDeleting As TBIDB_BUSINESS_ENTITYRowChangeEventHandler _ Public Event TBIDB_BUSINESS_ENTITYRowDeleted As TBIDB_BUSINESS_ENTITYRowChangeEventHandler _ Public Overloads Sub AddTBIDB_BUSINESS_ENTITYRow(ByVal row As TBIDB_BUSINESS_ENTITYRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBIDB_BUSINESS_ENTITYRow(ByVal PARENT_ENT_ID As Integer, ByVal TITLE As String, ByVal INHERITS_ATTRIBUTES As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBIDB_BUSINESS_ENTITYRow Dim rowTBIDB_BUSINESS_ENTITYRow As TBIDB_BUSINESS_ENTITYRow = CType(Me.NewRow,TBIDB_BUSINESS_ENTITYRow) Dim columnValuesArray() As Object = New Object() {Nothing, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowTBIDB_BUSINESS_ENTITYRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBIDB_BUSINESS_ENTITYRow) Return rowTBIDB_BUSINESS_ENTITYRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBIDB_BUSINESS_ENTITYRow Return CType(Me.Rows.Find(New Object() {GUID}),TBIDB_BUSINESS_ENTITYRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBIDB_BUSINESS_ENTITYDataTable = CType(MyBase.Clone,TBIDB_BUSINESS_ENTITYDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBIDB_BUSINESS_ENTITYDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPARENT_ENT_ID = MyBase.Columns("PARENT_ENT_ID") Me.columnTITLE = MyBase.Columns("TITLE") Me.columnINHERITS_ATTRIBUTES = MyBase.Columns("INHERITS_ATTRIBUTES") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnPARENT_ENT_ID = New Global.System.Data.DataColumn("PARENT_ENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPARENT_ENT_ID) Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTITLE) Me.columnINHERITS_ATTRIBUTES = New Global.System.Data.DataColumn("INHERITS_ATTRIBUTES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnINHERITS_ATTRIBUTES) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = 1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnPARENT_ENT_ID.AllowDBNull = false Me.columnPARENT_ENT_ID.DefaultValue = CType(0,Integer) Me.columnTITLE.AllowDBNull = false Me.columnTITLE.MaxLength = 500 Me.columnINHERITS_ATTRIBUTES.AllowDBNull = false Me.columnINHERITS_ATTRIBUTES.DefaultValue = CType(false,Boolean) Me.columnCOMMENT.MaxLength = 1000 Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 30 Me.columnCHANGED_WHO.MaxLength = 30 End Sub _ Public Function NewTBIDB_BUSINESS_ENTITYRow() As TBIDB_BUSINESS_ENTITYRow Return CType(Me.NewRow,TBIDB_BUSINESS_ENTITYRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBIDB_BUSINESS_ENTITYRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBIDB_BUSINESS_ENTITYRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBIDB_BUSINESS_ENTITYRowChangedEvent) Is Nothing) Then RaiseEvent TBIDB_BUSINESS_ENTITYRowChanged(Me, New TBIDB_BUSINESS_ENTITYRowChangeEvent(CType(e.Row,TBIDB_BUSINESS_ENTITYRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBIDB_BUSINESS_ENTITYRowChangingEvent) Is Nothing) Then RaiseEvent TBIDB_BUSINESS_ENTITYRowChanging(Me, New TBIDB_BUSINESS_ENTITYRowChangeEvent(CType(e.Row,TBIDB_BUSINESS_ENTITYRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBIDB_BUSINESS_ENTITYRowDeletedEvent) Is Nothing) Then RaiseEvent TBIDB_BUSINESS_ENTITYRowDeleted(Me, New TBIDB_BUSINESS_ENTITYRowChangeEvent(CType(e.Row,TBIDB_BUSINESS_ENTITYRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBIDB_BUSINESS_ENTITYRowDeletingEvent) Is Nothing) Then RaiseEvent TBIDB_BUSINESS_ENTITYRowDeleting(Me, New TBIDB_BUSINESS_ENTITYRowChangeEvent(CType(e.Row,TBIDB_BUSINESS_ENTITYRow), e.Action)) End If End Sub _ Public Sub RemoveTBIDB_BUSINESS_ENTITYRow(ByVal row As TBIDB_BUSINESS_ENTITYRow) 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 DSIDB_Stammdaten = New DSIDB_Stammdaten() 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 = "TBIDB_BUSINESS_ENTITYDataTable" 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 the strongly named DataTable class. ''' _ Partial Public Class TBIDB_ATTRIBUTEDataTable Inherits Global.System.Data.TypedTableBase(Of TBIDB_ATTRIBUTERow) Private columnGUID As Global.System.Data.DataColumn Private columnTITLE As Global.System.Data.DataColumn Private columnTYP_ID As Global.System.Data.DataColumn Private columnMULTI_CONTEXT As Global.System.Data.DataColumn Private columnVIEW_SEQUENCE As Global.System.Data.DataColumn Private columnVIEW_VISIBLE As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn Private columnDELETED As Global.System.Data.DataColumn Private columnDELETED_WHO As Global.System.Data.DataColumn Private columnDELETED_WHEN As Global.System.Data.DataColumn Private columnATTR_TYPE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBIDB_ATTRIBUTE" 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 GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnTITLE End Get End Property _ Public ReadOnly Property TYP_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnTYP_ID End Get End Property _ Public ReadOnly Property MULTI_CONTEXTColumn() As Global.System.Data.DataColumn Get Return Me.columnMULTI_CONTEXT End Get End Property _ Public ReadOnly Property VIEW_SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnVIEW_SEQUENCE End Get End Property _ Public ReadOnly Property VIEW_VISIBLEColumn() As Global.System.Data.DataColumn Get Return Me.columnVIEW_VISIBLE End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property DELETEDColumn() As Global.System.Data.DataColumn Get Return Me.columnDELETED End Get End Property _ Public ReadOnly Property DELETED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnDELETED_WHO End Get End Property _ Public ReadOnly Property DELETED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnDELETED_WHEN End Get End Property _ Public ReadOnly Property ATTR_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnATTR_TYPE 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 TBIDB_ATTRIBUTERow Get Return CType(Me.Rows(index),TBIDB_ATTRIBUTERow) End Get End Property _ Public Event TBIDB_ATTRIBUTERowChanging As TBIDB_ATTRIBUTERowChangeEventHandler _ Public Event TBIDB_ATTRIBUTERowChanged As TBIDB_ATTRIBUTERowChangeEventHandler _ Public Event TBIDB_ATTRIBUTERowDeleting As TBIDB_ATTRIBUTERowChangeEventHandler _ Public Event TBIDB_ATTRIBUTERowDeleted As TBIDB_ATTRIBUTERowChangeEventHandler _ Public Overloads Sub AddTBIDB_ATTRIBUTERow(ByVal row As TBIDB_ATTRIBUTERow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBIDB_ATTRIBUTERow(ByVal TITLE As String, ByVal parentTBIDB_ATTRIBUTE_TYPERowByFK_TYP_ID As TBIDB_ATTRIBUTE_TYPERow, ByVal MULTI_CONTEXT As Boolean, ByVal VIEW_SEQUENCE As Integer, ByVal VIEW_VISIBLE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal DELETED As Boolean, ByVal DELETED_WHO As String, ByVal DELETED_WHEN As Date, ByVal ATTR_TYPE As String) As TBIDB_ATTRIBUTERow Dim rowTBIDB_ATTRIBUTERow As TBIDB_ATTRIBUTERow = CType(Me.NewRow,TBIDB_ATTRIBUTERow) Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, Nothing, MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DELETED, DELETED_WHO, DELETED_WHEN, ATTR_TYPE} If (Not (parentTBIDB_ATTRIBUTE_TYPERowByFK_TYP_ID) Is Nothing) Then columnValuesArray(2) = parentTBIDB_ATTRIBUTE_TYPERowByFK_TYP_ID(0) End If rowTBIDB_ATTRIBUTERow.ItemArray = columnValuesArray Me.Rows.Add(rowTBIDB_ATTRIBUTERow) Return rowTBIDB_ATTRIBUTERow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBIDB_ATTRIBUTERow Return CType(Me.Rows.Find(New Object() {GUID}),TBIDB_ATTRIBUTERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBIDB_ATTRIBUTEDataTable = CType(MyBase.Clone,TBIDB_ATTRIBUTEDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBIDB_ATTRIBUTEDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnTITLE = MyBase.Columns("TITLE") Me.columnTYP_ID = MyBase.Columns("TYP_ID") Me.columnMULTI_CONTEXT = MyBase.Columns("MULTI_CONTEXT") Me.columnVIEW_SEQUENCE = MyBase.Columns("VIEW_SEQUENCE") Me.columnVIEW_VISIBLE = MyBase.Columns("VIEW_VISIBLE") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnDELETED = MyBase.Columns("DELETED") Me.columnDELETED_WHO = MyBase.Columns("DELETED_WHO") Me.columnDELETED_WHEN = MyBase.Columns("DELETED_WHEN") Me.columnATTR_TYPE = MyBase.Columns("ATTR_TYPE") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTITLE) Me.columnTYP_ID = New Global.System.Data.DataColumn("TYP_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTYP_ID) Me.columnMULTI_CONTEXT = New Global.System.Data.DataColumn("MULTI_CONTEXT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMULTI_CONTEXT) Me.columnVIEW_SEQUENCE = New Global.System.Data.DataColumn("VIEW_SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVIEW_SEQUENCE) Me.columnVIEW_VISIBLE = New Global.System.Data.DataColumn("VIEW_VISIBLE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVIEW_VISIBLE) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.columnDELETED = New Global.System.Data.DataColumn("DELETED", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDELETED) Me.columnDELETED_WHO = New Global.System.Data.DataColumn("DELETED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDELETED_WHO) Me.columnDELETED_WHEN = New Global.System.Data.DataColumn("DELETED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDELETED_WHEN) Me.columnATTR_TYPE = New Global.System.Data.DataColumn("ATTR_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnATTR_TYPE) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = 1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnTITLE.AllowDBNull = false Me.columnTITLE.MaxLength = 100 Me.columnTYP_ID.AllowDBNull = false Me.columnMULTI_CONTEXT.AllowDBNull = false Me.columnVIEW_SEQUENCE.AllowDBNull = false Me.columnVIEW_VISIBLE.AllowDBNull = false Me.columnCOMMENT.MaxLength = 1000 Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 30 Me.columnADDED_WHEN.AllowDBNull = false Me.columnCHANGED_WHO.MaxLength = 30 Me.columnDELETED.AllowDBNull = false Me.columnDELETED_WHO.MaxLength = 100 Me.columnATTR_TYPE.AllowDBNull = false Me.columnATTR_TYPE.MaxLength = 100 End Sub _ Public Function NewTBIDB_ATTRIBUTERow() As TBIDB_ATTRIBUTERow Return CType(Me.NewRow,TBIDB_ATTRIBUTERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBIDB_ATTRIBUTERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBIDB_ATTRIBUTERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBIDB_ATTRIBUTERowChangedEvent) Is Nothing) Then RaiseEvent TBIDB_ATTRIBUTERowChanged(Me, New TBIDB_ATTRIBUTERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBIDB_ATTRIBUTERowChangingEvent) Is Nothing) Then RaiseEvent TBIDB_ATTRIBUTERowChanging(Me, New TBIDB_ATTRIBUTERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBIDB_ATTRIBUTERowDeletedEvent) Is Nothing) Then RaiseEvent TBIDB_ATTRIBUTERowDeleted(Me, New TBIDB_ATTRIBUTERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBIDB_ATTRIBUTERowDeletingEvent) Is Nothing) Then RaiseEvent TBIDB_ATTRIBUTERowDeleting(Me, New TBIDB_ATTRIBUTERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTERow), e.Action)) End If End Sub _ Public Sub RemoveTBIDB_ATTRIBUTERow(ByVal row As TBIDB_ATTRIBUTERow) 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 DSIDB_Stammdaten = New DSIDB_Stammdaten() 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 = "TBIDB_ATTRIBUTEDataTable" 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 the strongly named DataTable class. ''' _ Partial Public Class TBIDB_ATTRIBUTE_TYPEDataTable Inherits Global.System.Data.TypedTableBase(Of TBIDB_ATTRIBUTE_TYPERow) Private columnGUID As Global.System.Data.DataColumn Private columnNAME_TYPE As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnBIT1 As Global.System.Data.DataColumn Private columnBIT2 As Global.System.Data.DataColumn Private columnBIT3 As Global.System.Data.DataColumn Private columnBIT4 As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBIDB_ATTRIBUTE_TYPE" 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 GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property NAME_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME_TYPE End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property BIT1Column() As Global.System.Data.DataColumn Get Return Me.columnBIT1 End Get End Property _ Public ReadOnly Property BIT2Column() As Global.System.Data.DataColumn Get Return Me.columnBIT2 End Get End Property _ Public ReadOnly Property BIT3Column() As Global.System.Data.DataColumn Get Return Me.columnBIT3 End Get End Property _ Public ReadOnly Property BIT4Column() As Global.System.Data.DataColumn Get Return Me.columnBIT4 End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN 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 TBIDB_ATTRIBUTE_TYPERow Get Return CType(Me.Rows(index),TBIDB_ATTRIBUTE_TYPERow) End Get End Property _ Public Event TBIDB_ATTRIBUTE_TYPERowChanging As TBIDB_ATTRIBUTE_TYPERowChangeEventHandler _ Public Event TBIDB_ATTRIBUTE_TYPERowChanged As TBIDB_ATTRIBUTE_TYPERowChangeEventHandler _ Public Event TBIDB_ATTRIBUTE_TYPERowDeleting As TBIDB_ATTRIBUTE_TYPERowChangeEventHandler _ Public Event TBIDB_ATTRIBUTE_TYPERowDeleted As TBIDB_ATTRIBUTE_TYPERowChangeEventHandler _ Public Overloads Sub AddTBIDB_ATTRIBUTE_TYPERow(ByVal row As TBIDB_ATTRIBUTE_TYPERow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBIDB_ATTRIBUTE_TYPERow(ByVal GUID As Byte, ByVal NAME_TYPE As String, ByVal COMMENT As String, ByVal BIT1 As Boolean, ByVal BIT2 As Boolean, ByVal BIT3 As Boolean, ByVal BIT4 As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBIDB_ATTRIBUTE_TYPERow Dim rowTBIDB_ATTRIBUTE_TYPERow As TBIDB_ATTRIBUTE_TYPERow = CType(Me.NewRow,TBIDB_ATTRIBUTE_TYPERow) Dim columnValuesArray() As Object = New Object() {GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowTBIDB_ATTRIBUTE_TYPERow.ItemArray = columnValuesArray Me.Rows.Add(rowTBIDB_ATTRIBUTE_TYPERow) Return rowTBIDB_ATTRIBUTE_TYPERow End Function _ Public Function FindByGUID(ByVal GUID As Byte) As TBIDB_ATTRIBUTE_TYPERow Return CType(Me.Rows.Find(New Object() {GUID}),TBIDB_ATTRIBUTE_TYPERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBIDB_ATTRIBUTE_TYPEDataTable = CType(MyBase.Clone,TBIDB_ATTRIBUTE_TYPEDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBIDB_ATTRIBUTE_TYPEDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME_TYPE = MyBase.Columns("NAME_TYPE") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnBIT1 = MyBase.Columns("BIT1") Me.columnBIT2 = MyBase.Columns("BIT2") Me.columnBIT3 = MyBase.Columns("BIT3") Me.columnBIT4 = MyBase.Columns("BIT4") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnNAME_TYPE = New Global.System.Data.DataColumn("NAME_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME_TYPE) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnBIT1 = New Global.System.Data.DataColumn("BIT1", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBIT1) Me.columnBIT2 = New Global.System.Data.DataColumn("BIT2", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBIT2) Me.columnBIT3 = New Global.System.Data.DataColumn("BIT3", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBIT3) Me.columnBIT4 = New Global.System.Data.DataColumn("BIT4", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBIT4) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnNAME_TYPE.AllowDBNull = false Me.columnNAME_TYPE.MaxLength = 100 Me.columnCOMMENT.MaxLength = 500 Me.columnBIT1.AllowDBNull = false Me.columnBIT2.AllowDBNull = false Me.columnBIT3.AllowDBNull = false Me.columnBIT4.AllowDBNull = false Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 30 Me.columnCHANGED_WHO.MaxLength = 30 End Sub _ Public Function NewTBIDB_ATTRIBUTE_TYPERow() As TBIDB_ATTRIBUTE_TYPERow Return CType(Me.NewRow,TBIDB_ATTRIBUTE_TYPERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBIDB_ATTRIBUTE_TYPERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBIDB_ATTRIBUTE_TYPERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBIDB_ATTRIBUTE_TYPERowChangedEvent) Is Nothing) Then RaiseEvent TBIDB_ATTRIBUTE_TYPERowChanged(Me, New TBIDB_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTE_TYPERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBIDB_ATTRIBUTE_TYPERowChangingEvent) Is Nothing) Then RaiseEvent TBIDB_ATTRIBUTE_TYPERowChanging(Me, New TBIDB_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTE_TYPERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBIDB_ATTRIBUTE_TYPERowDeletedEvent) Is Nothing) Then RaiseEvent TBIDB_ATTRIBUTE_TYPERowDeleted(Me, New TBIDB_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTE_TYPERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBIDB_ATTRIBUTE_TYPERowDeletingEvent) Is Nothing) Then RaiseEvent TBIDB_ATTRIBUTE_TYPERowDeleting(Me, New TBIDB_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTE_TYPERow), e.Action)) End If End Sub _ Public Sub RemoveTBIDB_ATTRIBUTE_TYPERow(ByVal row As TBIDB_ATTRIBUTE_TYPERow) 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 DSIDB_Stammdaten = New DSIDB_Stammdaten() 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 = "TBIDB_ATTRIBUTE_TYPEDataTable" 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 the strongly named DataTable class. ''' _ Partial Public Class VWIDB_BE_ATTRIBUTEDataTable Inherits Global.System.Data.TypedTableBase(Of VWIDB_BE_ATTRIBUTERow) Private columnBE_ID As Global.System.Data.DataColumn Private columnBE As Global.System.Data.DataColumn Private columnATTR_ID As Global.System.Data.DataColumn Private columnATTR_TITLE As Global.System.Data.DataColumn Private columnTYP_ID As Global.System.Data.DataColumn Private columnTYPE_ID As Global.System.Data.DataColumn Private columnTYPE_NAME As Global.System.Data.DataColumn Private columnVIEW_VISIBLE As Global.System.Data.DataColumn Private columnVIEW_SEQUENCE As Global.System.Data.DataColumn Private columnLANG_ID As Global.System.Data.DataColumn Private columnLANG_CODE As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnSYS_ATTRIBUTE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "VWIDB_BE_ATTRIBUTE" 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 BE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnBE_ID End Get End Property _ Public ReadOnly Property BEColumn() As Global.System.Data.DataColumn Get Return Me.columnBE End Get End Property _ Public ReadOnly Property ATTR_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnATTR_ID End Get End Property _ Public ReadOnly Property ATTR_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnATTR_TITLE End Get End Property _ Public ReadOnly Property TYP_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnTYP_ID End Get End Property _ Public ReadOnly Property TYPE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnTYPE_ID End Get End Property _ Public ReadOnly Property TYPE_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnTYPE_NAME End Get End Property _ Public ReadOnly Property VIEW_VISIBLEColumn() As Global.System.Data.DataColumn Get Return Me.columnVIEW_VISIBLE End Get End Property _ Public ReadOnly Property VIEW_SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnVIEW_SEQUENCE End Get End Property _ Public ReadOnly Property LANG_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnLANG_ID End Get End Property _ Public ReadOnly Property LANG_CODEColumn() As Global.System.Data.DataColumn Get Return Me.columnLANG_CODE End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property SYS_ATTRIBUTEColumn() As Global.System.Data.DataColumn Get Return Me.columnSYS_ATTRIBUTE 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 VWIDB_BE_ATTRIBUTERow Get Return CType(Me.Rows(index),VWIDB_BE_ATTRIBUTERow) End Get End Property _ Public Event VWIDB_BE_ATTRIBUTERowChanging As VWIDB_BE_ATTRIBUTERowChangeEventHandler _ Public Event VWIDB_BE_ATTRIBUTERowChanged As VWIDB_BE_ATTRIBUTERowChangeEventHandler _ Public Event VWIDB_BE_ATTRIBUTERowDeleting As VWIDB_BE_ATTRIBUTERowChangeEventHandler _ Public Event VWIDB_BE_ATTRIBUTERowDeleted As VWIDB_BE_ATTRIBUTERowChangeEventHandler _ Public Overloads Sub AddVWIDB_BE_ATTRIBUTERow(ByVal row As VWIDB_BE_ATTRIBUTERow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddVWIDB_BE_ATTRIBUTERow( _ ByVal BE_ID As Integer, _ ByVal BE As String, _ ByVal ATTR_ID As Integer, _ ByVal ATTR_TITLE As String, _ ByVal TYP_ID As Byte, _ ByVal TYPE_ID As Byte, _ ByVal TYPE_NAME As String, _ ByVal VIEW_VISIBLE As Boolean, _ ByVal VIEW_SEQUENCE As Integer, _ ByVal LANG_ID As Byte, _ ByVal LANG_CODE As String, _ ByVal ADDED_WHEN As Date, _ ByVal ADDED_WHO As String, _ ByVal CHANGED_WHEN As Date, _ ByVal CHANGED_WHO As String, _ ByVal SYS_ATTRIBUTE As Boolean) As VWIDB_BE_ATTRIBUTERow Dim rowVWIDB_BE_ATTRIBUTERow As VWIDB_BE_ATTRIBUTERow = CType(Me.NewRow,VWIDB_BE_ATTRIBUTERow) Dim columnValuesArray() As Object = New Object() {BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, VIEW_VISIBLE, VIEW_SEQUENCE, LANG_ID, LANG_CODE, ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, SYS_ATTRIBUTE} rowVWIDB_BE_ATTRIBUTERow.ItemArray = columnValuesArray Me.Rows.Add(rowVWIDB_BE_ATTRIBUTERow) Return rowVWIDB_BE_ATTRIBUTERow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWIDB_BE_ATTRIBUTEDataTable = CType(MyBase.Clone,VWIDB_BE_ATTRIBUTEDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWIDB_BE_ATTRIBUTEDataTable() End Function _ Friend Sub InitVars() Me.columnBE_ID = MyBase.Columns("BE_ID") Me.columnBE = MyBase.Columns("BE") Me.columnATTR_ID = MyBase.Columns("ATTR_ID") Me.columnATTR_TITLE = MyBase.Columns("ATTR_TITLE") Me.columnTYP_ID = MyBase.Columns("TYP_ID") Me.columnTYPE_ID = MyBase.Columns("TYPE_ID") Me.columnTYPE_NAME = MyBase.Columns("TYPE_NAME") Me.columnVIEW_VISIBLE = MyBase.Columns("VIEW_VISIBLE") Me.columnVIEW_SEQUENCE = MyBase.Columns("VIEW_SEQUENCE") Me.columnLANG_ID = MyBase.Columns("LANG_ID") Me.columnLANG_CODE = MyBase.Columns("LANG_CODE") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnSYS_ATTRIBUTE = MyBase.Columns("SYS_ATTRIBUTE") End Sub _ Private Sub InitClass() Me.columnBE_ID = New Global.System.Data.DataColumn("BE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBE_ID) Me.columnBE = New Global.System.Data.DataColumn("BE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBE) Me.columnATTR_ID = New Global.System.Data.DataColumn("ATTR_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnATTR_ID) Me.columnATTR_TITLE = New Global.System.Data.DataColumn("ATTR_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnATTR_TITLE) Me.columnTYP_ID = New Global.System.Data.DataColumn("TYP_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTYP_ID) Me.columnTYPE_ID = New Global.System.Data.DataColumn("TYPE_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTYPE_ID) Me.columnTYPE_NAME = New Global.System.Data.DataColumn("TYPE_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTYPE_NAME) Me.columnVIEW_VISIBLE = New Global.System.Data.DataColumn("VIEW_VISIBLE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVIEW_VISIBLE) Me.columnVIEW_SEQUENCE = New Global.System.Data.DataColumn("VIEW_SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVIEW_SEQUENCE) Me.columnLANG_ID = New Global.System.Data.DataColumn("LANG_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLANG_ID) Me.columnLANG_CODE = New Global.System.Data.DataColumn("LANG_CODE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLANG_CODE) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnSYS_ATTRIBUTE = New Global.System.Data.DataColumn("SYS_ATTRIBUTE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSYS_ATTRIBUTE) Me.columnBE_ID.AllowDBNull = false Me.columnBE.AllowDBNull = false Me.columnBE.MaxLength = 500 Me.columnATTR_ID.AllowDBNull = false Me.columnATTR_TITLE.AllowDBNull = false Me.columnATTR_TITLE.MaxLength = 900 Me.columnTYP_ID.AllowDBNull = false Me.columnTYPE_ID.AllowDBNull = false Me.columnTYPE_NAME.AllowDBNull = false Me.columnTYPE_NAME.MaxLength = 100 Me.columnVIEW_VISIBLE.AllowDBNull = false Me.columnVIEW_SEQUENCE.AllowDBNull = false Me.columnLANG_ID.AllowDBNull = false Me.columnLANG_CODE.AllowDBNull = false Me.columnLANG_CODE.MaxLength = 10 Me.columnADDED_WHEN.AllowDBNull = false Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 30 Me.columnCHANGED_WHO.MaxLength = 30 Me.columnSYS_ATTRIBUTE.AllowDBNull = false Me.columnSYS_ATTRIBUTE.DefaultValue = CType(false,Boolean) End Sub _ Public Function NewVWIDB_BE_ATTRIBUTERow() As VWIDB_BE_ATTRIBUTERow Return CType(Me.NewRow,VWIDB_BE_ATTRIBUTERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWIDB_BE_ATTRIBUTERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWIDB_BE_ATTRIBUTERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWIDB_BE_ATTRIBUTERowChangedEvent) Is Nothing) Then RaiseEvent VWIDB_BE_ATTRIBUTERowChanged(Me, New VWIDB_BE_ATTRIBUTERowChangeEvent(CType(e.Row,VWIDB_BE_ATTRIBUTERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWIDB_BE_ATTRIBUTERowChangingEvent) Is Nothing) Then RaiseEvent VWIDB_BE_ATTRIBUTERowChanging(Me, New VWIDB_BE_ATTRIBUTERowChangeEvent(CType(e.Row,VWIDB_BE_ATTRIBUTERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWIDB_BE_ATTRIBUTERowDeletedEvent) Is Nothing) Then RaiseEvent VWIDB_BE_ATTRIBUTERowDeleted(Me, New VWIDB_BE_ATTRIBUTERowChangeEvent(CType(e.Row,VWIDB_BE_ATTRIBUTERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWIDB_BE_ATTRIBUTERowDeletingEvent) Is Nothing) Then RaiseEvent VWIDB_BE_ATTRIBUTERowDeleting(Me, New VWIDB_BE_ATTRIBUTERowChangeEvent(CType(e.Row,VWIDB_BE_ATTRIBUTERow), e.Action)) End If End Sub _ Public Sub RemoveVWIDB_BE_ATTRIBUTERow(ByVal row As VWIDB_BE_ATTRIBUTERow) 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 DSIDB_Stammdaten = New DSIDB_Stammdaten() 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 = "VWIDB_BE_ATTRIBUTEDataTable" 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 the strongly named DataTable class. ''' _ Partial Public Class TBZF_ADMIN_SOURCE_SQLDataTable Inherits Global.System.Data.TypedTableBase(Of TBZF_ADMIN_SOURCE_SQLRow) Private columnGUID As Global.System.Data.DataColumn Private columnPARENT_ID As Global.System.Data.DataColumn Private columnENTITY_TITLE As Global.System.Data.DataColumn Private columnSCOPE As Global.System.Data.DataColumn Private columnPK_COLUMN As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnSQL_COMMAND As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn Private columnFK_COLUMN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBZF_ADMIN_SOURCE_SQL" 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 GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property PARENT_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPARENT_ID End Get End Property _ Public ReadOnly Property ENTITY_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnENTITY_TITLE End Get End Property _ Public ReadOnly Property SCOPEColumn() As Global.System.Data.DataColumn Get Return Me.columnSCOPE End Get End Property _ Public ReadOnly Property PK_COLUMNColumn() As Global.System.Data.DataColumn Get Return Me.columnPK_COLUMN End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_COMMAND End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property FK_COLUMNColumn() As Global.System.Data.DataColumn Get Return Me.columnFK_COLUMN 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 TBZF_ADMIN_SOURCE_SQLRow Get Return CType(Me.Rows(index),TBZF_ADMIN_SOURCE_SQLRow) End Get End Property _ Public Event TBZF_ADMIN_SOURCE_SQLRowChanging As TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler _ Public Event TBZF_ADMIN_SOURCE_SQLRowChanged As TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler _ Public Event TBZF_ADMIN_SOURCE_SQLRowDeleting As TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler _ Public Event TBZF_ADMIN_SOURCE_SQLRowDeleted As TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler _ Public Overloads Sub AddTBZF_ADMIN_SOURCE_SQLRow(ByVal row As TBZF_ADMIN_SOURCE_SQLRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBZF_ADMIN_SOURCE_SQLRow(ByVal PARENT_ID As Integer, ByVal ENTITY_TITLE As String, ByVal SCOPE As String, ByVal PK_COLUMN As String, ByVal COMMENT As String, ByVal SQL_COMMAND As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal FK_COLUMN As String) As TBZF_ADMIN_SOURCE_SQLRow Dim rowTBZF_ADMIN_SOURCE_SQLRow As TBZF_ADMIN_SOURCE_SQLRow = CType(Me.NewRow,TBZF_ADMIN_SOURCE_SQLRow) Dim columnValuesArray() As Object = New Object() {Nothing, PARENT_ID, ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FK_COLUMN} rowTBZF_ADMIN_SOURCE_SQLRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBZF_ADMIN_SOURCE_SQLRow) Return rowTBZF_ADMIN_SOURCE_SQLRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBZF_ADMIN_SOURCE_SQLRow Return CType(Me.Rows.Find(New Object() {GUID}),TBZF_ADMIN_SOURCE_SQLRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBZF_ADMIN_SOURCE_SQLDataTable = CType(MyBase.Clone,TBZF_ADMIN_SOURCE_SQLDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBZF_ADMIN_SOURCE_SQLDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPARENT_ID = MyBase.Columns("PARENT_ID") Me.columnENTITY_TITLE = MyBase.Columns("ENTITY_TITLE") Me.columnSCOPE = MyBase.Columns("SCOPE") Me.columnPK_COLUMN = MyBase.Columns("PK_COLUMN") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnFK_COLUMN = MyBase.Columns("FK_COLUMN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnPARENT_ID = New Global.System.Data.DataColumn("PARENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPARENT_ID) Me.columnENTITY_TITLE = New Global.System.Data.DataColumn("ENTITY_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnENTITY_TITLE) Me.columnSCOPE = New Global.System.Data.DataColumn("SCOPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSCOPE) Me.columnPK_COLUMN = New Global.System.Data.DataColumn("PK_COLUMN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPK_COLUMN) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_COMMAND) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.columnFK_COLUMN = New Global.System.Data.DataColumn("FK_COLUMN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFK_COLUMN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnPARENT_ID.DefaultValue = CType(0,Integer) Me.columnENTITY_TITLE.AllowDBNull = false Me.columnENTITY_TITLE.DefaultValue = CType("Unbenannt",String) Me.columnENTITY_TITLE.MaxLength = 100 Me.columnSCOPE.AllowDBNull = false Me.columnSCOPE.MaxLength = 100 Me.columnPK_COLUMN.AllowDBNull = false Me.columnPK_COLUMN.MaxLength = 100 Me.columnCOMMENT.MaxLength = 500 Me.columnSQL_COMMAND.AllowDBNull = false Me.columnSQL_COMMAND.MaxLength = 2147483647 Me.columnADDED_WHO.MaxLength = 30 Me.columnCHANGED_WHO.MaxLength = 30 Me.columnFK_COLUMN.MaxLength = 100 End Sub _ Public Function NewTBZF_ADMIN_SOURCE_SQLRow() As TBZF_ADMIN_SOURCE_SQLRow Return CType(Me.NewRow,TBZF_ADMIN_SOURCE_SQLRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBZF_ADMIN_SOURCE_SQLRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBZF_ADMIN_SOURCE_SQLRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBZF_ADMIN_SOURCE_SQLRowChangedEvent) Is Nothing) Then RaiseEvent TBZF_ADMIN_SOURCE_SQLRowChanged(Me, New TBZF_ADMIN_SOURCE_SQLRowChangeEvent(CType(e.Row,TBZF_ADMIN_SOURCE_SQLRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBZF_ADMIN_SOURCE_SQLRowChangingEvent) Is Nothing) Then RaiseEvent TBZF_ADMIN_SOURCE_SQLRowChanging(Me, New TBZF_ADMIN_SOURCE_SQLRowChangeEvent(CType(e.Row,TBZF_ADMIN_SOURCE_SQLRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBZF_ADMIN_SOURCE_SQLRowDeletedEvent) Is Nothing) Then RaiseEvent TBZF_ADMIN_SOURCE_SQLRowDeleted(Me, New TBZF_ADMIN_SOURCE_SQLRowChangeEvent(CType(e.Row,TBZF_ADMIN_SOURCE_SQLRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBZF_ADMIN_SOURCE_SQLRowDeletingEvent) Is Nothing) Then RaiseEvent TBZF_ADMIN_SOURCE_SQLRowDeleting(Me, New TBZF_ADMIN_SOURCE_SQLRowChangeEvent(CType(e.Row,TBZF_ADMIN_SOURCE_SQLRow), e.Action)) End If End Sub _ Public Sub RemoveTBZF_ADMIN_SOURCE_SQLRow(ByVal row As TBZF_ADMIN_SOURCE_SQLRow) 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 DSIDB_Stammdaten = New DSIDB_Stammdaten() 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 = "TBZF_ADMIN_SOURCE_SQLDataTable" 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 the strongly named DataTable class. ''' _ Partial Public Class TBIDB_OBJECT_STOREDataTable Inherits Global.System.Data.TypedTableBase(Of TBIDB_OBJECT_STORERow) Private columnGUID As Global.System.Data.DataColumn Private columnOBJECT_TITLE As Global.System.Data.DataColumn Private columnCAT_ID As Global.System.Data.DataColumn Private columnOBJ_PATH As Global.System.Data.DataColumn Private columnIS_ARCHIVE As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn Private columnCAT_TITLE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBIDB_OBJECT_STORE" 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 GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property OBJECT_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnOBJECT_TITLE End Get End Property _ Public ReadOnly Property CAT_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCAT_ID End Get End Property _ Public ReadOnly Property OBJ_PATHColumn() As Global.System.Data.DataColumn Get Return Me.columnOBJ_PATH End Get End Property _ Public ReadOnly Property IS_ARCHIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnIS_ARCHIVE End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property CAT_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnCAT_TITLE 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 TBIDB_OBJECT_STORERow Get Return CType(Me.Rows(index),TBIDB_OBJECT_STORERow) End Get End Property _ Public Event TBIDB_OBJECT_STORERowChanging As TBIDB_OBJECT_STORERowChangeEventHandler _ Public Event TBIDB_OBJECT_STORERowChanged As TBIDB_OBJECT_STORERowChangeEventHandler _ Public Event TBIDB_OBJECT_STORERowDeleting As TBIDB_OBJECT_STORERowChangeEventHandler _ Public Event TBIDB_OBJECT_STORERowDeleted As TBIDB_OBJECT_STORERowChangeEventHandler _ Public Overloads Sub AddTBIDB_OBJECT_STORERow(ByVal row As TBIDB_OBJECT_STORERow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBIDB_OBJECT_STORERow(ByVal OBJECT_TITLE As String, ByVal parentTBIDB_CATALOGRowByFK_OS_CAT_ID As TBIDB_CATALOGRow, ByVal OBJ_PATH As String, ByVal IS_ARCHIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal CAT_TITLE As String) As TBIDB_OBJECT_STORERow Dim rowTBIDB_OBJECT_STORERow As TBIDB_OBJECT_STORERow = CType(Me.NewRow,TBIDB_OBJECT_STORERow) Dim columnValuesArray() As Object = New Object() {Nothing, OBJECT_TITLE, Nothing, OBJ_PATH, IS_ARCHIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, CAT_TITLE} If (Not (parentTBIDB_CATALOGRowByFK_OS_CAT_ID) Is Nothing) Then columnValuesArray(2) = parentTBIDB_CATALOGRowByFK_OS_CAT_ID(0) End If rowTBIDB_OBJECT_STORERow.ItemArray = columnValuesArray Me.Rows.Add(rowTBIDB_OBJECT_STORERow) Return rowTBIDB_OBJECT_STORERow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBIDB_OBJECT_STORERow Return CType(Me.Rows.Find(New Object() {GUID}),TBIDB_OBJECT_STORERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBIDB_OBJECT_STOREDataTable = CType(MyBase.Clone,TBIDB_OBJECT_STOREDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBIDB_OBJECT_STOREDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnOBJECT_TITLE = MyBase.Columns("OBJECT_TITLE") Me.columnCAT_ID = MyBase.Columns("CAT_ID") Me.columnOBJ_PATH = MyBase.Columns("OBJ_PATH") Me.columnIS_ARCHIVE = MyBase.Columns("IS_ARCHIVE") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnCAT_TITLE = MyBase.Columns("CAT_TITLE") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnOBJECT_TITLE = New Global.System.Data.DataColumn("OBJECT_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOBJECT_TITLE) Me.columnCAT_ID = New Global.System.Data.DataColumn("CAT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCAT_ID) Me.columnOBJ_PATH = New Global.System.Data.DataColumn("OBJ_PATH", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOBJ_PATH) Me.columnIS_ARCHIVE = New Global.System.Data.DataColumn("IS_ARCHIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIS_ARCHIVE) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.columnCAT_TITLE = New Global.System.Data.DataColumn("CAT_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCAT_TITLE) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnOBJECT_TITLE.AllowDBNull = false Me.columnOBJECT_TITLE.MaxLength = 250 Me.columnCAT_ID.AllowDBNull = false Me.columnCAT_ID.DefaultValue = CType(0,Integer) Me.columnOBJ_PATH.AllowDBNull = false Me.columnOBJ_PATH.DefaultValue = CType("",String) Me.columnOBJ_PATH.MaxLength = 250 Me.columnIS_ARCHIVE.AllowDBNull = false Me.columnIS_ARCHIVE.DefaultValue = CType(false,Boolean) Me.columnCOMMENT.MaxLength = 500 Me.columnADDED_WHO.MaxLength = 30 Me.columnCHANGED_WHO.MaxLength = 30 Me.columnCAT_TITLE.MaxLength = 100 End Sub _ Public Function NewTBIDB_OBJECT_STORERow() As TBIDB_OBJECT_STORERow Return CType(Me.NewRow,TBIDB_OBJECT_STORERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBIDB_OBJECT_STORERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBIDB_OBJECT_STORERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBIDB_OBJECT_STORERowChangedEvent) Is Nothing) Then RaiseEvent TBIDB_OBJECT_STORERowChanged(Me, New TBIDB_OBJECT_STORERowChangeEvent(CType(e.Row,TBIDB_OBJECT_STORERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBIDB_OBJECT_STORERowChangingEvent) Is Nothing) Then RaiseEvent TBIDB_OBJECT_STORERowChanging(Me, New TBIDB_OBJECT_STORERowChangeEvent(CType(e.Row,TBIDB_OBJECT_STORERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBIDB_OBJECT_STORERowDeletedEvent) Is Nothing) Then RaiseEvent TBIDB_OBJECT_STORERowDeleted(Me, New TBIDB_OBJECT_STORERowChangeEvent(CType(e.Row,TBIDB_OBJECT_STORERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBIDB_OBJECT_STORERowDeletingEvent) Is Nothing) Then RaiseEvent TBIDB_OBJECT_STORERowDeleting(Me, New TBIDB_OBJECT_STORERowChangeEvent(CType(e.Row,TBIDB_OBJECT_STORERow), e.Action)) End If End Sub _ Public Sub RemoveTBIDB_OBJECT_STORERow(ByVal row As TBIDB_OBJECT_STORERow) 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 DSIDB_Stammdaten = New DSIDB_Stammdaten() 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 = "TBIDB_OBJECT_STOREDataTable" 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 the strongly named DataTable class. ''' _ Partial Public Class TBIDB_CATALOGDataTable Inherits Global.System.Data.TypedTableBase(Of TBIDB_CATALOGRow) Private columnGUID As Global.System.Data.DataColumn Private columnCAT_TITLE As Global.System.Data.DataColumn Private columnCAT_STRING As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBIDB_CATALOG" 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 GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property CAT_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnCAT_TITLE End Get End Property _ Public ReadOnly Property CAT_STRINGColumn() As Global.System.Data.DataColumn Get Return Me.columnCAT_STRING End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN 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 TBIDB_CATALOGRow Get Return CType(Me.Rows(index),TBIDB_CATALOGRow) End Get End Property _ Public Event TBIDB_CATALOGRowChanging As TBIDB_CATALOGRowChangeEventHandler _ Public Event TBIDB_CATALOGRowChanged As TBIDB_CATALOGRowChangeEventHandler _ Public Event TBIDB_CATALOGRowDeleting As TBIDB_CATALOGRowChangeEventHandler _ Public Event TBIDB_CATALOGRowDeleted As TBIDB_CATALOGRowChangeEventHandler _ Public Overloads Sub AddTBIDB_CATALOGRow(ByVal row As TBIDB_CATALOGRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBIDB_CATALOGRow(ByVal CAT_TITLE As String, ByVal CAT_STRING As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBIDB_CATALOGRow Dim rowTBIDB_CATALOGRow As TBIDB_CATALOGRow = CType(Me.NewRow,TBIDB_CATALOGRow) Dim columnValuesArray() As Object = New Object() {Nothing, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowTBIDB_CATALOGRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBIDB_CATALOGRow) Return rowTBIDB_CATALOGRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBIDB_CATALOGRow Return CType(Me.Rows.Find(New Object() {GUID}),TBIDB_CATALOGRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBIDB_CATALOGDataTable = CType(MyBase.Clone,TBIDB_CATALOGDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBIDB_CATALOGDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnCAT_TITLE = MyBase.Columns("CAT_TITLE") Me.columnCAT_STRING = MyBase.Columns("CAT_STRING") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnCAT_TITLE = New Global.System.Data.DataColumn("CAT_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCAT_TITLE) Me.columnCAT_STRING = New Global.System.Data.DataColumn("CAT_STRING", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCAT_STRING) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnCAT_TITLE.AllowDBNull = false Me.columnCAT_TITLE.MaxLength = 100 Me.columnCAT_STRING.AllowDBNull = false Me.columnCAT_STRING.MaxLength = 900 Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 30 Me.columnADDED_WHEN.AllowDBNull = false Me.columnCHANGED_WHO.MaxLength = 30 End Sub _ Public Function NewTBIDB_CATALOGRow() As TBIDB_CATALOGRow Return CType(Me.NewRow,TBIDB_CATALOGRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBIDB_CATALOGRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBIDB_CATALOGRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBIDB_CATALOGRowChangedEvent) Is Nothing) Then RaiseEvent TBIDB_CATALOGRowChanged(Me, New TBIDB_CATALOGRowChangeEvent(CType(e.Row,TBIDB_CATALOGRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBIDB_CATALOGRowChangingEvent) Is Nothing) Then RaiseEvent TBIDB_CATALOGRowChanging(Me, New TBIDB_CATALOGRowChangeEvent(CType(e.Row,TBIDB_CATALOGRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBIDB_CATALOGRowDeletedEvent) Is Nothing) Then RaiseEvent TBIDB_CATALOGRowDeleted(Me, New TBIDB_CATALOGRowChangeEvent(CType(e.Row,TBIDB_CATALOGRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBIDB_CATALOGRowDeletingEvent) Is Nothing) Then RaiseEvent TBIDB_CATALOGRowDeleting(Me, New TBIDB_CATALOGRowChangeEvent(CType(e.Row,TBIDB_CATALOGRow), e.Action)) End If End Sub _ Public Sub RemoveTBIDB_CATALOGRow(ByVal row As TBIDB_CATALOGRow) 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 DSIDB_Stammdaten = New DSIDB_Stammdaten() 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 = "TBIDB_CATALOGDataTable" 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 the strongly named DataTable class. ''' _ Partial Public Class TBWH_ATTRIBUTE_TYPEDataTable Inherits Global.System.Data.TypedTableBase(Of TBWH_ATTRIBUTE_TYPERow) Private columnGUID As Global.System.Data.DataColumn Private columnNAME_TYPE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBWH_ATTRIBUTE_TYPE" 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 GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property NAME_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME_TYPE 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 TBWH_ATTRIBUTE_TYPERow Get Return CType(Me.Rows(index),TBWH_ATTRIBUTE_TYPERow) End Get End Property _ Public Event TBWH_ATTRIBUTE_TYPERowChanging As TBWH_ATTRIBUTE_TYPERowChangeEventHandler _ Public Event TBWH_ATTRIBUTE_TYPERowChanged As TBWH_ATTRIBUTE_TYPERowChangeEventHandler _ Public Event TBWH_ATTRIBUTE_TYPERowDeleting As TBWH_ATTRIBUTE_TYPERowChangeEventHandler _ Public Event TBWH_ATTRIBUTE_TYPERowDeleted As TBWH_ATTRIBUTE_TYPERowChangeEventHandler _ Public Overloads Sub AddTBWH_ATTRIBUTE_TYPERow(ByVal row As TBWH_ATTRIBUTE_TYPERow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBWH_ATTRIBUTE_TYPERow(ByVal GUID As Byte, ByVal NAME_TYPE As String) As TBWH_ATTRIBUTE_TYPERow Dim rowTBWH_ATTRIBUTE_TYPERow As TBWH_ATTRIBUTE_TYPERow = CType(Me.NewRow,TBWH_ATTRIBUTE_TYPERow) Dim columnValuesArray() As Object = New Object() {GUID, NAME_TYPE} rowTBWH_ATTRIBUTE_TYPERow.ItemArray = columnValuesArray Me.Rows.Add(rowTBWH_ATTRIBUTE_TYPERow) Return rowTBWH_ATTRIBUTE_TYPERow End Function _ Public Function FindByGUID(ByVal GUID As Byte) As TBWH_ATTRIBUTE_TYPERow Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_ATTRIBUTE_TYPERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_ATTRIBUTE_TYPEDataTable = CType(MyBase.Clone,TBWH_ATTRIBUTE_TYPEDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_ATTRIBUTE_TYPEDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME_TYPE = MyBase.Columns("NAME_TYPE") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnNAME_TYPE = New Global.System.Data.DataColumn("NAME_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME_TYPE) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnNAME_TYPE.AllowDBNull = false Me.columnNAME_TYPE.MaxLength = 100 End Sub _ Public Function NewTBWH_ATTRIBUTE_TYPERow() As TBWH_ATTRIBUTE_TYPERow Return CType(Me.NewRow,TBWH_ATTRIBUTE_TYPERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_ATTRIBUTE_TYPERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_ATTRIBUTE_TYPERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_ATTRIBUTE_TYPERowChangedEvent) Is Nothing) Then RaiseEvent TBWH_ATTRIBUTE_TYPERowChanged(Me, New TBWH_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBWH_ATTRIBUTE_TYPERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_ATTRIBUTE_TYPERowChangingEvent) Is Nothing) Then RaiseEvent TBWH_ATTRIBUTE_TYPERowChanging(Me, New TBWH_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBWH_ATTRIBUTE_TYPERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_ATTRIBUTE_TYPERowDeletedEvent) Is Nothing) Then RaiseEvent TBWH_ATTRIBUTE_TYPERowDeleted(Me, New TBWH_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBWH_ATTRIBUTE_TYPERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_ATTRIBUTE_TYPERowDeletingEvent) Is Nothing) Then RaiseEvent TBWH_ATTRIBUTE_TYPERowDeleting(Me, New TBWH_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBWH_ATTRIBUTE_TYPERow), e.Action)) End If End Sub _ Public Sub RemoveTBWH_ATTRIBUTE_TYPERow(ByVal row As TBWH_ATTRIBUTE_TYPERow) 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 DSIDB_Stammdaten = New DSIDB_Stammdaten() 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 = "TBWH_ATTRIBUTE_TYPEDataTable" 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 the strongly named DataTable class. ''' _ Partial Public Class VWIDB_OBJECT_STOREDataTable Inherits Global.System.Data.TypedTableBase(Of VWIDB_OBJECT_STORERow) Private columnGUID As Global.System.Data.DataColumn Private columnObjectstore As Global.System.Data.DataColumn Private columnArchive As Global.System.Data.DataColumn Private columnREL_PATH As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "VWIDB_OBJECT_STORE" 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 GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property ObjectstoreColumn() As Global.System.Data.DataColumn Get Return Me.columnObjectstore End Get End Property _ Public ReadOnly Property ArchiveColumn() As Global.System.Data.DataColumn Get Return Me.columnArchive End Get End Property _ Public ReadOnly Property REL_PATHColumn() As Global.System.Data.DataColumn Get Return Me.columnREL_PATH End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN 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 VWIDB_OBJECT_STORERow Get Return CType(Me.Rows(index),VWIDB_OBJECT_STORERow) End Get End Property _ Public Event VWIDB_OBJECT_STORERowChanging As VWIDB_OBJECT_STORERowChangeEventHandler _ Public Event VWIDB_OBJECT_STORERowChanged As VWIDB_OBJECT_STORERowChangeEventHandler _ Public Event VWIDB_OBJECT_STORERowDeleting As VWIDB_OBJECT_STORERowChangeEventHandler _ Public Event VWIDB_OBJECT_STORERowDeleted As VWIDB_OBJECT_STORERowChangeEventHandler _ Public Overloads Sub AddVWIDB_OBJECT_STORERow(ByVal row As VWIDB_OBJECT_STORERow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddVWIDB_OBJECT_STORERow(ByVal GUID As Integer, ByVal Objectstore As String, ByVal Archive As Boolean, ByVal REL_PATH As String, ByVal ADDED_WHEN As Date, ByVal ADDED_WHO As String, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As VWIDB_OBJECT_STORERow Dim rowVWIDB_OBJECT_STORERow As VWIDB_OBJECT_STORERow = CType(Me.NewRow,VWIDB_OBJECT_STORERow) Dim columnValuesArray() As Object = New Object() {GUID, Objectstore, Archive, REL_PATH, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGED_WHEN} rowVWIDB_OBJECT_STORERow.ItemArray = columnValuesArray Me.Rows.Add(rowVWIDB_OBJECT_STORERow) Return rowVWIDB_OBJECT_STORERow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As VWIDB_OBJECT_STORERow Return CType(Me.Rows.Find(New Object() {GUID}),VWIDB_OBJECT_STORERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWIDB_OBJECT_STOREDataTable = CType(MyBase.Clone,VWIDB_OBJECT_STOREDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWIDB_OBJECT_STOREDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnObjectstore = MyBase.Columns("Objectstore") Me.columnArchive = MyBase.Columns("Archive") Me.columnREL_PATH = MyBase.Columns("REL_PATH") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnObjectstore = New Global.System.Data.DataColumn("Objectstore", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnObjectstore) Me.columnArchive = New Global.System.Data.DataColumn("Archive", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnArchive) Me.columnREL_PATH = New Global.System.Data.DataColumn("REL_PATH", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnREL_PATH) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AllowDBNull = false Me.columnGUID.Unique = true Me.columnObjectstore.AllowDBNull = false Me.columnObjectstore.MaxLength = 250 Me.columnArchive.AllowDBNull = false Me.columnREL_PATH.AllowDBNull = false Me.columnREL_PATH.MaxLength = 900 Me.columnADDED_WHEN.AllowDBNull = false Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 30 Me.columnCHANGED_WHO.MaxLength = 30 End Sub _ Public Function NewVWIDB_OBJECT_STORERow() As VWIDB_OBJECT_STORERow Return CType(Me.NewRow,VWIDB_OBJECT_STORERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWIDB_OBJECT_STORERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWIDB_OBJECT_STORERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWIDB_OBJECT_STORERowChangedEvent) Is Nothing) Then RaiseEvent VWIDB_OBJECT_STORERowChanged(Me, New VWIDB_OBJECT_STORERowChangeEvent(CType(e.Row,VWIDB_OBJECT_STORERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWIDB_OBJECT_STORERowChangingEvent) Is Nothing) Then RaiseEvent VWIDB_OBJECT_STORERowChanging(Me, New VWIDB_OBJECT_STORERowChangeEvent(CType(e.Row,VWIDB_OBJECT_STORERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWIDB_OBJECT_STORERowDeletedEvent) Is Nothing) Then RaiseEvent VWIDB_OBJECT_STORERowDeleted(Me, New VWIDB_OBJECT_STORERowChangeEvent(CType(e.Row,VWIDB_OBJECT_STORERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWIDB_OBJECT_STORERowDeletingEvent) Is Nothing) Then RaiseEvent VWIDB_OBJECT_STORERowDeleting(Me, New VWIDB_OBJECT_STORERowChangeEvent(CType(e.Row,VWIDB_OBJECT_STORERow), e.Action)) End If End Sub _ Public Sub RemoveVWIDB_OBJECT_STORERow(ByVal row As VWIDB_OBJECT_STORERow) 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 DSIDB_Stammdaten = New DSIDB_Stammdaten() 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 = "VWIDB_OBJECT_STOREDataTable" 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 TBIDB_BUSINESS_ENTITYRow Inherits Global.System.Data.DataRow Private tableTBIDB_BUSINESS_ENTITY As TBIDB_BUSINESS_ENTITYDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBIDB_BUSINESS_ENTITY = CType(Me.Table,TBIDB_BUSINESS_ENTITYDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.GUIDColumn),Integer) End Get Set Me(Me.tableTBIDB_BUSINESS_ENTITY.GUIDColumn) = value End Set End Property _ Public Property PARENT_ENT_ID() As Integer Get Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.PARENT_ENT_IDColumn),Integer) End Get Set Me(Me.tableTBIDB_BUSINESS_ENTITY.PARENT_ENT_IDColumn) = value End Set End Property _ Public Property TITLE() As String Get Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.TITLEColumn),String) End Get Set Me(Me.tableTBIDB_BUSINESS_ENTITY.TITLEColumn) = value End Set End Property _ Public Property INHERITS_ATTRIBUTES() As Boolean Get Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.INHERITS_ATTRIBUTESColumn),Boolean) End Get Set Me(Me.tableTBIDB_BUSINESS_ENTITY.INHERITS_ATTRIBUTESColumn) = value End Set End Property _ Public Property COMMENT() As String Get Try Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e) End Try End Get Set Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e) End Try End Get Set Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e) End Try End Get Set Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e) End Try End Get Set Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn) = value End Set End Property _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBIDB_ATTRIBUTERow Inherits Global.System.Data.DataRow Private tableTBIDB_ATTRIBUTE As TBIDB_ATTRIBUTEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBIDB_ATTRIBUTE = CType(Me.Table,TBIDB_ATTRIBUTEDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBIDB_ATTRIBUTE.GUIDColumn),Integer) End Get Set Me(Me.tableTBIDB_ATTRIBUTE.GUIDColumn) = value End Set End Property _ Public Property TITLE() As String Get Return CType(Me(Me.tableTBIDB_ATTRIBUTE.TITLEColumn),String) End Get Set Me(Me.tableTBIDB_ATTRIBUTE.TITLEColumn) = value End Set End Property _ Public Property TYP_ID() As Byte Get Return CType(Me(Me.tableTBIDB_ATTRIBUTE.TYP_IDColumn),Byte) End Get Set Me(Me.tableTBIDB_ATTRIBUTE.TYP_IDColumn) = value End Set End Property _ Public Property MULTI_CONTEXT() As Boolean Get Return CType(Me(Me.tableTBIDB_ATTRIBUTE.MULTI_CONTEXTColumn),Boolean) End Get Set Me(Me.tableTBIDB_ATTRIBUTE.MULTI_CONTEXTColumn) = value End Set End Property _ Public Property VIEW_SEQUENCE() As Integer Get Return CType(Me(Me.tableTBIDB_ATTRIBUTE.VIEW_SEQUENCEColumn),Integer) End Get Set Me(Me.tableTBIDB_ATTRIBUTE.VIEW_SEQUENCEColumn) = value End Set End Property _ Public Property VIEW_VISIBLE() As Boolean Get Return CType(Me(Me.tableTBIDB_ATTRIBUTE.VIEW_VISIBLEColumn),Boolean) End Get Set Me(Me.tableTBIDB_ATTRIBUTE.VIEW_VISIBLEColumn) = value End Set End Property _ Public Property COMMENT() As String Get Try Return CType(Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) End Try End Get Set Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHENColumn),Date) End Get Set Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) End Try End Get Set Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) End Try End Get Set Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) = value End Set End Property _ Public Property DELETED() As Boolean Get Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETEDColumn),Boolean) End Get Set Me(Me.tableTBIDB_ATTRIBUTE.DELETEDColumn) = value End Set End Property _ Public Property DELETED_WHO() As String Get Try Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DELETED_WHO in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) End Try End Get Set Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) = value End Set End Property _ Public Property DELETED_WHEN() As Date Get Try Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DELETED_WHEN in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) End Try End Get Set Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn) = value End Set End Property _ Public Property ATTR_TYPE() As String Get Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ATTR_TYPEColumn),String) End Get Set Me(Me.tableTBIDB_ATTRIBUTE.ATTR_TYPEColumn) = value End Set End Property _ Public Property TBIDB_ATTRIBUTE_TYPERow() As TBIDB_ATTRIBUTE_TYPERow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TYP_ID")),TBIDB_ATTRIBUTE_TYPERow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TYP_ID")) End Set End Property _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDELETED_WHONull() As Boolean Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) End Function _ Public Sub SetDELETED_WHONull() Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDELETED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn) End Function _ Public Sub SetDELETED_WHENNull() Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBIDB_ATTRIBUTE_TYPERow Inherits Global.System.Data.DataRow Private tableTBIDB_ATTRIBUTE_TYPE As TBIDB_ATTRIBUTE_TYPEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBIDB_ATTRIBUTE_TYPE = CType(Me.Table,TBIDB_ATTRIBUTE_TYPEDataTable) End Sub _ Public Property GUID() As Byte Get Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.GUIDColumn),Byte) End Get Set Me(Me.tableTBIDB_ATTRIBUTE_TYPE.GUIDColumn) = value End Set End Property _ Public Property NAME_TYPE() As String Get Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.NAME_TYPEColumn),String) End Get Set Me(Me.tableTBIDB_ATTRIBUTE_TYPE.NAME_TYPEColumn) = value End Set End Property _ Public Property COMMENT() As String Get Try Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e) End Try End Get Set Me(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn) = value End Set End Property _ Public Property BIT1() As Boolean Get Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT1Column),Boolean) End Get Set Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT1Column) = value End Set End Property _ Public Property BIT2() As Boolean Get Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT2Column),Boolean) End Get Set Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT2Column) = value End Set End Property _ Public Property BIT3() As Boolean Get Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT3Column),Boolean) End Get Set Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT3Column) = value End Set End Property _ Public Property BIT4() As Boolean Get Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT4Column),Boolean) End Get Set Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT4Column) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e) End Try End Get Set Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e) End Try End Get Set Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e) End Try End Get Set Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) = value End Set End Property _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetTBIDB_ATTRIBUTERows() As TBIDB_ATTRIBUTERow() If (Me.Table.ChildRelations("FK_TYP_ID") Is Nothing) Then Return New TBIDB_ATTRIBUTERow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TYP_ID")),TBIDB_ATTRIBUTERow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWIDB_BE_ATTRIBUTERow Inherits Global.System.Data.DataRow Private tableVWIDB_BE_ATTRIBUTE As VWIDB_BE_ATTRIBUTEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWIDB_BE_ATTRIBUTE = CType(Me.Table,VWIDB_BE_ATTRIBUTEDataTable) End Sub _ Public Property BE_ID() As Integer Get Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.BE_IDColumn),Integer) End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.BE_IDColumn) = value End Set End Property _ Public Property BE() As String Get Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn),String) End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn) = value End Set End Property _ Public Property ATTR_ID() As Integer Get Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn),Integer) End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn) = value End Set End Property _ Public Property ATTR_TITLE() As String Get Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn),String) End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn) = value End Set End Property _ Public Property TYP_ID() As Byte Get Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn),Byte) End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn) = value End Set End Property _ Public Property TYPE_ID() As Byte Get Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn),Byte) End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn) = value End Set End Property _ Public Property TYPE_NAME() As String Get Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn),String) End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn) = value End Set End Property _ Public Property VIEW_VISIBLE() As Boolean Get Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_VISIBLEColumn),Boolean) End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_VISIBLEColumn) = value End Set End Property _ Public Property VIEW_SEQUENCE() As Integer Get Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_SEQUENCEColumn),Integer) End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_SEQUENCEColumn) = value End Set End Property _ Public Property LANG_ID() As Byte Get Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_IDColumn),Byte) End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_IDColumn) = value End Set End Property _ Public Property LANG_CODE() As String Get Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_CODEColumn),String) End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_CODEColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn),Date) End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHOColumn),String) End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) End Try End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) End Try End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn) = value End Set End Property _ Public Property SYS_ATTRIBUTE() As Boolean Get Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.SYS_ATTRIBUTEColumn),Boolean) End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.SYS_ATTRIBUTEColumn) = value End Set End Property _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBZF_ADMIN_SOURCE_SQLRow Inherits Global.System.Data.DataRow Private tableTBZF_ADMIN_SOURCE_SQL As TBZF_ADMIN_SOURCE_SQLDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBZF_ADMIN_SOURCE_SQL = CType(Me.Table,TBZF_ADMIN_SOURCE_SQLDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.GUIDColumn),Integer) End Get Set Me(Me.tableTBZF_ADMIN_SOURCE_SQL.GUIDColumn) = value End Set End Property _ Public Property PARENT_ID() As Integer Get Try Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PARENT_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PARENT_ID in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) End Try End Get Set Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PARENT_IDColumn) = value End Set End Property _ Public Property ENTITY_TITLE() As String Get Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ENTITY_TITLEColumn),String) End Get Set Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ENTITY_TITLEColumn) = value End Set End Property _ Public Property SCOPE() As String Get Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SCOPEColumn),String) End Get Set Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SCOPEColumn) = value End Set End Property _ Public Property PK_COLUMN() As String Get Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PK_COLUMNColumn),String) End Get Set Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PK_COLUMNColumn) = value End Set End Property _ Public Property COMMENT() As String Get Try Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.COMMENTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) End Try End Get Set Me(Me.tableTBZF_ADMIN_SOURCE_SQL.COMMENTColumn) = value End Set End Property _ Public Property SQL_COMMAND() As String Get Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SQL_COMMANDColumn),String) End Get Set Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SQL_COMMANDColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Try Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) End Try End Get Set Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) End Try End Get Set Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) End Try End Get Set Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) End Try End Get Set Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHENColumn) = value End Set End Property _ Public Property FK_COLUMN() As String Get Try Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.FK_COLUMNColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_COLUMN in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) End Try End Get Set Me(Me.tableTBZF_ADMIN_SOURCE_SQL.FK_COLUMNColumn) = value End Set End Property _ Public Function IsPARENT_IDNull() As Boolean Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.PARENT_IDColumn) End Function _ Public Sub SetPARENT_IDNull() Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PARENT_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableTBZF_ADMIN_SOURCE_SQL.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHOColumn) End Function _ Public Sub SetADDED_WHONull() Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFK_COLUMNNull() As Boolean Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.FK_COLUMNColumn) End Function _ Public Sub SetFK_COLUMNNull() Me(Me.tableTBZF_ADMIN_SOURCE_SQL.FK_COLUMNColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBIDB_OBJECT_STORERow Inherits Global.System.Data.DataRow Private tableTBIDB_OBJECT_STORE As TBIDB_OBJECT_STOREDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBIDB_OBJECT_STORE = CType(Me.Table,TBIDB_OBJECT_STOREDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBIDB_OBJECT_STORE.GUIDColumn),Integer) End Get Set Me(Me.tableTBIDB_OBJECT_STORE.GUIDColumn) = value End Set End Property _ Public Property OBJECT_TITLE() As String Get Return CType(Me(Me.tableTBIDB_OBJECT_STORE.OBJECT_TITLEColumn),String) End Get Set Me(Me.tableTBIDB_OBJECT_STORE.OBJECT_TITLEColumn) = value End Set End Property _ Public Property CAT_ID() As Integer Get Return CType(Me(Me.tableTBIDB_OBJECT_STORE.CAT_IDColumn),Integer) End Get Set Me(Me.tableTBIDB_OBJECT_STORE.CAT_IDColumn) = value End Set End Property _ Public Property OBJ_PATH() As String Get Return CType(Me(Me.tableTBIDB_OBJECT_STORE.OBJ_PATHColumn),String) End Get Set Me(Me.tableTBIDB_OBJECT_STORE.OBJ_PATHColumn) = value End Set End Property _ Public Property IS_ARCHIVE() As Boolean Get Return CType(Me(Me.tableTBIDB_OBJECT_STORE.IS_ARCHIVEColumn),Boolean) End Get Set Me(Me.tableTBIDB_OBJECT_STORE.IS_ARCHIVEColumn) = value End Set End Property _ Public Property COMMENT() As String Get Try Return CType(Me(Me.tableTBIDB_OBJECT_STORE.COMMENTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) End Try End Get Set Me(Me.tableTBIDB_OBJECT_STORE.COMMENTColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Try Return CType(Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) End Try End Get Set Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) End Try End Get Set Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) End Try End Get Set Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) End Try End Get Set Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHENColumn) = value End Set End Property _ Public Property CAT_TITLE() As String Get Try Return CType(Me(Me.tableTBIDB_OBJECT_STORE.CAT_TITLEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CAT_TITLE in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) End Try End Get Set Me(Me.tableTBIDB_OBJECT_STORE.CAT_TITLEColumn) = value End Set End Property _ Public Property TBIDB_CATALOGRow() As TBIDB_CATALOGRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_OS_CAT_ID")),TBIDB_CATALOGRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_OS_CAT_ID")) End Set End Property _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableTBIDB_OBJECT_STORE.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.ADDED_WHOColumn) End Function _ Public Sub SetADDED_WHONull() Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCAT_TITLENull() As Boolean Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.CAT_TITLEColumn) End Function _ Public Sub SetCAT_TITLENull() Me(Me.tableTBIDB_OBJECT_STORE.CAT_TITLEColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBIDB_CATALOGRow Inherits Global.System.Data.DataRow Private tableTBIDB_CATALOG As TBIDB_CATALOGDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBIDB_CATALOG = CType(Me.Table,TBIDB_CATALOGDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBIDB_CATALOG.GUIDColumn),Integer) End Get Set Me(Me.tableTBIDB_CATALOG.GUIDColumn) = value End Set End Property _ Public Property CAT_TITLE() As String Get Return CType(Me(Me.tableTBIDB_CATALOG.CAT_TITLEColumn),String) End Get Set Me(Me.tableTBIDB_CATALOG.CAT_TITLEColumn) = value End Set End Property _ Public Property CAT_STRING() As String Get Return CType(Me(Me.tableTBIDB_CATALOG.CAT_STRINGColumn),String) End Get Set Me(Me.tableTBIDB_CATALOG.CAT_STRINGColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBIDB_CATALOG.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBIDB_CATALOG.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBIDB_CATALOG.ADDED_WHENColumn),Date) End Get Set Me(Me.tableTBIDB_CATALOG.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBIDB_CATALOG.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_CATALOG ist DBNull.", e) End Try End Get Set Me(Me.tableTBIDB_CATALOG.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBIDB_CATALOG.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_CATALOG ist DBNull.", e) End Try End Get Set Me(Me.tableTBIDB_CATALOG.CHANGED_WHENColumn) = value End Set End Property _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBIDB_CATALOG.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBIDB_CATALOG.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBIDB_CATALOG.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBIDB_CATALOG.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetTBIDB_OBJECT_STORERows() As TBIDB_OBJECT_STORERow() If (Me.Table.ChildRelations("FK_OS_CAT_ID") Is Nothing) Then Return New TBIDB_OBJECT_STORERow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_OS_CAT_ID")),TBIDB_OBJECT_STORERow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBWH_ATTRIBUTE_TYPERow Inherits Global.System.Data.DataRow Private tableTBWH_ATTRIBUTE_TYPE As TBWH_ATTRIBUTE_TYPEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_ATTRIBUTE_TYPE = CType(Me.Table,TBWH_ATTRIBUTE_TYPEDataTable) End Sub _ Public Property GUID() As Byte Get Return CType(Me(Me.tableTBWH_ATTRIBUTE_TYPE.GUIDColumn),Byte) End Get Set Me(Me.tableTBWH_ATTRIBUTE_TYPE.GUIDColumn) = value End Set End Property _ Public Property NAME_TYPE() As String Get Return CType(Me(Me.tableTBWH_ATTRIBUTE_TYPE.NAME_TYPEColumn),String) End Get Set Me(Me.tableTBWH_ATTRIBUTE_TYPE.NAME_TYPEColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWIDB_OBJECT_STORERow Inherits Global.System.Data.DataRow Private tableVWIDB_OBJECT_STORE As VWIDB_OBJECT_STOREDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWIDB_OBJECT_STORE = CType(Me.Table,VWIDB_OBJECT_STOREDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableVWIDB_OBJECT_STORE.GUIDColumn),Integer) End Get Set Me(Me.tableVWIDB_OBJECT_STORE.GUIDColumn) = value End Set End Property _ Public Property Objectstore() As String Get Return CType(Me(Me.tableVWIDB_OBJECT_STORE.ObjectstoreColumn),String) End Get Set Me(Me.tableVWIDB_OBJECT_STORE.ObjectstoreColumn) = value End Set End Property _ Public Property Archive() As Boolean Get Return CType(Me(Me.tableVWIDB_OBJECT_STORE.ArchiveColumn),Boolean) End Get Set Me(Me.tableVWIDB_OBJECT_STORE.ArchiveColumn) = value End Set End Property _ Public Property REL_PATH() As String Get Return CType(Me(Me.tableVWIDB_OBJECT_STORE.REL_PATHColumn),String) End Get Set Me(Me.tableVWIDB_OBJECT_STORE.REL_PATHColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableVWIDB_OBJECT_STORE.ADDED_WHENColumn),Date) End Get Set Me(Me.tableVWIDB_OBJECT_STORE.ADDED_WHENColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableVWIDB_OBJECT_STORE.ADDED_WHOColumn),String) End Get Set Me(Me.tableVWIDB_OBJECT_STORE.ADDED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWIDB_OBJECT_STORE ist DBNull.", e) End Try End Get Set Me(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWIDB_OBJECT_STORE ist DBNull.", e) End Try End Get Set Me(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHENColumn) = value End Set End Property _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Row event argument class ''' _ Public Class TBIDB_BUSINESS_ENTITYRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBIDB_BUSINESS_ENTITYRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBIDB_BUSINESS_ENTITYRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBIDB_BUSINESS_ENTITYRow 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 ''' '''Row event argument class ''' _ Public Class TBIDB_ATTRIBUTERowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBIDB_ATTRIBUTERow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBIDB_ATTRIBUTERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBIDB_ATTRIBUTERow 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 ''' '''Row event argument class ''' _ Public Class TBIDB_ATTRIBUTE_TYPERowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBIDB_ATTRIBUTE_TYPERow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBIDB_ATTRIBUTE_TYPERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBIDB_ATTRIBUTE_TYPERow 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 ''' '''Row event argument class ''' _ Public Class VWIDB_BE_ATTRIBUTERowChangeEvent Inherits Global.System.EventArgs Private eventRow As VWIDB_BE_ATTRIBUTERow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As VWIDB_BE_ATTRIBUTERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As VWIDB_BE_ATTRIBUTERow 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 ''' '''Row event argument class ''' _ Public Class TBZF_ADMIN_SOURCE_SQLRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBZF_ADMIN_SOURCE_SQLRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBZF_ADMIN_SOURCE_SQLRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBZF_ADMIN_SOURCE_SQLRow 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 ''' '''Row event argument class ''' _ Public Class TBIDB_OBJECT_STORERowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBIDB_OBJECT_STORERow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBIDB_OBJECT_STORERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBIDB_OBJECT_STORERow 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 ''' '''Row event argument class ''' _ Public Class TBIDB_CATALOGRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBIDB_CATALOGRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBIDB_CATALOGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBIDB_CATALOGRow 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 ''' '''Row event argument class ''' _ Public Class TBWH_ATTRIBUTE_TYPERowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBWH_ATTRIBUTE_TYPERow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBWH_ATTRIBUTE_TYPERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBWH_ATTRIBUTE_TYPERow 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 ''' '''Row event argument class ''' _ Public Class VWIDB_OBJECT_STORERowChangeEvent Inherits Global.System.EventArgs Private eventRow As VWIDB_OBJECT_STORERow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As VWIDB_OBJECT_STORERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As VWIDB_OBJECT_STORERow 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 DSIDB_StammdatenTableAdapters ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBIDB_BUSINESS_ENTITYTableAdapter 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 = "TBIDB_BUSINESS_ENTITY" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("PARENT_ENT_ID", "PARENT_ENT_ID") tableMapping.ColumnMappings.Add("TITLE", "TITLE") tableMapping.ColumnMappings.Add("INHERITS_ATTRIBUTES", "INHERITS_ATTRIBUTES") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBIDB_BUSINESS_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_BUSINESS_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PARENT_ENT_ID, TITLE"& _ ", INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PARENT_ENT_ID,@TITLE"& _ ",@INHERITS_ATTRIBUTES,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ENT_ID, TITLE,"& _ " INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ "FROM TBIDB_BUSINESS_ENTITY WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INHERITS_ATTRIBUTES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "INHERITS_ATTRIBUTES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_BUSINESS_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PARENT_ENT_ID = @PARENT_EN"& _ "T_ID, TITLE = @TITLE, INHERITS_ATTRIBUTES = @INHERITS_ATTRIBUTES, COMMENT = @COM"& _ "MENT, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELEC"& _ "T GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHE"& _ "N, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_BUSINESS_ENTITY WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INHERITS_ATTRIBUTES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "INHERITS_ATTRIBUTES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO"& _ ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_BUSINESS_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ "WHERE GUID = @GUID" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable, ByVal GUID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) 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(ByVal GUID As Integer) As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) Dim dataTable As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable = New DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer Return Me.Adapter.Update(dataSet, "TBIDB_BUSINESS_ENTITY") 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 Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal PARENT_ENT_ID As Integer, ByVal TITLE As String, ByVal INHERITS_ATTRIBUTES As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(PARENT_ENT_ID,Integer) If (TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("TITLE") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(TITLE,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(INHERITS_ATTRIBUTES,Boolean) If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,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 Update(ByVal PARENT_ENT_ID As Integer, ByVal TITLE As String, ByVal INHERITS_ATTRIBUTES As Boolean, ByVal COMMENT As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PARENT_ENT_ID,Integer) If (TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("TITLE") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TITLE,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(INHERITS_ATTRIBUTES,Boolean) If (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,String) End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBIDB_ATTRIBUTETableAdapter 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 = "TBIDB_ATTRIBUTE" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("TITLE", "TITLE") tableMapping.ColumnMappings.Add("TYP_ID", "TYP_ID") tableMapping.ColumnMappings.Add("MULTI_CONTEXT", "MULTI_CONTEXT") tableMapping.ColumnMappings.Add("VIEW_SEQUENCE", "VIEW_SEQUENCE") tableMapping.ColumnMappings.Add("VIEW_VISIBLE", "VIEW_VISIBLE") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("DELETED", "DELETED") tableMapping.ColumnMappings.Add("DELETED_WHO", "DELETED_WHO") tableMapping.ColumnMappings.Add("DELETED_WHEN", "DELETED_WHEN") tableMapping.ColumnMappings.Add("ATTR_TYPE", "ATTR_TYPE") 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 TBIDB_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TITLE, TYP_ID, MULTI_CONTE"& _ "XT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@TITLE,@TYP"& _ "_ID,@MULTI_CONTEXT,@VIEW_SEQUENCE,@VIEW_VISIBLE,@COMMENT,@ADDED_WHO)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTI_CONTEXT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTI_CONTEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, TYP_ID = @TYP_ID"& _ ", MULTI_CONTEXT = @MULTI_CONTEXT, VIEW_SEQUENCE = @VIEW_SEQUENCE, VIEW_VISIBLE ="& _ " @VIEW_VISIBLE, COMMENT = @COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTI_CONTEXT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTI_CONTEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBIDB_ATTRIBUTE.GUID, TBIDB_ATTRIBUTE.TITLE, TBIDB_ATTRIBUTE.TYP_ID"& _ ", TBIDB_ATTRIBUTE.MULTI_CONTEXT, TBIDB_ATTRIBUTE.VIEW_SEQUENCE, TBIDB_ATTRIBUTE."& _ "VIEW_VISIBLE, TBIDB_ATTRIBUTE.COMMENT,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBIDB_ATTRIBUT"& _ "E.ADDED_WHO, TBIDB_ATTRIBUTE.ADDED_WHEN, TBIDB_ATTRIBUTE.CHANGED_WHO, TBIDB_ATTR"& _ "IBUTE.CHANGED_WHEN, TBIDB_ATTRIBUTE.DELETED, TBIDB_ATTRIBUTE.DELETED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " TBIDB_ATTRIBUTE.DELETED_WHEN, TBIDB_ATTRIBUTE_TYPE.NAME_TYP"& _ "E AS ATTR_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_ATTRIBUTE INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " TBIDB_ATTRIBUTE_TYPE ON TBIDB_ATTRIBUTE.TYP_ID = TBIDB_ATTRIBUTE_TYPE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE TBIDB_ATTRIBUTE.GUID = @GUID" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable, ByVal GUID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) 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(ByVal GUID As Integer) As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) Dim dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable = New DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer Return Me.Adapter.Update(dataSet, "TBIDB_ATTRIBUTE") 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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBIDB_ATTRIBUTE_TYPETableAdapter 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 = "TBIDB_ATTRIBUTE_TYPE" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("NAME_TYPE", "NAME_TYPE") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("BIT1", "BIT1") tableMapping.ColumnMappings.Add("BIT2", "BIT2") tableMapping.ColumnMappings.Add("BIT3", "BIT3") tableMapping.ColumnMappings.Add("BIT4", "BIT4") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBIDB_ATTRIBUTE_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBIDB_ATTRIBUTE_TYPE] ([NAME_TYPE], [COMMENT], [BIT1], [BIT2], [BIT3"& _ "], [BIT4], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@NA"& _ "ME_TYPE, @COMMENT, @BIT1, @BIT2, @BIT3, @BIT4, @ADDED_WHO, @ADDED_WHEN, @CHANGED"& _ "_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, "& _ "ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_ATTRIBUTE_TYPE WHERE"& _ " (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT4", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [TBIDB_ATTRIBUTE_TYPE] SET [NAME_TYPE] = @NAME_TYPE, [COMMENT] = @COMMENT,"& _ " [BIT1] = @BIT1, [BIT2] = @BIT2, [BIT3] = @BIT3, [BIT4] = @BIT4, [ADDED_WHO] = @"& _ "ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WH"& _ "EN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([NAME_TYPE] = @Origina"& _ "l_NAME_TYPE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @O"& _ "riginal_COMMENT)) AND ([BIT1] = @Original_BIT1) AND ([BIT2] = @Original_BIT2) AN"& _ "D ([BIT3] = @Original_BIT3) AND ([BIT4] = @Original_BIT4) AND ([ADDED_WHO] = @Or"& _ "iginal_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGE"& _ "D_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO))"& _ " AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] ="& _ " @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, "& _ "BIT4, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_ATTRIBUTE_TYPE"& _ " WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT4", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT4", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBIDB_ATTRIBUTE_TYPE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_ATTRIBUTE_TYPE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable) 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 DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable = New DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer Return Me.Adapter.Update(dataSet, "TBIDB_ATTRIBUTE_TYPE") 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 Delete(ByVal Original_GUID As Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Byte) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal NAME_TYPE As String, ByVal COMMENT As String, ByVal BIT1 As Boolean, ByVal BIT2 As Boolean, ByVal BIT3 As Boolean, ByVal BIT4 As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer If (NAME_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME_TYPE") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME_TYPE,String) End If If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(BIT1,Boolean) Me.Adapter.InsertCommand.Parameters(3).Value = CType(BIT2,Boolean) Me.Adapter.InsertCommand.Parameters(4).Value = CType(BIT3,Boolean) Me.Adapter.InsertCommand.Parameters(5).Value = CType(BIT4,Boolean) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value 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 Update( _ ByVal NAME_TYPE As String, _ ByVal COMMENT As String, _ ByVal BIT1 As Boolean, _ ByVal BIT2 As Boolean, _ ByVal BIT3 As Boolean, _ ByVal BIT4 As Boolean, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_GUID As Byte, _ ByVal Original_NAME_TYPE As String, _ ByVal Original_COMMENT As String, _ ByVal Original_BIT1 As Boolean, _ ByVal Original_BIT2 As Boolean, _ ByVal Original_BIT3 As Boolean, _ ByVal Original_BIT4 As Boolean, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal GUID As Byte) As Integer If (NAME_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME_TYPE") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME_TYPE,String) End If If (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(BIT1,Boolean) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(BIT2,Boolean) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BIT3,Boolean) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(BIT4,Boolean) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Byte) If (Original_NAME_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_NAME_TYPE") Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_NAME_TYPE,String) End If If (Original_COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_COMMENT,String) End If Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_BIT1,Boolean) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_BIT2,Boolean) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_BIT3,Boolean) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_BIT4,Boolean) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(24).Value = CType(GUID,Byte) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal NAME_TYPE As String, _ ByVal COMMENT As String, _ ByVal BIT1 As Boolean, _ ByVal BIT2 As Boolean, _ ByVal BIT3 As Boolean, _ ByVal BIT4 As Boolean, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_GUID As Byte, _ ByVal Original_NAME_TYPE As String, _ ByVal Original_COMMENT As String, _ ByVal Original_BIT1 As Boolean, _ ByVal Original_BIT2 As Boolean, _ ByVal Original_BIT3 As Boolean, _ ByVal Original_BIT4 As Boolean, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Return Me.Update(NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_NAME_TYPE, Original_COMMENT, Original_BIT1, Original_BIT2, Original_BIT3, Original_BIT4, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class VWIDB_BE_ATTRIBUTETableAdapter 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 = "VWIDB_BE_ATTRIBUTE" tableMapping.ColumnMappings.Add("BE_ID", "BE_ID") tableMapping.ColumnMappings.Add("BE", "BE") tableMapping.ColumnMappings.Add("ATTR_ID", "ATTR_ID") tableMapping.ColumnMappings.Add("ATTR_TITLE", "ATTR_TITLE") tableMapping.ColumnMappings.Add("TYP_ID", "TYP_ID") tableMapping.ColumnMappings.Add("TYPE_ID", "TYPE_ID") tableMapping.ColumnMappings.Add("TYPE_NAME", "TYPE_NAME") tableMapping.ColumnMappings.Add("VIEW_VISIBLE", "VIEW_VISIBLE") tableMapping.ColumnMappings.Add("VIEW_SEQUENCE", "VIEW_SEQUENCE") tableMapping.ColumnMappings.Add("LANG_ID", "LANG_ID") tableMapping.ColumnMappings.Add("LANG_CODE", "LANG_CODE") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("SYS_ATTRIBUTE", "SYS_ATTRIBUTE") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TITLE, TYP_ID, VIEW_SEQUEN"& _ "CE, VIEW_VISIBLE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@TITLE,@TYP_ID,@VIEW_SEQUENCE,@VIEW"& _ "_VISIBLE,@ADDED_WHO)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, TYP_ID = @TYP_ID"& _ ", VIEW_SEQUENCE = @VIEW_SEQUENCE, VIEW_VISIBLE = @VIEW_VISIBLE, COMMENT = @COMME"& _ "NT, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, VIEW_VI"& _ "SIBLE, VIEW_SEQUENCE, SYS_ATTRIBUTE, LANG_ID, LANG_CODE, ADDED_WHEN, ADDED_WHO, "& _ "CHANGED_WHEN, CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWIDB_BE_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (LAN"& _ "G_CODE = @LANG_CODE) AND (SYS_ATTRIBUTE = 0)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANG_CODE", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "LANG_CODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection Me._commandCollection(1).CommandText = "SELECT VWIDB_BE_ATTRIBUTE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWIDB_BE_ATTRIBUTE WHERE ATTR"& _ "_ID = @ATTRIBUTE_ID AND LANG_ID = @LANGUAGE_ID" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTRIBUTE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LANG_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable, ByVal LANG_CODE As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANG_CODE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANG_CODE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANG_CODE,String) End If 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(ByVal LANG_CODE As String) As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANG_CODE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANG_CODE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANG_CODE,String) End If Dim dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable = New DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function FillByAttributeId(ByVal dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable, ByVal ATTRIBUTE_ID As Integer, ByVal LANGUAGE_ID As Byte) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(1) Me.Adapter.SelectCommand.Parameters(0).Value = CType(ATTRIBUTE_ID,Integer) Me.Adapter.SelectCommand.Parameters(1).Value = CType(LANGUAGE_ID,Byte) 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 GetDataByAttributeId(ByVal ATTRIBUTE_ID As Integer, ByVal LANGUAGE_ID As Byte) As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(1) Me.Adapter.SelectCommand.Parameters(0).Value = CType(ATTRIBUTE_ID,Integer) Me.Adapter.SelectCommand.Parameters(1).Value = CType(LANGUAGE_ID,Byte) Dim dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable = New DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer Return Me.Adapter.Update(dataSet, "VWIDB_BE_ATTRIBUTE") 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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBZF_ADMIN_SOURCE_SQLTableAdapter 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 = "TBZF_ADMIN_SOURCE_SQL" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") tableMapping.ColumnMappings.Add("ENTITY_TITLE", "ENTITY_TITLE") tableMapping.ColumnMappings.Add("SCOPE", "SCOPE") tableMapping.ColumnMappings.Add("PK_COLUMN", "PK_COLUMN") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("FK_COLUMN", "FK_COLUMN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBZF_ADMIN_SOURCE_SQL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBZF_ADMIN_SOURCE_SQL] ([PARENT_ID], [ENTITY_TITLE], [SCOPE], [PK_CO"& _ "LUMN], [COMMENT], [SQL_COMMAND], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHAN"& _ "GED_WHEN], [FK_COLUMN]) VALUES (@PARENT_ID, @ENTITY_TITLE, @SCOPE, @PK_COLUMN, @"& _ "COMMENT, @SQL_COMMAND, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @FK"& _ "_COLUMN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ID, ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_"& _ "COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FK_COLUMN FROM TBZF_A"& _ "DMIN_SOURCE_SQL WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCOPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCOPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PK_COLUMN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_COLUMN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [TBZF_ADMIN_SOURCE_SQL] SET [PARENT_ID] = @PARENT_ID, [ENTITY_TITLE] = @EN"& _ "TITY_TITLE, [SCOPE] = @SCOPE, [PK_COLUMN] = @PK_COLUMN, [COMMENT] = @COMMENT, [S"& _ "QL_COMMAND] = @SQL_COMMAND, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN"& _ ", [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [FK_COLUMN] = @F"& _ "K_COLUMN WHERE (([GUID] = @Original_GUID) AND ([PARENT_ID] = @Original_PARENT_ID"& _ ") AND ([ENTITY_TITLE] = @Original_ENTITY_TITLE) AND ([SCOPE] = @Original_SCOPE) "& _ "AND ([PK_COLUMN] = @Original_PK_COLUMN) AND ((@IsNull_COMMENT = 1 AND [COMMENT] "& _ "IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [AD"& _ "DED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WH"& _ "EN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ("& _ "(@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Origina"& _ "l_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR (["& _ "CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ((@IsNull_FK_COLUMN = 1 AND [FK_COL"& _ "UMN] IS NULL) OR ([FK_COLUMN] = @Original_FK_COLUMN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ID,"& _ " ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CH"& _ "ANGED_WHO, CHANGED_WHEN, FK_COLUMN FROM TBZF_ADMIN_SOURCE_SQL WHERE (GUID = @GUI"& _ "D)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCOPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCOPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PK_COLUMN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_COLUMN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ENTITY_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SCOPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCOPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PK_COLUMN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_COLUMN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_COLUMN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_COLUMN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBZF_ADMIN_SOURCE_SQL.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBZF_ADMIN_SOURCE_SQL WHER"& _ "E GUID = @GUID" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQLDataTable, ByVal GUID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) 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(ByVal GUID As Integer) As DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQLDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) Dim dataTable As DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQLDataTable = New DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQLDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQLDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer Return Me.Adapter.Update(dataSet, "TBZF_ADMIN_SOURCE_SQL") 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 Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal PARENT_ID As Global.System.Nullable(Of Integer), ByVal ENTITY_TITLE As String, ByVal SCOPE As String, ByVal PK_COLUMN As String, ByVal COMMENT As String, ByVal SQL_COMMAND As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal FK_COLUMN As String) As Integer If (PARENT_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(PARENT_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (ENTITY_TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("ENTITY_TITLE") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(ENTITY_TITLE,String) End If If (SCOPE Is Nothing) Then Throw New Global.System.ArgumentNullException("SCOPE") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(SCOPE,String) End If If (PK_COLUMN Is Nothing) Then Throw New Global.System.ArgumentNullException("PK_COLUMN") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(PK_COLUMN,String) End If If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(COMMENT,String) End If If (SQL_COMMAND Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_COMMAND") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(SQL_COMMAND,String) End If If (ADDED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (FK_COLUMN Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(FK_COLUMN,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 Update( _ ByVal PARENT_ID As Global.System.Nullable(Of Integer), _ ByVal ENTITY_TITLE As String, _ ByVal SCOPE As String, _ ByVal PK_COLUMN As String, _ ByVal COMMENT As String, _ ByVal SQL_COMMAND As String, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal FK_COLUMN As String, _ ByVal Original_GUID As Integer, _ ByVal Original_PARENT_ID As Global.System.Nullable(Of Integer), _ ByVal Original_ENTITY_TITLE As String, _ ByVal Original_SCOPE As String, _ ByVal Original_PK_COLUMN As String, _ ByVal Original_COMMENT As String, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_FK_COLUMN As String, _ ByVal GUID As Integer) As Integer If (PARENT_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PARENT_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (ENTITY_TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("ENTITY_TITLE") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ENTITY_TITLE,String) End If If (SCOPE Is Nothing) Then Throw New Global.System.ArgumentNullException("SCOPE") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SCOPE,String) End If If (PK_COLUMN Is Nothing) Then Throw New Global.System.ArgumentNullException("PK_COLUMN") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(PK_COLUMN,String) End If If (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COMMENT,String) End If If (SQL_COMMAND Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_COMMAND") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SQL_COMMAND,String) End If If (ADDED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (FK_COLUMN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(FK_COLUMN,String) End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer) If (Original_PARENT_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_PARENT_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Original_ENTITY_TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ENTITY_TITLE") Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ENTITY_TITLE,String) End If If (Original_SCOPE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SCOPE") Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_SCOPE,String) End If If (Original_PK_COLUMN Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_PK_COLUMN") Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_PK_COLUMN,String) End If If (Original_COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_COMMENT,String) End If If (Original_ADDED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Original_FK_COLUMN Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_FK_COLUMN,String) End If Me.Adapter.UpdateCommand.Parameters(28).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal PARENT_ID As Global.System.Nullable(Of Integer), _ ByVal ENTITY_TITLE As String, _ ByVal SCOPE As String, _ ByVal PK_COLUMN As String, _ ByVal COMMENT As String, _ ByVal SQL_COMMAND As String, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal FK_COLUMN As String, _ ByVal Original_GUID As Integer, _ ByVal Original_PARENT_ID As Global.System.Nullable(Of Integer), _ ByVal Original_ENTITY_TITLE As String, _ ByVal Original_SCOPE As String, _ ByVal Original_PK_COLUMN As String, _ ByVal Original_COMMENT As String, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_FK_COLUMN As String) As Integer Return Me.Update(PARENT_ID, ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FK_COLUMN, Original_GUID, Original_PARENT_ID, Original_ENTITY_TITLE, Original_SCOPE, Original_PK_COLUMN, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_FK_COLUMN, Original_GUID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBIDB_OBJECT_STORETableAdapter 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 = "TBIDB_OBJECT_STORE" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("OBJECT_TITLE", "OBJECT_TITLE") tableMapping.ColumnMappings.Add("CAT_ID", "CAT_ID") tableMapping.ColumnMappings.Add("OBJ_PATH", "OBJ_PATH") tableMapping.ColumnMappings.Add("IS_ARCHIVE", "IS_ARCHIVE") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("CAT_TITLE", "CAT_TITLE") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBIDB_OBJECT_STORE] WHERE (([GUID] = @Original_GUID) AND ([OBJECT_TI"& _ "TLE] = @Original_OBJECT_TITLE) AND ([CAT_ID] = @Original_CAT_ID) AND ([OBJ_PATH]"& _ " = @Original_OBJ_PATH) AND ([IS_ARCHIVE] = @Original_IS_ARCHIVE) AND ((@IsNull_C"& _ "OMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ADDE"& _ "D_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@I"& _ "sNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_C"& _ "HANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHA"& _ "NGED_WHEN] = @Original_CHANGED_WHEN)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OBJECT_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CAT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OBJ_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJ_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IS_ARCHIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_ARCHIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_OBJECT_STORE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (OBJECT_TITLE, CAT_ID, O"& _ "BJ_PATH, IS_ARCHIVE, COMMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@OBJECT_TITLE,@CAT_ID,@"& _ "OBJ_PATH,@IS_ARCHIVE,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, OBJECT_TITLE, CAT_ID, "& _ "OBJ_PATH, IS_ARCHIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ "FROM TBIDB_OBJECT_STORE WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TITLE", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJ_PATH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJ_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_ARCHIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_ARCHIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_OBJECT_STORE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET OBJECT_TITLE = @OBJECT_TITLE,"& _ " CAT_ID = @CAT_ID, OBJ_PATH = @OBJ_PATH, IS_ARCHIVE = @IS_ARCHIVE, COMMENT = @CO"& _ "MMENT, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELEC"& _ "T GUID, OBJECT_TITLE, CAT_ID, OBJ_PATH, IS_ARCHIVE, COMMENT, ADDED_WHO, ADDED_WH"& _ "EN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_OBJECT_STORE WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TITLE", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJ_PATH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJ_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_ARCHIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_ARCHIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBIDB_OBJECT_STORE.GUID, TBIDB_OBJECT_STORE.OBJECT_TITLE, TBIDB_OBJ"& _ "ECT_STORE.CAT_ID, TBIDB_OBJECT_STORE.OBJ_PATH, TBIDB_OBJECT_STORE.IS_ARCHIVE, TB"& _ "IDB_OBJECT_STORE.COMMENT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBIDB_OBJECT_STORE.ADDED_WH"& _ "O, TBIDB_OBJECT_STORE.ADDED_WHEN, TBIDB_OBJECT_STORE.CHANGED_WHO, TBIDB_OBJECT_S"& _ "TORE.CHANGED_WHEN, TBIDB_CATALOG.CAT_TITLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_OBJECT_STORE I"& _ "NNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBIDB_CATALOG ON TBIDB_OBJECT_STORE.CAT_ID ="& _ " TBIDB_CATALOG.GUID" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_OBJECT_STOREDataTable) 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 DSIDB_Stammdaten.TBIDB_OBJECT_STOREDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DSIDB_Stammdaten.TBIDB_OBJECT_STOREDataTable = New DSIDB_Stammdaten.TBIDB_OBJECT_STOREDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_OBJECT_STOREDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer Return Me.Adapter.Update(dataSet, "TBIDB_OBJECT_STORE") 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 Delete(ByVal Original_GUID As Integer, ByVal Original_OBJECT_TITLE As String, ByVal Original_CAT_ID As Integer, ByVal Original_OBJ_PATH As String, ByVal Original_IS_ARCHIVE As Boolean, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) If (Original_OBJECT_TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_OBJECT_TITLE") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_OBJECT_TITLE,String) End If Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CAT_ID,Integer) If (Original_OBJ_PATH Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_OBJ_PATH") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_OBJ_PATH,String) End If Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_IS_ARCHIVE,Boolean) If (Original_COMMENT Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_COMMENT,String) End If If (Original_ADDED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal OBJECT_TITLE As String, ByVal CAT_ID As Integer, ByVal OBJ_PATH As String, ByVal IS_ARCHIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String) As Integer If (OBJECT_TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("OBJECT_TITLE") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(OBJECT_TITLE,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(CAT_ID,Integer) If (OBJ_PATH Is Nothing) Then Throw New Global.System.ArgumentNullException("OBJ_PATH") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(OBJ_PATH,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(IS_ARCHIVE,Boolean) If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(COMMENT,String) End If If (ADDED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,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 Update(ByVal OBJECT_TITLE As String, ByVal CAT_ID As Integer, ByVal OBJ_PATH As String, ByVal IS_ARCHIVE As Boolean, ByVal COMMENT As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (OBJECT_TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("OBJECT_TITLE") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(OBJECT_TITLE,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CAT_ID,Integer) If (OBJ_PATH Is Nothing) Then Throw New Global.System.ArgumentNullException("OBJ_PATH") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(OBJ_PATH,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(IS_ARCHIVE,Boolean) If (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COMMENT,String) End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBIDB_CATALOGTableAdapter 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 = "TBIDB_CATALOG" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("CAT_TITLE", "CAT_TITLE") tableMapping.ColumnMappings.Add("CAT_STRING", "CAT_STRING") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBIDB_CATALOG] WHERE (([GUID] = @Original_GUID) AND ([CAT_TITLE] = @"& _ "Original_CAT_TITLE) AND ([CAT_STRING] = @Original_CAT_STRING) AND ([ADDED_WHO] ="& _ " @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CH"& _ "ANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_W"& _ "HO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHE"& _ "N] = @Original_CHANGED_WHEN)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CAT_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CAT_STRING", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_STRING", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_CATALOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CAT_TITLE, CAT_STRING, ADDED"& _ "_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CAT_TITLE,@CAT_STRING,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CAT_TI"& _ "TLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_CAT"& _ "ALOG WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_STRING", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_STRING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_CATALOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CAT_TITLE = @CAT_TITLE, CAT_STRING"& _ " = @CAT_STRING, ADDED_WHO = @ADDED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ "SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_"& _ "WHEN FROM TBIDB_CATALOG WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_STRING", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_STRING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH"& _ "ANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_CATALOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_CATALOGDataTable, ByVal ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) 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(ByVal ID As Integer) As DSIDB_Stammdaten.TBIDB_CATALOGDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) Dim dataTable As DSIDB_Stammdaten.TBIDB_CATALOGDataTable = New DSIDB_Stammdaten.TBIDB_CATALOGDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_CATALOGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer Return Me.Adapter.Update(dataSet, "TBIDB_CATALOG") 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 Delete(ByVal Original_GUID As Integer, ByVal Original_CAT_TITLE As String, ByVal Original_CAT_STRING As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) If (Original_CAT_TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_CAT_TITLE") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_CAT_TITLE,String) End If If (Original_CAT_STRING Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_CAT_STRING") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CAT_STRING,String) End If If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHO,String) End If Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ADDED_WHEN,Date) If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal CAT_TITLE As String, ByVal CAT_STRING As String, ByVal ADDED_WHO As String) As Integer If (CAT_TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("CAT_TITLE") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(CAT_TITLE,String) End If If (CAT_STRING Is Nothing) Then Throw New Global.System.ArgumentNullException("CAT_STRING") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(CAT_STRING,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,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 Update(ByVal CAT_TITLE As String, ByVal CAT_STRING As String, ByVal ADDED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (CAT_TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("CAT_TITLE") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CAT_TITLE,String) End If If (CAT_STRING Is Nothing) Then Throw New Global.System.ArgumentNullException("CAT_STRING") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CAT_STRING,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBWH_ATTRIBUTE_TYPETableAdapter 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 = "TBWH_ATTRIBUTE_TYPE" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("NAME_TYPE", "NAME_TYPE") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, NAME_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_ATTRIBUTE_TYPE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBWH_ATTRIBUTE_TYPEDataTable) 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 DSIDB_Stammdaten.TBWH_ATTRIBUTE_TYPEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DSIDB_Stammdaten.TBWH_ATTRIBUTE_TYPEDataTable = New DSIDB_Stammdaten.TBWH_ATTRIBUTE_TYPEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class VWIDB_OBJECT_STORETableAdapter 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 = "VWIDB_OBJECT_STORE" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("Objectstore", "Objectstore") tableMapping.ColumnMappings.Add("Archive", "Archive") tableMapping.ColumnMappings.Add("REL_PATH", "REL_PATH") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT * FROM VWIDB_OBJECT_STORE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.VWIDB_OBJECT_STOREDataTable) 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 DSIDB_Stammdaten.VWIDB_OBJECT_STOREDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DSIDB_Stammdaten.VWIDB_OBJECT_STOREDataTable = New DSIDB_Stammdaten.VWIDB_OBJECT_STOREDataTable() Me.Adapter.Fill(dataTable) Return dataTable 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 _tBIDB_BUSINESS_ENTITYTableAdapter As TBIDB_BUSINESS_ENTITYTableAdapter Private _tBIDB_ATTRIBUTETableAdapter As TBIDB_ATTRIBUTETableAdapter Private _tBIDB_ATTRIBUTE_TYPETableAdapter As TBIDB_ATTRIBUTE_TYPETableAdapter Private _vWIDB_BE_ATTRIBUTETableAdapter As VWIDB_BE_ATTRIBUTETableAdapter Private _tBZF_ADMIN_SOURCE_SQLTableAdapter As TBZF_ADMIN_SOURCE_SQLTableAdapter Private _tBIDB_OBJECT_STORETableAdapter As TBIDB_OBJECT_STORETableAdapter Private _tBIDB_CATALOGTableAdapter As TBIDB_CATALOGTableAdapter 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 TBIDB_BUSINESS_ENTITYTableAdapter() As TBIDB_BUSINESS_ENTITYTableAdapter Get Return Me._tBIDB_BUSINESS_ENTITYTableAdapter End Get Set Me._tBIDB_BUSINESS_ENTITYTableAdapter = value End Set End Property _ Public Property TBIDB_ATTRIBUTETableAdapter() As TBIDB_ATTRIBUTETableAdapter Get Return Me._tBIDB_ATTRIBUTETableAdapter End Get Set Me._tBIDB_ATTRIBUTETableAdapter = value End Set End Property _ Public Property TBIDB_ATTRIBUTE_TYPETableAdapter() As TBIDB_ATTRIBUTE_TYPETableAdapter Get Return Me._tBIDB_ATTRIBUTE_TYPETableAdapter End Get Set Me._tBIDB_ATTRIBUTE_TYPETableAdapter = value End Set End Property _ Public Property VWIDB_BE_ATTRIBUTETableAdapter() As VWIDB_BE_ATTRIBUTETableAdapter Get Return Me._vWIDB_BE_ATTRIBUTETableAdapter End Get Set Me._vWIDB_BE_ATTRIBUTETableAdapter = value End Set End Property _ Public Property TBZF_ADMIN_SOURCE_SQLTableAdapter() As TBZF_ADMIN_SOURCE_SQLTableAdapter Get Return Me._tBZF_ADMIN_SOURCE_SQLTableAdapter End Get Set Me._tBZF_ADMIN_SOURCE_SQLTableAdapter = value End Set End Property _ Public Property TBIDB_OBJECT_STORETableAdapter() As TBIDB_OBJECT_STORETableAdapter Get Return Me._tBIDB_OBJECT_STORETableAdapter End Get Set Me._tBIDB_OBJECT_STORETableAdapter = value End Set End Property _ Public Property TBIDB_CATALOGTableAdapter() As TBIDB_CATALOGTableAdapter Get Return Me._tBIDB_CATALOGTableAdapter End Get Set Me._tBIDB_CATALOGTableAdapter = 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._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter.Connection) Is Nothing)) Then Return Me._tBIDB_BUSINESS_ENTITYTableAdapter.Connection End If If ((Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) _ AndAlso (Not (Me._tBIDB_ATTRIBUTETableAdapter.Connection) Is Nothing)) Then Return Me._tBIDB_ATTRIBUTETableAdapter.Connection End If If ((Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) _ AndAlso (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection) Is Nothing)) Then Return Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection End If If ((Not (Me._vWIDB_BE_ATTRIBUTETableAdapter) Is Nothing) _ AndAlso (Not (Me._vWIDB_BE_ATTRIBUTETableAdapter.Connection) Is Nothing)) Then Return Me._vWIDB_BE_ATTRIBUTETableAdapter.Connection End If If ((Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Connection) Is Nothing)) Then Return Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Connection End If If ((Not (Me._tBIDB_OBJECT_STORETableAdapter) Is Nothing) _ AndAlso (Not (Me._tBIDB_OBJECT_STORETableAdapter.Connection) Is Nothing)) Then Return Me._tBIDB_OBJECT_STORETableAdapter.Connection End If If ((Not (Me._tBIDB_CATALOGTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBIDB_CATALOGTableAdapter.Connection) Is Nothing)) Then Return Me._tBIDB_CATALOGTableAdapter.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._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._vWIDB_BE_ATTRIBUTETableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBIDB_OBJECT_STORETableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBIDB_CATALOGTableAdapter) 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 DSIDB_Stammdaten, 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._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE_TYPE.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._tBIDB_ATTRIBUTE_TYPETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBIDB_CATALOGTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_CATALOG.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._tBIDB_CATALOGTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_BUSINESS_ENTITY.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._tBIDB_BUSINESS_ENTITYTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._vWIDB_BE_ATTRIBUTETableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.VWIDB_BE_ATTRIBUTE.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._vWIDB_BE_ATTRIBUTETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE.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._tBIDB_ATTRIBUTETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBZF_ADMIN_SOURCE_SQL.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._tBZF_ADMIN_SOURCE_SQLTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBIDB_OBJECT_STORETableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_OBJECT_STORE.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._tBIDB_OBJECT_STORETableAdapter.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 DSIDB_Stammdaten, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE_TYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBIDB_CATALOGTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_CATALOG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBIDB_CATALOGTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_BUSINESS_ENTITY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBIDB_BUSINESS_ENTITYTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._vWIDB_BE_ATTRIBUTETableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.VWIDB_BE_ATTRIBUTE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._vWIDB_BE_ATTRIBUTETableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBIDB_ATTRIBUTETableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBZF_ADMIN_SOURCE_SQL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBIDB_OBJECT_STORETableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_OBJECT_STORE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBIDB_OBJECT_STORETableAdapter.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 DSIDB_Stammdaten, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBIDB_OBJECT_STORETableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_OBJECT_STORE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBIDB_OBJECT_STORETableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBZF_ADMIN_SOURCE_SQL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBIDB_ATTRIBUTETableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._vWIDB_BE_ATTRIBUTETableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.VWIDB_BE_ATTRIBUTE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._vWIDB_BE_ATTRIBUTETableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_BUSINESS_ENTITY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBIDB_BUSINESS_ENTITYTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBIDB_CATALOGTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_CATALOG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBIDB_CATALOGTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE_TYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBIDB_ATTRIBUTE_TYPETableAdapter.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 DSIDB_Stammdaten) 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._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBIDB_BUSINESS_ENTITYTableAdapter.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 If ((Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBIDB_ATTRIBUTETableAdapter.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 If ((Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBIDB_ATTRIBUTE_TYPETableAdapter.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 If ((Not (Me._vWIDB_BE_ATTRIBUTETableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._vWIDB_BE_ATTRIBUTETableAdapter.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 If ((Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.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 If ((Not (Me._tBIDB_OBJECT_STORETableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBIDB_OBJECT_STORETableAdapter.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 If ((Not (Me._tBIDB_CATALOGTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBIDB_CATALOGTableAdapter.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._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBIDB_BUSINESS_ENTITYTableAdapter, Me._tBIDB_BUSINESS_ENTITYTableAdapter.Connection) Me._tBIDB_BUSINESS_ENTITYTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBIDB_BUSINESS_ENTITYTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBIDB_BUSINESS_ENTITYTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBIDB_BUSINESS_ENTITYTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_BUSINESS_ENTITYTableAdapter.Adapter) End If End If If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then revertConnections.Add(Me._tBIDB_ATTRIBUTETableAdapter, Me._tBIDB_ATTRIBUTETableAdapter.Connection) Me._tBIDB_ATTRIBUTETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBIDB_ATTRIBUTETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBIDB_ATTRIBUTETableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBIDB_ATTRIBUTETableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_ATTRIBUTETableAdapter.Adapter) End If End If If (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) Then revertConnections.Add(Me._tBIDB_ATTRIBUTE_TYPETableAdapter, Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection) Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Adapter) End If End If If (Not (Me._vWIDB_BE_ATTRIBUTETableAdapter) Is Nothing) Then revertConnections.Add(Me._vWIDB_BE_ATTRIBUTETableAdapter, Me._vWIDB_BE_ATTRIBUTETableAdapter.Connection) Me._vWIDB_BE_ATTRIBUTETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._vWIDB_BE_ATTRIBUTETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._vWIDB_BE_ATTRIBUTETableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._vWIDB_BE_ATTRIBUTETableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._vWIDB_BE_ATTRIBUTETableAdapter.Adapter) End If End If If (Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBZF_ADMIN_SOURCE_SQLTableAdapter, Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Connection) Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Adapter) End If End If If (Not (Me._tBIDB_OBJECT_STORETableAdapter) Is Nothing) Then revertConnections.Add(Me._tBIDB_OBJECT_STORETableAdapter, Me._tBIDB_OBJECT_STORETableAdapter.Connection) Me._tBIDB_OBJECT_STORETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBIDB_OBJECT_STORETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBIDB_OBJECT_STORETableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBIDB_OBJECT_STORETableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_OBJECT_STORETableAdapter.Adapter) End If End If If (Not (Me._tBIDB_CATALOGTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBIDB_CATALOGTableAdapter, Me._tBIDB_CATALOGTableAdapter.Connection) Me._tBIDB_CATALOGTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBIDB_CATALOGTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBIDB_CATALOGTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBIDB_CATALOGTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_CATALOGTableAdapter.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._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then Me._tBIDB_BUSINESS_ENTITYTableAdapter.Connection = CType(revertConnections(Me._tBIDB_BUSINESS_ENTITYTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBIDB_BUSINESS_ENTITYTableAdapter.Transaction = Nothing End If If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then Me._tBIDB_ATTRIBUTETableAdapter.Connection = CType(revertConnections(Me._tBIDB_ATTRIBUTETableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBIDB_ATTRIBUTETableAdapter.Transaction = Nothing End If If (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) Then Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection = CType(revertConnections(Me._tBIDB_ATTRIBUTE_TYPETableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Transaction = Nothing End If If (Not (Me._vWIDB_BE_ATTRIBUTETableAdapter) Is Nothing) Then Me._vWIDB_BE_ATTRIBUTETableAdapter.Connection = CType(revertConnections(Me._vWIDB_BE_ATTRIBUTETableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._vWIDB_BE_ATTRIBUTETableAdapter.Transaction = Nothing End If If (Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) Then Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Connection = CType(revertConnections(Me._tBZF_ADMIN_SOURCE_SQLTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Transaction = Nothing End If If (Not (Me._tBIDB_OBJECT_STORETableAdapter) Is Nothing) Then Me._tBIDB_OBJECT_STORETableAdapter.Connection = CType(revertConnections(Me._tBIDB_OBJECT_STORETableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBIDB_OBJECT_STORETableAdapter.Transaction = Nothing End If If (Not (Me._tBIDB_CATALOGTableAdapter) Is Nothing) Then Me._tBIDB_CATALOGTableAdapter.Connection = CType(revertConnections(Me._tBIDB_CATALOGTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBIDB_CATALOGTableAdapter.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