'------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. ' Laufzeitversion:4.0.30319.42000 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ Option Strict Off Option Explicit On ''' '''Represents a strongly typed in-memory cache of data. ''' _ Partial Public Class MyDataset Inherits Global.System.Data.DataSet Private tableTBEMLP_POLL_PROFILES As TBEMLP_POLL_PROFILESDataTable Private tableTBEMLP_POLL_PROCESS As TBEMLP_POLL_PROCESSDataTable Private tableTBEMLP_POLL_STEPS As TBEMLP_POLL_STEPSDataTable Private tableTBEMLP_POLL_INDEXING_STEPS As TBEMLP_POLL_INDEXING_STEPSDataTable Private tableTBEMLP_HISTORY As TBEMLP_HISTORYDataTable Private tableTBEMLP_CONFIG As TBEMLP_CONFIGDataTable Private tableTBDD_EMAIL_ACCOUNT As TBDD_EMAIL_ACCOUNTDataTable Private relationFK_TBEMLP_POLL_PROCESS_PROFILE_ID As Global.System.Data.DataRelation Private relationFK_TBEMLP_POLL_STEPS_PROCESS_ID As Global.System.Data.DataRelation Private relationFK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID As Global.System.Data.DataRelation Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ Public Sub New() MyBase.New Me.BeginInit Me.InitClass Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler Me.EndInit End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context, false) If (Me.IsBinarySerialized(info, context) = true) Then Me.InitVars(false) Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 Return End If Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) If (Not (ds.Tables("TBEMLP_POLL_PROFILES")) Is Nothing) Then MyBase.Tables.Add(New TBEMLP_POLL_PROFILESDataTable(ds.Tables("TBEMLP_POLL_PROFILES"))) End If If (Not (ds.Tables("TBEMLP_POLL_PROCESS")) Is Nothing) Then MyBase.Tables.Add(New TBEMLP_POLL_PROCESSDataTable(ds.Tables("TBEMLP_POLL_PROCESS"))) End If If (Not (ds.Tables("TBEMLP_POLL_STEPS")) Is Nothing) Then MyBase.Tables.Add(New TBEMLP_POLL_STEPSDataTable(ds.Tables("TBEMLP_POLL_STEPS"))) End If If (Not (ds.Tables("TBEMLP_POLL_INDEXING_STEPS")) Is Nothing) Then MyBase.Tables.Add(New TBEMLP_POLL_INDEXING_STEPSDataTable(ds.Tables("TBEMLP_POLL_INDEXING_STEPS"))) End If If (Not (ds.Tables("TBEMLP_HISTORY")) Is Nothing) Then MyBase.Tables.Add(New TBEMLP_HISTORYDataTable(ds.Tables("TBEMLP_HISTORY"))) End If If (Not (ds.Tables("TBEMLP_CONFIG")) Is Nothing) Then MyBase.Tables.Add(New TBEMLP_CONFIGDataTable(ds.Tables("TBEMLP_CONFIG"))) End If If (Not (ds.Tables("TBDD_EMAIL_ACCOUNT")) Is Nothing) Then MyBase.Tables.Add(New TBDD_EMAIL_ACCOUNTDataTable(ds.Tables("TBDD_EMAIL_ACCOUNT"))) 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 TBEMLP_POLL_PROFILES() As TBEMLP_POLL_PROFILESDataTable Get Return Me.tableTBEMLP_POLL_PROFILES End Get End Property _ Public ReadOnly Property TBEMLP_POLL_PROCESS() As TBEMLP_POLL_PROCESSDataTable Get Return Me.tableTBEMLP_POLL_PROCESS End Get End Property _ Public ReadOnly Property TBEMLP_POLL_STEPS() As TBEMLP_POLL_STEPSDataTable Get Return Me.tableTBEMLP_POLL_STEPS End Get End Property _ Public ReadOnly Property TBEMLP_POLL_INDEXING_STEPS() As TBEMLP_POLL_INDEXING_STEPSDataTable Get Return Me.tableTBEMLP_POLL_INDEXING_STEPS End Get End Property _ Public ReadOnly Property TBEMLP_HISTORY() As TBEMLP_HISTORYDataTable Get Return Me.tableTBEMLP_HISTORY End Get End Property _ Public ReadOnly Property TBEMLP_CONFIG() As TBEMLP_CONFIGDataTable Get Return Me.tableTBEMLP_CONFIG End Get End Property _ Public ReadOnly Property TBDD_EMAIL_ACCOUNT() As TBDD_EMAIL_ACCOUNTDataTable Get Return Me.tableTBDD_EMAIL_ACCOUNT End Get End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode Get Return Me._schemaSerializationMode End Get Set Me._schemaSerializationMode = value End Set End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get Return MyBase.Tables End Get End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get Return MyBase.Relations End Get End Property _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass Me.EndInit End Sub _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As 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("TBEMLP_POLL_PROFILES")) Is Nothing) Then MyBase.Tables.Add(New TBEMLP_POLL_PROFILESDataTable(ds.Tables("TBEMLP_POLL_PROFILES"))) End If If (Not (ds.Tables("TBEMLP_POLL_PROCESS")) Is Nothing) Then MyBase.Tables.Add(New TBEMLP_POLL_PROCESSDataTable(ds.Tables("TBEMLP_POLL_PROCESS"))) End If If (Not (ds.Tables("TBEMLP_POLL_STEPS")) Is Nothing) Then MyBase.Tables.Add(New TBEMLP_POLL_STEPSDataTable(ds.Tables("TBEMLP_POLL_STEPS"))) End If If (Not (ds.Tables("TBEMLP_POLL_INDEXING_STEPS")) Is Nothing) Then MyBase.Tables.Add(New TBEMLP_POLL_INDEXING_STEPSDataTable(ds.Tables("TBEMLP_POLL_INDEXING_STEPS"))) End If If (Not (ds.Tables("TBEMLP_HISTORY")) Is Nothing) Then MyBase.Tables.Add(New TBEMLP_HISTORYDataTable(ds.Tables("TBEMLP_HISTORY"))) End If If (Not (ds.Tables("TBEMLP_CONFIG")) Is Nothing) Then MyBase.Tables.Add(New TBEMLP_CONFIGDataTable(ds.Tables("TBEMLP_CONFIG"))) End If If (Not (ds.Tables("TBDD_EMAIL_ACCOUNT")) Is Nothing) Then MyBase.Tables.Add(New TBDD_EMAIL_ACCOUNTDataTable(ds.Tables("TBDD_EMAIL_ACCOUNT"))) 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.tableTBEMLP_POLL_PROFILES = CType(MyBase.Tables("TBEMLP_POLL_PROFILES"),TBEMLP_POLL_PROFILESDataTable) If (initTable = true) Then If (Not (Me.tableTBEMLP_POLL_PROFILES) Is Nothing) Then Me.tableTBEMLP_POLL_PROFILES.InitVars End If End If Me.tableTBEMLP_POLL_PROCESS = CType(MyBase.Tables("TBEMLP_POLL_PROCESS"),TBEMLP_POLL_PROCESSDataTable) If (initTable = true) Then If (Not (Me.tableTBEMLP_POLL_PROCESS) Is Nothing) Then Me.tableTBEMLP_POLL_PROCESS.InitVars End If End If Me.tableTBEMLP_POLL_STEPS = CType(MyBase.Tables("TBEMLP_POLL_STEPS"),TBEMLP_POLL_STEPSDataTable) If (initTable = true) Then If (Not (Me.tableTBEMLP_POLL_STEPS) Is Nothing) Then Me.tableTBEMLP_POLL_STEPS.InitVars End If End If Me.tableTBEMLP_POLL_INDEXING_STEPS = CType(MyBase.Tables("TBEMLP_POLL_INDEXING_STEPS"),TBEMLP_POLL_INDEXING_STEPSDataTable) If (initTable = true) Then If (Not (Me.tableTBEMLP_POLL_INDEXING_STEPS) Is Nothing) Then Me.tableTBEMLP_POLL_INDEXING_STEPS.InitVars End If End If Me.tableTBEMLP_HISTORY = CType(MyBase.Tables("TBEMLP_HISTORY"),TBEMLP_HISTORYDataTable) If (initTable = true) Then If (Not (Me.tableTBEMLP_HISTORY) Is Nothing) Then Me.tableTBEMLP_HISTORY.InitVars End If End If Me.tableTBEMLP_CONFIG = CType(MyBase.Tables("TBEMLP_CONFIG"),TBEMLP_CONFIGDataTable) If (initTable = true) Then If (Not (Me.tableTBEMLP_CONFIG) Is Nothing) Then Me.tableTBEMLP_CONFIG.InitVars End If End If Me.tableTBDD_EMAIL_ACCOUNT = CType(MyBase.Tables("TBDD_EMAIL_ACCOUNT"),TBDD_EMAIL_ACCOUNTDataTable) If (initTable = true) Then If (Not (Me.tableTBDD_EMAIL_ACCOUNT) Is Nothing) Then Me.tableTBDD_EMAIL_ACCOUNT.InitVars End If End If Me.relationFK_TBEMLP_POLL_PROCESS_PROFILE_ID = Me.Relations("FK_TBEMLP_POLL_PROCESS_PROFILE_ID") Me.relationFK_TBEMLP_POLL_STEPS_PROCESS_ID = Me.Relations("FK_TBEMLP_POLL_STEPS_PROCESS_ID") Me.relationFK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID = Me.Relations("FK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID") 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.tableTBEMLP_POLL_PROFILES = New TBEMLP_POLL_PROFILESDataTable() MyBase.Tables.Add(Me.tableTBEMLP_POLL_PROFILES) Me.tableTBEMLP_POLL_PROCESS = New TBEMLP_POLL_PROCESSDataTable() MyBase.Tables.Add(Me.tableTBEMLP_POLL_PROCESS) Me.tableTBEMLP_POLL_STEPS = New TBEMLP_POLL_STEPSDataTable() MyBase.Tables.Add(Me.tableTBEMLP_POLL_STEPS) Me.tableTBEMLP_POLL_INDEXING_STEPS = New TBEMLP_POLL_INDEXING_STEPSDataTable() MyBase.Tables.Add(Me.tableTBEMLP_POLL_INDEXING_STEPS) Me.tableTBEMLP_HISTORY = New TBEMLP_HISTORYDataTable() MyBase.Tables.Add(Me.tableTBEMLP_HISTORY) Me.tableTBEMLP_CONFIG = New TBEMLP_CONFIGDataTable() MyBase.Tables.Add(Me.tableTBEMLP_CONFIG) Me.tableTBDD_EMAIL_ACCOUNT = New TBDD_EMAIL_ACCOUNTDataTable() MyBase.Tables.Add(Me.tableTBDD_EMAIL_ACCOUNT) Me.relationFK_TBEMLP_POLL_PROCESS_PROFILE_ID = New Global.System.Data.DataRelation("FK_TBEMLP_POLL_PROCESS_PROFILE_ID", New Global.System.Data.DataColumn() {Me.tableTBEMLP_POLL_PROFILES.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBEMLP_POLL_PROCESS.PROFILE_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBEMLP_POLL_PROCESS_PROFILE_ID) Me.relationFK_TBEMLP_POLL_STEPS_PROCESS_ID = New Global.System.Data.DataRelation("FK_TBEMLP_POLL_STEPS_PROCESS_ID", New Global.System.Data.DataColumn() {Me.tableTBEMLP_POLL_PROCESS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBEMLP_POLL_STEPS.PROCESS_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBEMLP_POLL_STEPS_PROCESS_ID) Me.relationFK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID = New Global.System.Data.DataRelation("FK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID", New Global.System.Data.DataColumn() {Me.tableTBEMLP_POLL_STEPS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBEMLP_POLL_INDEXING_STEPS.STEP_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID) End Sub _ Private Function ShouldSerializeTBEMLP_POLL_PROFILES() As Boolean Return false End Function _ Private Function ShouldSerializeTBEMLP_POLL_PROCESS() As Boolean Return false End Function _ Private Function ShouldSerializeTBEMLP_POLL_STEPS() As Boolean Return false End Function _ Private Function ShouldSerializeTBEMLP_POLL_INDEXING_STEPS() As Boolean Return false End Function _ Private Function ShouldSerializeTBEMLP_HISTORY() As Boolean Return false End Function _ Private Function ShouldSerializeTBEMLP_CONFIG() As Boolean Return false End Function _ Private Function ShouldSerializeTBDD_EMAIL_ACCOUNT() 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 TBEMLP_POLL_PROFILESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBEMLP_POLL_PROFILESRowChangeEvent) _ Public Delegate Sub TBEMLP_POLL_PROCESSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBEMLP_POLL_PROCESSRowChangeEvent) _ Public Delegate Sub TBEMLP_POLL_STEPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBEMLP_POLL_STEPSRowChangeEvent) _ Public Delegate Sub TBEMLP_POLL_INDEXING_STEPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBEMLP_POLL_INDEXING_STEPSRowChangeEvent) _ Public Delegate Sub TBEMLP_HISTORYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBEMLP_HISTORYRowChangeEvent) _ Public Delegate Sub TBEMLP_CONFIGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBEMLP_CONFIGRowChangeEvent) _ Public Delegate Sub TBDD_EMAIL_ACCOUNTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_EMAIL_ACCOUNTRowChangeEvent) ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBEMLP_POLL_PROFILESDataTable Inherits Global.System.Data.TypedTableBase(Of TBEMLP_POLL_PROFILESRow) Private columnGUID As Global.System.Data.DataColumn Private columnPROFILE_NAME As Global.System.Data.DataColumn Private columnPOLL_TYPE As Global.System.Data.DataColumn Private columnEMAIL_CONF_ID As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnLAST_TICK As Global.System.Data.DataColumn Private columnACTIVE As Global.System.Data.DataColumn Private columnSEQUENCE As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn Private columnVALIDATION_SQL As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBEMLP_POLL_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 PROFILE_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_NAME End Get End Property _ Public ReadOnly Property POLL_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnPOLL_TYPE End Get End Property _ Public ReadOnly Property EMAIL_CONF_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_CONF_ID End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property LAST_TICKColumn() As Global.System.Data.DataColumn Get Return Me.columnLAST_TICK End Get End Property _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE 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 VALIDATION_SQLColumn() As Global.System.Data.DataColumn Get Return Me.columnVALIDATION_SQL End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBEMLP_POLL_PROFILESRow Get Return CType(Me.Rows(index),TBEMLP_POLL_PROFILESRow) End Get End Property _ Public Event TBEMLP_POLL_PROFILESRowChanging As TBEMLP_POLL_PROFILESRowChangeEventHandler _ Public Event TBEMLP_POLL_PROFILESRowChanged As TBEMLP_POLL_PROFILESRowChangeEventHandler _ Public Event TBEMLP_POLL_PROFILESRowDeleting As TBEMLP_POLL_PROFILESRowChangeEventHandler _ Public Event TBEMLP_POLL_PROFILESRowDeleted As TBEMLP_POLL_PROFILESRowChangeEventHandler _ Public Overloads Sub AddTBEMLP_POLL_PROFILESRow(ByVal row As TBEMLP_POLL_PROFILESRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBEMLP_POLL_PROFILESRow(ByVal PROFILE_NAME As String, ByVal POLL_TYPE As String, ByVal EMAIL_CONF_ID As Integer, ByVal COMMENT As String, ByVal LAST_TICK As Date, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal VALIDATION_SQL As String) As TBEMLP_POLL_PROFILESRow Dim rowTBEMLP_POLL_PROFILESRow As TBEMLP_POLL_PROFILESRow = CType(Me.NewRow,TBEMLP_POLL_PROFILESRow) Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_NAME, POLL_TYPE, EMAIL_CONF_ID, COMMENT, LAST_TICK, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VALIDATION_SQL} rowTBEMLP_POLL_PROFILESRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBEMLP_POLL_PROFILESRow) Return rowTBEMLP_POLL_PROFILESRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBEMLP_POLL_PROFILESRow Return CType(Me.Rows.Find(New Object() {GUID}),TBEMLP_POLL_PROFILESRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBEMLP_POLL_PROFILESDataTable = CType(MyBase.Clone,TBEMLP_POLL_PROFILESDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBEMLP_POLL_PROFILESDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFILE_NAME = MyBase.Columns("PROFILE_NAME") Me.columnPOLL_TYPE = MyBase.Columns("POLL_TYPE") Me.columnEMAIL_CONF_ID = MyBase.Columns("EMAIL_CONF_ID") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnLAST_TICK = MyBase.Columns("LAST_TICK") Me.columnACTIVE = MyBase.Columns("ACTIVE") Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnVALIDATION_SQL = MyBase.Columns("VALIDATION_SQL") 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_NAME = New Global.System.Data.DataColumn("PROFILE_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROFILE_NAME) Me.columnPOLL_TYPE = New Global.System.Data.DataColumn("POLL_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPOLL_TYPE) Me.columnEMAIL_CONF_ID = New Global.System.Data.DataColumn("EMAIL_CONF_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_CONF_ID) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnLAST_TICK = New Global.System.Data.DataColumn("LAST_TICK", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLAST_TICK) Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnACTIVE) Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEQUENCE) 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.columnVALIDATION_SQL = New Global.System.Data.DataColumn("VALIDATION_SQL", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVALIDATION_SQL) 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_NAME.AllowDBNull = false Me.columnPROFILE_NAME.MaxLength = 100 Me.columnPOLL_TYPE.AllowDBNull = False Me.columnPOLL_TYPE.DefaultValue = CType("IMAP", String) Me.columnPOLL_TYPE.MaxLength = 100 Me.columnEMAIL_CONF_ID.AllowDBNull = False Me.columnCOMMENT.MaxLength = 500 Me.columnACTIVE.AllowDBNull = False Me.columnACTIVE.DefaultValue = CType(False, Boolean) Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnVALIDATION_SQL.AllowDBNull = False Me.columnVALIDATION_SQL.DefaultValue = CType("", String) End Sub Public Function NewTBEMLP_POLL_PROFILESRow() As TBEMLP_POLL_PROFILESRow Return CType(Me.NewRow, TBEMLP_POLL_PROFILESRow) End Function Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBEMLP_POLL_PROFILESRow(builder) End Function Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBEMLP_POLL_PROFILESRow) End Function Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBEMLP_POLL_PROFILESRowChangedEvent) Is Nothing) Then RaiseEvent TBEMLP_POLL_PROFILESRowChanged(Me, New TBEMLP_POLL_PROFILESRowChangeEvent(CType(e.Row, TBEMLP_POLL_PROFILESRow), e.Action)) End If End Sub Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBEMLP_POLL_PROFILESRowChangingEvent) Is Nothing) Then RaiseEvent TBEMLP_POLL_PROFILESRowChanging(Me, New TBEMLP_POLL_PROFILESRowChangeEvent(CType(e.Row, TBEMLP_POLL_PROFILESRow), e.Action)) End If End Sub Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBEMLP_POLL_PROFILESRowDeletedEvent) Is Nothing) Then RaiseEvent TBEMLP_POLL_PROFILESRowDeleted(Me, New TBEMLP_POLL_PROFILESRowChangeEvent(CType(e.Row, TBEMLP_POLL_PROFILESRow), e.Action)) End If End Sub Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBEMLP_POLL_PROFILESRowDeletingEvent) Is Nothing) Then RaiseEvent TBEMLP_POLL_PROFILESRowDeleting(Me, New TBEMLP_POLL_PROFILESRowChangeEvent(CType(e.Row, TBEMLP_POLL_PROFILESRow), e.Action)) End If End Sub Public Sub RemoveTBEMLP_POLL_PROFILESRow(ByVal row As TBEMLP_POLL_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 = "TBEMLP_POLL_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 TBEMLP_POLL_PROCESSDataTable Inherits Global.System.Data.TypedTableBase(Of TBEMLP_POLL_PROCESSRow) Private columnGUID As Global.System.Data.DataColumn Private columnPROCESS_NAME As Global.System.Data.DataColumn Private columnSTEP_NAME As Global.System.Data.DataColumn Private columnPROFILE_ID As Global.System.Data.DataColumn Private columnCOPY_2_HDD As Global.System.Data.DataColumn Private columnWM_IMPORT As Global.System.Data.DataColumn Private columnWM_OBJEKTTYPE As Global.System.Data.DataColumn Private columnWM_VECTOR_LOG As Global.System.Data.DataColumn Private columnWM_PATH As Global.System.Data.DataColumn Private columnWM_FILE_NAME As Global.System.Data.DataColumn Private columnWM_REFERENCE_INDEX As Global.System.Data.DataColumn Private columnPATH_EMAIL_TEMP As Global.System.Data.DataColumn Private columnPATH_EMAIL_ERRORS As Global.System.Data.DataColumn Private columnDELETE_MAIL As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnACTIVE As Global.System.Data.DataColumn Private columnSEQUENCE As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn Private columnWM_IDX_BODY_TEXT As Global.System.Data.DataColumn Private columnWM_IDX_BODY_SUBSTR_LENGTH As Global.System.Data.DataColumn Private columnPATH_ORIGINAL As Global.System.Data.DataColumn Public Sub New() MyBase.New Me.TableName = "TBEMLP_POLL_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 PROCESS_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPROCESS_NAME End Get End Property Public ReadOnly Property STEP_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnSTEP_NAME 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 COPY_2_HDDColumn() As Global.System.Data.DataColumn Get Return Me.columnCOPY_2_HDD End Get End Property Public ReadOnly Property WM_IMPORTColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_IMPORT End Get End Property Public ReadOnly Property WM_OBJEKTTYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_OBJEKTTYPE End Get End Property Public ReadOnly Property WM_VECTOR_LOGColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_VECTOR_LOG End Get End Property Public ReadOnly Property WM_PATHColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_PATH End Get End Property Public ReadOnly Property WM_FILE_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_FILE_NAME End Get End Property Public ReadOnly Property WM_REFERENCE_INDEXColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_REFERENCE_INDEX End Get End Property Public ReadOnly Property PATH_EMAIL_TEMPColumn() As Global.System.Data.DataColumn Get Return Me.columnPATH_EMAIL_TEMP End Get End Property Public ReadOnly Property PATH_EMAIL_ERRORSColumn() As Global.System.Data.DataColumn Get Return Me.columnPATH_EMAIL_ERRORS End Get End Property Public ReadOnly Property DELETE_MAILColumn() As Global.System.Data.DataColumn Get Return Me.columnDELETE_MAIL End Get End Property Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE 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 WM_IDX_BODY_TEXTColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_IDX_BODY_TEXT End Get End Property Public ReadOnly Property WM_IDX_BODY_SUBSTR_LENGTHColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_IDX_BODY_SUBSTR_LENGTH End Get End Property Public ReadOnly Property PATH_ORIGINALColumn() As Global.System.Data.DataColumn Get Return Me.columnPATH_ORIGINAL 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 TBEMLP_POLL_PROCESSRow Get Return CType(Me.Rows(index), TBEMLP_POLL_PROCESSRow) End Get End Property Public Event TBEMLP_POLL_PROCESSRowChanging As TBEMLP_POLL_PROCESSRowChangeEventHandler Public Event TBEMLP_POLL_PROCESSRowChanged As TBEMLP_POLL_PROCESSRowChangeEventHandler Public Event TBEMLP_POLL_PROCESSRowDeleting As TBEMLP_POLL_PROCESSRowChangeEventHandler Public Event TBEMLP_POLL_PROCESSRowDeleted As TBEMLP_POLL_PROCESSRowChangeEventHandler Public Overloads Sub AddTBEMLP_POLL_PROCESSRow(ByVal row As TBEMLP_POLL_PROCESSRow) Me.Rows.Add(row) End Sub Public Overloads Function AddTBEMLP_POLL_PROCESSRow( ByVal PROCESS_NAME As String, ByVal STEP_NAME As String, ByVal parentTBEMLP_POLL_PROFILESRowByFK_TBEMLP_POLL_PROCESS_PROFILE_ID As TBEMLP_POLL_PROFILESRow, ByVal COPY_2_HDD As Boolean, ByVal WM_IMPORT As Boolean, ByVal WM_OBJEKTTYPE As String, ByVal WM_VECTOR_LOG As String, ByVal WM_PATH As String, ByVal WM_FILE_NAME As String, ByVal WM_REFERENCE_INDEX As String, ByVal PATH_EMAIL_TEMP As String, ByVal PATH_EMAIL_ERRORS As String, ByVal DELETE_MAIL As Boolean, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal WM_IDX_BODY_TEXT As String, ByVal WM_IDX_BODY_SUBSTR_LENGTH As Integer, ByVal PATH_ORIGINAL As String) As TBEMLP_POLL_PROCESSRow Dim rowTBEMLP_POLL_PROCESSRow As TBEMLP_POLL_PROCESSRow = CType(Me.NewRow, TBEMLP_POLL_PROCESSRow) Dim columnValuesArray() As Object = New Object() {Nothing, PROCESS_NAME, STEP_NAME, Nothing, COPY_2_HDD, WM_IMPORT, WM_OBJEKTTYPE, WM_VECTOR_LOG, WM_PATH, WM_FILE_NAME, WM_REFERENCE_INDEX, PATH_EMAIL_TEMP, PATH_EMAIL_ERRORS, DELETE_MAIL, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, WM_IDX_BODY_TEXT, WM_IDX_BODY_SUBSTR_LENGTH, PATH_ORIGINAL} If (Not (parentTBEMLP_POLL_PROFILESRowByFK_TBEMLP_POLL_PROCESS_PROFILE_ID) Is Nothing) Then columnValuesArray(3) = parentTBEMLP_POLL_PROFILESRowByFK_TBEMLP_POLL_PROCESS_PROFILE_ID(0) End If rowTBEMLP_POLL_PROCESSRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBEMLP_POLL_PROCESSRow) Return rowTBEMLP_POLL_PROCESSRow End Function Public Function FindByGUID(ByVal GUID As Integer) As TBEMLP_POLL_PROCESSRow Return CType(Me.Rows.Find(New Object() {GUID}), TBEMLP_POLL_PROCESSRow) End Function Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBEMLP_POLL_PROCESSDataTable = CType(MyBase.Clone, TBEMLP_POLL_PROCESSDataTable) cln.InitVars() Return cln End Function Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBEMLP_POLL_PROCESSDataTable() End Function Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROCESS_NAME = MyBase.Columns("PROCESS_NAME") Me.columnSTEP_NAME = MyBase.Columns("STEP_NAME") Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") Me.columnCOPY_2_HDD = MyBase.Columns("COPY_2_HDD") Me.columnWM_IMPORT = MyBase.Columns("WM_IMPORT") Me.columnWM_OBJEKTTYPE = MyBase.Columns("WM_OBJEKTTYPE") Me.columnWM_VECTOR_LOG = MyBase.Columns("WM_VECTOR_LOG") Me.columnWM_PATH = MyBase.Columns("WM_PATH") Me.columnWM_FILE_NAME = MyBase.Columns("WM_FILE_NAME") Me.columnWM_REFERENCE_INDEX = MyBase.Columns("WM_REFERENCE_INDEX") Me.columnPATH_EMAIL_TEMP = MyBase.Columns("PATH_EMAIL_TEMP") Me.columnPATH_EMAIL_ERRORS = MyBase.Columns("PATH_EMAIL_ERRORS") Me.columnDELETE_MAIL = MyBase.Columns("DELETE_MAIL") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnACTIVE = MyBase.Columns("ACTIVE") Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnWM_IDX_BODY_TEXT = MyBase.Columns("WM_IDX_BODY_TEXT") Me.columnWM_IDX_BODY_SUBSTR_LENGTH = MyBase.Columns("WM_IDX_BODY_SUBSTR_LENGTH") Me.columnPATH_ORIGINAL = MyBase.Columns("PATH_ORIGINAL") 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.columnPROCESS_NAME = New Global.System.Data.DataColumn("PROCESS_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROCESS_NAME) Me.columnSTEP_NAME = New Global.System.Data.DataColumn("STEP_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSTEP_NAME) 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.columnCOPY_2_HDD = New Global.System.Data.DataColumn("COPY_2_HDD", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOPY_2_HDD) Me.columnWM_IMPORT = New Global.System.Data.DataColumn("WM_IMPORT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWM_IMPORT) Me.columnWM_OBJEKTTYPE = New Global.System.Data.DataColumn("WM_OBJEKTTYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWM_OBJEKTTYPE) Me.columnWM_VECTOR_LOG = New Global.System.Data.DataColumn("WM_VECTOR_LOG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWM_VECTOR_LOG) Me.columnWM_PATH = New Global.System.Data.DataColumn("WM_PATH", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWM_PATH) Me.columnWM_FILE_NAME = New Global.System.Data.DataColumn("WM_FILE_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWM_FILE_NAME) Me.columnWM_REFERENCE_INDEX = New Global.System.Data.DataColumn("WM_REFERENCE_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWM_REFERENCE_INDEX) Me.columnPATH_EMAIL_TEMP = New Global.System.Data.DataColumn("PATH_EMAIL_TEMP", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPATH_EMAIL_TEMP) Me.columnPATH_EMAIL_ERRORS = New Global.System.Data.DataColumn("PATH_EMAIL_ERRORS", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPATH_EMAIL_ERRORS) Me.columnDELETE_MAIL = New Global.System.Data.DataColumn("DELETE_MAIL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDELETE_MAIL) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnACTIVE) Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEQUENCE) 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.columnWM_IDX_BODY_TEXT = New Global.System.Data.DataColumn("WM_IDX_BODY_TEXT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWM_IDX_BODY_TEXT) Me.columnWM_IDX_BODY_SUBSTR_LENGTH = New Global.System.Data.DataColumn("WM_IDX_BODY_SUBSTR_LENGTH", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWM_IDX_BODY_SUBSTR_LENGTH) Me.columnPATH_ORIGINAL = New Global.System.Data.DataColumn("PATH_ORIGINAL", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPATH_ORIGINAL) 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.columnPROCESS_NAME.AllowDBNull = False Me.columnPROCESS_NAME.MaxLength = 100 Me.columnSTEP_NAME.AllowDBNull = False Me.columnSTEP_NAME.MaxLength = 50 Me.columnPROFILE_ID.AllowDBNull = False Me.columnCOPY_2_HDD.AllowDBNull = False Me.columnCOPY_2_HDD.DefaultValue = CType(False, Boolean) Me.columnWM_IMPORT.AllowDBNull = False Me.columnWM_IMPORT.DefaultValue = CType(False, Boolean) Me.columnWM_OBJEKTTYPE.MaxLength = 100 Me.columnWM_VECTOR_LOG.MaxLength = 100 Me.columnWM_PATH.MaxLength = 1000 Me.columnWM_FILE_NAME.MaxLength = 100 Me.columnWM_REFERENCE_INDEX.MaxLength = 100 Me.columnPATH_EMAIL_TEMP.AllowDBNull = False Me.columnPATH_EMAIL_TEMP.MaxLength = 1000 Me.columnPATH_EMAIL_ERRORS.AllowDBNull = False Me.columnPATH_EMAIL_ERRORS.MaxLength = 1000 Me.columnDELETE_MAIL.AllowDBNull = False Me.columnDELETE_MAIL.DefaultValue = CType(False, Boolean) Me.columnCOMMENT.MaxLength = 500 Me.columnACTIVE.AllowDBNull = False Me.columnACTIVE.DefaultValue = CType(True, Boolean) Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnWM_IDX_BODY_TEXT.AllowDBNull = False Me.columnWM_IDX_BODY_TEXT.DefaultValue = CType("", String) Me.columnWM_IDX_BODY_TEXT.MaxLength = 50 Me.columnWM_IDX_BODY_SUBSTR_LENGTH.AllowDBNull = False Me.columnWM_IDX_BODY_SUBSTR_LENGTH.DefaultValue = CType(0, Integer) Me.columnPATH_ORIGINAL.MaxLength = 1000 End Sub Public Function NewTBEMLP_POLL_PROCESSRow() As TBEMLP_POLL_PROCESSRow Return CType(Me.NewRow, TBEMLP_POLL_PROCESSRow) End Function Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBEMLP_POLL_PROCESSRow(builder) End Function Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBEMLP_POLL_PROCESSRow) End Function Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBEMLP_POLL_PROCESSRowChangedEvent) Is Nothing) Then RaiseEvent TBEMLP_POLL_PROCESSRowChanged(Me, New TBEMLP_POLL_PROCESSRowChangeEvent(CType(e.Row, TBEMLP_POLL_PROCESSRow), e.Action)) End If End Sub Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBEMLP_POLL_PROCESSRowChangingEvent) Is Nothing) Then RaiseEvent TBEMLP_POLL_PROCESSRowChanging(Me, New TBEMLP_POLL_PROCESSRowChangeEvent(CType(e.Row, TBEMLP_POLL_PROCESSRow), e.Action)) End If End Sub Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBEMLP_POLL_PROCESSRowDeletedEvent) Is Nothing) Then RaiseEvent TBEMLP_POLL_PROCESSRowDeleted(Me, New TBEMLP_POLL_PROCESSRowChangeEvent(CType(e.Row, TBEMLP_POLL_PROCESSRow), e.Action)) End If End Sub Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBEMLP_POLL_PROCESSRowDeletingEvent) Is Nothing) Then RaiseEvent TBEMLP_POLL_PROCESSRowDeleting(Me, New TBEMLP_POLL_PROCESSRowChangeEvent(CType(e.Row, TBEMLP_POLL_PROCESSRow), e.Action)) End If End Sub Public Sub RemoveTBEMLP_POLL_PROCESSRow(ByVal row As TBEMLP_POLL_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 = "TBEMLP_POLL_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 TBEMLP_POLL_STEPSDataTable Inherits Global.System.Data.TypedTableBase(Of TBEMLP_POLL_STEPSRow) Private columnGUID As Global.System.Data.DataColumn Private columnPROCESS_ID As Global.System.Data.DataColumn Private columnSTEP_NAME As Global.System.Data.DataColumn Private columnKEYWORDS_BODY As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnACTIVE As Global.System.Data.DataColumn Private columnSEQUENCE 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 = "TBEMLP_POLL_STEPS" 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 PROCESS_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROCESS_ID End Get End Property Public ReadOnly Property STEP_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnSTEP_NAME End Get End Property Public ReadOnly Property KEYWORDS_BODYColumn() As Global.System.Data.DataColumn Get Return Me.columnKEYWORDS_BODY End Get End Property Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE 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 TBEMLP_POLL_STEPSRow Get Return CType(Me.Rows(index), TBEMLP_POLL_STEPSRow) End Get End Property Public Event TBEMLP_POLL_STEPSRowChanging As TBEMLP_POLL_STEPSRowChangeEventHandler Public Event TBEMLP_POLL_STEPSRowChanged As TBEMLP_POLL_STEPSRowChangeEventHandler Public Event TBEMLP_POLL_STEPSRowDeleting As TBEMLP_POLL_STEPSRowChangeEventHandler Public Event TBEMLP_POLL_STEPSRowDeleted As TBEMLP_POLL_STEPSRowChangeEventHandler Public Overloads Sub AddTBEMLP_POLL_STEPSRow(ByVal row As TBEMLP_POLL_STEPSRow) Me.Rows.Add(row) End Sub Public Overloads Function AddTBEMLP_POLL_STEPSRow(ByVal parentTBEMLP_POLL_PROCESSRowByFK_TBEMLP_POLL_STEPS_PROCESS_ID As TBEMLP_POLL_PROCESSRow, ByVal STEP_NAME As String, ByVal KEYWORDS_BODY As String, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBEMLP_POLL_STEPSRow Dim rowTBEMLP_POLL_STEPSRow As TBEMLP_POLL_STEPSRow = CType(Me.NewRow, TBEMLP_POLL_STEPSRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, STEP_NAME, KEYWORDS_BODY, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} If (Not (parentTBEMLP_POLL_PROCESSRowByFK_TBEMLP_POLL_STEPS_PROCESS_ID) Is Nothing) Then columnValuesArray(1) = parentTBEMLP_POLL_PROCESSRowByFK_TBEMLP_POLL_STEPS_PROCESS_ID(0) End If rowTBEMLP_POLL_STEPSRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBEMLP_POLL_STEPSRow) Return rowTBEMLP_POLL_STEPSRow End Function Public Function FindByGUID(ByVal GUID As Integer) As TBEMLP_POLL_STEPSRow Return CType(Me.Rows.Find(New Object() {GUID}), TBEMLP_POLL_STEPSRow) End Function Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBEMLP_POLL_STEPSDataTable = CType(MyBase.Clone, TBEMLP_POLL_STEPSDataTable) cln.InitVars() Return cln End Function Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBEMLP_POLL_STEPSDataTable() End Function Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROCESS_ID = MyBase.Columns("PROCESS_ID") Me.columnSTEP_NAME = MyBase.Columns("STEP_NAME") Me.columnKEYWORDS_BODY = MyBase.Columns("KEYWORDS_BODY") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnACTIVE = MyBase.Columns("ACTIVE") Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") 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.columnPROCESS_ID = New Global.System.Data.DataColumn("PROCESS_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROCESS_ID) Me.columnSTEP_NAME = New Global.System.Data.DataColumn("STEP_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSTEP_NAME) Me.columnKEYWORDS_BODY = New Global.System.Data.DataColumn("KEYWORDS_BODY", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKEYWORDS_BODY) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnACTIVE) Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEQUENCE) 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.columnPROCESS_ID.AllowDBNull = False Me.columnSTEP_NAME.AllowDBNull = False Me.columnSTEP_NAME.MaxLength = 50 Me.columnKEYWORDS_BODY.MaxLength = 1000 Me.columnCOMMENT.MaxLength = 500 Me.columnACTIVE.AllowDBNull = False Me.columnACTIVE.DefaultValue = CType(True, Boolean) Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub Public Function NewTBEMLP_POLL_STEPSRow() As TBEMLP_POLL_STEPSRow Return CType(Me.NewRow, TBEMLP_POLL_STEPSRow) End Function Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBEMLP_POLL_STEPSRow(builder) End Function Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBEMLP_POLL_STEPSRow) End Function Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBEMLP_POLL_STEPSRowChangedEvent) Is Nothing) Then RaiseEvent TBEMLP_POLL_STEPSRowChanged(Me, New TBEMLP_POLL_STEPSRowChangeEvent(CType(e.Row, TBEMLP_POLL_STEPSRow), e.Action)) End If End Sub Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBEMLP_POLL_STEPSRowChangingEvent) Is Nothing) Then RaiseEvent TBEMLP_POLL_STEPSRowChanging(Me, New TBEMLP_POLL_STEPSRowChangeEvent(CType(e.Row, TBEMLP_POLL_STEPSRow), e.Action)) End If End Sub Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBEMLP_POLL_STEPSRowDeletedEvent) Is Nothing) Then RaiseEvent TBEMLP_POLL_STEPSRowDeleted(Me, New TBEMLP_POLL_STEPSRowChangeEvent(CType(e.Row, TBEMLP_POLL_STEPSRow), e.Action)) End If End Sub Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBEMLP_POLL_STEPSRowDeletingEvent) Is Nothing) Then RaiseEvent TBEMLP_POLL_STEPSRowDeleting(Me, New TBEMLP_POLL_STEPSRowChangeEvent(CType(e.Row, TBEMLP_POLL_STEPSRow), e.Action)) End If End Sub Public Sub RemoveTBEMLP_POLL_STEPSRow(ByVal row As TBEMLP_POLL_STEPSRow) 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 = "TBEMLP_POLL_STEPSDataTable" 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 TBEMLP_POLL_INDEXING_STEPSDataTable Inherits Global.System.Data.TypedTableBase(Of TBEMLP_POLL_INDEXING_STEPSRow) Private columnGUID As Global.System.Data.DataColumn Private columnSTEP_ID As Global.System.Data.DataColumn Private columnINDEXNAME As Global.System.Data.DataColumn Private columnINDEXVALUE As Global.System.Data.DataColumn Private columnACTIVE As Global.System.Data.DataColumn Private columnUSE_FOR_DIRECT_ANSWER As Global.System.Data.DataColumn Private columnSEQUENCE 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 = "TBEMLP_POLL_INDEXING_STEPS" 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 STEP_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSTEP_ID End Get End Property Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEXNAME End Get End Property Public ReadOnly Property INDEXVALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEXVALUE End Get End Property Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property Public ReadOnly Property USE_FOR_DIRECT_ANSWERColumn() As Global.System.Data.DataColumn Get Return Me.columnUSE_FOR_DIRECT_ANSWER End Get End Property Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE 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 TBEMLP_POLL_INDEXING_STEPSRow Get Return CType(Me.Rows(index), TBEMLP_POLL_INDEXING_STEPSRow) End Get End Property Public Event TBEMLP_POLL_INDEXING_STEPSRowChanging As TBEMLP_POLL_INDEXING_STEPSRowChangeEventHandler Public Event TBEMLP_POLL_INDEXING_STEPSRowChanged As TBEMLP_POLL_INDEXING_STEPSRowChangeEventHandler Public Event TBEMLP_POLL_INDEXING_STEPSRowDeleting As TBEMLP_POLL_INDEXING_STEPSRowChangeEventHandler Public Event TBEMLP_POLL_INDEXING_STEPSRowDeleted As TBEMLP_POLL_INDEXING_STEPSRowChangeEventHandler Public Overloads Sub AddTBEMLP_POLL_INDEXING_STEPSRow(ByVal row As TBEMLP_POLL_INDEXING_STEPSRow) Me.Rows.Add(row) End Sub Public Overloads Function AddTBEMLP_POLL_INDEXING_STEPSRow(ByVal parentTBEMLP_POLL_STEPSRowByFK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID As TBEMLP_POLL_STEPSRow, ByVal INDEXNAME As String, ByVal INDEXVALUE As String, ByVal ACTIVE As Boolean, ByVal USE_FOR_DIRECT_ANSWER As Boolean, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBEMLP_POLL_INDEXING_STEPSRow Dim rowTBEMLP_POLL_INDEXING_STEPSRow As TBEMLP_POLL_INDEXING_STEPSRow = CType(Me.NewRow, TBEMLP_POLL_INDEXING_STEPSRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, INDEXNAME, INDEXVALUE, ACTIVE, USE_FOR_DIRECT_ANSWER, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} If (Not (parentTBEMLP_POLL_STEPSRowByFK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID) Is Nothing) Then columnValuesArray(1) = parentTBEMLP_POLL_STEPSRowByFK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID(0) End If rowTBEMLP_POLL_INDEXING_STEPSRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBEMLP_POLL_INDEXING_STEPSRow) Return rowTBEMLP_POLL_INDEXING_STEPSRow End Function Public Function FindByGUID(ByVal GUID As Short) As TBEMLP_POLL_INDEXING_STEPSRow Return CType(Me.Rows.Find(New Object() {GUID}), TBEMLP_POLL_INDEXING_STEPSRow) End Function Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBEMLP_POLL_INDEXING_STEPSDataTable = CType(MyBase.Clone, TBEMLP_POLL_INDEXING_STEPSDataTable) cln.InitVars() Return cln End Function Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBEMLP_POLL_INDEXING_STEPSDataTable() End Function Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnSTEP_ID = MyBase.Columns("STEP_ID") Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") Me.columnINDEXVALUE = MyBase.Columns("INDEXVALUE") Me.columnACTIVE = MyBase.Columns("ACTIVE") Me.columnUSE_FOR_DIRECT_ANSWER = MyBase.Columns("USE_FOR_DIRECT_ANSWER") Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") 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(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnSTEP_ID = New Global.System.Data.DataColumn("STEP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSTEP_ID) Me.columnINDEXNAME = New Global.System.Data.DataColumn("INDEXNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnINDEXNAME) Me.columnINDEXVALUE = New Global.System.Data.DataColumn("INDEXVALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnINDEXVALUE) Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnACTIVE) Me.columnUSE_FOR_DIRECT_ANSWER = New Global.System.Data.DataColumn("USE_FOR_DIRECT_ANSWER", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSE_FOR_DIRECT_ANSWER) Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEQUENCE) 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.columnSTEP_ID.AllowDBNull = False Me.columnINDEXNAME.AllowDBNull = False Me.columnINDEXNAME.MaxLength = 100 Me.columnINDEXVALUE.AllowDBNull = False Me.columnINDEXVALUE.MaxLength = 100 Me.columnACTIVE.AllowDBNull = False Me.columnACTIVE.DefaultValue = CType(True, Boolean) Me.columnUSE_FOR_DIRECT_ANSWER.AllowDBNull = False Me.columnUSE_FOR_DIRECT_ANSWER.DefaultValue = CType(False, Boolean) Me.columnSEQUENCE.DefaultValue = CType(0, Integer) Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub Public Function NewTBEMLP_POLL_INDEXING_STEPSRow() As TBEMLP_POLL_INDEXING_STEPSRow Return CType(Me.NewRow, TBEMLP_POLL_INDEXING_STEPSRow) End Function Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBEMLP_POLL_INDEXING_STEPSRow(builder) End Function Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBEMLP_POLL_INDEXING_STEPSRow) End Function Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBEMLP_POLL_INDEXING_STEPSRowChangedEvent) Is Nothing) Then RaiseEvent TBEMLP_POLL_INDEXING_STEPSRowChanged(Me, New TBEMLP_POLL_INDEXING_STEPSRowChangeEvent(CType(e.Row, TBEMLP_POLL_INDEXING_STEPSRow), e.Action)) End If End Sub Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBEMLP_POLL_INDEXING_STEPSRowChangingEvent) Is Nothing) Then RaiseEvent TBEMLP_POLL_INDEXING_STEPSRowChanging(Me, New TBEMLP_POLL_INDEXING_STEPSRowChangeEvent(CType(e.Row, TBEMLP_POLL_INDEXING_STEPSRow), e.Action)) End If End Sub Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBEMLP_POLL_INDEXING_STEPSRowDeletedEvent) Is Nothing) Then RaiseEvent TBEMLP_POLL_INDEXING_STEPSRowDeleted(Me, New TBEMLP_POLL_INDEXING_STEPSRowChangeEvent(CType(e.Row, TBEMLP_POLL_INDEXING_STEPSRow), e.Action)) End If End Sub Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBEMLP_POLL_INDEXING_STEPSRowDeletingEvent) Is Nothing) Then RaiseEvent TBEMLP_POLL_INDEXING_STEPSRowDeleting(Me, New TBEMLP_POLL_INDEXING_STEPSRowChangeEvent(CType(e.Row, TBEMLP_POLL_INDEXING_STEPSRow), e.Action)) End If End Sub Public Sub RemoveTBEMLP_POLL_INDEXING_STEPSRow(ByVal row As TBEMLP_POLL_INDEXING_STEPSRow) 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 = "TBEMLP_POLL_INDEXING_STEPSDataTable" 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 TBEMLP_HISTORYDataTable Inherits Global.System.Data.TypedTableBase(Of TBEMLP_HISTORYRow) Private columnGUID As Global.System.Data.DataColumn Private columnWORK_PROCESS As Global.System.Data.DataColumn Private columnEMAIL_MSGID As Global.System.Data.DataColumn Private columnEMAIL_SUBJECT As Global.System.Data.DataColumn Private columnEMAIL_DATE As Global.System.Data.DataColumn Private columnEMAIL_BODY As Global.System.Data.DataColumn Private columnEMAIL_SUBSTRING1 As Global.System.Data.DataColumn Private columnEMAIL_SUBSTRING2 As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Public Sub New() MyBase.New Me.TableName = "TBEMLP_HISTORY" 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 WORK_PROCESSColumn() As Global.System.Data.DataColumn Get Return Me.columnWORK_PROCESS End Get End Property Public ReadOnly Property EMAIL_MSGIDColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_MSGID End Get End Property Public ReadOnly Property EMAIL_SUBJECTColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_SUBJECT End Get End Property Public ReadOnly Property EMAIL_DATEColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_DATE End Get End Property Public ReadOnly Property EMAIL_BODYColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_BODY End Get End Property Public ReadOnly Property EMAIL_SUBSTRING1Column() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_SUBSTRING1 End Get End Property Public ReadOnly Property EMAIL_SUBSTRING2Column() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_SUBSTRING2 End Get End Property Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property Public ReadOnly Property ADDED_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 TBEMLP_HISTORYRow Get Return CType(Me.Rows(index), TBEMLP_HISTORYRow) End Get End Property Public Event TBEMLP_HISTORYRowChanging As TBEMLP_HISTORYRowChangeEventHandler Public Event TBEMLP_HISTORYRowChanged As TBEMLP_HISTORYRowChangeEventHandler Public Event TBEMLP_HISTORYRowDeleting As TBEMLP_HISTORYRowChangeEventHandler Public Event TBEMLP_HISTORYRowDeleted As TBEMLP_HISTORYRowChangeEventHandler Public Overloads Sub AddTBEMLP_HISTORYRow(ByVal row As TBEMLP_HISTORYRow) Me.Rows.Add(row) End Sub Public Overloads Function AddTBEMLP_HISTORYRow(ByVal WORK_PROCESS As String, ByVal EMAIL_MSGID As String, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_DATE As Date, ByVal EMAIL_BODY As String, ByVal EMAIL_SUBSTRING1 As String, ByVal EMAIL_SUBSTRING2 As String, ByVal COMMENT As String, ByVal ADDED_WHEN As Date) As TBEMLP_HISTORYRow Dim rowTBEMLP_HISTORYRow As TBEMLP_HISTORYRow = CType(Me.NewRow, TBEMLP_HISTORYRow) Dim columnValuesArray() As Object = New Object() {Nothing, WORK_PROCESS, EMAIL_MSGID, EMAIL_SUBJECT, EMAIL_DATE, EMAIL_BODY, EMAIL_SUBSTRING1, EMAIL_SUBSTRING2, COMMENT, ADDED_WHEN} rowTBEMLP_HISTORYRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBEMLP_HISTORYRow) Return rowTBEMLP_HISTORYRow End Function Public Function FindByGUID(ByVal GUID As Integer) As TBEMLP_HISTORYRow Return CType(Me.Rows.Find(New Object() {GUID}), TBEMLP_HISTORYRow) End Function Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBEMLP_HISTORYDataTable = CType(MyBase.Clone, TBEMLP_HISTORYDataTable) cln.InitVars() Return cln End Function Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBEMLP_HISTORYDataTable() End Function Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnWORK_PROCESS = MyBase.Columns("WORK_PROCESS") Me.columnEMAIL_MSGID = MyBase.Columns("EMAIL_MSGID") Me.columnEMAIL_SUBJECT = MyBase.Columns("EMAIL_SUBJECT") Me.columnEMAIL_DATE = MyBase.Columns("EMAIL_DATE") Me.columnEMAIL_BODY = MyBase.Columns("EMAIL_BODY") Me.columnEMAIL_SUBSTRING1 = MyBase.Columns("EMAIL_SUBSTRING1") Me.columnEMAIL_SUBSTRING2 = MyBase.Columns("EMAIL_SUBSTRING2") Me.columnCOMMENT = MyBase.Columns("COMMENT") 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.columnWORK_PROCESS = New Global.System.Data.DataColumn("WORK_PROCESS", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWORK_PROCESS) Me.columnEMAIL_MSGID = New Global.System.Data.DataColumn("EMAIL_MSGID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_MSGID) Me.columnEMAIL_SUBJECT = New Global.System.Data.DataColumn("EMAIL_SUBJECT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_SUBJECT) Me.columnEMAIL_DATE = New Global.System.Data.DataColumn("EMAIL_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_DATE) Me.columnEMAIL_BODY = New Global.System.Data.DataColumn("EMAIL_BODY", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_BODY) Me.columnEMAIL_SUBSTRING1 = New Global.System.Data.DataColumn("EMAIL_SUBSTRING1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_SUBSTRING1) Me.columnEMAIL_SUBSTRING2 = New Global.System.Data.DataColumn("EMAIL_SUBSTRING2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_SUBSTRING2) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) 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.columnWORK_PROCESS.MaxLength = 100 Me.columnEMAIL_MSGID.AllowDBNull = False Me.columnEMAIL_MSGID.MaxLength = 500 Me.columnEMAIL_SUBJECT.MaxLength = 2147483647 Me.columnEMAIL_BODY.MaxLength = 2147483647 Me.columnEMAIL_SUBSTRING1.MaxLength = 2000 Me.columnEMAIL_SUBSTRING2.MaxLength = 2000 Me.columnCOMMENT.MaxLength = 500 End Sub Public Function NewTBEMLP_HISTORYRow() As TBEMLP_HISTORYRow Return CType(Me.NewRow, TBEMLP_HISTORYRow) End Function Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBEMLP_HISTORYRow(builder) End Function Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBEMLP_HISTORYRow) End Function Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBEMLP_HISTORYRowChangedEvent) Is Nothing) Then RaiseEvent TBEMLP_HISTORYRowChanged(Me, New TBEMLP_HISTORYRowChangeEvent(CType(e.Row, TBEMLP_HISTORYRow), e.Action)) End If End Sub Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBEMLP_HISTORYRowChangingEvent) Is Nothing) Then RaiseEvent TBEMLP_HISTORYRowChanging(Me, New TBEMLP_HISTORYRowChangeEvent(CType(e.Row, TBEMLP_HISTORYRow), e.Action)) End If End Sub Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBEMLP_HISTORYRowDeletedEvent) Is Nothing) Then RaiseEvent TBEMLP_HISTORYRowDeleted(Me, New TBEMLP_HISTORYRowChangeEvent(CType(e.Row, TBEMLP_HISTORYRow), e.Action)) End If End Sub Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBEMLP_HISTORYRowDeletingEvent) Is Nothing) Then RaiseEvent TBEMLP_HISTORYRowDeleting(Me, New TBEMLP_HISTORYRowChangeEvent(CType(e.Row, TBEMLP_HISTORYRow), e.Action)) End If End Sub Public Sub RemoveTBEMLP_HISTORYRow(ByVal row As TBEMLP_HISTORYRow) 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 = "TBEMLP_HISTORYDataTable" 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 TBEMLP_CONFIGDataTable Inherits Global.System.Data.TypedTableBase(Of TBEMLP_CONFIGRow) Private columnGUID As Global.System.Data.DataColumn Private columnFONT_BODY As Global.System.Data.DataColumn Private columnLOG_ERRORS_ONLY As Global.System.Data.DataColumn Private columnCHECK_INTERVALL_MINUTES As Global.System.Data.DataColumn Private columnLAST_TICK As Global.System.Data.DataColumn Private columnPATH_EMAIL_TEMP As Global.System.Data.DataColumn Private columnPATH_EMAIL_ERRORS As Global.System.Data.DataColumn Private columnWM_CON_STRING 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 = "TBEMLP_CONFIG" 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 FONT_BODYColumn() As Global.System.Data.DataColumn Get Return Me.columnFONT_BODY End Get End Property Public ReadOnly Property LOG_ERRORS_ONLYColumn() As Global.System.Data.DataColumn Get Return Me.columnLOG_ERRORS_ONLY End Get End Property Public ReadOnly Property CHECK_INTERVALL_MINUTESColumn() As Global.System.Data.DataColumn Get Return Me.columnCHECK_INTERVALL_MINUTES End Get End Property Public ReadOnly Property LAST_TICKColumn() As Global.System.Data.DataColumn Get Return Me.columnLAST_TICK End Get End Property Public ReadOnly Property PATH_EMAIL_TEMPColumn() As Global.System.Data.DataColumn Get Return Me.columnPATH_EMAIL_TEMP End Get End Property Public ReadOnly Property PATH_EMAIL_ERRORSColumn() As Global.System.Data.DataColumn Get Return Me.columnPATH_EMAIL_ERRORS End Get End Property Public ReadOnly Property WM_CON_STRINGColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_CON_STRING 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 TBEMLP_CONFIGRow Get Return CType(Me.Rows(index), TBEMLP_CONFIGRow) End Get End Property Public Event TBEMLP_CONFIGRowChanging As TBEMLP_CONFIGRowChangeEventHandler Public Event TBEMLP_CONFIGRowChanged As TBEMLP_CONFIGRowChangeEventHandler Public Event TBEMLP_CONFIGRowDeleting As TBEMLP_CONFIGRowChangeEventHandler Public Event TBEMLP_CONFIGRowDeleted As TBEMLP_CONFIGRowChangeEventHandler Public Overloads Sub AddTBEMLP_CONFIGRow(ByVal row As TBEMLP_CONFIGRow) Me.Rows.Add(row) End Sub Public Overloads Function AddTBEMLP_CONFIGRow(ByVal GUID As Byte, ByVal FONT_BODY As String, ByVal LOG_ERRORS_ONLY As Boolean, ByVal CHECK_INTERVALL_MINUTES As Integer, ByVal LAST_TICK As Date, ByVal PATH_EMAIL_TEMP As String, ByVal PATH_EMAIL_ERRORS As String, ByVal WM_CON_STRING As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBEMLP_CONFIGRow Dim rowTBEMLP_CONFIGRow As TBEMLP_CONFIGRow = CType(Me.NewRow, TBEMLP_CONFIGRow) Dim columnValuesArray() As Object = New Object() {GUID, FONT_BODY, LOG_ERRORS_ONLY, CHECK_INTERVALL_MINUTES, LAST_TICK, PATH_EMAIL_TEMP, PATH_EMAIL_ERRORS, WM_CON_STRING, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowTBEMLP_CONFIGRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBEMLP_CONFIGRow) Return rowTBEMLP_CONFIGRow End Function Public Function FindByGUID(ByVal GUID As Byte) As TBEMLP_CONFIGRow Return CType(Me.Rows.Find(New Object() {GUID}), TBEMLP_CONFIGRow) End Function Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBEMLP_CONFIGDataTable = CType(MyBase.Clone, TBEMLP_CONFIGDataTable) cln.InitVars() Return cln End Function Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBEMLP_CONFIGDataTable() End Function Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFONT_BODY = MyBase.Columns("FONT_BODY") Me.columnLOG_ERRORS_ONLY = MyBase.Columns("LOG_ERRORS_ONLY") Me.columnCHECK_INTERVALL_MINUTES = MyBase.Columns("CHECK_INTERVALL_MINUTES") Me.columnLAST_TICK = MyBase.Columns("LAST_TICK") Me.columnPATH_EMAIL_TEMP = MyBase.Columns("PATH_EMAIL_TEMP") Me.columnPATH_EMAIL_ERRORS = MyBase.Columns("PATH_EMAIL_ERRORS") Me.columnWM_CON_STRING = MyBase.Columns("WM_CON_STRING") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnFONT_BODY = New Global.System.Data.DataColumn("FONT_BODY", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFONT_BODY) Me.columnLOG_ERRORS_ONLY = New Global.System.Data.DataColumn("LOG_ERRORS_ONLY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLOG_ERRORS_ONLY) Me.columnCHECK_INTERVALL_MINUTES = New Global.System.Data.DataColumn("CHECK_INTERVALL_MINUTES", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHECK_INTERVALL_MINUTES) Me.columnLAST_TICK = New Global.System.Data.DataColumn("LAST_TICK", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLAST_TICK) Me.columnPATH_EMAIL_TEMP = New Global.System.Data.DataColumn("PATH_EMAIL_TEMP", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPATH_EMAIL_TEMP) Me.columnPATH_EMAIL_ERRORS = New Global.System.Data.DataColumn("PATH_EMAIL_ERRORS", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPATH_EMAIL_ERRORS) Me.columnWM_CON_STRING = New Global.System.Data.DataColumn("WM_CON_STRING", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWM_CON_STRING) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) Me.columnGUID.AllowDBNull = False Me.columnGUID.Unique = True Me.columnFONT_BODY.AllowDBNull = False Me.columnFONT_BODY.MaxLength = 50 Me.columnLOG_ERRORS_ONLY.AllowDBNull = False Me.columnCHECK_INTERVALL_MINUTES.AllowDBNull = False Me.columnPATH_EMAIL_TEMP.AllowDBNull = False Me.columnPATH_EMAIL_TEMP.MaxLength = 1000 Me.columnPATH_EMAIL_ERRORS.AllowDBNull = False Me.columnPATH_EMAIL_ERRORS.MaxLength = 1000 Me.columnWM_CON_STRING.AllowDBNull = False Me.columnWM_CON_STRING.MaxLength = 1000 Me.columnCHANGED_WHO.MaxLength = 50 End Sub Public Function NewTBEMLP_CONFIGRow() As TBEMLP_CONFIGRow Return CType(Me.NewRow, TBEMLP_CONFIGRow) End Function Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBEMLP_CONFIGRow(builder) End Function Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBEMLP_CONFIGRow) End Function Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBEMLP_CONFIGRowChangedEvent) Is Nothing) Then RaiseEvent TBEMLP_CONFIGRowChanged(Me, New TBEMLP_CONFIGRowChangeEvent(CType(e.Row, TBEMLP_CONFIGRow), e.Action)) End If End Sub Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBEMLP_CONFIGRowChangingEvent) Is Nothing) Then RaiseEvent TBEMLP_CONFIGRowChanging(Me, New TBEMLP_CONFIGRowChangeEvent(CType(e.Row, TBEMLP_CONFIGRow), e.Action)) End If End Sub Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBEMLP_CONFIGRowDeletedEvent) Is Nothing) Then RaiseEvent TBEMLP_CONFIGRowDeleted(Me, New TBEMLP_CONFIGRowChangeEvent(CType(e.Row, TBEMLP_CONFIGRow), e.Action)) End If End Sub Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBEMLP_CONFIGRowDeletingEvent) Is Nothing) Then RaiseEvent TBEMLP_CONFIGRowDeleting(Me, New TBEMLP_CONFIGRowChangeEvent(CType(e.Row, TBEMLP_CONFIGRow), e.Action)) End If End Sub Public Sub RemoveTBEMLP_CONFIGRow(ByVal row As TBEMLP_CONFIGRow) 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 = "TBEMLP_CONFIGDataTable" 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 TBDD_EMAIL_ACCOUNTDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_EMAIL_ACCOUNTRow) Private columnGUID As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn Private columnEMAIL_FROM As Global.System.Data.DataColumn Private columnEMAIL_SMTP As Global.System.Data.DataColumn Private columnEMAIL_USER As Global.System.Data.DataColumn Private columnEMAIL_PW As Global.System.Data.DataColumn Private columnPORT As Global.System.Data.DataColumn Private columnACTIVE As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn Private columnSSL_AUTH As Global.System.Data.DataColumn Private columnAUTH_TYPE As Global.System.Data.DataColumn Private columnPORT_IN As Global.System.Data.DataColumn Private columnARCHIVE_FOLDER As Global.System.Data.DataColumn Private Shared columnCHANGED_WHEN_defaultValue As Date = Date.Parse("1900-01-01T00:00:00") Public Sub New() MyBase.New Me.TableName = "TBDD_EMAIL_ACCOUNT" 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 EMAIL_FROMColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_FROM End Get End Property Public ReadOnly Property EMAIL_SMTPColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_SMTP End Get End Property Public ReadOnly Property EMAIL_USERColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_USER End Get End Property Public ReadOnly Property EMAIL_PWColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_PW End Get End Property Public ReadOnly Property PORTColumn() As Global.System.Data.DataColumn Get Return Me.columnPORT End Get End Property Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE 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 SSL_AUTHColumn() As Global.System.Data.DataColumn Get Return Me.columnSSL_AUTH End Get End Property Public ReadOnly Property AUTH_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnAUTH_TYPE End Get End Property Public ReadOnly Property PORT_INColumn() As Global.System.Data.DataColumn Get Return Me.columnPORT_IN End Get End Property Public ReadOnly Property ARCHIVE_FOLDERColumn() As Global.System.Data.DataColumn Get Return Me.columnARCHIVE_FOLDER 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 TBDD_EMAIL_ACCOUNTRow Get Return CType(Me.Rows(index), TBDD_EMAIL_ACCOUNTRow) End Get End Property Public Event TBDD_EMAIL_ACCOUNTRowChanging As TBDD_EMAIL_ACCOUNTRowChangeEventHandler Public Event TBDD_EMAIL_ACCOUNTRowChanged As TBDD_EMAIL_ACCOUNTRowChangeEventHandler Public Event TBDD_EMAIL_ACCOUNTRowDeleting As TBDD_EMAIL_ACCOUNTRowChangeEventHandler Public Event TBDD_EMAIL_ACCOUNTRowDeleted As TBDD_EMAIL_ACCOUNTRowChangeEventHandler Public Overloads Sub AddTBDD_EMAIL_ACCOUNTRow(ByVal row As TBDD_EMAIL_ACCOUNTRow) Me.Rows.Add(row) End Sub Public Overloads Function AddTBDD_EMAIL_ACCOUNTRow(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal PORT As Integer, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SSL_AUTH As Boolean, ByVal AUTH_TYPE As String, ByVal PORT_IN As Integer, ByVal ARCHIVE_FOLDER As String) As TBDD_EMAIL_ACCOUNTRow Dim rowTBDD_EMAIL_ACCOUNTRow As TBDD_EMAIL_ACCOUNTRow = CType(Me.NewRow, TBDD_EMAIL_ACCOUNTRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SSL_AUTH, AUTH_TYPE, PORT_IN, ARCHIVE_FOLDER} rowTBDD_EMAIL_ACCOUNTRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_EMAIL_ACCOUNTRow) Return rowTBDD_EMAIL_ACCOUNTRow End Function Public Function FindByGUID(ByVal GUID As Integer) As TBDD_EMAIL_ACCOUNTRow Return CType(Me.Rows.Find(New Object() {GUID}), TBDD_EMAIL_ACCOUNTRow) End Function Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_EMAIL_ACCOUNTDataTable = CType(MyBase.Clone, TBDD_EMAIL_ACCOUNTDataTable) cln.InitVars() Return cln End Function Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_EMAIL_ACCOUNTDataTable() End Function Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") Me.columnEMAIL_FROM = MyBase.Columns("EMAIL_FROM") Me.columnEMAIL_SMTP = MyBase.Columns("EMAIL_SMTP") Me.columnEMAIL_USER = MyBase.Columns("EMAIL_USER") Me.columnEMAIL_PW = MyBase.Columns("EMAIL_PW") Me.columnPORT = MyBase.Columns("PORT") Me.columnACTIVE = MyBase.Columns("ACTIVE") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnSSL_AUTH = MyBase.Columns("SSL_AUTH") Me.columnAUTH_TYPE = MyBase.Columns("AUTH_TYPE") Me.columnPORT_IN = MyBase.Columns("PORT_IN") Me.columnARCHIVE_FOLDER = MyBase.Columns("ARCHIVE_FOLDER") 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.columnEMAIL_FROM = New Global.System.Data.DataColumn("EMAIL_FROM", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_FROM) Me.columnEMAIL_SMTP = New Global.System.Data.DataColumn("EMAIL_SMTP", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_SMTP) Me.columnEMAIL_USER = New Global.System.Data.DataColumn("EMAIL_USER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_USER) Me.columnEMAIL_PW = New Global.System.Data.DataColumn("EMAIL_PW", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_PW) Me.columnPORT = New Global.System.Data.DataColumn("PORT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPORT) Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnACTIVE) 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.columnSSL_AUTH = New Global.System.Data.DataColumn("SSL_AUTH", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSSL_AUTH) Me.columnAUTH_TYPE = New Global.System.Data.DataColumn("AUTH_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAUTH_TYPE) Me.columnPORT_IN = New Global.System.Data.DataColumn("PORT_IN", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPORT_IN) Me.columnARCHIVE_FOLDER = New Global.System.Data.DataColumn("ARCHIVE_FOLDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnARCHIVE_FOLDER) 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.MaxLength = 50 Me.columnEMAIL_FROM.AllowDBNull = False Me.columnEMAIL_FROM.MaxLength = 100 Me.columnEMAIL_SMTP.AllowDBNull = False Me.columnEMAIL_SMTP.MaxLength = 100 Me.columnEMAIL_USER.AllowDBNull = False Me.columnEMAIL_USER.MaxLength = 100 Me.columnEMAIL_PW.AllowDBNull = False Me.columnEMAIL_PW.DefaultValue = CType("", String) Me.columnEMAIL_PW.MaxLength = 1000 Me.columnPORT.AllowDBNull = False Me.columnPORT.DefaultValue = CType(25, Integer) Me.columnACTIVE.AllowDBNull = False Me.columnACTIVE.DefaultValue = CType(False, Boolean) Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnCHANGED_WHEN.DefaultValue = CType(TBDD_EMAIL_ACCOUNTDataTable.columnCHANGED_WHEN_defaultValue, Date) Me.columnSSL_AUTH.AllowDBNull = False Me.columnSSL_AUTH.DefaultValue = CType(True, Boolean) Me.columnAUTH_TYPE.DefaultValue = CType("SSL", String) Me.columnAUTH_TYPE.MaxLength = 50 Me.columnPORT_IN.AllowDBNull = False Me.columnPORT_IN.DefaultValue = CType(25, Integer) Me.columnARCHIVE_FOLDER.AllowDBNull = False Me.columnARCHIVE_FOLDER.DefaultValue = CType("", String) Me.columnARCHIVE_FOLDER.MaxLength = 100 End Sub Public Function NewTBDD_EMAIL_ACCOUNTRow() As TBDD_EMAIL_ACCOUNTRow Return CType(Me.NewRow, TBDD_EMAIL_ACCOUNTRow) End Function Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_EMAIL_ACCOUNTRow(builder) End Function Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_EMAIL_ACCOUNTRow) End Function Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_EMAIL_ACCOUNTRowChangedEvent) Is Nothing) Then RaiseEvent TBDD_EMAIL_ACCOUNTRowChanged(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row, TBDD_EMAIL_ACCOUNTRow), e.Action)) End If End Sub Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_EMAIL_ACCOUNTRowChangingEvent) Is Nothing) Then RaiseEvent TBDD_EMAIL_ACCOUNTRowChanging(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row, TBDD_EMAIL_ACCOUNTRow), e.Action)) End If End Sub Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_EMAIL_ACCOUNTRowDeletedEvent) Is Nothing) Then RaiseEvent TBDD_EMAIL_ACCOUNTRowDeleted(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row, TBDD_EMAIL_ACCOUNTRow), e.Action)) End If End Sub Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_EMAIL_ACCOUNTRowDeletingEvent) Is Nothing) Then RaiseEvent TBDD_EMAIL_ACCOUNTRowDeleting(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row, TBDD_EMAIL_ACCOUNTRow), e.Action)) End If End Sub Public Sub RemoveTBDD_EMAIL_ACCOUNTRow(ByVal row As TBDD_EMAIL_ACCOUNTRow) 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 = "TBDD_EMAIL_ACCOUNTDataTable" 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 TBEMLP_POLL_PROFILESRow Inherits Global.System.Data.DataRow Private tableTBEMLP_POLL_PROFILES As TBEMLP_POLL_PROFILESDataTable Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBEMLP_POLL_PROFILES = CType(Me.Table, TBEMLP_POLL_PROFILESDataTable) End Sub Public Property GUID() As Integer Get Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.GUIDColumn), Integer) End Get Set Me(Me.tableTBEMLP_POLL_PROFILES.GUIDColumn) = Value End Set End Property Public Property PROFILE_NAME() As String Get Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.PROFILE_NAMEColumn), String) End Get Set Me(Me.tableTBEMLP_POLL_PROFILES.PROFILE_NAMEColumn) = Value End Set End Property Public Property POLL_TYPE() As String Get Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.POLL_TYPEColumn), String) End Get Set Me(Me.tableTBEMLP_POLL_PROFILES.POLL_TYPEColumn) = Value End Set End Property Public Property EMAIL_CONF_ID() As Integer Get Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.EMAIL_CONF_IDColumn), Integer) End Get Set Me(Me.tableTBEMLP_POLL_PROFILES.EMAIL_CONF_IDColumn) = Value End Set End Property Public Property COMMENT() As String Get Try Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.COMMENTColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBEMLP_POLL_PROFILES ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_PROFILES.COMMENTColumn) = Value End Set End Property Public Property LAST_TICK() As Date Get Try Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.LAST_TICKColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LAST_TICK in Tabelle TBEMLP_POLL_PROFILES ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_PROFILES.LAST_TICKColumn) = Value End Set End Property Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.ACTIVEColumn), Boolean) End Get Set Me(Me.tableTBEMLP_POLL_PROFILES.ACTIVEColumn) = Value End Set End Property Public Property SEQUENCE() As Integer Get Try Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.SEQUENCEColumn), Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEQUENCE in Tabelle TBEMLP_POLL_PROFILES ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_PROFILES.SEQUENCEColumn) = Value End Set End Property Public Property ADDED_WHO() As String Get Try Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.ADDED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBEMLP_POLL_PROFILES ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_PROFILES.ADDED_WHOColumn) = Value End Set End Property Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBEMLP_POLL_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 TBEMLP_POLL_PROFILES ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_PROFILES.ADDED_WHENColumn) = Value End Set End Property Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBEMLP_POLL_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 TBEMLP_POLL_PROFILES ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_PROFILES.CHANGED_WHOColumn) = Value End Set End Property Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBEMLP_POLL_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 TBEMLP_POLL_PROFILES ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_PROFILES.CHANGED_WHENColumn) = Value End Set End Property Public Property VALIDATION_SQL() As String Get Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.VALIDATION_SQLColumn), String) End Get Set Me(Me.tableTBEMLP_POLL_PROFILES.VALIDATION_SQLColumn) = Value End Set End Property Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROFILES.COMMENTColumn) End Function Public Sub SetCOMMENTNull() Me(Me.tableTBEMLP_POLL_PROFILES.COMMENTColumn) = Global.System.Convert.DBNull End Sub Public Function IsLAST_TICKNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROFILES.LAST_TICKColumn) End Function Public Sub SetLAST_TICKNull() Me(Me.tableTBEMLP_POLL_PROFILES.LAST_TICKColumn) = Global.System.Convert.DBNull End Sub Public Function IsSEQUENCENull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROFILES.SEQUENCEColumn) End Function Public Sub SetSEQUENCENull() Me(Me.tableTBEMLP_POLL_PROFILES.SEQUENCEColumn) = Global.System.Convert.DBNull End Sub Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROFILES.ADDED_WHOColumn) End Function Public Sub SetADDED_WHONull() Me(Me.tableTBEMLP_POLL_PROFILES.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROFILES.ADDED_WHENColumn) End Function Public Sub SetADDED_WHENNull() Me(Me.tableTBEMLP_POLL_PROFILES.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROFILES.CHANGED_WHOColumn) End Function Public Sub SetCHANGED_WHONull() Me(Me.tableTBEMLP_POLL_PROFILES.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROFILES.CHANGED_WHENColumn) End Function Public Sub SetCHANGED_WHENNull() Me(Me.tableTBEMLP_POLL_PROFILES.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub Public Function GetTBEMLP_POLL_PROCESSRows() As TBEMLP_POLL_PROCESSRow() If (Me.Table.ChildRelations("FK_TBEMLP_POLL_PROCESS_PROFILE_ID") Is Nothing) Then Return New TBEMLP_POLL_PROCESSRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBEMLP_POLL_PROCESS_PROFILE_ID")), TBEMLP_POLL_PROCESSRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBEMLP_POLL_PROCESSRow Inherits Global.System.Data.DataRow Private tableTBEMLP_POLL_PROCESS As TBEMLP_POLL_PROCESSDataTable Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBEMLP_POLL_PROCESS = CType(Me.Table, TBEMLP_POLL_PROCESSDataTable) End Sub Public Property GUID() As Integer Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.GUIDColumn), Integer) End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.GUIDColumn) = Value End Set End Property Public Property PROCESS_NAME() As String Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.PROCESS_NAMEColumn), String) End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.PROCESS_NAMEColumn) = Value End Set End Property Public Property STEP_NAME() As String Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.STEP_NAMEColumn), String) End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.STEP_NAMEColumn) = Value End Set End Property Public Property PROFILE_ID() As Integer Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.PROFILE_IDColumn), Integer) End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.PROFILE_IDColumn) = Value End Set End Property Public Property COPY_2_HDD() As Boolean Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.COPY_2_HDDColumn), Boolean) End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.COPY_2_HDDColumn) = Value End Set End Property Public Property WM_IMPORT() As Boolean Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_IMPORTColumn), Boolean) End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.WM_IMPORTColumn) = Value End Set End Property Public Property WM_OBJEKTTYPE() As String Get Try Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_OBJEKTTYPEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WM_OBJEKTTYPE in Tabelle TBEMLP_POLL_PROCESS ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.WM_OBJEKTTYPEColumn) = Value End Set End Property Public Property WM_VECTOR_LOG() As String Get Try Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_VECTOR_LOGColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WM_VECTOR_LOG in Tabelle TBEMLP_POLL_PROCESS ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.WM_VECTOR_LOGColumn) = Value End Set End Property Public Property WM_PATH() As String Get Try Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_PATHColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WM_PATH in Tabelle TBEMLP_POLL_PROCESS ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.WM_PATHColumn) = Value End Set End Property Public Property WM_FILE_NAME() As String Get Try Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_FILE_NAMEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WM_FILE_NAME in Tabelle TBEMLP_POLL_PROCESS ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.WM_FILE_NAMEColumn) = Value End Set End Property Public Property WM_REFERENCE_INDEX() As String Get Try Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_REFERENCE_INDEXColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WM_REFERENCE_INDEX in Tabelle TBEMLP_POLL_PROCESS ist DBNull." & "", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.WM_REFERENCE_INDEXColumn) = Value End Set End Property Public Property PATH_EMAIL_TEMP() As String Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.PATH_EMAIL_TEMPColumn), String) End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.PATH_EMAIL_TEMPColumn) = Value End Set End Property Public Property PATH_EMAIL_ERRORS() As String Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.PATH_EMAIL_ERRORSColumn), String) End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.PATH_EMAIL_ERRORSColumn) = Value End Set End Property Public Property DELETE_MAIL() As Boolean Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.DELETE_MAILColumn), Boolean) End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.DELETE_MAILColumn) = Value End Set End Property Public Property COMMENT() As String Get Try Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.COMMENTColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBEMLP_POLL_PROCESS ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.COMMENTColumn) = Value End Set End Property Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.ACTIVEColumn), Boolean) End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.ACTIVEColumn) = Value End Set End Property Public Property SEQUENCE() As Integer Get Try Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.SEQUENCEColumn), Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEQUENCE in Tabelle TBEMLP_POLL_PROCESS ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.SEQUENCEColumn) = Value End Set End Property Public Property ADDED_WHO() As String Get Try Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.ADDED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBEMLP_POLL_PROCESS ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.ADDED_WHOColumn) = Value End Set End Property Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBEMLP_POLL_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 TBEMLP_POLL_PROCESS ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.ADDED_WHENColumn) = Value End Set End Property Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBEMLP_POLL_PROCESS ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHOColumn) = Value End Set End Property Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBEMLP_POLL_PROCESS ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHENColumn) = Value End Set End Property Public Property WM_IDX_BODY_TEXT() As String Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_IDX_BODY_TEXTColumn), String) End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.WM_IDX_BODY_TEXTColumn) = Value End Set End Property Public Property WM_IDX_BODY_SUBSTR_LENGTH() As Integer Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_IDX_BODY_SUBSTR_LENGTHColumn), Integer) End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.WM_IDX_BODY_SUBSTR_LENGTHColumn) = Value End Set End Property Public Property PATH_ORIGINAL() As String Get Try Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.PATH_ORIGINALColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PATH_ORIGINAL in Tabelle TBEMLP_POLL_PROCESS ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_PROCESS.PATH_ORIGINALColumn) = Value End Set End Property Public Property TBEMLP_POLL_PROFILESRow() As TBEMLP_POLL_PROFILESRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBEMLP_POLL_PROCESS_PROFILE_ID")), TBEMLP_POLL_PROFILESRow) End Get Set Me.SetParentRow(Value, Me.Table.ParentRelations("FK_TBEMLP_POLL_PROCESS_PROFILE_ID")) End Set End Property Public Function IsWM_OBJEKTTYPENull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.WM_OBJEKTTYPEColumn) End Function Public Sub SetWM_OBJEKTTYPENull() Me(Me.tableTBEMLP_POLL_PROCESS.WM_OBJEKTTYPEColumn) = Global.System.Convert.DBNull End Sub Public Function IsWM_VECTOR_LOGNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.WM_VECTOR_LOGColumn) End Function Public Sub SetWM_VECTOR_LOGNull() Me(Me.tableTBEMLP_POLL_PROCESS.WM_VECTOR_LOGColumn) = Global.System.Convert.DBNull End Sub Public Function IsWM_PATHNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.WM_PATHColumn) End Function Public Sub SetWM_PATHNull() Me(Me.tableTBEMLP_POLL_PROCESS.WM_PATHColumn) = Global.System.Convert.DBNull End Sub Public Function IsWM_FILE_NAMENull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.WM_FILE_NAMEColumn) End Function Public Sub SetWM_FILE_NAMENull() Me(Me.tableTBEMLP_POLL_PROCESS.WM_FILE_NAMEColumn) = Global.System.Convert.DBNull End Sub Public Function IsWM_REFERENCE_INDEXNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.WM_REFERENCE_INDEXColumn) End Function Public Sub SetWM_REFERENCE_INDEXNull() Me(Me.tableTBEMLP_POLL_PROCESS.WM_REFERENCE_INDEXColumn) = Global.System.Convert.DBNull End Sub Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.COMMENTColumn) End Function Public Sub SetCOMMENTNull() Me(Me.tableTBEMLP_POLL_PROCESS.COMMENTColumn) = Global.System.Convert.DBNull End Sub Public Function IsSEQUENCENull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.SEQUENCEColumn) End Function Public Sub SetSEQUENCENull() Me(Me.tableTBEMLP_POLL_PROCESS.SEQUENCEColumn) = Global.System.Convert.DBNull End Sub Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.ADDED_WHOColumn) End Function Public Sub SetADDED_WHONull() Me(Me.tableTBEMLP_POLL_PROCESS.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.ADDED_WHENColumn) End Function Public Sub SetADDED_WHENNull() Me(Me.tableTBEMLP_POLL_PROCESS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHOColumn) End Function Public Sub SetCHANGED_WHONull() Me(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHENColumn) End Function Public Sub SetCHANGED_WHENNull() Me(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub Public Function IsPATH_ORIGINALNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.PATH_ORIGINALColumn) End Function Public Sub SetPATH_ORIGINALNull() Me(Me.tableTBEMLP_POLL_PROCESS.PATH_ORIGINALColumn) = Global.System.Convert.DBNull End Sub Public Function GetTBEMLP_POLL_STEPSRows() As TBEMLP_POLL_STEPSRow() If (Me.Table.ChildRelations("FK_TBEMLP_POLL_STEPS_PROCESS_ID") Is Nothing) Then Return New TBEMLP_POLL_STEPSRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBEMLP_POLL_STEPS_PROCESS_ID")), TBEMLP_POLL_STEPSRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBEMLP_POLL_STEPSRow Inherits Global.System.Data.DataRow Private tableTBEMLP_POLL_STEPS As TBEMLP_POLL_STEPSDataTable Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBEMLP_POLL_STEPS = CType(Me.Table, TBEMLP_POLL_STEPSDataTable) End Sub Public Property GUID() As Integer Get Return CType(Me(Me.tableTBEMLP_POLL_STEPS.GUIDColumn), Integer) End Get Set Me(Me.tableTBEMLP_POLL_STEPS.GUIDColumn) = Value End Set End Property Public Property PROCESS_ID() As Integer Get Return CType(Me(Me.tableTBEMLP_POLL_STEPS.PROCESS_IDColumn), Integer) End Get Set Me(Me.tableTBEMLP_POLL_STEPS.PROCESS_IDColumn) = Value End Set End Property Public Property STEP_NAME() As String Get Return CType(Me(Me.tableTBEMLP_POLL_STEPS.STEP_NAMEColumn), String) End Get Set Me(Me.tableTBEMLP_POLL_STEPS.STEP_NAMEColumn) = Value End Set End Property Public Property KEYWORDS_BODY() As String Get Try Return CType(Me(Me.tableTBEMLP_POLL_STEPS.KEYWORDS_BODYColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KEYWORDS_BODY in Tabelle TBEMLP_POLL_STEPS ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_STEPS.KEYWORDS_BODYColumn) = Value End Set End Property Public Property COMMENT() As String Get Try Return CType(Me(Me.tableTBEMLP_POLL_STEPS.COMMENTColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBEMLP_POLL_STEPS ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_STEPS.COMMENTColumn) = Value End Set End Property Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBEMLP_POLL_STEPS.ACTIVEColumn), Boolean) End Get Set Me(Me.tableTBEMLP_POLL_STEPS.ACTIVEColumn) = Value End Set End Property Public Property SEQUENCE() As Integer Get Try Return CType(Me(Me.tableTBEMLP_POLL_STEPS.SEQUENCEColumn), Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEQUENCE in Tabelle TBEMLP_POLL_STEPS ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_STEPS.SEQUENCEColumn) = Value End Set End Property Public Property ADDED_WHO() As String Get Try Return CType(Me(Me.tableTBEMLP_POLL_STEPS.ADDED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBEMLP_POLL_STEPS ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_STEPS.ADDED_WHOColumn) = Value End Set End Property Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBEMLP_POLL_STEPS.ADDED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBEMLP_POLL_STEPS ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_STEPS.ADDED_WHENColumn) = Value End Set End Property Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBEMLP_POLL_STEPS ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHOColumn) = Value End Set End Property Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBEMLP_POLL_STEPS ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHENColumn) = Value End Set End Property Public Property TBEMLP_POLL_PROCESSRow() As TBEMLP_POLL_PROCESSRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBEMLP_POLL_STEPS_PROCESS_ID")), TBEMLP_POLL_PROCESSRow) End Get Set Me.SetParentRow(Value, Me.Table.ParentRelations("FK_TBEMLP_POLL_STEPS_PROCESS_ID")) End Set End Property Public Function IsKEYWORDS_BODYNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_STEPS.KEYWORDS_BODYColumn) End Function Public Sub SetKEYWORDS_BODYNull() Me(Me.tableTBEMLP_POLL_STEPS.KEYWORDS_BODYColumn) = Global.System.Convert.DBNull End Sub Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_STEPS.COMMENTColumn) End Function Public Sub SetCOMMENTNull() Me(Me.tableTBEMLP_POLL_STEPS.COMMENTColumn) = Global.System.Convert.DBNull End Sub Public Function IsSEQUENCENull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_STEPS.SEQUENCEColumn) End Function Public Sub SetSEQUENCENull() Me(Me.tableTBEMLP_POLL_STEPS.SEQUENCEColumn) = Global.System.Convert.DBNull End Sub Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_STEPS.ADDED_WHOColumn) End Function Public Sub SetADDED_WHONull() Me(Me.tableTBEMLP_POLL_STEPS.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_STEPS.ADDED_WHENColumn) End Function Public Sub SetADDED_WHENNull() Me(Me.tableTBEMLP_POLL_STEPS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHOColumn) End Function Public Sub SetCHANGED_WHONull() Me(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHENColumn) End Function Public Sub SetCHANGED_WHENNull() Me(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub Public Function GetTBEMLP_POLL_INDEXING_STEPSRows() As TBEMLP_POLL_INDEXING_STEPSRow() If (Me.Table.ChildRelations("FK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID") Is Nothing) Then Return New TBEMLP_POLL_INDEXING_STEPSRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID")), TBEMLP_POLL_INDEXING_STEPSRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBEMLP_POLL_INDEXING_STEPSRow Inherits Global.System.Data.DataRow Private tableTBEMLP_POLL_INDEXING_STEPS As TBEMLP_POLL_INDEXING_STEPSDataTable Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBEMLP_POLL_INDEXING_STEPS = CType(Me.Table, TBEMLP_POLL_INDEXING_STEPSDataTable) End Sub Public Property GUID() As Short Get Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.GUIDColumn), Short) End Get Set Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.GUIDColumn) = Value End Set End Property Public Property STEP_ID() As Integer Get Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.STEP_IDColumn), Integer) End Get Set Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.STEP_IDColumn) = Value End Set End Property Public Property INDEXNAME() As String Get Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.INDEXNAMEColumn), String) End Get Set Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.INDEXNAMEColumn) = Value End Set End Property Public Property INDEXVALUE() As String Get Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.INDEXVALUEColumn), String) End Get Set Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.INDEXVALUEColumn) = Value End Set End Property Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ACTIVEColumn), Boolean) End Get Set Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ACTIVEColumn) = Value End Set End Property Public Property USE_FOR_DIRECT_ANSWER() As Boolean Get Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.USE_FOR_DIRECT_ANSWERColumn), Boolean) End Get Set Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.USE_FOR_DIRECT_ANSWERColumn) = Value End Set End Property Public Property SEQUENCE() As Integer Get Try Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.SEQUENCEColumn), Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEQUENCE in Tabelle TBEMLP_POLL_INDEXING_STEPS ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.SEQUENCEColumn) = Value End Set End Property Public Property ADDED_WHO() As String Get Try Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBEMLP_POLL_INDEXING_STEPS ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHOColumn) = Value End Set End Property Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBEMLP_POLL_INDEXING_STEPS ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHENColumn) = Value End Set End Property Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBEMLP_POLL_INDEXING_STEPS ist DBNull." & "", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHOColumn) = Value End Set End Property Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBEMLP_POLL_INDEXING_STEPS ist DBNull" & ".", e) End Try End Get Set Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHENColumn) = Value End Set End Property Public Property TBEMLP_POLL_STEPSRow() As TBEMLP_POLL_STEPSRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID")), TBEMLP_POLL_STEPSRow) End Get Set Me.SetParentRow(Value, Me.Table.ParentRelations("FK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID")) End Set End Property Public Function IsSEQUENCENull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_INDEXING_STEPS.SEQUENCEColumn) End Function Public Sub SetSEQUENCENull() Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.SEQUENCEColumn) = Global.System.Convert.DBNull End Sub Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHOColumn) End Function Public Sub SetADDED_WHONull() Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHENColumn) End Function Public Sub SetADDED_WHENNull() Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHOColumn) End Function Public Sub SetCHANGED_WHONull() Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHENColumn) End Function Public Sub SetCHANGED_WHENNull() Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBEMLP_HISTORYRow Inherits Global.System.Data.DataRow Private tableTBEMLP_HISTORY As TBEMLP_HISTORYDataTable Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBEMLP_HISTORY = CType(Me.Table, TBEMLP_HISTORYDataTable) End Sub Public Property GUID() As Integer Get Return CType(Me(Me.tableTBEMLP_HISTORY.GUIDColumn), Integer) End Get Set Me(Me.tableTBEMLP_HISTORY.GUIDColumn) = Value End Set End Property Public Property WORK_PROCESS() As String Get Try Return CType(Me(Me.tableTBEMLP_HISTORY.WORK_PROCESSColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WORK_PROCESS in Tabelle TBEMLP_HISTORY ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_HISTORY.WORK_PROCESSColumn) = Value End Set End Property Public Property EMAIL_MSGID() As String Get Return CType(Me(Me.tableTBEMLP_HISTORY.EMAIL_MSGIDColumn), String) End Get Set Me(Me.tableTBEMLP_HISTORY.EMAIL_MSGIDColumn) = Value End Set End Property Public Property EMAIL_SUBJECT() As String Get Try Return CType(Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBJECTColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_SUBJECT in Tabelle TBEMLP_HISTORY ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBJECTColumn) = Value End Set End Property Public Property EMAIL_DATE() As Date Get Try Return CType(Me(Me.tableTBEMLP_HISTORY.EMAIL_DATEColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_DATE in Tabelle TBEMLP_HISTORY ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_HISTORY.EMAIL_DATEColumn) = Value End Set End Property Public Property EMAIL_BODY() As String Get Try Return CType(Me(Me.tableTBEMLP_HISTORY.EMAIL_BODYColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_BODY in Tabelle TBEMLP_HISTORY ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_HISTORY.EMAIL_BODYColumn) = Value End Set End Property Public Property EMAIL_SUBSTRING1() As String Get Try Return CType(Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING1Column), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_SUBSTRING1 in Tabelle TBEMLP_HISTORY ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING1Column) = Value End Set End Property Public Property EMAIL_SUBSTRING2() As String Get Try Return CType(Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING2Column), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_SUBSTRING2 in Tabelle TBEMLP_HISTORY ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING2Column) = Value End Set End Property Public Property COMMENT() As String Get Try Return CType(Me(Me.tableTBEMLP_HISTORY.COMMENTColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBEMLP_HISTORY ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_HISTORY.COMMENTColumn) = Value End Set End Property Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBEMLP_HISTORY.ADDED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBEMLP_HISTORY ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_HISTORY.ADDED_WHENColumn) = Value End Set End Property Public Function IsWORK_PROCESSNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.WORK_PROCESSColumn) End Function Public Sub SetWORK_PROCESSNull() Me(Me.tableTBEMLP_HISTORY.WORK_PROCESSColumn) = Global.System.Convert.DBNull End Sub Public Function IsEMAIL_SUBJECTNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.EMAIL_SUBJECTColumn) End Function Public Sub SetEMAIL_SUBJECTNull() Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBJECTColumn) = Global.System.Convert.DBNull End Sub Public Function IsEMAIL_DATENull() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.EMAIL_DATEColumn) End Function Public Sub SetEMAIL_DATENull() Me(Me.tableTBEMLP_HISTORY.EMAIL_DATEColumn) = Global.System.Convert.DBNull End Sub Public Function IsEMAIL_BODYNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.EMAIL_BODYColumn) End Function Public Sub SetEMAIL_BODYNull() Me(Me.tableTBEMLP_HISTORY.EMAIL_BODYColumn) = Global.System.Convert.DBNull End Sub Public Function IsEMAIL_SUBSTRING1Null() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING1Column) End Function Public Sub SetEMAIL_SUBSTRING1Null() Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING1Column) = Global.System.Convert.DBNull End Sub Public Function IsEMAIL_SUBSTRING2Null() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING2Column) End Function Public Sub SetEMAIL_SUBSTRING2Null() Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING2Column) = Global.System.Convert.DBNull End Sub Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.COMMENTColumn) End Function Public Sub SetCOMMENTNull() Me(Me.tableTBEMLP_HISTORY.COMMENTColumn) = Global.System.Convert.DBNull End Sub Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.ADDED_WHENColumn) End Function Public Sub SetADDED_WHENNull() Me(Me.tableTBEMLP_HISTORY.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBEMLP_CONFIGRow Inherits Global.System.Data.DataRow Private tableTBEMLP_CONFIG As TBEMLP_CONFIGDataTable Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBEMLP_CONFIG = CType(Me.Table, TBEMLP_CONFIGDataTable) End Sub Public Property GUID() As Byte Get Return CType(Me(Me.tableTBEMLP_CONFIG.GUIDColumn), Byte) End Get Set Me(Me.tableTBEMLP_CONFIG.GUIDColumn) = Value End Set End Property Public Property FONT_BODY() As String Get Return CType(Me(Me.tableTBEMLP_CONFIG.FONT_BODYColumn), String) End Get Set Me(Me.tableTBEMLP_CONFIG.FONT_BODYColumn) = Value End Set End Property Public Property LOG_ERRORS_ONLY() As Boolean Get Return CType(Me(Me.tableTBEMLP_CONFIG.LOG_ERRORS_ONLYColumn), Boolean) End Get Set Me(Me.tableTBEMLP_CONFIG.LOG_ERRORS_ONLYColumn) = Value End Set End Property Public Property CHECK_INTERVALL_MINUTES() As Integer Get Return CType(Me(Me.tableTBEMLP_CONFIG.CHECK_INTERVALL_MINUTESColumn), Integer) End Get Set Me(Me.tableTBEMLP_CONFIG.CHECK_INTERVALL_MINUTESColumn) = Value End Set End Property Public Property LAST_TICK() As Date Get Try Return CType(Me(Me.tableTBEMLP_CONFIG.LAST_TICKColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LAST_TICK in Tabelle TBEMLP_CONFIG ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_CONFIG.LAST_TICKColumn) = Value End Set End Property Public Property PATH_EMAIL_TEMP() As String Get Return CType(Me(Me.tableTBEMLP_CONFIG.PATH_EMAIL_TEMPColumn), String) End Get Set Me(Me.tableTBEMLP_CONFIG.PATH_EMAIL_TEMPColumn) = Value End Set End Property Public Property PATH_EMAIL_ERRORS() As String Get Return CType(Me(Me.tableTBEMLP_CONFIG.PATH_EMAIL_ERRORSColumn), String) End Get Set Me(Me.tableTBEMLP_CONFIG.PATH_EMAIL_ERRORSColumn) = Value End Set End Property Public Property WM_CON_STRING() As String Get Return CType(Me(Me.tableTBEMLP_CONFIG.WM_CON_STRINGColumn), String) End Get Set Me(Me.tableTBEMLP_CONFIG.WM_CON_STRINGColumn) = Value End Set End Property Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBEMLP_CONFIG.ADDED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBEMLP_CONFIG ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_CONFIG.ADDED_WHENColumn) = Value End Set End Property Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBEMLP_CONFIG.CHANGED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBEMLP_CONFIG ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_CONFIG.CHANGED_WHOColumn) = Value End Set End Property Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBEMLP_CONFIG.CHANGED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBEMLP_CONFIG ist DBNull.", e) End Try End Get Set Me(Me.tableTBEMLP_CONFIG.CHANGED_WHENColumn) = Value End Set End Property Public Function IsLAST_TICKNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_CONFIG.LAST_TICKColumn) End Function Public Sub SetLAST_TICKNull() Me(Me.tableTBEMLP_CONFIG.LAST_TICKColumn) = Global.System.Convert.DBNull End Sub Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_CONFIG.ADDED_WHENColumn) End Function Public Sub SetADDED_WHENNull() Me(Me.tableTBEMLP_CONFIG.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_CONFIG.CHANGED_WHOColumn) End Function Public Sub SetCHANGED_WHONull() Me(Me.tableTBEMLP_CONFIG.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_CONFIG.CHANGED_WHENColumn) End Function Public Sub SetCHANGED_WHENNull() Me(Me.tableTBEMLP_CONFIG.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_EMAIL_ACCOUNTRow Inherits Global.System.Data.DataRow Private tableTBDD_EMAIL_ACCOUNT As TBDD_EMAIL_ACCOUNTDataTable Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_EMAIL_ACCOUNT = CType(Me.Table, TBDD_EMAIL_ACCOUNTDataTable) End Sub Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.GUIDColumn), Integer) End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.GUIDColumn) = Value End Set End Property Public Property NAME() As String Get Try Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn) = Value End Set End Property Public Property EMAIL_FROM() As String Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_FROMColumn), String) End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_FROMColumn) = Value End Set End Property Public Property EMAIL_SMTP() As String Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_SMTPColumn), String) End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_SMTPColumn) = Value End Set End Property Public Property EMAIL_USER() As String Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_USERColumn), String) End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_USERColumn) = Value End Set End Property Public Property EMAIL_PW() As String Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_PWColumn), String) End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_PWColumn) = Value End Set End Property Public Property PORT() As Integer Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.PORTColumn), Integer) End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.PORTColumn) = Value End Set End Property Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ACTIVEColumn), Boolean) End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.ACTIVEColumn) = Value End Set End Property Public Property ADDED_WHO() As String Get Try Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHOColumn) = Value End Set End Property Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn) = Value End Set End Property Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn) = Value End Set End Property Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn), Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn) = Value End Set End Property Public Property SSL_AUTH() As Boolean Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.SSL_AUTHColumn), Boolean) End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.SSL_AUTHColumn) = Value End Set End Property Public Property AUTH_TYPE() As String Get Try Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.AUTH_TYPEColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AUTH_TYPE in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.AUTH_TYPEColumn) = Value End Set End Property Public Property PORT_IN() As Integer Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.PORT_INColumn), Integer) End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.PORT_INColumn) = Value End Set End Property Public Property ARCHIVE_FOLDER() As String Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ARCHIVE_FOLDERColumn), String) End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.ARCHIVE_FOLDERColumn) = Value End Set End Property Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn) End Function Public Sub SetNAMENull() Me(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn) = Global.System.Convert.DBNull End Sub Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHOColumn) End Function Public Sub SetADDED_WHONull() Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn) End Function Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn) End Function Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn) End Function Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub Public Function IsAUTH_TYPENull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.AUTH_TYPEColumn) End Function Public Sub SetAUTH_TYPENull() Me(Me.tableTBDD_EMAIL_ACCOUNT.AUTH_TYPEColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Row event argument class ''' Public Class TBEMLP_POLL_PROFILESRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBEMLP_POLL_PROFILESRow Private eventAction As Global.System.Data.DataRowAction Public Sub New(ByVal row As TBEMLP_POLL_PROFILESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub Public ReadOnly Property Row() As TBEMLP_POLL_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 TBEMLP_POLL_PROCESSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBEMLP_POLL_PROCESSRow Private eventAction As Global.System.Data.DataRowAction Public Sub New(ByVal row As TBEMLP_POLL_PROCESSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub Public ReadOnly Property Row() As TBEMLP_POLL_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 TBEMLP_POLL_STEPSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBEMLP_POLL_STEPSRow Private eventAction As Global.System.Data.DataRowAction Public Sub New(ByVal row As TBEMLP_POLL_STEPSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub Public ReadOnly Property Row() As TBEMLP_POLL_STEPSRow 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 TBEMLP_POLL_INDEXING_STEPSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBEMLP_POLL_INDEXING_STEPSRow Private eventAction As Global.System.Data.DataRowAction Public Sub New(ByVal row As TBEMLP_POLL_INDEXING_STEPSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub Public ReadOnly Property Row() As TBEMLP_POLL_INDEXING_STEPSRow 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 TBEMLP_HISTORYRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBEMLP_HISTORYRow Private eventAction As Global.System.Data.DataRowAction Public Sub New(ByVal row As TBEMLP_HISTORYRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub Public ReadOnly Property Row() As TBEMLP_HISTORYRow 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 TBEMLP_CONFIGRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBEMLP_CONFIGRow Private eventAction As Global.System.Data.DataRowAction Public Sub New(ByVal row As TBEMLP_CONFIGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub Public ReadOnly Property Row() As TBEMLP_CONFIGRow 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 TBDD_EMAIL_ACCOUNTRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBDD_EMAIL_ACCOUNTRow Private eventAction As Global.System.Data.DataRowAction Public Sub New(ByVal row As TBDD_EMAIL_ACCOUNTRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub Public ReadOnly Property Row() As TBDD_EMAIL_ACCOUNTRow 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 TBEMLP_POLL_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 Me._connection = Value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = Value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = Value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = Value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = Value End If i = (i + 1) Loop End Set End Property Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = Value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = Value End Set End Property Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBEMLP_POLL_PROFILES" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("PROFILE_NAME", "PROFILE_NAME") tableMapping.ColumnMappings.Add("POLL_TYPE", "POLL_TYPE") tableMapping.ColumnMappings.Add("EMAIL_CONF_ID", "EMAIL_CONF_ID") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("LAST_TICK", "LAST_TICK") tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("VALIDATION_SQL", "VALIDATION_SQL") 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 [TBEMLP_POLL_PROFILES] WHERE (([GUID] = @Original_GUID) AND ([PROFILE" & "_NAME] = @Original_PROFILE_NAME) AND ([POLL_TYPE] = @Original_POLL_TYPE) AND ([E" & "MAIL_CONF_ID] = @Original_EMAIL_CONF_ID) AND ((@IsNull_COMMENT = 1 AND [COMMENT]" & " IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_LAST_TICK = 1 AND [L" & "AST_TICK] IS NULL) OR ([LAST_TICK] = @Original_LAST_TICK)) AND ([ACTIVE] = @Orig" & "inal_ACTIVE) AND ((@IsNull_SEQUENCE = 1 AND [SEQUENCE] IS NULL) OR ([SEQUENCE] =" & " @Original_SEQUENCE)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([" & "ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN]" & " IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = " & "1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@" & "IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Origin" & "al_CHANGED_WHEN)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_POLL_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "POLL_TYPE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EMAIL_CONF_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_CONF_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_LAST_TICK", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LAST_TICK", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LAST_TICK", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LAST_TICK", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBEMLP_POLL_PROFILES" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (PROFILE_NAME, POLL_TY" & "PE, EMAIL_CONF_ID, COMMENT, LAST_TICK, ACTIVE, SEQUENCE, ADDED_WHO, VALIDATION_S" & "QL)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@PROFILE_NAME,@POLL_TYPE,@EMAIL_CONF_ID,@COMMENT,@LAST_TICK," & "@ACTIVE,@SEQUENCE,@ADDED_WHO,@VALIDATION_SQL); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, PROFILE_NAME, POL" & "L_TYPE, EMAIL_CONF_ID, COMMENT, LAST_TICK, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WH" & "EN, CHANGED_WHO, CHANGED_WHEN FROM TBEMLP_POLL_PROFILES WHERE (GUID = SCOPE_IDEN" & "TITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@POLL_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "POLL_TYPE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_CONF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_CONF_ID", 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("@LAST_TICK", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "LAST_TICK", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", 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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALIDATION_SQL", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION_SQL", 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 TBEMLP_POLL_PROFILES" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET PROFILE_NAME = @PROFILE_NAM" & "E, POLL_TYPE = @POLL_TYPE, EMAIL_CONF_ID = @EMAIL_CONF_ID, COMMENT = @COMMENT, L" & "AST_TICK = @LAST_TICK, ACTIVE = @ACTIVE, SEQUENCE = @SEQUENCE, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & " CHANGED_WHO = @CHANGED_WHO, VALIDATION_SQL = @VALIDATION_SQL" & 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_NAME, POLL_TYPE, EMAIL_CO" & "NF_ID, COMMENT, LAST_TICK, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO," & " CHANGED_WHEN FROM TBEMLP_POLL_PROFILES WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@POLL_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "POLL_TYPE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_CONF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_CONF_ID", 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("@LAST_TICK", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "LAST_TICK", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", 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("@VALIDATION_SQL", Global.System.Data.SqlDbType.NVarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION_SQL", 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.EmailProfiler.Form.My.MySettings.Default.MyDatasetConnString 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 TBEMLP_POLL_PROFILES.*" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBEMLP_POLL_PROFILES" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBEMLP_POLL_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.TBEMLP_POLL_PROFILESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As MyDataset.TBEMLP_POLL_PROFILESDataTable = New MyDataset.TBEMLP_POLL_PROFILESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBEMLP_POLL_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, "TBEMLP_POLL_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, ByVal Original_PROFILE_NAME As String, ByVal Original_POLL_TYPE As String, ByVal Original_EMAIL_CONF_ID As Integer, ByVal Original_COMMENT As String, ByVal Original_LAST_TICK As Global.System.Nullable(Of Date), ByVal Original_ACTIVE As Boolean, ByVal Original_SEQUENCE As Global.System.Nullable(Of Integer), ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) If (Original_PROFILE_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_PROFILE_NAME") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_PROFILE_NAME, String) End If If (Original_POLL_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_POLL_TYPE") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_POLL_TYPE, String) End If Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_EMAIL_CONF_ID, Integer) If (Original_COMMENT Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_COMMENT, String) End If If (Original_LAST_TICK.HasValue = True) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_LAST_TICK.Value, Date) Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ACTIVE, Boolean) If (Original_SEQUENCE.HasValue = True) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_SEQUENCE.Value, Integer) Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Original_ADDED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_ADDED_WHO, String) End If If (Original_ADDED_WHEN.HasValue = True) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_ADDED_WHEN.Value, Date) Else Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_CHANGED_WHO, String) End If If (Original_CHANGED_WHEN.HasValue = True) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_CHANGED_WHEN.Value, Date) Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function Public Overridable Overloads Function Insert(ByVal PROFILE_NAME As String, ByVal POLL_TYPE As String, ByVal EMAIL_CONF_ID As Integer, ByVal COMMENT As String, ByVal LAST_TICK As Global.System.Nullable(Of Date), ByVal ACTIVE As Boolean, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal ADDED_WHO As String, ByVal VALIDATION_SQL As String) As Integer If (PROFILE_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("PROFILE_NAME") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_NAME, String) End If If (POLL_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("POLL_TYPE") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(POLL_TYPE, String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(EMAIL_CONF_ID, Integer) If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT, String) End If If (LAST_TICK.HasValue = True) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(LAST_TICK.Value, Date) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(5).Value = CType(ACTIVE, Boolean) If (SEQUENCE.HasValue = True) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(SEQUENCE.Value, Integer) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (ADDED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO, String) End If If (VALIDATION_SQL Is Nothing) Then Throw New Global.System.ArgumentNullException("VALIDATION_SQL") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(VALIDATION_SQL, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update(ByVal PROFILE_NAME As String, ByVal POLL_TYPE As String, ByVal EMAIL_CONF_ID As Integer, ByVal COMMENT As String, ByVal LAST_TICK As Global.System.Nullable(Of Date), ByVal ACTIVE As Boolean, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal CHANGED_WHO As String, ByVal VALIDATION_SQL As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (PROFILE_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("PROFILE_NAME") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFILE_NAME,String) End If If (POLL_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("POLL_TYPE") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(POLL_TYPE,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EMAIL_CONF_ID,Integer) If (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,String) End If If (LAST_TICK.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(LAST_TICK.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ACTIVE,Boolean) If (SEQUENCE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SEQUENCE.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) End If If (VALIDATION_SQL Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(VALIDATION_SQL,String) End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(10).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 TBEMLP_POLL_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 Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBEMLP_POLL_PROCESS" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("PROCESS_NAME", "PROCESS_NAME") tableMapping.ColumnMappings.Add("STEP_NAME", "STEP_NAME") tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") tableMapping.ColumnMappings.Add("COPY_2_HDD", "COPY_2_HDD") tableMapping.ColumnMappings.Add("WM_IMPORT", "WM_IMPORT") tableMapping.ColumnMappings.Add("WM_OBJEKTTYPE", "WM_OBJEKTTYPE") tableMapping.ColumnMappings.Add("WM_VECTOR_LOG", "WM_VECTOR_LOG") tableMapping.ColumnMappings.Add("WM_PATH", "WM_PATH") tableMapping.ColumnMappings.Add("WM_FILE_NAME", "WM_FILE_NAME") tableMapping.ColumnMappings.Add("WM_REFERENCE_INDEX", "WM_REFERENCE_INDEX") tableMapping.ColumnMappings.Add("PATH_EMAIL_TEMP", "PATH_EMAIL_TEMP") tableMapping.ColumnMappings.Add("PATH_EMAIL_ERRORS", "PATH_EMAIL_ERRORS") tableMapping.ColumnMappings.Add("DELETE_MAIL", "DELETE_MAIL") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("WM_IDX_BODY_TEXT", "WM_IDX_BODY_TEXT") tableMapping.ColumnMappings.Add("WM_IDX_BODY_SUBSTR_LENGTH", "WM_IDX_BODY_SUBSTR_LENGTH") tableMapping.ColumnMappings.Add("PATH_ORIGINAL", "PATH_ORIGINAL") 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 TBEMLP_POLL_PROCESS"&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 TBEMLP_POLL_PROCESS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROCESS_NAME, STEP_NAM"& _ "E, PROFILE_ID, COPY_2_HDD, WM_IMPORT, WM_OBJEKTTYPE, WM_VECTOR_LOG, WM_PATH, WM_"& _ "FILE_NAME, WM_REFERENCE_INDEX, PATH_EMAIL_TEMP, PATH_EMAIL_ERRORS, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " DELETE_MAIL, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, WM_IDX_BODY_TEX"& _ "T, WM_IDX_BODY_SUBSTR_LENGTH, PATH_ORIGINAL)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROCESS_NAME,@STEP"& _ "_NAME,@PROFILE_ID,@COPY_2_HDD,@WM_IMPORT,@WM_OBJEKTTYPE,@WM_VECTOR_LOG,@WM_PATH,"& _ "@WM_FILE_NAME,@WM_REFERENCE_INDEX,@PATH_EMAIL_TEMP,@PATH_EMAIL_ERRORS,@DELETE_MA"& _ "IL,@COMMENT,@ACTIVE,@SEQUENCE,@ADDED_WHO,@WM_IDX_BODY_TEXT,@WM_IDX_BODY_SUBSTR_L"& _ "ENGTH,@PATH_ORIGINAL); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROCESS_NAME, STEP_NAME, PROFILE_ID, COPY"& _ "_2_HDD, WM_IMPORT, WM_OBJEKTTYPE, WM_VECTOR_LOG, WM_PATH, WM_FILE_NAME, WM_REFER"& _ "ENCE_INDEX, PATH_EMAIL_TEMP, PATH_EMAIL_ERRORS, DELETE_MAIL, COMMENT, ACTIVE, SE"& _ "QUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, WM_IDX_BODY_TEXT, WM_I"& _ "DX_BODY_SUBSTR_LENGTH FROM TBEMLP_POLL_PROCESS WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STEP_NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "STEP_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@COPY_2_HDD", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "COPY_2_HDD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_IMPORT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IMPORT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_OBJEKTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_OBJEKTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_VECTOR_LOG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_VECTOR_LOG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_PATH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_FILE_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_FILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_REFERENCE_INDEX", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_REFERENCE_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATH_EMAIL_TEMP", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_EMAIL_TEMP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATH_EMAIL_ERRORS", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_EMAIL_ERRORS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_MAIL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_MAIL", 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("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", 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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_IDX_BODY_TEXT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IDX_BODY_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_IDX_BODY_SUBSTR_LENGTH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IDX_BODY_SUBSTR_LENGTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATH_ORIGINAL", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_ORIGINAL", 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 TBEMLP_POLL_PROCESS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROCESS_NAME = @PROCESS_NAME"& _ ", STEP_NAME = @STEP_NAME, PROFILE_ID = @PROFILE_ID, COPY_2_HDD = @COPY_2_HDD, WM"& _ "_IMPORT = @WM_IMPORT, WM_OBJEKTTYPE = @WM_OBJEKTTYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " WM_VECTOR_LOG = @WM_VECTOR_LOG, WM_PATH = @WM_PATH, WM_FILE_NAME = @WM_FILE_NAM"& _ "E, WM_REFERENCE_INDEX = @WM_REFERENCE_INDEX, PATH_EMAIL_TEMP = @PATH_EMAIL_TEMP,"& _ " "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" PATH_EMAIL_ERRORS = @PATH_EMAIL_ERRORS, DELETE_MAIL "& _ "= @DELETE_MAIL, COMMENT = @COMMENT, ACTIVE = @ACTIVE, SEQUENCE = @SEQUENCE, CHAN"& _ "GED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WM_IDX_BODY_TEXT = @WM_IDX_BO"& _ "DY_TEXT, WM_IDX_BODY_SUBSTR_LENGTH = @WM_IDX_BODY_SUBSTR_LENGTH, PATH_ORIGINAL ="& _ " @PATH_ORIGINAL"&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, PROCESS_N"& _ "AME, STEP_NAME, PROFILE_ID, COPY_2_HDD, WM_IMPORT, WM_OBJEKTTYPE, WM_VECTOR_LOG,"& _ " WM_PATH, WM_FILE_NAME, WM_REFERENCE_INDEX, PATH_EMAIL_TEMP, PATH_EMAIL_ERRORS, "& _ "DELETE_MAIL, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHAN"& _ "GED_WHEN, WM_IDX_BODY_TEXT, WM_IDX_BODY_SUBSTR_LENGTH FROM TBEMLP_POLL_PROCESS W"& _ "HERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STEP_NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "STEP_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@COPY_2_HDD", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "COPY_2_HDD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_IMPORT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IMPORT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_OBJEKTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_OBJEKTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_VECTOR_LOG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_VECTOR_LOG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_PATH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_FILE_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_FILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_REFERENCE_INDEX", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_REFERENCE_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATH_EMAIL_TEMP", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_EMAIL_TEMP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATH_EMAIL_ERRORS", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_EMAIL_ERRORS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_MAIL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_MAIL", 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("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", 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("@WM_IDX_BODY_TEXT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IDX_BODY_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_IDX_BODY_SUBSTR_LENGTH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IDX_BODY_SUBSTR_LENGTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATH_ORIGINAL", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_ORIGINAL", 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.EmailProfiler.Form.My.MySettings.Default.MyDatasetConnString 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, PROCESS_NAME, STEP_NAME, PROFILE_ID, COPY_2_HDD, WM_IMPORT, W"& _ "M_OBJEKTTYPE, WM_VECTOR_LOG, WM_PATH, WM_FILE_NAME, WM_REFERENCE_INDEX, PATH_EMA"& _ "IL_TEMP, PATH_EMAIL_ERRORS, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" DELETE_MAIL, COMMENT, ACT"& _ "IVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, WM_IDX_BODY_TEX"& _ "T, WM_IDX_BODY_SUBSTR_LENGTH, PATH_ORIGINAL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBEMLP_POLL_PROCESS"& _ "" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBEMLP_POLL_PROCESSDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBEMLP_POLL_PROCESSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As MyDataset.TBEMLP_POLL_PROCESSDataTable = New MyDataset.TBEMLP_POLL_PROCESSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBEMLP_POLL_PROCESSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBEMLP_POLL_PROCESS") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert( _ ByVal PROCESS_NAME As String, _ ByVal STEP_NAME As String, _ ByVal PROFILE_ID As Integer, _ ByVal COPY_2_HDD As Boolean, _ ByVal WM_IMPORT As Boolean, _ ByVal WM_OBJEKTTYPE As String, _ ByVal WM_VECTOR_LOG As String, _ ByVal WM_PATH As String, _ ByVal WM_FILE_NAME As String, _ ByVal WM_REFERENCE_INDEX As String, _ ByVal PATH_EMAIL_TEMP As String, _ ByVal PATH_EMAIL_ERRORS As String, _ ByVal DELETE_MAIL As Boolean, _ ByVal COMMENT As String, _ ByVal ACTIVE As Boolean, _ ByVal SEQUENCE As Global.System.Nullable(Of Integer), _ ByVal ADDED_WHO As String, _ ByVal WM_IDX_BODY_TEXT As String, _ ByVal WM_IDX_BODY_SUBSTR_LENGTH As Integer, _ ByVal PATH_ORIGINAL As String) As Integer If (PROCESS_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("PROCESS_NAME") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROCESS_NAME,String) End If If (STEP_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("STEP_NAME") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(STEP_NAME,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(PROFILE_ID,Integer) Me.Adapter.InsertCommand.Parameters(3).Value = CType(COPY_2_HDD,Boolean) Me.Adapter.InsertCommand.Parameters(4).Value = CType(WM_IMPORT,Boolean) If (WM_OBJEKTTYPE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(WM_OBJEKTTYPE,String) End If If (WM_VECTOR_LOG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(WM_VECTOR_LOG,String) End If If (WM_PATH Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(WM_PATH,String) End If If (WM_FILE_NAME Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(WM_FILE_NAME,String) End If If (WM_REFERENCE_INDEX Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(WM_REFERENCE_INDEX,String) End If If (PATH_EMAIL_TEMP Is Nothing) Then Throw New Global.System.ArgumentNullException("PATH_EMAIL_TEMP") Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(PATH_EMAIL_TEMP,String) End If If (PATH_EMAIL_ERRORS Is Nothing) Then Throw New Global.System.ArgumentNullException("PATH_EMAIL_ERRORS") Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(PATH_EMAIL_ERRORS,String) End If Me.Adapter.InsertCommand.Parameters(12).Value = CType(DELETE_MAIL,Boolean) If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(COMMENT,String) End If Me.Adapter.InsertCommand.Parameters(14).Value = CType(ACTIVE,Boolean) If (SEQUENCE.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(15).Value = CType(SEQUENCE.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (ADDED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(ADDED_WHO,String) End If If (WM_IDX_BODY_TEXT Is Nothing) Then Throw New Global.System.ArgumentNullException("WM_IDX_BODY_TEXT") Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(WM_IDX_BODY_TEXT,String) End If Me.Adapter.InsertCommand.Parameters(18).Value = CType(WM_IDX_BODY_SUBSTR_LENGTH,Integer) If (PATH_ORIGINAL Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(PATH_ORIGINAL,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal PROCESS_NAME As String, _ ByVal STEP_NAME As String, _ ByVal PROFILE_ID As Integer, _ ByVal COPY_2_HDD As Boolean, _ ByVal WM_IMPORT As Boolean, _ ByVal WM_OBJEKTTYPE As String, _ ByVal WM_VECTOR_LOG As String, _ ByVal WM_PATH As String, _ ByVal WM_FILE_NAME As String, _ ByVal WM_REFERENCE_INDEX As String, _ ByVal PATH_EMAIL_TEMP As String, _ ByVal PATH_EMAIL_ERRORS As String, _ ByVal DELETE_MAIL As Boolean, _ ByVal COMMENT As String, _ ByVal ACTIVE As Boolean, _ ByVal SEQUENCE As Global.System.Nullable(Of Integer), _ ByVal CHANGED_WHO As String, _ ByVal WM_IDX_BODY_TEXT As String, _ ByVal WM_IDX_BODY_SUBSTR_LENGTH As Integer, _ ByVal PATH_ORIGINAL As String, _ ByVal Original_GUID As Integer, _ ByVal GUID As Integer) As Integer If (PROCESS_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("PROCESS_NAME") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROCESS_NAME,String) End If If (STEP_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("STEP_NAME") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(STEP_NAME,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PROFILE_ID,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COPY_2_HDD,Boolean) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(WM_IMPORT,Boolean) If (WM_OBJEKTTYPE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(WM_OBJEKTTYPE,String) End If If (WM_VECTOR_LOG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(WM_VECTOR_LOG,String) End If If (WM_PATH Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(WM_PATH,String) End If If (WM_FILE_NAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(WM_FILE_NAME,String) End If If (WM_REFERENCE_INDEX Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(WM_REFERENCE_INDEX,String) End If If (PATH_EMAIL_TEMP Is Nothing) Then Throw New Global.System.ArgumentNullException("PATH_EMAIL_TEMP") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(PATH_EMAIL_TEMP,String) End If If (PATH_EMAIL_ERRORS Is Nothing) Then Throw New Global.System.ArgumentNullException("PATH_EMAIL_ERRORS") Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(PATH_EMAIL_ERRORS,String) End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(DELETE_MAIL,Boolean) If (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(COMMENT,String) End If Me.Adapter.UpdateCommand.Parameters(14).Value = CType(ACTIVE,Boolean) If (SEQUENCE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(SEQUENCE.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(CHANGED_WHO,String) End If If (WM_IDX_BODY_TEXT Is Nothing) Then Throw New Global.System.ArgumentNullException("WM_IDX_BODY_TEXT") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(WM_IDX_BODY_TEXT,String) End If Me.Adapter.UpdateCommand.Parameters(18).Value = CType(WM_IDX_BODY_SUBSTR_LENGTH,Integer) If (PATH_ORIGINAL Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(PATH_ORIGINAL,String) End If Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(21).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 TBEMLP_POLL_STEPSTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBEMLP_POLL_STEPS" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("PROCESS_ID", "PROCESS_ID") tableMapping.ColumnMappings.Add("STEP_NAME", "STEP_NAME") tableMapping.ColumnMappings.Add("KEYWORDS_BODY", "KEYWORDS_BODY") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") 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 TBEMLP_POLL_STEPS"&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 TBEMLP_POLL_STEPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROCESS_ID, STEP_NAME, K"& _ "EYWORDS_BODY, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROCESS_ID,"& _ "@STEP_NAME,@KEYWORDS_BODY,@COMMENT,@ACTIVE,@SEQUENCE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID,"& _ " PROCESS_ID, STEP_NAME, KEYWORDS_BODY, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADD"& _ "ED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBEMLP_POLL_STEPS WHERE (GUID = SCOPE_ID"& _ "ENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STEP_NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "STEP_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KEYWORDS_BODY", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "KEYWORDS_BODY", 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("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", 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 TBEMLP_POLL_STEPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROCESS_ID = @PROCESS_ID, STEP"& _ "_NAME = @STEP_NAME, KEYWORDS_BODY = @KEYWORDS_BODY, COMMENT = @COMMENT, ACTIVE ="& _ " @ACTIVE, SEQUENCE = @SEQUENCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CHANGE"& _ "D_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, PROCESS_ID, STEP_NAM"& _ "E, KEYWORDS_BODY, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO,"& _ " CHANGED_WHEN FROM TBEMLP_POLL_STEPS WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STEP_NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "STEP_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KEYWORDS_BODY", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "KEYWORDS_BODY", 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("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", 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.EmailProfiler.Form.My.MySettings.Default.MyDatasetConnString 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 TBEMLP_POLL_STEPS.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBEMLP_POLL_STEPS" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBEMLP_POLL_STEPSDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBEMLP_POLL_STEPSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As MyDataset.TBEMLP_POLL_STEPSDataTable = New MyDataset.TBEMLP_POLL_STEPSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBEMLP_POLL_STEPSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBEMLP_POLL_STEPS") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal PROCESS_ID As Integer, ByVal STEP_NAME As String, ByVal KEYWORDS_BODY As String, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal ADDED_WHO As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROCESS_ID,Integer) If (STEP_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("STEP_NAME") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(STEP_NAME,String) End If If (KEYWORDS_BODY Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(KEYWORDS_BODY,String) End If If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(ACTIVE,Boolean) If (SEQUENCE.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(SEQUENCE.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (ADDED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update(ByVal PROCESS_ID As Integer, ByVal STEP_NAME As String, ByVal KEYWORDS_BODY As String, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROCESS_ID,Integer) If (STEP_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("STEP_NAME") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(STEP_NAME,String) End If If (KEYWORDS_BODY Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(KEYWORDS_BODY,String) End If If (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ACTIVE,Boolean) If (SEQUENCE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SEQUENCE.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(8).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 TBEMLP_POLL_INDEXING_STEPSTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBEMLP_POLL_INDEXING_STEPS" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("STEP_ID", "STEP_ID") tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") tableMapping.ColumnMappings.Add("INDEXVALUE", "INDEXVALUE") tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") tableMapping.ColumnMappings.Add("USE_FOR_DIRECT_ANSWER", "USE_FOR_DIRECT_ANSWER") tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") 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 TBEMLP_POLL_INDEXING_STEPS"&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.SmallInt, 2, 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 TBEMLP_POLL_INDEXING_STEPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (STEP_ID, INDEXN"& _ "AME, INDEXVALUE, ACTIVE, USE_FOR_DIRECT_ANSWER, SEQUENCE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ " (@STEP_ID,@INDEXNAME,@INDEXVALUE,@ACTIVE,@USE_FOR_DIRECT_ANSWER,@SEQUENCE,@A"& _ "DDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, STEP_ID, INDEXNAME, INDEXVALUE, ACTIVE, USE_FOR_DIRECT"& _ "_ANSWER, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBEMLP_"& _ "POLL_INDEXING_STEPS WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STEP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "STEP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXVALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXVALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USE_FOR_DIRECT_ANSWER", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "USE_FOR_DIRECT_ANSWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", 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 TBEMLP_POLL_INDEXING_STEPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET STEP_ID = @STEP_ID, I"& _ "NDEXNAME = @INDEXNAME, INDEXVALUE = @INDEXVALUE, ACTIVE = @ACTIVE, USE_FOR_DIREC"& _ "T_ANSWER = @USE_FOR_DIRECT_ANSWER, SEQUENCE = @SEQUENCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT G"& _ "UID, STEP_ID, INDEXNAME, INDEXVALUE, ACTIVE, USE_FOR_DIRECT_ANSWER, SEQUENCE, AD"& _ "DED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBEMLP_POLL_INDEXING_STEPS W"& _ "HERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STEP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "STEP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXVALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXVALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USE_FOR_DIRECT_ANSWER", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "USE_FOR_DIRECT_ANSWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", 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.SmallInt, 2, 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.SmallInt, 2, 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.EmailProfiler.Form.My.MySettings.Default.MyDatasetConnString 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 TBEMLP_POLL_INDEXING_STEPS.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBEMLP_POLL_INDEXING_"& _ "STEPS" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBEMLP_POLL_INDEXING_STEPSDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBEMLP_POLL_INDEXING_STEPSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As MyDataset.TBEMLP_POLL_INDEXING_STEPSDataTable = New MyDataset.TBEMLP_POLL_INDEXING_STEPSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBEMLP_POLL_INDEXING_STEPSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBEMLP_POLL_INDEXING_STEPS") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Short) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Short) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal STEP_ID As Integer, ByVal INDEXNAME As String, ByVal INDEXVALUE As String, ByVal ACTIVE As Boolean, ByVal USE_FOR_DIRECT_ANSWER As Boolean, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal ADDED_WHO As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(STEP_ID,Integer) If (INDEXNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("INDEXNAME") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(INDEXNAME,String) End If If (INDEXVALUE Is Nothing) Then Throw New Global.System.ArgumentNullException("INDEXVALUE") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(INDEXVALUE,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(ACTIVE,Boolean) Me.Adapter.InsertCommand.Parameters(4).Value = CType(USE_FOR_DIRECT_ANSWER,Boolean) If (SEQUENCE.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(SEQUENCE.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (ADDED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update(ByVal STEP_ID As Integer, ByVal INDEXNAME As String, ByVal INDEXVALUE As String, ByVal ACTIVE As Boolean, ByVal USE_FOR_DIRECT_ANSWER As Boolean, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal CHANGED_WHO As String, ByVal Original_GUID As Short, ByVal GUID As Short) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(STEP_ID,Integer) If (INDEXNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("INDEXNAME") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(INDEXNAME,String) End If If (INDEXVALUE Is Nothing) Then Throw New Global.System.ArgumentNullException("INDEXVALUE") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(INDEXVALUE,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ACTIVE,Boolean) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(USE_FOR_DIRECT_ANSWER,Boolean) If (SEQUENCE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SEQUENCE.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Short) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Short) 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 TBEMLP_HISTORYTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBEMLP_HISTORY" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("WORK_PROCESS", "WORK_PROCESS") tableMapping.ColumnMappings.Add("EMAIL_MSGID", "EMAIL_MSGID") tableMapping.ColumnMappings.Add("EMAIL_SUBJECT", "EMAIL_SUBJECT") tableMapping.ColumnMappings.Add("EMAIL_DATE", "EMAIL_DATE") tableMapping.ColumnMappings.Add("EMAIL_BODY", "EMAIL_BODY") tableMapping.ColumnMappings.Add("EMAIL_SUBSTRING1", "EMAIL_SUBSTRING1") tableMapping.ColumnMappings.Add("EMAIL_SUBSTRING2", "EMAIL_SUBSTRING2") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") 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 TBEMLP_HISTORY"&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 [TBEMLP_HISTORY] ([WORK_PROCESS], [EMAIL_MSGID], [EMAIL_SUBJECT], [EM"& _ "AIL_DATE], [EMAIL_BODY], [EMAIL_SUBSTRING1], [EMAIL_SUBSTRING2], [COMMENT], [ADD"& _ "ED_WHEN]) VALUES (@WORK_PROCESS, @EMAIL_MSGID, @EMAIL_SUBJECT, @EMAIL_DATE, @EMA"& _ "IL_BODY, @EMAIL_SUBSTRING1, @EMAIL_SUBSTRING2, @COMMENT, @ADDED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT G"& _ "UID, WORK_PROCESS, EMAIL_MSGID, EMAIL_SUBJECT, EMAIL_DATE, EMAIL_BODY, EMAIL_SUB"& _ "STRING1, EMAIL_SUBSTRING2, COMMENT, ADDED_WHEN FROM TBEMLP_HISTORY WHERE (GUID ="& _ " SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORK_PROCESS", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_PROCESS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_MSGID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_MSGID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_DATE", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_DATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBSTRING1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBSTRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBSTRING2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBSTRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [TBEMLP_HISTORY] SET [WORK_PROCESS] = @WORK_PROCESS, [EMAIL_MSGID] = @EMAI"& _ "L_MSGID, [EMAIL_SUBJECT] = @EMAIL_SUBJECT, [EMAIL_DATE] = @EMAIL_DATE, [EMAIL_BO"& _ "DY] = @EMAIL_BODY, [EMAIL_SUBSTRING1] = @EMAIL_SUBSTRING1, [EMAIL_SUBSTRING2] = "& _ "@EMAIL_SUBSTRING2, [COMMENT] = @COMMENT, [ADDED_WHEN] = @ADDED_WHEN WHERE (([GUI"& _ "D] = @Original_GUID) AND ((@IsNull_WORK_PROCESS = 1 AND [WORK_PROCESS] IS NULL) "& _ "OR ([WORK_PROCESS] = @Original_WORK_PROCESS)) AND ([EMAIL_MSGID] = @Original_EMA"& _ "IL_MSGID) AND ((@IsNull_EMAIL_DATE = 1 AND [EMAIL_DATE] IS NULL) OR ([EMAIL_DATE"& _ "] = @Original_EMAIL_DATE)) AND ((@IsNull_EMAIL_SUBSTRING1 = 1 AND [EMAIL_SUBSTRI"& _ "NG1] IS NULL) OR ([EMAIL_SUBSTRING1] = @Original_EMAIL_SUBSTRING1)) AND ((@IsNul"& _ "l_EMAIL_SUBSTRING2 = 1 AND [EMAIL_SUBSTRING2] IS NULL) OR ([EMAIL_SUBSTRING2] = "& _ "@Original_EMAIL_SUBSTRING2)) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR"& _ " ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] "& _ "IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, WORK_PROCESS,"& _ " EMAIL_MSGID, EMAIL_SUBJECT, EMAIL_DATE, EMAIL_BODY, EMAIL_SUBSTRING1, EMAIL_SUB"& _ "STRING2, COMMENT, ADDED_WHEN FROM TBEMLP_HISTORY WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORK_PROCESS", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_PROCESS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_MSGID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_MSGID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_DATE", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_DATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBSTRING1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBSTRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBSTRING2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBSTRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_WORK_PROCESS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_PROCESS", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WORK_PROCESS", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_PROCESS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EMAIL_MSGID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_MSGID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EMAIL_DATE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_DATE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EMAIL_DATE", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_DATE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EMAIL_SUBSTRING1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBSTRING1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EMAIL_SUBSTRING1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBSTRING1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EMAIL_SUBSTRING2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBSTRING2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EMAIL_SUBSTRING2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBSTRING2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.EmailProfiler.Form.My.MySettings.Default.MyDatasetConnString 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 TBEMLP_HISTORY.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBEMLP_HISTORY" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBEMLP_HISTORYDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBEMLP_HISTORYDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As MyDataset.TBEMLP_HISTORYDataTable = New MyDataset.TBEMLP_HISTORYDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBEMLP_HISTORYDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBEMLP_HISTORY") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal WORK_PROCESS As String, ByVal EMAIL_MSGID As Integer, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_DATE As Global.System.Nullable(Of Date), ByVal EMAIL_BODY As String, ByVal EMAIL_SUBSTRING1 As String, ByVal EMAIL_SUBSTRING2 As String, ByVal COMMENT As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date)) As Integer If (WORK_PROCESS Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(WORK_PROCESS,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(EMAIL_MSGID,Integer) If (EMAIL_SUBJECT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(EMAIL_SUBJECT,String) End If If (EMAIL_DATE.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL_DATE.Value,Date) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (EMAIL_BODY Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(EMAIL_BODY,String) End If If (EMAIL_SUBSTRING1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(EMAIL_SUBSTRING1,String) End If If (EMAIL_SUBSTRING2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(EMAIL_SUBSTRING2,String) End If If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(COMMENT,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal WORK_PROCESS As String, _ ByVal EMAIL_MSGID As Integer, _ ByVal EMAIL_SUBJECT As String, _ ByVal EMAIL_DATE As Global.System.Nullable(Of Date), _ ByVal EMAIL_BODY As String, _ ByVal EMAIL_SUBSTRING1 As String, _ ByVal EMAIL_SUBSTRING2 As String, _ ByVal COMMENT As String, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_GUID As Integer, _ ByVal Original_WORK_PROCESS As String, _ ByVal Original_EMAIL_MSGID As Integer, _ ByVal Original_EMAIL_DATE As Global.System.Nullable(Of Date), _ ByVal Original_EMAIL_SUBSTRING1 As String, _ ByVal Original_EMAIL_SUBSTRING2 As String, _ ByVal Original_COMMENT As String, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal GUID As Integer) As Integer If (WORK_PROCESS Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(WORK_PROCESS,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EMAIL_MSGID,Integer) If (EMAIL_SUBJECT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EMAIL_SUBJECT,String) End If If (EMAIL_DATE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL_DATE.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (EMAIL_BODY Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EMAIL_BODY,String) End If If (EMAIL_SUBSTRING1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(EMAIL_SUBSTRING1,String) End If If (EMAIL_SUBSTRING2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(EMAIL_SUBSTRING2,String) End If If (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(COMMENT,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) If (Original_WORK_PROCESS Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_WORK_PROCESS,String) End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_EMAIL_MSGID,Integer) If (Original_EMAIL_DATE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_EMAIL_DATE.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Original_EMAIL_SUBSTRING1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_EMAIL_SUBSTRING1,String) End If If (Original_EMAIL_SUBSTRING2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_EMAIL_SUBSTRING2,String) End If If (Original_COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_COMMENT,String) End If If (Original_ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(23).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal WORK_PROCESS As String, _ ByVal EMAIL_MSGID As Integer, _ ByVal EMAIL_SUBJECT As String, _ ByVal EMAIL_DATE As Global.System.Nullable(Of Date), _ ByVal EMAIL_BODY As String, _ ByVal EMAIL_SUBSTRING1 As String, _ ByVal EMAIL_SUBSTRING2 As String, _ ByVal COMMENT As String, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_GUID As Integer, _ ByVal Original_WORK_PROCESS As String, _ ByVal Original_EMAIL_MSGID As Integer, _ ByVal Original_EMAIL_DATE As Global.System.Nullable(Of Date), _ ByVal Original_EMAIL_SUBSTRING1 As String, _ ByVal Original_EMAIL_SUBSTRING2 As String, _ ByVal Original_COMMENT As String, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date)) As Integer Return Me.Update(WORK_PROCESS, EMAIL_MSGID, EMAIL_SUBJECT, EMAIL_DATE, EMAIL_BODY, EMAIL_SUBSTRING1, EMAIL_SUBSTRING2, COMMENT, ADDED_WHEN, Original_GUID, Original_WORK_PROCESS, Original_EMAIL_MSGID, Original_EMAIL_DATE, Original_EMAIL_SUBSTRING1, Original_EMAIL_SUBSTRING2, Original_COMMENT, Original_ADDED_WHEN, Original_GUID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBEMLP_CONFIGTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBEMLP_CONFIG" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("FONT_BODY", "FONT_BODY") tableMapping.ColumnMappings.Add("LOG_ERRORS_ONLY", "LOG_ERRORS_ONLY") tableMapping.ColumnMappings.Add("CHECK_INTERVALL_MINUTES", "CHECK_INTERVALL_MINUTES") tableMapping.ColumnMappings.Add("LAST_TICK", "LAST_TICK") tableMapping.ColumnMappings.Add("PATH_EMAIL_TEMP", "PATH_EMAIL_TEMP") tableMapping.ColumnMappings.Add("PATH_EMAIL_ERRORS", "PATH_EMAIL_ERRORS") tableMapping.ColumnMappings.Add("WM_CON_STRING", "WM_CON_STRING") 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.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBEMLP_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET GUID = @GUID, FONT_BODY = @FONT_BO"& _ "DY, LOG_ERRORS_ONLY = @LOG_ERRORS_ONLY, CHECK_INTERVALL_MINUTES = @CHECK_INTERVA"& _ "LL_MINUTES, LAST_TICK = @LAST_TICK, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" PATH_EMAIL_TEMP ="& _ " @PATH_EMAIL_TEMP, PATH_EMAIL_ERRORS = @PATH_EMAIL_ERRORS, WM_CON_STRING = @WM_C"& _ "ON_STRING, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = 1); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, F"& _ "ONT_BODY, LOG_ERRORS_ONLY, CHECK_INTERVALL_MINUTES, LAST_TICK, PATH_EMAIL_TEMP, "& _ "PATH_EMAIL_ERRORS, WM_CON_STRING, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBE"& _ "MLP_CONFIG WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_BODY", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_BODY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_ERRORS_ONLY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_ERRORS_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHECK_INTERVALL_MINUTES", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CHECK_INTERVALL_MINUTES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LAST_TICK", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "LAST_TICK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATH_EMAIL_TEMP", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_EMAIL_TEMP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATH_EMAIL_ERRORS", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_EMAIL_ERRORS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_CON_STRING", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_CON_STRING", 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, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.EmailProfiler.Form.My.MySettings.Default.MyDatasetConnString 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 TBEMLP_CONFIG.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBEMLP_CONFIG" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBEMLP_CONFIGDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBEMLP_CONFIGDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As MyDataset.TBEMLP_CONFIGDataTable = New MyDataset.TBEMLP_CONFIGDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBEMLP_CONFIGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBEMLP_CONFIG") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Update(ByVal GUID As Byte, ByVal FONT_BODY As String, ByVal LOG_ERRORS_ONLY As Boolean, ByVal CHECK_INTERVALL_MINUTES As Integer, ByVal LAST_TICK As Global.System.Nullable(Of Date), ByVal PATH_EMAIL_TEMP As String, ByVal PATH_EMAIL_ERRORS As String, ByVal WM_CON_STRING As String, ByVal CHANGED_WHO As String) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(GUID,Byte) If (FONT_BODY Is Nothing) Then Throw New Global.System.ArgumentNullException("FONT_BODY") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FONT_BODY,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LOG_ERRORS_ONLY,Boolean) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHECK_INTERVALL_MINUTES,Integer) If (LAST_TICK.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(LAST_TICK.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (PATH_EMAIL_TEMP Is Nothing) Then Throw New Global.System.ArgumentNullException("PATH_EMAIL_TEMP") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PATH_EMAIL_TEMP,String) End If If (PATH_EMAIL_ERRORS Is Nothing) Then Throw New Global.System.ArgumentNullException("PATH_EMAIL_ERRORS") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(PATH_EMAIL_ERRORS,String) End If If (WM_CON_STRING Is Nothing) Then Throw New Global.System.ArgumentNullException("WM_CON_STRING") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(WM_CON_STRING,String) End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) End If 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 TBDD_EMAIL_ACCOUNTTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBDD_EMAIL_ACCOUNT" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("NAME", "NAME") tableMapping.ColumnMappings.Add("EMAIL_FROM", "EMAIL_FROM") tableMapping.ColumnMappings.Add("EMAIL_SMTP", "EMAIL_SMTP") tableMapping.ColumnMappings.Add("EMAIL_USER", "EMAIL_USER") tableMapping.ColumnMappings.Add("EMAIL_PW", "EMAIL_PW") tableMapping.ColumnMappings.Add("PORT", "PORT") tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("SSL_AUTH", "SSL_AUTH") tableMapping.ColumnMappings.Add("AUTH_TYPE", "AUTH_TYPE") tableMapping.ColumnMappings.Add("PORT_IN", "PORT_IN") tableMapping.ColumnMappings.Add("ARCHIVE_FOLDER", "ARCHIVE_FOLDER") 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 [TBDD_EMAIL_ACCOUNT] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_N"& _ "AME = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([EMAIL_FROM] = @O"& _ "riginal_EMAIL_FROM) AND ([EMAIL_SMTP] = @Original_EMAIL_SMTP) AND ([EMAIL_USER] "& _ "= @Original_EMAIL_USER) AND ([EMAIL_PW] = @Original_EMAIL_PW) AND ([PORT] = @Ori"& _ "ginal_PORT) AND ([ACTIVE] = @Original_ACTIVE) AND ((@IsNull_ADDED_WHO = 1 AND [A"& _ "DDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_W"& _ "HEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND "& _ "((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Origin"& _ "al_CHANGED_WHO)) AND ([CHANGED_WHEN] = @Original_CHANGED_WHEN) AND ([SSL_AUTH] ="& _ " @Original_SSL_AUTH) AND ((@IsNull_AUTH_TYPE = 1 AND [AUTH_TYPE] IS NULL) OR ([A"& _ "UTH_TYPE] = @Original_AUTH_TYPE)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PORT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PORT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SSL_AUTH", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SSL_AUTH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AUTH_TYPE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AUTH_TYPE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AUTH_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AUTH_TYPE", 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 TBDD_EMAIL_ACCOUNT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, EMAIL_FROM, EMAIL"& _ "_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, AUTH_TYPE, PORT_IN, ARCHIV"& _ "E_FOLDER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@EMAIL_FROM,@EMAIL_SMTP,@EMAIL_USER,@EMAIL_PW,@P"& _ "ORT,@ACTIVE,@ADDED_WHO,@AUTH_TYPE,@PORT_IN,@ARCHIVE_FOLDER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, "& _ "NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADD"& _ "ED_WHEN, CHANGED_WHO, CHANGED_WHEN, SSL_AUTH, AUTH_TYPE FROM TBDD_EMAIL_ACCOUNT "& _ "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, 50, 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("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PORT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PORT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", 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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AUTH_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "AUTH_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PORT_IN", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PORT_IN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ARCHIVE_FOLDER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "ARCHIVE_FOLDER", 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 TBDD_EMAIL_ACCOUNT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, EMAIL_FROM = @E"& _ "MAIL_FROM, EMAIL_SMTP = @EMAIL_SMTP, EMAIL_USER = @EMAIL_USER, EMAIL_PW = @EMAIL"& _ "_PW, PORT = @PORT, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " SSL_AUTH = @SSL_AUTH, AUTH_TYPE = @AUTH_TYPE, PORT_IN = @PORT_IN, AR"& _ "CHIVE_FOLDER = @ARCHIVE_FOLDER"&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, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_W"& _ "HO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SSL_AUTH, AUTH_TYPE FROM TBDD_EMAIL_A"& _ "CCOUNT 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, 50, 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("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PORT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PORT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", 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("@SSL_AUTH", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SSL_AUTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AUTH_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "AUTH_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PORT_IN", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PORT_IN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ARCHIVE_FOLDER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "ARCHIVE_FOLDER", 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.EmailProfiler.Form.My.MySettings.Default.MyDatasetConnString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACT"& _ "IVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SSL_AUTH, AUTH_TYPE, PORT"& _ "_IN, ARCHIVE_FOLDER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_EMAIL_ACCOUNT" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_EMAIL_ACCOUNTDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBDD_EMAIL_ACCOUNTDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As MyDataset.TBDD_EMAIL_ACCOUNTDataTable = New MyDataset.TBDD_EMAIL_ACCOUNTDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_EMAIL_ACCOUNTDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBDD_EMAIL_ACCOUNT") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function End Class ''' '''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 _tBEMLP_POLL_PROFILESTableAdapter As TBEMLP_POLL_PROFILESTableAdapter Private _tBEMLP_POLL_PROCESSTableAdapter As TBEMLP_POLL_PROCESSTableAdapter Private _tBEMLP_POLL_STEPSTableAdapter As TBEMLP_POLL_STEPSTableAdapter Private _tBEMLP_POLL_INDEXING_STEPSTableAdapter As TBEMLP_POLL_INDEXING_STEPSTableAdapter Private _tBEMLP_HISTORYTableAdapter As TBEMLP_HISTORYTableAdapter Private _tBEMLP_CONFIGTableAdapter As TBEMLP_CONFIGTableAdapter Private _tBDD_EMAIL_ACCOUNTTableAdapter As TBDD_EMAIL_ACCOUNTTableAdapter Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder End Get Set Me._updateOrder = value End Set End Property _ Public Property TBEMLP_POLL_PROFILESTableAdapter() As TBEMLP_POLL_PROFILESTableAdapter Get Return Me._tBEMLP_POLL_PROFILESTableAdapter End Get Set Me._tBEMLP_POLL_PROFILESTableAdapter = value End Set End Property _ Public Property TBEMLP_POLL_PROCESSTableAdapter() As TBEMLP_POLL_PROCESSTableAdapter Get Return Me._tBEMLP_POLL_PROCESSTableAdapter End Get Set Me._tBEMLP_POLL_PROCESSTableAdapter = value End Set End Property _ Public Property TBEMLP_POLL_STEPSTableAdapter() As TBEMLP_POLL_STEPSTableAdapter Get Return Me._tBEMLP_POLL_STEPSTableAdapter End Get Set Me._tBEMLP_POLL_STEPSTableAdapter = value End Set End Property _ Public Property TBEMLP_POLL_INDEXING_STEPSTableAdapter() As TBEMLP_POLL_INDEXING_STEPSTableAdapter Get Return Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter End Get Set Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter = value End Set End Property _ Public Property TBEMLP_HISTORYTableAdapter() As TBEMLP_HISTORYTableAdapter Get Return Me._tBEMLP_HISTORYTableAdapter End Get Set Me._tBEMLP_HISTORYTableAdapter = value End Set End Property _ Public Property TBEMLP_CONFIGTableAdapter() As TBEMLP_CONFIGTableAdapter Get Return Me._tBEMLP_CONFIGTableAdapter End Get Set Me._tBEMLP_CONFIGTableAdapter = value End Set End Property _ Public Property TBDD_EMAIL_ACCOUNTTableAdapter() As TBDD_EMAIL_ACCOUNTTableAdapter Get Return Me._tBDD_EMAIL_ACCOUNTTableAdapter End Get Set Me._tBDD_EMAIL_ACCOUNTTableAdapter = value End Set End Property _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate End Get Set Me._backupDataSetBeforeUpdate = value End Set End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get If (Not (Me._connection) Is Nothing) Then Return Me._connection End If If ((Not (Me._tBEMLP_POLL_PROFILESTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBEMLP_POLL_PROFILESTableAdapter.Connection) Is Nothing)) Then Return Me._tBEMLP_POLL_PROFILESTableAdapter.Connection End If If ((Not (Me._tBEMLP_POLL_PROCESSTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBEMLP_POLL_PROCESSTableAdapter.Connection) Is Nothing)) Then Return Me._tBEMLP_POLL_PROCESSTableAdapter.Connection End If If ((Not (Me._tBEMLP_POLL_STEPSTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBEMLP_POLL_STEPSTableAdapter.Connection) Is Nothing)) Then Return Me._tBEMLP_POLL_STEPSTableAdapter.Connection End If If ((Not (Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter.Connection) Is Nothing)) Then Return Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter.Connection End If If ((Not (Me._tBEMLP_HISTORYTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBEMLP_HISTORYTableAdapter.Connection) Is Nothing)) Then Return Me._tBEMLP_HISTORYTableAdapter.Connection End If If ((Not (Me._tBEMLP_CONFIGTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBEMLP_CONFIGTableAdapter.Connection) Is Nothing)) Then Return Me._tBEMLP_CONFIGTableAdapter.Connection End If If ((Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection End If Return Nothing End Get Set Me._connection = value End Set End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get Dim count As Integer = 0 If (Not (Me._tBEMLP_POLL_PROFILESTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBEMLP_POLL_PROCESSTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBEMLP_POLL_STEPSTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBEMLP_HISTORYTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBEMLP_CONFIGTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) 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._tBEMLP_POLL_PROFILESTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBEMLP_POLL_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._tBEMLP_POLL_PROFILESTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBEMLP_POLL_PROCESSTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBEMLP_POLL_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._tBEMLP_POLL_PROCESSTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBEMLP_POLL_STEPSTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBEMLP_POLL_STEPS.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._tBEMLP_POLL_STEPSTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBEMLP_POLL_INDEXING_STEPS.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._tBEMLP_POLL_INDEXING_STEPSTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBEMLP_HISTORYTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBEMLP_HISTORY.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._tBEMLP_HISTORYTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBEMLP_CONFIGTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBEMLP_CONFIG.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._tBEMLP_CONFIGTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.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._tBDD_EMAIL_ACCOUNTTableAdapter.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._tBEMLP_POLL_PROFILESTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBEMLP_POLL_PROFILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBEMLP_POLL_PROFILESTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBEMLP_POLL_PROCESSTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBEMLP_POLL_PROCESS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBEMLP_POLL_PROCESSTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBEMLP_POLL_STEPSTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBEMLP_POLL_STEPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBEMLP_POLL_STEPSTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBEMLP_POLL_INDEXING_STEPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBEMLP_HISTORYTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBEMLP_HISTORY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBEMLP_HISTORYTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBEMLP_CONFIGTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBEMLP_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBEMLP_CONFIGTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.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._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBEMLP_CONFIGTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBEMLP_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBEMLP_CONFIGTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBEMLP_HISTORYTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBEMLP_HISTORY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBEMLP_HISTORYTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBEMLP_POLL_INDEXING_STEPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBEMLP_POLL_STEPSTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBEMLP_POLL_STEPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBEMLP_POLL_STEPSTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBEMLP_POLL_PROCESSTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBEMLP_POLL_PROCESS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBEMLP_POLL_PROCESSTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBEMLP_POLL_PROFILESTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBEMLP_POLL_PROFILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBEMLP_POLL_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._tBEMLP_POLL_PROFILESTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBEMLP_POLL_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._tBEMLP_POLL_PROCESSTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBEMLP_POLL_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 If ((Not (Me._tBEMLP_POLL_STEPSTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBEMLP_POLL_STEPSTableAdapter.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._tBEMLP_POLL_INDEXING_STEPSTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter.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._tBEMLP_HISTORYTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBEMLP_HISTORYTableAdapter.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._tBEMLP_CONFIGTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBEMLP_CONFIGTableAdapter.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._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_EMAIL_ACCOUNTTableAdapter.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._tBEMLP_POLL_PROFILESTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBEMLP_POLL_PROFILESTableAdapter, Me._tBEMLP_POLL_PROFILESTableAdapter.Connection) Me._tBEMLP_POLL_PROFILESTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBEMLP_POLL_PROFILESTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBEMLP_POLL_PROFILESTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBEMLP_POLL_PROFILESTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBEMLP_POLL_PROFILESTableAdapter.Adapter) End If End If If (Not (Me._tBEMLP_POLL_PROCESSTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBEMLP_POLL_PROCESSTableAdapter, Me._tBEMLP_POLL_PROCESSTableAdapter.Connection) Me._tBEMLP_POLL_PROCESSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBEMLP_POLL_PROCESSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBEMLP_POLL_PROCESSTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBEMLP_POLL_PROCESSTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBEMLP_POLL_PROCESSTableAdapter.Adapter) End If End If If (Not (Me._tBEMLP_POLL_STEPSTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBEMLP_POLL_STEPSTableAdapter, Me._tBEMLP_POLL_STEPSTableAdapter.Connection) Me._tBEMLP_POLL_STEPSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBEMLP_POLL_STEPSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBEMLP_POLL_STEPSTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBEMLP_POLL_STEPSTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBEMLP_POLL_STEPSTableAdapter.Adapter) End If End If If (Not (Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter, Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter.Connection) Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter.Adapter) End If End If If (Not (Me._tBEMLP_HISTORYTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBEMLP_HISTORYTableAdapter, Me._tBEMLP_HISTORYTableAdapter.Connection) Me._tBEMLP_HISTORYTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBEMLP_HISTORYTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBEMLP_HISTORYTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBEMLP_HISTORYTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBEMLP_HISTORYTableAdapter.Adapter) End If End If If (Not (Me._tBEMLP_CONFIGTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBEMLP_CONFIGTableAdapter, Me._tBEMLP_CONFIGTableAdapter.Connection) Me._tBEMLP_CONFIGTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBEMLP_CONFIGTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBEMLP_CONFIGTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBEMLP_CONFIGTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBEMLP_CONFIGTableAdapter.Adapter) End If End If If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBDD_EMAIL_ACCOUNTTableAdapter, Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection) Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBDD_EMAIL_ACCOUNTTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBDD_EMAIL_ACCOUNTTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBDD_EMAIL_ACCOUNTTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_EMAIL_ACCOUNTTableAdapter.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._tBEMLP_POLL_PROFILESTableAdapter) Is Nothing) Then Me._tBEMLP_POLL_PROFILESTableAdapter.Connection = CType(revertConnections(Me._tBEMLP_POLL_PROFILESTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBEMLP_POLL_PROFILESTableAdapter.Transaction = Nothing End If If (Not (Me._tBEMLP_POLL_PROCESSTableAdapter) Is Nothing) Then Me._tBEMLP_POLL_PROCESSTableAdapter.Connection = CType(revertConnections(Me._tBEMLP_POLL_PROCESSTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBEMLP_POLL_PROCESSTableAdapter.Transaction = Nothing End If If (Not (Me._tBEMLP_POLL_STEPSTableAdapter) Is Nothing) Then Me._tBEMLP_POLL_STEPSTableAdapter.Connection = CType(revertConnections(Me._tBEMLP_POLL_STEPSTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBEMLP_POLL_STEPSTableAdapter.Transaction = Nothing End If If (Not (Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter) Is Nothing) Then Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter.Connection = CType(revertConnections(Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter.Transaction = Nothing End If If (Not (Me._tBEMLP_HISTORYTableAdapter) Is Nothing) Then Me._tBEMLP_HISTORYTableAdapter.Connection = CType(revertConnections(Me._tBEMLP_HISTORYTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBEMLP_HISTORYTableAdapter.Transaction = Nothing End If If (Not (Me._tBEMLP_CONFIGTableAdapter) Is Nothing) Then Me._tBEMLP_CONFIGTableAdapter.Connection = CType(revertConnections(Me._tBEMLP_CONFIGTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBEMLP_CONFIGTableAdapter.Transaction = Nothing End If If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection = CType(revertConnections(Me._tBDD_EMAIL_ACCOUNTTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_EMAIL_ACCOUNTTableAdapter.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