'------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. ' Laufzeitversion:4.0.30319.36366 ' ' Ä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 MyDataset Inherits Global.System.Data.DataSet Private tableTBCBS_PROFILES As TBCBS_PROFILESDataTable Private tableTBCBS_USER_PROFILE As TBCBS_USER_PROFILEDataTable Private tableVWUSER_PROFILE As VWUSER_PROFILEDataTable Private tableTBCBS_PROFILE_PROCESS As TBCBS_PROFILE_PROCESSDataTable Private tableTBWH_User As TBWH_UserDataTable 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("TBCBS_PROFILES")) Is Nothing) Then MyBase.Tables.Add(New TBCBS_PROFILESDataTable(ds.Tables("TBCBS_PROFILES"))) End If If (Not (ds.Tables("TBCBS_USER_PROFILE")) Is Nothing) Then MyBase.Tables.Add(New TBCBS_USER_PROFILEDataTable(ds.Tables("TBCBS_USER_PROFILE"))) End If If (Not (ds.Tables("VWUSER_PROFILE")) Is Nothing) Then MyBase.Tables.Add(New VWUSER_PROFILEDataTable(ds.Tables("VWUSER_PROFILE"))) End If If (Not (ds.Tables("TBCBS_PROFILE_PROCESS")) Is Nothing) Then MyBase.Tables.Add(New TBCBS_PROFILE_PROCESSDataTable(ds.Tables("TBCBS_PROFILE_PROCESS"))) End If If (Not (ds.Tables("TBWH_User")) Is Nothing) Then MyBase.Tables.Add(New TBWH_UserDataTable(ds.Tables("TBWH_User"))) 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 TBCBS_PROFILES() As TBCBS_PROFILESDataTable Get Return Me.tableTBCBS_PROFILES End Get End Property _ Public ReadOnly Property TBCBS_USER_PROFILE() As TBCBS_USER_PROFILEDataTable Get Return Me.tableTBCBS_USER_PROFILE End Get End Property _ Public ReadOnly Property VWUSER_PROFILE() As VWUSER_PROFILEDataTable Get Return Me.tableVWUSER_PROFILE End Get End Property _ Public ReadOnly Property TBCBS_PROFILE_PROCESS() As TBCBS_PROFILE_PROCESSDataTable Get Return Me.tableTBCBS_PROFILE_PROCESS End Get End Property _ Public ReadOnly Property TBWH_User() As TBWH_UserDataTable Get Return Me.tableTBWH_User End Get End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode Get Return Me._schemaSerializationMode End Get Set(value As Global.System.Data.SchemaSerializationMode) 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 MyDataset = CType(MyBase.Clone, MyDataset) 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("TBCBS_PROFILES")) Is Nothing) Then MyBase.Tables.Add(New TBCBS_PROFILESDataTable(ds.Tables("TBCBS_PROFILES"))) End If If (Not (ds.Tables("TBCBS_USER_PROFILE")) Is Nothing) Then MyBase.Tables.Add(New TBCBS_USER_PROFILEDataTable(ds.Tables("TBCBS_USER_PROFILE"))) End If If (Not (ds.Tables("VWUSER_PROFILE")) Is Nothing) Then MyBase.Tables.Add(New VWUSER_PROFILEDataTable(ds.Tables("VWUSER_PROFILE"))) End If If (Not (ds.Tables("TBCBS_PROFILE_PROCESS")) Is Nothing) Then MyBase.Tables.Add(New TBCBS_PROFILE_PROCESSDataTable(ds.Tables("TBCBS_PROFILE_PROCESS"))) End If If (Not (ds.Tables("TBWH_User")) Is Nothing) Then MyBase.Tables.Add(New TBWH_UserDataTable(ds.Tables("TBWH_User"))) 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.tableTBCBS_PROFILES = CType(MyBase.Tables("TBCBS_PROFILES"), TBCBS_PROFILESDataTable) If (initTable = True) Then If (Not (Me.tableTBCBS_PROFILES) Is Nothing) Then Me.tableTBCBS_PROFILES.InitVars() End If End If Me.tableTBCBS_USER_PROFILE = CType(MyBase.Tables("TBCBS_USER_PROFILE"), TBCBS_USER_PROFILEDataTable) If (initTable = True) Then If (Not (Me.tableTBCBS_USER_PROFILE) Is Nothing) Then Me.tableTBCBS_USER_PROFILE.InitVars() End If End If Me.tableVWUSER_PROFILE = CType(MyBase.Tables("VWUSER_PROFILE"), VWUSER_PROFILEDataTable) If (initTable = True) Then If (Not (Me.tableVWUSER_PROFILE) Is Nothing) Then Me.tableVWUSER_PROFILE.InitVars() End If End If Me.tableTBCBS_PROFILE_PROCESS = CType(MyBase.Tables("TBCBS_PROFILE_PROCESS"), TBCBS_PROFILE_PROCESSDataTable) If (initTable = True) Then If (Not (Me.tableTBCBS_PROFILE_PROCESS) Is Nothing) Then Me.tableTBCBS_PROFILE_PROCESS.InitVars() End If End If Me.tableTBWH_User = CType(MyBase.Tables("TBWH_User"), TBWH_UserDataTable) If (initTable = True) Then If (Not (Me.tableTBWH_User) Is Nothing) Then Me.tableTBWH_User.InitVars() End If End If End Sub _ Private Sub InitClass() Me.DataSetName = "MyDataset" Me.Prefix = "" Me.Namespace = "http://tempuri.org/MyDataset.xsd" Me.EnforceConstraints = True Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.tableTBCBS_PROFILES = New TBCBS_PROFILESDataTable() MyBase.Tables.Add(Me.tableTBCBS_PROFILES) Me.tableTBCBS_USER_PROFILE = New TBCBS_USER_PROFILEDataTable() MyBase.Tables.Add(Me.tableTBCBS_USER_PROFILE) Me.tableVWUSER_PROFILE = New VWUSER_PROFILEDataTable() MyBase.Tables.Add(Me.tableVWUSER_PROFILE) Me.tableTBCBS_PROFILE_PROCESS = New TBCBS_PROFILE_PROCESSDataTable() MyBase.Tables.Add(Me.tableTBCBS_PROFILE_PROCESS) Me.tableTBWH_User = New TBWH_UserDataTable() MyBase.Tables.Add(Me.tableTBWH_User) End Sub _ Private Function ShouldSerializeTBCBS_PROFILES() As Boolean Return False End Function _ Private Function ShouldSerializeTBCBS_USER_PROFILE() As Boolean Return False End Function _ Private Function ShouldSerializeVWUSER_PROFILE() As Boolean Return False End Function _ Private Function ShouldSerializeTBCBS_PROFILE_PROCESS() As Boolean Return False End Function _ Private Function ShouldSerializeTBWH_User() 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 MyDataset = New MyDataset() 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 TBCBS_PROFILESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCBS_PROFILESRowChangeEvent) _ Public Delegate Sub TBCBS_USER_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBCBS_USER_PROFILERowChangeEvent) _ Public Delegate Sub VWUSER_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As VWUSER_PROFILERowChangeEvent) _ Public Delegate Sub TBCBS_PROFILE_PROCESSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCBS_PROFILE_PROCESSRowChangeEvent) _ Public Delegate Sub TBWH_UserRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_UserRowChangeEvent) ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBCBS_PROFILESDataTable Inherits Global.System.Data.TypedTableBase(Of TBCBS_PROFILESRow) Private columnGUID As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnWD_SEARCH As Global.System.Data.DataColumn Private columnREGEX_EXPRESSION 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 = "TBCBS_PROFILES" 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 NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn Get Return Me.columnWD_SEARCH End Get End Property _ Public ReadOnly Property REGEX_EXPRESSIONColumn() As Global.System.Data.DataColumn Get Return Me.columnREGEX_EXPRESSION 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 _ Default Public ReadOnly Property Item(ByVal index As Integer) As TBCBS_PROFILESRow Get Return CType(Me.Rows(index), TBCBS_PROFILESRow) End Get End Property _ Public Event TBCBS_PROFILESRowChanging As TBCBS_PROFILESRowChangeEventHandler _ Public Event TBCBS_PROFILESRowChanged As TBCBS_PROFILESRowChangeEventHandler _ Public Event TBCBS_PROFILESRowDeleting As TBCBS_PROFILESRowChangeEventHandler _ Public Event TBCBS_PROFILESRowDeleted As TBCBS_PROFILESRowChangeEventHandler _ Public Overloads Sub AddTBCBS_PROFILESRow(ByVal row As TBCBS_PROFILESRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBCBS_PROFILESRow(ByVal NAME As String, ByVal COMMENT As String, ByVal WD_SEARCH As String, ByVal REGEX_EXPRESSION As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBCBS_PROFILESRow Dim rowTBCBS_PROFILESRow As TBCBS_PROFILESRow = CType(Me.NewRow, TBCBS_PROFILESRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowTBCBS_PROFILESRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBCBS_PROFILESRow) Return rowTBCBS_PROFILESRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBCBS_PROFILESRow Return CType(Me.Rows.Find(New Object() {GUID}), TBCBS_PROFILESRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBCBS_PROFILESDataTable = CType(MyBase.Clone, TBCBS_PROFILESDataTable) cln.InitVars() Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBCBS_PROFILESDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnWD_SEARCH = MyBase.Columns("WD_SEARCH") Me.columnREGEX_EXPRESSION = MyBase.Columns("REGEX_EXPRESSION") 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.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnWD_SEARCH = New Global.System.Data.DataColumn("WD_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWD_SEARCH) Me.columnREGEX_EXPRESSION = New Global.System.Data.DataColumn("REGEX_EXPRESSION", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnREGEX_EXPRESSION) 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.columnNAME.AllowDBNull = False Me.columnNAME.MaxLength = 100 Me.columnCOMMENT.MaxLength = 500 Me.columnWD_SEARCH.AllowDBNull = False Me.columnWD_SEARCH.MaxLength = 250 Me.columnREGEX_EXPRESSION.AllowDBNull = False Me.columnREGEX_EXPRESSION.DefaultValue = CType("", String) Me.columnREGEX_EXPRESSION.MaxLength = 100 Me.columnADDED_WHO.AllowDBNull = False Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewTBCBS_PROFILESRow() As TBCBS_PROFILESRow Return CType(Me.NewRow, TBCBS_PROFILESRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBCBS_PROFILESRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBCBS_PROFILESRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBCBS_PROFILESRowChangedEvent) Is Nothing) Then RaiseEvent TBCBS_PROFILESRowChanged(Me, New TBCBS_PROFILESRowChangeEvent(CType(e.Row, TBCBS_PROFILESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBCBS_PROFILESRowChangingEvent) Is Nothing) Then RaiseEvent TBCBS_PROFILESRowChanging(Me, New TBCBS_PROFILESRowChangeEvent(CType(e.Row, TBCBS_PROFILESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBCBS_PROFILESRowDeletedEvent) Is Nothing) Then RaiseEvent TBCBS_PROFILESRowDeleted(Me, New TBCBS_PROFILESRowChangeEvent(CType(e.Row, TBCBS_PROFILESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBCBS_PROFILESRowDeletingEvent) Is Nothing) Then RaiseEvent TBCBS_PROFILESRowDeleting(Me, New TBCBS_PROFILESRowChangeEvent(CType(e.Row, TBCBS_PROFILESRow), e.Action)) End If End Sub _ Public Sub RemoveTBCBS_PROFILESRow(ByVal row As TBCBS_PROFILESRow) 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 MyDataset = New MyDataset() 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 = "TBCBS_PROFILESDataTable" 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 TBCBS_USER_PROFILEDataTable Inherits Global.System.Data.TypedTableBase(Of TBCBS_USER_PROFILERow) Private columnGUID As Global.System.Data.DataColumn Private columnPROFILE_ID As Global.System.Data.DataColumn Private columnUSER_ID As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New() Me.TableName = "TBCBS_USER_PROFILE" 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 PROFILE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_ID End Get End Property _ Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_ID 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 Count() As Integer Get Return Me.Rows.Count End Get End Property _ Default Public ReadOnly Property Item(ByVal index As Integer) As TBCBS_USER_PROFILERow Get Return CType(Me.Rows(index), TBCBS_USER_PROFILERow) End Get End Property _ Public Event TBCBS_USER_PROFILERowChanging As TBCBS_USER_PROFILERowChangeEventHandler _ Public Event TBCBS_USER_PROFILERowChanged As TBCBS_USER_PROFILERowChangeEventHandler _ Public Event TBCBS_USER_PROFILERowDeleting As TBCBS_USER_PROFILERowChangeEventHandler _ Public Event TBCBS_USER_PROFILERowDeleted As TBCBS_USER_PROFILERowChangeEventHandler _ Public Overloads Sub AddTBCBS_USER_PROFILERow(ByVal row As TBCBS_USER_PROFILERow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBCBS_USER_PROFILERow(ByVal PROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBCBS_USER_PROFILERow Dim rowTBCBS_USER_PROFILERow As TBCBS_USER_PROFILERow = CType(Me.NewRow, TBCBS_USER_PROFILERow) Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_ID, USER_ID, ADDED_WHO, ADDED_WHEN} rowTBCBS_USER_PROFILERow.ItemArray = columnValuesArray Me.Rows.Add(rowTBCBS_USER_PROFILERow) Return rowTBCBS_USER_PROFILERow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBCBS_USER_PROFILERow Return CType(Me.Rows.Find(New Object() {GUID}), TBCBS_USER_PROFILERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBCBS_USER_PROFILEDataTable = CType(MyBase.Clone, TBCBS_USER_PROFILEDataTable) cln.InitVars() Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBCBS_USER_PROFILEDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") Me.columnUSER_ID = MyBase.Columns("USER_ID") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_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.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROFILE_ID) Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSER_ID) 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.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.columnPROFILE_ID.AllowDBNull = False Me.columnUSER_ID.AllowDBNull = False Me.columnADDED_WHO.AllowDBNull = False Me.columnADDED_WHO.MaxLength = 50 End Sub _ Public Function NewTBCBS_USER_PROFILERow() As TBCBS_USER_PROFILERow Return CType(Me.NewRow, TBCBS_USER_PROFILERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBCBS_USER_PROFILERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBCBS_USER_PROFILERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBCBS_USER_PROFILERowChangedEvent) Is Nothing) Then RaiseEvent TBCBS_USER_PROFILERowChanged(Me, New TBCBS_USER_PROFILERowChangeEvent(CType(e.Row, TBCBS_USER_PROFILERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBCBS_USER_PROFILERowChangingEvent) Is Nothing) Then RaiseEvent TBCBS_USER_PROFILERowChanging(Me, New TBCBS_USER_PROFILERowChangeEvent(CType(e.Row, TBCBS_USER_PROFILERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBCBS_USER_PROFILERowDeletedEvent) Is Nothing) Then RaiseEvent TBCBS_USER_PROFILERowDeleted(Me, New TBCBS_USER_PROFILERowChangeEvent(CType(e.Row, TBCBS_USER_PROFILERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBCBS_USER_PROFILERowDeletingEvent) Is Nothing) Then RaiseEvent TBCBS_USER_PROFILERowDeleting(Me, New TBCBS_USER_PROFILERowChangeEvent(CType(e.Row, TBCBS_USER_PROFILERow), e.Action)) End If End Sub _ Public Sub RemoveTBCBS_USER_PROFILERow(ByVal row As TBCBS_USER_PROFILERow) 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 MyDataset = New MyDataset() 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 = "TBCBS_USER_PROFILEDataTable" 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 VWUSER_PROFILEDataTable Inherits Global.System.Data.TypedTableBase(Of VWUSER_PROFILERow) Private columnGUID As Global.System.Data.DataColumn Private columnPROFILE_ID As Global.System.Data.DataColumn Private columnUSERNAME As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn Private columnPRENAME As Global.System.Data.DataColumn _ Public Sub New() MyBase.New() Me.TableName = "VWUSER_PROFILE" 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 PROFILE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_ID End Get End Property _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME End Get End Property _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property _ Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPRENAME End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Default Public ReadOnly Property Item(ByVal index As Integer) As VWUSER_PROFILERow Get Return CType(Me.Rows(index), VWUSER_PROFILERow) End Get End Property _ Public Event VWUSER_PROFILERowChanging As VWUSER_PROFILERowChangeEventHandler _ Public Event VWUSER_PROFILERowChanged As VWUSER_PROFILERowChangeEventHandler _ Public Event VWUSER_PROFILERowDeleting As VWUSER_PROFILERowChangeEventHandler _ Public Event VWUSER_PROFILERowDeleted As VWUSER_PROFILERowChangeEventHandler _ Public Overloads Sub AddVWUSER_PROFILERow(ByVal row As VWUSER_PROFILERow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddVWUSER_PROFILERow(ByVal PROFILE_ID As Integer, ByVal USERNAME As String, ByVal NAME As String, ByVal PRENAME As String) As VWUSER_PROFILERow Dim rowVWUSER_PROFILERow As VWUSER_PROFILERow = CType(Me.NewRow, VWUSER_PROFILERow) Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_ID, USERNAME, NAME, PRENAME} rowVWUSER_PROFILERow.ItemArray = columnValuesArray Me.Rows.Add(rowVWUSER_PROFILERow) Return rowVWUSER_PROFILERow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As VWUSER_PROFILERow Return CType(Me.Rows.Find(New Object() {GUID}), VWUSER_PROFILERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWUSER_PROFILEDataTable = CType(MyBase.Clone, VWUSER_PROFILEDataTable) cln.InitVars() Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWUSER_PROFILEDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") Me.columnUSERNAME = MyBase.Columns("USERNAME") Me.columnNAME = MyBase.Columns("NAME") Me.columnPRENAME = MyBase.Columns("PRENAME") 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.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROFILE_ID) Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSERNAME) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) Me.columnPRENAME = New Global.System.Data.DataColumn("PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPRENAME) 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.columnPROFILE_ID.AllowDBNull = False Me.columnUSERNAME.AllowDBNull = False Me.columnUSERNAME.MaxLength = 50 Me.columnNAME.MaxLength = 50 Me.columnPRENAME.MaxLength = 50 End Sub _ Public Function NewVWUSER_PROFILERow() As VWUSER_PROFILERow Return CType(Me.NewRow, VWUSER_PROFILERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWUSER_PROFILERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWUSER_PROFILERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWUSER_PROFILERowChangedEvent) Is Nothing) Then RaiseEvent VWUSER_PROFILERowChanged(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row, VWUSER_PROFILERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWUSER_PROFILERowChangingEvent) Is Nothing) Then RaiseEvent VWUSER_PROFILERowChanging(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row, VWUSER_PROFILERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWUSER_PROFILERowDeletedEvent) Is Nothing) Then RaiseEvent VWUSER_PROFILERowDeleted(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row, VWUSER_PROFILERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWUSER_PROFILERowDeletingEvent) Is Nothing) Then RaiseEvent VWUSER_PROFILERowDeleting(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row, VWUSER_PROFILERow), e.Action)) End If End Sub _ Public Sub RemoveVWUSER_PROFILERow(ByVal row As VWUSER_PROFILERow) 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 MyDataset = New MyDataset() 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 = "VWUSER_PROFILEDataTable" 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 TBCBS_PROFILE_PROCESSDataTable Inherits Global.System.Data.TypedTableBase(Of TBCBS_PROFILE_PROCESSRow) Private columnGUID As Global.System.Data.DataColumn Private columnPROFILE_ID As Global.System.Data.DataColumn Private columnPROC_NAME As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New() Me.TableName = "TBCBS_PROFILE_PROCESS" 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 PROFILE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_ID End Get End Property _ Public ReadOnly Property PROC_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPROC_NAME 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 Count() As Integer Get Return Me.Rows.Count End Get End Property _ Default Public ReadOnly Property Item(ByVal index As Integer) As TBCBS_PROFILE_PROCESSRow Get Return CType(Me.Rows(index), TBCBS_PROFILE_PROCESSRow) End Get End Property _ Public Event TBCBS_PROFILE_PROCESSRowChanging As TBCBS_PROFILE_PROCESSRowChangeEventHandler _ Public Event TBCBS_PROFILE_PROCESSRowChanged As TBCBS_PROFILE_PROCESSRowChangeEventHandler _ Public Event TBCBS_PROFILE_PROCESSRowDeleting As TBCBS_PROFILE_PROCESSRowChangeEventHandler _ Public Event TBCBS_PROFILE_PROCESSRowDeleted As TBCBS_PROFILE_PROCESSRowChangeEventHandler _ Public Overloads Sub AddTBCBS_PROFILE_PROCESSRow(ByVal row As TBCBS_PROFILE_PROCESSRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBCBS_PROFILE_PROCESSRow(ByVal PROFILE_ID As Integer, ByVal PROC_NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBCBS_PROFILE_PROCESSRow Dim rowTBCBS_PROFILE_PROCESSRow As TBCBS_PROFILE_PROCESSRow = CType(Me.NewRow, TBCBS_PROFILE_PROCESSRow) Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_ID, PROC_NAME, ADDED_WHO, ADDED_WHEN} rowTBCBS_PROFILE_PROCESSRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBCBS_PROFILE_PROCESSRow) Return rowTBCBS_PROFILE_PROCESSRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBCBS_PROFILE_PROCESSRow Return CType(Me.Rows.Find(New Object() {GUID}), TBCBS_PROFILE_PROCESSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBCBS_PROFILE_PROCESSDataTable = CType(MyBase.Clone, TBCBS_PROFILE_PROCESSDataTable) cln.InitVars() Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBCBS_PROFILE_PROCESSDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") Me.columnPROC_NAME = MyBase.Columns("PROC_NAME") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_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.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROFILE_ID) Me.columnPROC_NAME = New Global.System.Data.DataColumn("PROC_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROC_NAME) 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.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.columnPROFILE_ID.AllowDBNull = False Me.columnPROC_NAME.AllowDBNull = False Me.columnPROC_NAME.MaxLength = 100 Me.columnADDED_WHO.AllowDBNull = False Me.columnADDED_WHO.MaxLength = 50 End Sub _ Public Function NewTBCBS_PROFILE_PROCESSRow() As TBCBS_PROFILE_PROCESSRow Return CType(Me.NewRow, TBCBS_PROFILE_PROCESSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBCBS_PROFILE_PROCESSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBCBS_PROFILE_PROCESSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBCBS_PROFILE_PROCESSRowChangedEvent) Is Nothing) Then RaiseEvent TBCBS_PROFILE_PROCESSRowChanged(Me, New TBCBS_PROFILE_PROCESSRowChangeEvent(CType(e.Row, TBCBS_PROFILE_PROCESSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBCBS_PROFILE_PROCESSRowChangingEvent) Is Nothing) Then RaiseEvent TBCBS_PROFILE_PROCESSRowChanging(Me, New TBCBS_PROFILE_PROCESSRowChangeEvent(CType(e.Row, TBCBS_PROFILE_PROCESSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBCBS_PROFILE_PROCESSRowDeletedEvent) Is Nothing) Then RaiseEvent TBCBS_PROFILE_PROCESSRowDeleted(Me, New TBCBS_PROFILE_PROCESSRowChangeEvent(CType(e.Row, TBCBS_PROFILE_PROCESSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBCBS_PROFILE_PROCESSRowDeletingEvent) Is Nothing) Then RaiseEvent TBCBS_PROFILE_PROCESSRowDeleting(Me, New TBCBS_PROFILE_PROCESSRowChangeEvent(CType(e.Row, TBCBS_PROFILE_PROCESSRow), e.Action)) End If End Sub _ Public Sub RemoveTBCBS_PROFILE_PROCESSRow(ByVal row As TBCBS_PROFILE_PROCESSRow) 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 MyDataset = New MyDataset() 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 = "TBCBS_PROFILE_PROCESSDataTable" 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_UserDataTable Inherits Global.System.Data.TypedTableBase(Of TBWH_UserRow) Private columnSelect As Global.System.Data.DataColumn Private columnUsername As Global.System.Data.DataColumn Private columnPrename As Global.System.Data.DataColumn Private columnSurname As Global.System.Data.DataColumn Private columnEmail As Global.System.Data.DataColumn Private columnID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New() Me.TableName = "TBWH_User" 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 SelectColumn() As Global.System.Data.DataColumn Get Return Me.columnSelect End Get End Property _ Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn Get Return Me.columnUsername End Get End Property _ Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn Get Return Me.columnPrename End Get End Property _ Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn Get Return Me.columnSurname End Get End Property _ Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn Get Return Me.columnEmail End Get End Property _ Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Default Public ReadOnly Property Item(ByVal index As Integer) As TBWH_UserRow Get Return CType(Me.Rows(index), TBWH_UserRow) End Get End Property _ Public Event TBWH_UserRowChanging As TBWH_UserRowChangeEventHandler _ Public Event TBWH_UserRowChanged As TBWH_UserRowChangeEventHandler _ Public Event TBWH_UserRowDeleting As TBWH_UserRowChangeEventHandler _ Public Event TBWH_UserRowDeleted As TBWH_UserRowChangeEventHandler _ Public Overloads Sub AddTBWH_UserRow(ByVal row As TBWH_UserRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBWH_UserRow(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBWH_UserRow Dim rowTBWH_UserRow As TBWH_UserRow = CType(Me.NewRow, TBWH_UserRow) Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} rowTBWH_UserRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBWH_UserRow) Return rowTBWH_UserRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_UserDataTable = CType(MyBase.Clone, TBWH_UserDataTable) cln.InitVars() Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_UserDataTable() End Function _ Friend Sub InitVars() Me.columnSelect = MyBase.Columns("Select") Me.columnUsername = MyBase.Columns("Username") Me.columnPrename = MyBase.Columns("Prename") Me.columnSurname = MyBase.Columns("Surname") Me.columnEmail = MyBase.Columns("Email") Me.columnID = MyBase.Columns("ID") End Sub _ Private Sub InitClass() Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") Me.columnSelect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelect") Me.columnSelect.ExtendedProperties.Add("Generator_UserColumnName", "Select") MyBase.Columns.Add(Me.columnSelect) Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUsername) Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPrename) Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSurname) Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmail) Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) Me.columnSelect.DefaultValue = CType(False, Boolean) End Sub _ Public Function NewTBWH_UserRow() As TBWH_UserRow Return CType(Me.NewRow, TBWH_UserRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_UserRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_UserRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_UserRowChangedEvent) Is Nothing) Then RaiseEvent TBWH_UserRowChanged(Me, New TBWH_UserRowChangeEvent(CType(e.Row, TBWH_UserRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_UserRowChangingEvent) Is Nothing) Then RaiseEvent TBWH_UserRowChanging(Me, New TBWH_UserRowChangeEvent(CType(e.Row, TBWH_UserRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_UserRowDeletedEvent) Is Nothing) Then RaiseEvent TBWH_UserRowDeleted(Me, New TBWH_UserRowChangeEvent(CType(e.Row, TBWH_UserRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_UserRowDeletingEvent) Is Nothing) Then RaiseEvent TBWH_UserRowDeleting(Me, New TBWH_UserRowChangeEvent(CType(e.Row, TBWH_UserRow), e.Action)) End If End Sub _ Public Sub RemoveTBWH_UserRow(ByVal row As TBWH_UserRow) 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 MyDataset = New MyDataset() 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_UserDataTable" 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 TBCBS_PROFILESRow Inherits Global.System.Data.DataRow Private tableTBCBS_PROFILES As TBCBS_PROFILESDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBCBS_PROFILES = CType(Me.Table, TBCBS_PROFILESDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBCBS_PROFILES.GUIDColumn), Integer) End Get Set(value As Integer) Me(Me.tableTBCBS_PROFILES.GUIDColumn) = value End Set End Property _ Public Property NAME() As String Get Return CType(Me(Me.tableTBCBS_PROFILES.NAMEColumn), String) End Get Set(value As String) Me(Me.tableTBCBS_PROFILES.NAMEColumn) = value End Set End Property _ Public Property COMMENT() As String Get Try Return CType(Me(Me.tableTBCBS_PROFILES.COMMENTColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBCBS_PROFILES ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBCBS_PROFILES.COMMENTColumn) = value End Set End Property _ Public Property WD_SEARCH() As String Get Return CType(Me(Me.tableTBCBS_PROFILES.WD_SEARCHColumn), String) End Get Set(value As String) Me(Me.tableTBCBS_PROFILES.WD_SEARCHColumn) = value End Set End Property _ Public Property REGEX_EXPRESSION() As String Get Return CType(Me(Me.tableTBCBS_PROFILES.REGEX_EXPRESSIONColumn), String) End Get Set(value As String) Me(Me.tableTBCBS_PROFILES.REGEX_EXPRESSIONColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBCBS_PROFILES.ADDED_WHOColumn), String) End Get Set(value As String) Me(Me.tableTBCBS_PROFILES.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBCBS_PROFILES.ADDED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCBS_PROFILES ist DBNull.", e) End Try End Get Set(value As Date) Me(Me.tableTBCBS_PROFILES.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBCBS_PROFILES.CHANGED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCBS_PROFILES ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBCBS_PROFILES.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBCBS_PROFILES.CHANGED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCBS_PROFILES ist DBNull.", e) End Try End Get Set(value As Date) Me(Me.tableTBCBS_PROFILES.CHANGED_WHENColumn) = value End Set End Property _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBCBS_PROFILES.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableTBCBS_PROFILES.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCBS_PROFILES.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBCBS_PROFILES.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBCBS_PROFILES.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBCBS_PROFILES.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCBS_PROFILES.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBCBS_PROFILES.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBCBS_USER_PROFILERow Inherits Global.System.Data.DataRow Private tableTBCBS_USER_PROFILE As TBCBS_USER_PROFILEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBCBS_USER_PROFILE = CType(Me.Table, TBCBS_USER_PROFILEDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBCBS_USER_PROFILE.GUIDColumn), Integer) End Get Set(value As Integer) Me(Me.tableTBCBS_USER_PROFILE.GUIDColumn) = value End Set End Property _ Public Property PROFILE_ID() As Integer Get Return CType(Me(Me.tableTBCBS_USER_PROFILE.PROFILE_IDColumn), Integer) End Get Set(value As Integer) Me(Me.tableTBCBS_USER_PROFILE.PROFILE_IDColumn) = value End Set End Property _ Public Property USER_ID() As Integer Get Return CType(Me(Me.tableTBCBS_USER_PROFILE.USER_IDColumn), Integer) End Get Set(value As Integer) Me(Me.tableTBCBS_USER_PROFILE.USER_IDColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBCBS_USER_PROFILE.ADDED_WHOColumn), String) End Get Set(value As String) Me(Me.tableTBCBS_USER_PROFILE.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBCBS_USER_PROFILE.ADDED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCBS_USER_PROFILE ist DBNull.", e) End Try End Get Set(value As Date) Me(Me.tableTBCBS_USER_PROFILE.ADDED_WHENColumn) = value End Set End Property _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCBS_USER_PROFILE.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBCBS_USER_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWUSER_PROFILERow Inherits Global.System.Data.DataRow Private tableVWUSER_PROFILE As VWUSER_PROFILEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWUSER_PROFILE = CType(Me.Table, VWUSER_PROFILEDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableVWUSER_PROFILE.GUIDColumn), Integer) End Get Set(value As Integer) Me(Me.tableVWUSER_PROFILE.GUIDColumn) = value End Set End Property _ Public Property PROFILE_ID() As Integer Get Return CType(Me(Me.tableVWUSER_PROFILE.PROFILE_IDColumn), Integer) End Get Set(value As Integer) Me(Me.tableVWUSER_PROFILE.PROFILE_IDColumn) = value End Set End Property _ Public Property USERNAME() As String Get Return CType(Me(Me.tableVWUSER_PROFILE.USERNAMEColumn), String) End Get Set(value As String) Me(Me.tableVWUSER_PROFILE.USERNAMEColumn) = value End Set End Property _ Public Property NAME() As String Get Try Return CType(Me(Me.tableVWUSER_PROFILE.NAMEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle VWUSER_PROFILE ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableVWUSER_PROFILE.NAMEColumn) = value End Set End Property _ Public Property PRENAME() As String Get Try Return CType(Me(Me.tableVWUSER_PROFILE.PRENAMEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle VWUSER_PROFILE ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableVWUSER_PROFILE.PRENAMEColumn) = value End Set End Property _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableVWUSER_PROFILE.NAMEColumn) End Function _ Public Sub SetNAMENull() Me(Me.tableVWUSER_PROFILE.NAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPRENAMENull() As Boolean Return Me.IsNull(Me.tableVWUSER_PROFILE.PRENAMEColumn) End Function _ Public Sub SetPRENAMENull() Me(Me.tableVWUSER_PROFILE.PRENAMEColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBCBS_PROFILE_PROCESSRow Inherits Global.System.Data.DataRow Private tableTBCBS_PROFILE_PROCESS As TBCBS_PROFILE_PROCESSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBCBS_PROFILE_PROCESS = CType(Me.Table, TBCBS_PROFILE_PROCESSDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBCBS_PROFILE_PROCESS.GUIDColumn), Integer) End Get Set(value As Integer) Me(Me.tableTBCBS_PROFILE_PROCESS.GUIDColumn) = value End Set End Property _ Public Property PROFILE_ID() As Integer Get Return CType(Me(Me.tableTBCBS_PROFILE_PROCESS.PROFILE_IDColumn), Integer) End Get Set(value As Integer) Me(Me.tableTBCBS_PROFILE_PROCESS.PROFILE_IDColumn) = value End Set End Property _ Public Property PROC_NAME() As String Get Return CType(Me(Me.tableTBCBS_PROFILE_PROCESS.PROC_NAMEColumn), String) End Get Set(value As String) Me(Me.tableTBCBS_PROFILE_PROCESS.PROC_NAMEColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBCBS_PROFILE_PROCESS.ADDED_WHOColumn), String) End Get Set(value As String) Me(Me.tableTBCBS_PROFILE_PROCESS.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBCBS_PROFILE_PROCESS.ADDED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCBS_PROFILE_PROCESS ist DBNull.", e) End Try End Get Set(value As Date) Me(Me.tableTBCBS_PROFILE_PROCESS.ADDED_WHENColumn) = value End Set End Property _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCBS_PROFILE_PROCESS.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBCBS_PROFILE_PROCESS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBWH_UserRow Inherits Global.System.Data.DataRow Private tableTBWH_User As TBWH_UserDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_User = CType(Me.Table, TBWH_UserDataTable) End Sub _ Public Property _Select() As Boolean Get Try Return CType(Me(Me.tableTBWH_User.SelectColumn), Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Select in Tabelle TBWH_User ist DBNull.", e) End Try End Get Set(value As Boolean) Me(Me.tableTBWH_User.SelectColumn) = value End Set End Property _ Public Property Username() As String Get Try Return CType(Me(Me.tableTBWH_User.UsernameColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle TBWH_User ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBWH_User.UsernameColumn) = value End Set End Property _ Public Property Prename() As String Get Try Return CType(Me(Me.tableTBWH_User.PrenameColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prename in Tabelle TBWH_User ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBWH_User.PrenameColumn) = value End Set End Property _ Public Property Surname() As String Get Try Return CType(Me(Me.tableTBWH_User.SurnameColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Surname in Tabelle TBWH_User ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBWH_User.SurnameColumn) = value End Set End Property _ Public Property Email() As String Get Try Return CType(Me(Me.tableTBWH_User.EmailColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle TBWH_User ist DBNull.", e) End Try End Get Set(value As String) Me(Me.tableTBWH_User.EmailColumn) = value End Set End Property _ Public Property ID() As Short Get Try Return CType(Me(Me.tableTBWH_User.IDColumn), Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBWH_User ist DBNull.", e) End Try End Get Set(value As Short) Me(Me.tableTBWH_User.IDColumn) = value End Set End Property _ Public Function Is_SelectNull() As Boolean Return Me.IsNull(Me.tableTBWH_User.SelectColumn) End Function _ Public Sub Set_SelectNull() Me(Me.tableTBWH_User.SelectColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUsernameNull() As Boolean Return Me.IsNull(Me.tableTBWH_User.UsernameColumn) End Function _ Public Sub SetUsernameNull() Me(Me.tableTBWH_User.UsernameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPrenameNull() As Boolean Return Me.IsNull(Me.tableTBWH_User.PrenameColumn) End Function _ Public Sub SetPrenameNull() Me(Me.tableTBWH_User.PrenameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSurnameNull() As Boolean Return Me.IsNull(Me.tableTBWH_User.SurnameColumn) End Function _ Public Sub SetSurnameNull() Me(Me.tableTBWH_User.SurnameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmailNull() As Boolean Return Me.IsNull(Me.tableTBWH_User.EmailColumn) End Function _ Public Sub SetEmailNull() Me(Me.tableTBWH_User.EmailColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIDNull() As Boolean Return Me.IsNull(Me.tableTBWH_User.IDColumn) End Function _ Public Sub SetIDNull() Me(Me.tableTBWH_User.IDColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Row event argument class ''' _ Public Class TBCBS_PROFILESRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBCBS_PROFILESRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBCBS_PROFILESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New() Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBCBS_PROFILESRow 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 TBCBS_USER_PROFILERowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBCBS_USER_PROFILERow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBCBS_USER_PROFILERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New() Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBCBS_USER_PROFILERow 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 VWUSER_PROFILERowChangeEvent Inherits Global.System.EventArgs Private eventRow As VWUSER_PROFILERow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As VWUSER_PROFILERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New() Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As VWUSER_PROFILERow 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 TBCBS_PROFILE_PROCESSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBCBS_PROFILE_PROCESSRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBCBS_PROFILE_PROCESSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New() Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBCBS_PROFILE_PROCESSRow 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_UserRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBWH_UserRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBWH_UserRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New() Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBWH_UserRow 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 MyDatasetTableAdapters ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBCBS_PROFILESTableAdapter 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(value As Global.System.Data.SqlClient.SqlConnection) 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(value As Global.System.Data.SqlClient.SqlTransaction) 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(value As Boolean) 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 = "TBCBS_PROFILES" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("NAME", "NAME") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("WD_SEARCH", "WD_SEARCH") tableMapping.ColumnMappings.Add("REGEX_EXPRESSION", "REGEX_EXPRESSION") 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 TBCBS_PROFILES" & 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 TBCBS_PROFILES" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (NAME, COMMENT, WD_SEARCH, R" & _ "EGEX_EXPRESSION, ADDED_WHO)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@NAME,@COMMENT,@WD_SEARCH,@REGEX_EXP" & _ "RESSION,@ADDED_WHO); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, " & _ "ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCBS_PROFILES 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", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", 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("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", 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, 50, 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 TBCBS_PROFILES" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET NAME = @NAME, COMMENT = @COMMENT," & _ " WD_SEARCH = @WD_SEARCH, REGEX_EXPRESSION = @REGEX_EXPRESSION, CHANGED_WHO = @CH" & _ "ANGED_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, NAME, COMMENT, W" & _ "D_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FRO" & _ "M TBCBS_PROFILES WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", 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("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", 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, 50, 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.DD_Clipboard_Searcher.My.MySettings.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 TBCBS_PROFILES.*" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBCBS_PROFILES" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBCBS_PROFILESDataTable) 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 Overridable Overloads Function GetData() As MyDataset.TBCBS_PROFILESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As MyDataset.TBCBS_PROFILESDataTable = New MyDataset.TBCBS_PROFILESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBCBS_PROFILESDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBCBS_PROFILES") End Function _ Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overridable Overloads 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 Overridable Overloads Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal WD_SEARCH As String, ByVal REGEX_EXPRESSION As String, ByVal ADDED_WHO As String) As Integer If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME, 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 If (WD_SEARCH Is Nothing) Then Throw New Global.System.ArgumentNullException("WD_SEARCH") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_SEARCH, String) End If If (REGEX_EXPRESSION Is Nothing) Then Throw New Global.System.ArgumentNullException("REGEX_EXPRESSION") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(REGEX_EXPRESSION, 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 Overridable Overloads Function Update(ByVal NAME As String, ByVal COMMENT As String, ByVal WD_SEARCH As String, ByVal REGEX_EXPRESSION As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME, 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 If (WD_SEARCH Is Nothing) Then Throw New Global.System.ArgumentNullException("WD_SEARCH") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_SEARCH, String) End If If (REGEX_EXPRESSION Is Nothing) Then Throw New Global.System.ArgumentNullException("REGEX_EXPRESSION") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(REGEX_EXPRESSION, 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 TBCBS_USER_PROFILETableAdapter 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(value As Global.System.Data.SqlClient.SqlConnection) 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(value As Global.System.Data.SqlClient.SqlTransaction) 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(value As Boolean) 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 = "TBCBS_USER_PROFILE" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_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 TBCBS_USER_PROFILE" & 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 TBCBS_USER_PROFILE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (PROFILE_ID, USER_ID, AD" & _ "DED_WHO)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@PROFILE_ID,@USER_ID,@ADDED_WHO); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, PROFIL" & _ "E_ID, USER_ID, ADDED_WHO, ADDED_WHEN FROM TBCBS_USER_PROFILE WHERE (GUID = SCOPE" & _ "_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", 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, 50, 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 TBCBS_USER_PROFILE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET PROFILE_ID = @PROFILE_ID, USE" & _ "R_ID = @USER_ID" & 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, PROFILE_ID" & _ ", USER_ID, ADDED_WHO, ADDED_WHEN FROM TBCBS_USER_PROFILE WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", 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.DD_Clipboard_Searcher.My.MySettings.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 TBCBS_USER_PROFILE.*" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBCBS_USER_PROFILE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBCBS_USER_PROFILEDataTable) 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 Overridable Overloads Function GetData() As MyDataset.TBCBS_USER_PROFILEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As MyDataset.TBCBS_USER_PROFILEDataTable = New MyDataset.TBCBS_USER_PROFILEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBCBS_USER_PROFILEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBCBS_USER_PROFILE") End Function _ Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overridable Overloads 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 Overridable Overloads Function Insert(ByVal PROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal ADDED_WHO As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_ID, Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(USER_ID, Integer) 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 Overridable Overloads Function Update(ByVal PROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFILE_ID, Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(USER_ID, Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID, Integer) Me.Adapter.UpdateCommand.Parameters(3).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 VWUSER_PROFILETableAdapter 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(value As Global.System.Data.SqlClient.SqlConnection) 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(value As Global.System.Data.SqlClient.SqlTransaction) 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(value As Boolean) 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 = "VWUSER_PROFILE" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") tableMapping.ColumnMappings.Add("NAME", "NAME") tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Clipboard_Searcher.My.MySettings.Default.DD_ECMConnectionString 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 T.GUID, T.PROFILE_ID, T1.USERNAME, T1.NAME, T1.PRENAME" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM " & _ " TBCBS_USER_PROFILE AS T INNER JOIN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " TBDD_USER AS T" & _ "1 ON T.USER_ID = T1.GUID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (T.PROFILE_ID = @PROFILE_ID) ORDER BY T1." & _ "USERNAME" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", 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 = "DELETE FROM TBCBS_USER_RPOFILE WHERE GUID = @GUID" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.[Variant], 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) End Sub _ Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.VWUSER_PROFILEDataTable, ByVal PROFILE_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID, Integer) If (Me.ClearBeforeFill = True) Then dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overridable Overloads Function GetData(ByVal PROFILE_ID As Integer) As MyDataset.VWUSER_PROFILEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID, Integer) Dim dataTable As MyDataset.VWUSER_PROFILEDataTable = New MyDataset.VWUSER_PROFILEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overridable Overloads Function cmdDelete(ByVal GUID As Object) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) If (GUID Is Nothing) Then Throw New Global.System.ArgumentNullException("GUID") Else command.Parameters(0).Value = CType(GUID, Object) End If Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then command.Connection.Open() End If Dim returnValue As Integer Try returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then command.Connection.Close() End If End Try Return returnValue End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBCBS_PROFILE_PROCESSTableAdapter 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(value As Global.System.Data.SqlClient.SqlConnection) 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(value As Global.System.Data.SqlClient.SqlTransaction) 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(value As Boolean) 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 = "TBCBS_PROFILE_PROCESS" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") tableMapping.ColumnMappings.Add("PROC_NAME", "PROC_NAME") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_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 TBCBS_PROFILE_PROCESS" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.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, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBCBS_PROFILE_PROCESS" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (PROFILE_ID, PROC_NAM" & _ "E, ADDED_WHO)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@PROFILE,@PROC_NAME,@ADDED_WHO)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROC_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROC_NAME", 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, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Clipboard_Searcher.My.MySettings.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 GUID, PROFILE_ID, PROC_NAME, ADDED_WHO, ADDED_WHEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM " & _ " TBCBS_PROFILE_PROCESS" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (PROFILE_ID = @PID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub _ Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBCBS_PROFILE_PROCESSDataTable, ByVal PID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(PID, Integer) If (Me.ClearBeforeFill = True) Then dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overridable Overloads Function GetData(ByVal PID As Integer) As MyDataset.TBCBS_PROFILE_PROCESSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(PID, Integer) Dim dataTable As MyDataset.TBCBS_PROFILE_PROCESSDataTable = New MyDataset.TBCBS_PROFILE_PROCESSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBCBS_PROFILE_PROCESSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBCBS_PROFILE_PROCESS") End Function _ Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) 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 _tBCBS_PROFILESTableAdapter As TBCBS_PROFILESTableAdapter Private _tBCBS_USER_PROFILETableAdapter As TBCBS_USER_PROFILETableAdapter Private _tBCBS_PROFILE_PROCESSTableAdapter As TBCBS_PROFILE_PROCESSTableAdapter Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder End Get Set(value As UpdateOrderOption) Me._updateOrder = value End Set End Property _ Public Property TBCBS_PROFILESTableAdapter() As TBCBS_PROFILESTableAdapter Get Return Me._tBCBS_PROFILESTableAdapter End Get Set(value As TBCBS_PROFILESTableAdapter) Me._tBCBS_PROFILESTableAdapter = value End Set End Property _ Public Property TBCBS_USER_PROFILETableAdapter() As TBCBS_USER_PROFILETableAdapter Get Return Me._tBCBS_USER_PROFILETableAdapter End Get Set(value As TBCBS_USER_PROFILETableAdapter) Me._tBCBS_USER_PROFILETableAdapter = value End Set End Property _ Public Property TBCBS_PROFILE_PROCESSTableAdapter() As TBCBS_PROFILE_PROCESSTableAdapter Get Return Me._tBCBS_PROFILE_PROCESSTableAdapter End Get Set(value As TBCBS_PROFILE_PROCESSTableAdapter) Me._tBCBS_PROFILE_PROCESSTableAdapter = value End Set End Property _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate End Get Set(value As Boolean) 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._tBCBS_PROFILESTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBCBS_PROFILESTableAdapter.Connection) Is Nothing)) Then Return Me._tBCBS_PROFILESTableAdapter.Connection End If If ((Not (Me._tBCBS_USER_PROFILETableAdapter) Is Nothing) _ AndAlso (Not (Me._tBCBS_USER_PROFILETableAdapter.Connection) Is Nothing)) Then Return Me._tBCBS_USER_PROFILETableAdapter.Connection End If If ((Not (Me._tBCBS_PROFILE_PROCESSTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBCBS_PROFILE_PROCESSTableAdapter.Connection) Is Nothing)) Then Return Me._tBCBS_PROFILE_PROCESSTableAdapter.Connection End If Return Nothing End Get Set(value As Global.System.Data.IDbConnection) Me._connection = value End Set End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get Dim count As Integer = 0 If (Not (Me._tBCBS_PROFILESTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBCBS_USER_PROFILETableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBCBS_PROFILE_PROCESSTableAdapter) 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 MyDataset, 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._tBCBS_PROFILESTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCBS_PROFILES.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._tBCBS_PROFILESTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBCBS_USER_PROFILETableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCBS_USER_PROFILE.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._tBCBS_USER_PROFILETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBCBS_PROFILE_PROCESSTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCBS_PROFILE_PROCESS.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._tBCBS_PROFILE_PROCESSTableAdapter.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 MyDataset, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBCBS_PROFILESTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCBS_PROFILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBCBS_PROFILESTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBCBS_USER_PROFILETableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCBS_USER_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBCBS_USER_PROFILETableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBCBS_PROFILE_PROCESSTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCBS_PROFILE_PROCESS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBCBS_PROFILE_PROCESSTableAdapter.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 MyDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBCBS_PROFILE_PROCESSTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCBS_PROFILE_PROCESS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBCBS_PROFILE_PROCESSTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBCBS_USER_PROFILETableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCBS_USER_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBCBS_USER_PROFILETableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBCBS_PROFILESTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCBS_PROFILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBCBS_PROFILESTableAdapter.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 MyDataset) 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._tBCBS_PROFILESTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBCBS_PROFILESTableAdapter.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._tBCBS_USER_PROFILETableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBCBS_USER_PROFILETableAdapter.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._tBCBS_PROFILE_PROCESSTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBCBS_PROFILE_PROCESSTableAdapter.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._tBCBS_PROFILESTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBCBS_PROFILESTableAdapter, Me._tBCBS_PROFILESTableAdapter.Connection) Me._tBCBS_PROFILESTableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection) Me._tBCBS_PROFILESTableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction) If Me._tBCBS_PROFILESTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBCBS_PROFILESTableAdapter.Adapter.AcceptChangesDuringUpdate = False adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCBS_PROFILESTableAdapter.Adapter) End If End If If (Not (Me._tBCBS_USER_PROFILETableAdapter) Is Nothing) Then revertConnections.Add(Me._tBCBS_USER_PROFILETableAdapter, Me._tBCBS_USER_PROFILETableAdapter.Connection) Me._tBCBS_USER_PROFILETableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection) Me._tBCBS_USER_PROFILETableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction) If Me._tBCBS_USER_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBCBS_USER_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate = False adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCBS_USER_PROFILETableAdapter.Adapter) End If End If If (Not (Me._tBCBS_PROFILE_PROCESSTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBCBS_PROFILE_PROCESSTableAdapter, Me._tBCBS_PROFILE_PROCESSTableAdapter.Connection) Me._tBCBS_PROFILE_PROCESSTableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection) Me._tBCBS_PROFILE_PROCESSTableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction) If Me._tBCBS_PROFILE_PROCESSTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBCBS_PROFILE_PROCESSTableAdapter.Adapter.AcceptChangesDuringUpdate = False adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCBS_PROFILE_PROCESSTableAdapter.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._tBCBS_PROFILESTableAdapter) Is Nothing) Then Me._tBCBS_PROFILESTableAdapter.Connection = CType(revertConnections(Me._tBCBS_PROFILESTableAdapter), Global.System.Data.SqlClient.SqlConnection) Me._tBCBS_PROFILESTableAdapter.Transaction = Nothing End If If (Not (Me._tBCBS_USER_PROFILETableAdapter) Is Nothing) Then Me._tBCBS_USER_PROFILETableAdapter.Connection = CType(revertConnections(Me._tBCBS_USER_PROFILETableAdapter), Global.System.Data.SqlClient.SqlConnection) Me._tBCBS_USER_PROFILETableAdapter.Transaction = Nothing End If If (Not (Me._tBCBS_PROFILE_PROCESSTableAdapter) Is Nothing) Then Me._tBCBS_PROFILE_PROCESSTableAdapter.Connection = CType(revertConnections(Me._tBCBS_PROFILE_PROCESSTableAdapter), Global.System.Data.SqlClient.SqlConnection) Me._tBCBS_PROFILE_PROCESSTableAdapter.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