3996 lines
232 KiB
VB.net
3996 lines
232 KiB
VB.net
'------------------------------------------------------------------------------
|
|
' <auto-generated>
|
|
' 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.
|
|
' </auto-generated>
|
|
'------------------------------------------------------------------------------
|
|
|
|
Option Strict Off
|
|
Option Explicit On
|
|
|
|
|
|
|
|
'''<summary>
|
|
'''Represents a strongly typed in-memory cache of data.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
|
|
Global.System.Xml.Serialization.XmlRootAttribute("MyDataset"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
|
|
Partial Public Class MyDataset
|
|
Inherits Global.System.Data.DataSet
|
|
|
|
Private tableTBDD_REPORTING_IMPORT As TBDD_REPORTING_IMPORTDataTable
|
|
|
|
Private tableTBTC_MOVE_RENAME As TBTC_MOVE_RENAMEDataTable
|
|
|
|
Private tableTBVEKTOR_ARRAY As TBVEKTOR_ARRAYDataTable
|
|
|
|
Private tableTBErgebnis As TBErgebnisDataTable
|
|
|
|
Private tableTBUV As TBUVDataTable
|
|
|
|
Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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("TBDD_REPORTING_IMPORT")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBDD_REPORTING_IMPORTDataTable(ds.Tables("TBDD_REPORTING_IMPORT")))
|
|
End If
|
|
If (Not (ds.Tables("TBTC_MOVE_RENAME")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBTC_MOVE_RENAMEDataTable(ds.Tables("TBTC_MOVE_RENAME")))
|
|
End If
|
|
If (Not (ds.Tables("TBVEKTOR_ARRAY")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBVEKTOR_ARRAYDataTable(ds.Tables("TBVEKTOR_ARRAY")))
|
|
End If
|
|
If (Not (ds.Tables("TBErgebnis")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBErgebnisDataTable(ds.Tables("TBErgebnis")))
|
|
End If
|
|
If (Not (ds.Tables("TBUV")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBUVDataTable(ds.Tables("TBUV")))
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBDD_REPORTING_IMPORT() As TBDD_REPORTING_IMPORTDataTable
|
|
Get
|
|
Return Me.tableTBDD_REPORTING_IMPORT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBTC_MOVE_RENAME() As TBTC_MOVE_RENAMEDataTable
|
|
Get
|
|
Return Me.tableTBTC_MOVE_RENAME
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBVEKTOR_ARRAY() As TBVEKTOR_ARRAYDataTable
|
|
Get
|
|
Return Me.tableTBVEKTOR_ARRAY
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBErgebnis() As TBErgebnisDataTable
|
|
Get
|
|
Return Me.tableTBErgebnis
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBUV() As TBUVDataTable
|
|
Get
|
|
Return Me.tableTBUV
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.BrowsableAttribute(true), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
|
|
Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
|
|
Get
|
|
Return Me._schemaSerializationMode
|
|
End Get
|
|
Set
|
|
Me._schemaSerializationMode = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
|
|
Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
|
|
Get
|
|
Return MyBase.Tables
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
|
|
Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
|
|
Get
|
|
Return MyBase.Relations
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub InitializeDerivedDataSet()
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function ShouldSerializeTables() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function ShouldSerializeRelations() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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("TBDD_REPORTING_IMPORT")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBDD_REPORTING_IMPORTDataTable(ds.Tables("TBDD_REPORTING_IMPORT")))
|
|
End If
|
|
If (Not (ds.Tables("TBTC_MOVE_RENAME")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBTC_MOVE_RENAMEDataTable(ds.Tables("TBTC_MOVE_RENAME")))
|
|
End If
|
|
If (Not (ds.Tables("TBVEKTOR_ARRAY")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBVEKTOR_ARRAYDataTable(ds.Tables("TBVEKTOR_ARRAY")))
|
|
End If
|
|
If (Not (ds.Tables("TBErgebnis")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBErgebnisDataTable(ds.Tables("TBErgebnis")))
|
|
End If
|
|
If (Not (ds.Tables("TBUV")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBUVDataTable(ds.Tables("TBUV")))
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Overloads Sub InitVars()
|
|
Me.InitVars(true)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Overloads Sub InitVars(ByVal initTable As Boolean)
|
|
Me.tableTBDD_REPORTING_IMPORT = CType(MyBase.Tables("TBDD_REPORTING_IMPORT"),TBDD_REPORTING_IMPORTDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBDD_REPORTING_IMPORT) Is Nothing) Then
|
|
Me.tableTBDD_REPORTING_IMPORT.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBTC_MOVE_RENAME = CType(MyBase.Tables("TBTC_MOVE_RENAME"),TBTC_MOVE_RENAMEDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBTC_MOVE_RENAME) Is Nothing) Then
|
|
Me.tableTBTC_MOVE_RENAME.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBVEKTOR_ARRAY = CType(MyBase.Tables("TBVEKTOR_ARRAY"),TBVEKTOR_ARRAYDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBVEKTOR_ARRAY) Is Nothing) Then
|
|
Me.tableTBVEKTOR_ARRAY.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBErgebnis = CType(MyBase.Tables("TBErgebnis"),TBErgebnisDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBErgebnis) Is Nothing) Then
|
|
Me.tableTBErgebnis.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBUV = CType(MyBase.Tables("TBUV"),TBUVDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBUV) Is Nothing) Then
|
|
Me.tableTBUV.InitVars
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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.tableTBDD_REPORTING_IMPORT = New TBDD_REPORTING_IMPORTDataTable()
|
|
MyBase.Tables.Add(Me.tableTBDD_REPORTING_IMPORT)
|
|
Me.tableTBTC_MOVE_RENAME = New TBTC_MOVE_RENAMEDataTable()
|
|
MyBase.Tables.Add(Me.tableTBTC_MOVE_RENAME)
|
|
Me.tableTBVEKTOR_ARRAY = New TBVEKTOR_ARRAYDataTable()
|
|
MyBase.Tables.Add(Me.tableTBVEKTOR_ARRAY)
|
|
Me.tableTBErgebnis = New TBErgebnisDataTable()
|
|
MyBase.Tables.Add(Me.tableTBErgebnis)
|
|
Me.tableTBUV = New TBUVDataTable()
|
|
MyBase.Tables.Add(Me.tableTBUV)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBDD_REPORTING_IMPORT() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBTC_MOVE_RENAME() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBVEKTOR_ARRAY() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBErgebnis() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBUV() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub TBDD_REPORTING_IMPORTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_REPORTING_IMPORTRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub TBTC_MOVE_RENAMERowChangeEventHandler(ByVal sender As Object, ByVal e As TBTC_MOVE_RENAMERowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub TBVEKTOR_ARRAYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBVEKTOR_ARRAYRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub TBErgebnisRowChangeEventHandler(ByVal sender As Object, ByVal e As TBErgebnisRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub TBUVRowChangeEventHandler(ByVal sender As Object, ByVal e As TBUVRowChangeEvent)
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class TBDD_REPORTING_IMPORTDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBDD_REPORTING_IMPORTRow)
|
|
|
|
Private columnIMPORT_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnFILE_NAME As Global.System.Data.DataColumn
|
|
|
|
Private columnPROFILE_NAME As Global.System.Data.DataColumn
|
|
|
|
Private columnVOLUME As Global.System.Data.DataColumn
|
|
|
|
Private columnPAGE_COUNT As Global.System.Data.DataColumn
|
|
|
|
Private columnADDED_WHEN As Global.System.Data.DataColumn
|
|
|
|
Private columnEXTENSION As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBDD_REPORTING_IMPORT"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property IMPORT_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnIMPORT_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property FILE_NAMEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnFILE_NAME
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property PROFILE_NAMEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPROFILE_NAME
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property VOLUMEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnVOLUME
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property PAGE_COUNTColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPAGE_COUNT
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnADDED_WHEN
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property EXTENSIONColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnEXTENSION
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_REPORTING_IMPORTRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBDD_REPORTING_IMPORTRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBDD_REPORTING_IMPORTRowChanging As TBDD_REPORTING_IMPORTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBDD_REPORTING_IMPORTRowChanged As TBDD_REPORTING_IMPORTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBDD_REPORTING_IMPORTRowDeleting As TBDD_REPORTING_IMPORTRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBDD_REPORTING_IMPORTRowDeleted As TBDD_REPORTING_IMPORTRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBDD_REPORTING_IMPORTRow(ByVal row As TBDD_REPORTING_IMPORTRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBDD_REPORTING_IMPORTRow(ByVal FILE_NAME As String, ByVal PROFILE_NAME As String, ByVal VOLUME As Decimal, ByVal PAGE_COUNT As Integer, ByVal ADDED_WHEN As Date, ByVal EXTENSION As String) As TBDD_REPORTING_IMPORTRow
|
|
Dim rowTBDD_REPORTING_IMPORTRow As TBDD_REPORTING_IMPORTRow = CType(Me.NewRow,TBDD_REPORTING_IMPORTRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, FILE_NAME, PROFILE_NAME, VOLUME, PAGE_COUNT, ADDED_WHEN, EXTENSION}
|
|
rowTBDD_REPORTING_IMPORTRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBDD_REPORTING_IMPORTRow)
|
|
Return rowTBDD_REPORTING_IMPORTRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function FindByIMPORT_ID(ByVal IMPORT_ID As Integer) As TBDD_REPORTING_IMPORTRow
|
|
Return CType(Me.Rows.Find(New Object() {IMPORT_ID}),TBDD_REPORTING_IMPORTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBDD_REPORTING_IMPORTDataTable = CType(MyBase.Clone,TBDD_REPORTING_IMPORTDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBDD_REPORTING_IMPORTDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnIMPORT_ID = MyBase.Columns("IMPORT_ID")
|
|
Me.columnFILE_NAME = MyBase.Columns("FILE_NAME")
|
|
Me.columnPROFILE_NAME = MyBase.Columns("PROFILE_NAME")
|
|
Me.columnVOLUME = MyBase.Columns("VOLUME")
|
|
Me.columnPAGE_COUNT = MyBase.Columns("PAGE_COUNT")
|
|
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
|
|
Me.columnEXTENSION = MyBase.Columns("EXTENSION")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnIMPORT_ID = New Global.System.Data.DataColumn("IMPORT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnIMPORT_ID)
|
|
Me.columnFILE_NAME = New Global.System.Data.DataColumn("FILE_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnFILE_NAME)
|
|
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.columnVOLUME = New Global.System.Data.DataColumn("VOLUME", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnVOLUME)
|
|
Me.columnPAGE_COUNT = New Global.System.Data.DataColumn("PAGE_COUNT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPAGE_COUNT)
|
|
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.columnEXTENSION = New Global.System.Data.DataColumn("EXTENSION", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnEXTENSION)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnIMPORT_ID}, true))
|
|
Me.columnIMPORT_ID.AutoIncrement = true
|
|
Me.columnIMPORT_ID.AutoIncrementSeed = -1
|
|
Me.columnIMPORT_ID.AutoIncrementStep = -1
|
|
Me.columnIMPORT_ID.AllowDBNull = false
|
|
Me.columnIMPORT_ID.ReadOnly = true
|
|
Me.columnIMPORT_ID.Unique = true
|
|
Me.columnFILE_NAME.MaxLength = 250
|
|
Me.columnPROFILE_NAME.AllowDBNull = false
|
|
Me.columnPROFILE_NAME.MaxLength = 250
|
|
Me.columnADDED_WHEN.AllowDBNull = false
|
|
Me.columnEXTENSION.MaxLength = 10
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewTBDD_REPORTING_IMPORTRow() As TBDD_REPORTING_IMPORTRow
|
|
Return CType(Me.NewRow,TBDD_REPORTING_IMPORTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBDD_REPORTING_IMPORTRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBDD_REPORTING_IMPORTRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBDD_REPORTING_IMPORTRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBDD_REPORTING_IMPORTRowChanged(Me, New TBDD_REPORTING_IMPORTRowChangeEvent(CType(e.Row,TBDD_REPORTING_IMPORTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBDD_REPORTING_IMPORTRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBDD_REPORTING_IMPORTRowChanging(Me, New TBDD_REPORTING_IMPORTRowChangeEvent(CType(e.Row,TBDD_REPORTING_IMPORTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBDD_REPORTING_IMPORTRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBDD_REPORTING_IMPORTRowDeleted(Me, New TBDD_REPORTING_IMPORTRowChangeEvent(CType(e.Row,TBDD_REPORTING_IMPORTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBDD_REPORTING_IMPORTRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBDD_REPORTING_IMPORTRowDeleting(Me, New TBDD_REPORTING_IMPORTRowChangeEvent(CType(e.Row,TBDD_REPORTING_IMPORTRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBDD_REPORTING_IMPORTRow(ByVal row As TBDD_REPORTING_IMPORTRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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_REPORTING_IMPORTDataTable"
|
|
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
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class TBTC_MOVE_RENAMEDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBTC_MOVE_RENAMERow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnPROFILE_NAME As Global.System.Data.DataColumn
|
|
|
|
Private columnFOLDER_FOR_INDEX As Global.System.Data.DataColumn
|
|
|
|
Private columnNAMECONVENTION As Global.System.Data.DataColumn
|
|
|
|
Private columnACTIVE As Global.System.Data.DataColumn
|
|
|
|
Private columnCREATED_WHO As Global.System.Data.DataColumn
|
|
|
|
Private columnCREATED_WHEN As Global.System.Data.DataColumn
|
|
|
|
Private columnCHANGED_WHO As Global.System.Data.DataColumn
|
|
|
|
Private columnCHANGED_WHEN As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBTC_MOVE_RENAME"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnGUID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property PROFILE_NAMEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPROFILE_NAME
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property FOLDER_FOR_INDEXColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnFOLDER_FOR_INDEX
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property NAMECONVENTIONColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnNAMECONVENTION
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnACTIVE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property CREATED_WHOColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnCREATED_WHO
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property CREATED_WHENColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnCREATED_WHEN
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnCHANGED_WHO
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnCHANGED_WHEN
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBTC_MOVE_RENAMERow
|
|
Get
|
|
Return CType(Me.Rows(index),TBTC_MOVE_RENAMERow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBTC_MOVE_RENAMERowChanging As TBTC_MOVE_RENAMERowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBTC_MOVE_RENAMERowChanged As TBTC_MOVE_RENAMERowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBTC_MOVE_RENAMERowDeleting As TBTC_MOVE_RENAMERowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBTC_MOVE_RENAMERowDeleted As TBTC_MOVE_RENAMERowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBTC_MOVE_RENAMERow(ByVal row As TBTC_MOVE_RENAMERow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBTC_MOVE_RENAMERow(ByVal PROFILE_NAME As String, ByVal FOLDER_FOR_INDEX As String, ByVal NAMECONVENTION As String, ByVal ACTIVE As Boolean, ByVal CREATED_WHO As String, ByVal CREATED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBTC_MOVE_RENAMERow
|
|
Dim rowTBTC_MOVE_RENAMERow As TBTC_MOVE_RENAMERow = CType(Me.NewRow,TBTC_MOVE_RENAMERow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN}
|
|
rowTBTC_MOVE_RENAMERow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBTC_MOVE_RENAMERow)
|
|
Return rowTBTC_MOVE_RENAMERow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As TBTC_MOVE_RENAMERow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),TBTC_MOVE_RENAMERow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBTC_MOVE_RENAMEDataTable = CType(MyBase.Clone,TBTC_MOVE_RENAMEDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBTC_MOVE_RENAMEDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnPROFILE_NAME = MyBase.Columns("PROFILE_NAME")
|
|
Me.columnFOLDER_FOR_INDEX = MyBase.Columns("FOLDER_FOR_INDEX")
|
|
Me.columnNAMECONVENTION = MyBase.Columns("NAMECONVENTION")
|
|
Me.columnACTIVE = MyBase.Columns("ACTIVE")
|
|
Me.columnCREATED_WHO = MyBase.Columns("CREATED_WHO")
|
|
Me.columnCREATED_WHEN = MyBase.Columns("CREATED_WHEN")
|
|
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
|
|
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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.columnFOLDER_FOR_INDEX = New Global.System.Data.DataColumn("FOLDER_FOR_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnFOLDER_FOR_INDEX)
|
|
Me.columnNAMECONVENTION = New Global.System.Data.DataColumn("NAMECONVENTION", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnNAMECONVENTION)
|
|
Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnACTIVE)
|
|
Me.columnCREATED_WHO = New Global.System.Data.DataColumn("CREATED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnCREATED_WHO)
|
|
Me.columnCREATED_WHEN = New Global.System.Data.DataColumn("CREATED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnCREATED_WHEN)
|
|
Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnCHANGED_WHO)
|
|
Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnCHANGED_WHEN)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
|
Me.columnGUID.AutoIncrement = true
|
|
Me.columnGUID.AutoIncrementSeed = 1
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
Me.columnPROFILE_NAME.AllowDBNull = false
|
|
Me.columnPROFILE_NAME.MaxLength = 100
|
|
Me.columnFOLDER_FOR_INDEX.AllowDBNull = false
|
|
Me.columnFOLDER_FOR_INDEX.MaxLength = 500
|
|
Me.columnNAMECONVENTION.AllowDBNull = false
|
|
Me.columnNAMECONVENTION.MaxLength = 500
|
|
Me.columnACTIVE.AllowDBNull = false
|
|
Me.columnACTIVE.DefaultValue = CType(true,Boolean)
|
|
Me.columnCREATED_WHO.MaxLength = 50
|
|
Me.columnCHANGED_WHO.MaxLength = 50
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewTBTC_MOVE_RENAMERow() As TBTC_MOVE_RENAMERow
|
|
Return CType(Me.NewRow,TBTC_MOVE_RENAMERow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBTC_MOVE_RENAMERow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBTC_MOVE_RENAMERow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBTC_MOVE_RENAMERowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBTC_MOVE_RENAMERowChanged(Me, New TBTC_MOVE_RENAMERowChangeEvent(CType(e.Row,TBTC_MOVE_RENAMERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBTC_MOVE_RENAMERowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBTC_MOVE_RENAMERowChanging(Me, New TBTC_MOVE_RENAMERowChangeEvent(CType(e.Row,TBTC_MOVE_RENAMERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBTC_MOVE_RENAMERowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBTC_MOVE_RENAMERowDeleted(Me, New TBTC_MOVE_RENAMERowChangeEvent(CType(e.Row,TBTC_MOVE_RENAMERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBTC_MOVE_RENAMERowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBTC_MOVE_RENAMERowDeleting(Me, New TBTC_MOVE_RENAMERowChangeEvent(CType(e.Row,TBTC_MOVE_RENAMERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBTC_MOVE_RENAMERow(ByVal row As TBTC_MOVE_RENAMERow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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 = "TBTC_MOVE_RENAMEDataTable"
|
|
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
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class TBVEKTOR_ARRAYDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBVEKTOR_ARRAYRow)
|
|
|
|
Private columnIndexname As Global.System.Data.DataColumn
|
|
|
|
Private columnWert As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBVEKTOR_ARRAY"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property IndexnameColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnIndexname
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property WertColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnWert
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBVEKTOR_ARRAYRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBVEKTOR_ARRAYRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBVEKTOR_ARRAYRowChanging As TBVEKTOR_ARRAYRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBVEKTOR_ARRAYRowChanged As TBVEKTOR_ARRAYRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBVEKTOR_ARRAYRowDeleting As TBVEKTOR_ARRAYRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBVEKTOR_ARRAYRowDeleted As TBVEKTOR_ARRAYRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBVEKTOR_ARRAYRow(ByVal row As TBVEKTOR_ARRAYRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBVEKTOR_ARRAYRow(ByVal Indexname As String, ByVal Wert As String) As TBVEKTOR_ARRAYRow
|
|
Dim rowTBVEKTOR_ARRAYRow As TBVEKTOR_ARRAYRow = CType(Me.NewRow,TBVEKTOR_ARRAYRow)
|
|
Dim columnValuesArray() As Object = New Object() {Indexname, Wert}
|
|
rowTBVEKTOR_ARRAYRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBVEKTOR_ARRAYRow)
|
|
Return rowTBVEKTOR_ARRAYRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBVEKTOR_ARRAYDataTable = CType(MyBase.Clone,TBVEKTOR_ARRAYDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBVEKTOR_ARRAYDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnIndexname = MyBase.Columns("Indexname")
|
|
Me.columnWert = MyBase.Columns("Wert")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnIndexname = New Global.System.Data.DataColumn("Indexname", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnIndexname)
|
|
Me.columnWert = New Global.System.Data.DataColumn("Wert", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnWert)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewTBVEKTOR_ARRAYRow() As TBVEKTOR_ARRAYRow
|
|
Return CType(Me.NewRow,TBVEKTOR_ARRAYRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBVEKTOR_ARRAYRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBVEKTOR_ARRAYRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBVEKTOR_ARRAYRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBVEKTOR_ARRAYRowChanged(Me, New TBVEKTOR_ARRAYRowChangeEvent(CType(e.Row,TBVEKTOR_ARRAYRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBVEKTOR_ARRAYRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBVEKTOR_ARRAYRowChanging(Me, New TBVEKTOR_ARRAYRowChangeEvent(CType(e.Row,TBVEKTOR_ARRAYRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBVEKTOR_ARRAYRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBVEKTOR_ARRAYRowDeleted(Me, New TBVEKTOR_ARRAYRowChangeEvent(CType(e.Row,TBVEKTOR_ARRAYRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBVEKTOR_ARRAYRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBVEKTOR_ARRAYRowDeleting(Me, New TBVEKTOR_ARRAYRowChangeEvent(CType(e.Row,TBVEKTOR_ARRAYRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBVEKTOR_ARRAYRow(ByVal row As TBVEKTOR_ARRAYRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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 = "TBVEKTOR_ARRAYDataTable"
|
|
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
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class TBErgebnisDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBErgebnisRow)
|
|
|
|
Private columnErgebniswerte As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBErgebnis"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property ErgebniswerteColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnErgebniswerte
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBErgebnisRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBErgebnisRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBErgebnisRowChanging As TBErgebnisRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBErgebnisRowChanged As TBErgebnisRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBErgebnisRowDeleting As TBErgebnisRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBErgebnisRowDeleted As TBErgebnisRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBErgebnisRow(ByVal row As TBErgebnisRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBErgebnisRow(ByVal Ergebniswerte As String) As TBErgebnisRow
|
|
Dim rowTBErgebnisRow As TBErgebnisRow = CType(Me.NewRow,TBErgebnisRow)
|
|
Dim columnValuesArray() As Object = New Object() {Ergebniswerte}
|
|
rowTBErgebnisRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBErgebnisRow)
|
|
Return rowTBErgebnisRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBErgebnisDataTable = CType(MyBase.Clone,TBErgebnisDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBErgebnisDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnErgebniswerte = MyBase.Columns("Ergebniswerte")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnErgebniswerte = New Global.System.Data.DataColumn("Ergebniswerte", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnErgebniswerte)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewTBErgebnisRow() As TBErgebnisRow
|
|
Return CType(Me.NewRow,TBErgebnisRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBErgebnisRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBErgebnisRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBErgebnisRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBErgebnisRowChanged(Me, New TBErgebnisRowChangeEvent(CType(e.Row,TBErgebnisRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBErgebnisRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBErgebnisRowChanging(Me, New TBErgebnisRowChangeEvent(CType(e.Row,TBErgebnisRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBErgebnisRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBErgebnisRowDeleted(Me, New TBErgebnisRowChangeEvent(CType(e.Row,TBErgebnisRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBErgebnisRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBErgebnisRowDeleting(Me, New TBErgebnisRowChangeEvent(CType(e.Row,TBErgebnisRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBErgebnisRow(ByVal row As TBErgebnisRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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 = "TBErgebnisDataTable"
|
|
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
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class TBUVDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBUVRow)
|
|
|
|
Private columnID As Global.System.Data.DataColumn
|
|
|
|
Private columnUnterverzeichnis As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBUV"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property UnterverzeichnisColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnUnterverzeichnis
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property Count() As Integer
|
|
Get
|
|
Return Me.Rows.Count
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBUVRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBUVRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBUVRowChanging As TBUVRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBUVRowChanged As TBUVRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBUVRowDeleting As TBUVRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBUVRowDeleted As TBUVRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBUVRow(ByVal row As TBUVRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBUVRow(ByVal Unterverzeichnis As String) As TBUVRow
|
|
Dim rowTBUVRow As TBUVRow = CType(Me.NewRow,TBUVRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, Unterverzeichnis}
|
|
rowTBUVRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBUVRow)
|
|
Return rowTBUVRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBUVDataTable = CType(MyBase.Clone,TBUVDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBUVDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnID = MyBase.Columns("ID")
|
|
Me.columnUnterverzeichnis = MyBase.Columns("Unterverzeichnis")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnID)
|
|
Me.columnUnterverzeichnis = New Global.System.Data.DataColumn("Unterverzeichnis", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnUnterverzeichnis)
|
|
Me.columnID.AutoIncrement = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewTBUVRow() As TBUVRow
|
|
Return CType(Me.NewRow,TBUVRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBUVRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBUVRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBUVRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBUVRowChanged(Me, New TBUVRowChangeEvent(CType(e.Row,TBUVRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBUVRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBUVRowChanging(Me, New TBUVRowChangeEvent(CType(e.Row,TBUVRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBUVRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBUVRowDeleted(Me, New TBUVRowChangeEvent(CType(e.Row,TBUVRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBUVRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBUVRowDeleting(Me, New TBUVRowChangeEvent(CType(e.Row,TBUVRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBUVRow(ByVal row As TBUVRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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 = "TBUVDataTable"
|
|
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
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBDD_REPORTING_IMPORTRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBDD_REPORTING_IMPORT As TBDD_REPORTING_IMPORTDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBDD_REPORTING_IMPORT = CType(Me.Table,TBDD_REPORTING_IMPORTDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property IMPORT_ID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.IMPORT_IDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_REPORTING_IMPORT.IMPORT_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property FILE_NAME() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.FILE_NAMEColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILE_NAME in Tabelle TBDD_REPORTING_IMPORT ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_REPORTING_IMPORT.FILE_NAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property PROFILE_NAME() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.PROFILE_NAMEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_REPORTING_IMPORT.PROFILE_NAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property VOLUME() As Decimal
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.VOLUMEColumn),Decimal)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VOLUME in Tabelle TBDD_REPORTING_IMPORT ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_REPORTING_IMPORT.VOLUMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property PAGE_COUNT() As Integer
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.PAGE_COUNTColumn),Integer)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PAGE_COUNT in Tabelle TBDD_REPORTING_IMPORT ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_REPORTING_IMPORT.PAGE_COUNTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ADDED_WHEN() As Date
|
|
Get
|
|
Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.ADDED_WHENColumn),Date)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_REPORTING_IMPORT.ADDED_WHENColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property EXTENSION() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBDD_REPORTING_IMPORT.EXTENSIONColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EXTENSION in Tabelle TBDD_REPORTING_IMPORT ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBDD_REPORTING_IMPORT.EXTENSIONColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsFILE_NAMENull() As Boolean
|
|
Return Me.IsNull(Me.tableTBDD_REPORTING_IMPORT.FILE_NAMEColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetFILE_NAMENull()
|
|
Me(Me.tableTBDD_REPORTING_IMPORT.FILE_NAMEColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsVOLUMENull() As Boolean
|
|
Return Me.IsNull(Me.tableTBDD_REPORTING_IMPORT.VOLUMEColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetVOLUMENull()
|
|
Me(Me.tableTBDD_REPORTING_IMPORT.VOLUMEColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsPAGE_COUNTNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBDD_REPORTING_IMPORT.PAGE_COUNTColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetPAGE_COUNTNull()
|
|
Me(Me.tableTBDD_REPORTING_IMPORT.PAGE_COUNTColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsEXTENSIONNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBDD_REPORTING_IMPORT.EXTENSIONColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetEXTENSIONNull()
|
|
Me(Me.tableTBDD_REPORTING_IMPORT.EXTENSIONColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBTC_MOVE_RENAMERow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBTC_MOVE_RENAME As TBTC_MOVE_RENAMEDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBTC_MOVE_RENAME = CType(Me.Table,TBTC_MOVE_RENAMEDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBTC_MOVE_RENAME.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBTC_MOVE_RENAME.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property PROFILE_NAME() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBTC_MOVE_RENAME.PROFILE_NAMEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBTC_MOVE_RENAME.PROFILE_NAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property FOLDER_FOR_INDEX() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBTC_MOVE_RENAME.FOLDER_FOR_INDEXColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBTC_MOVE_RENAME.FOLDER_FOR_INDEXColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property NAMECONVENTION() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBTC_MOVE_RENAME.NAMECONVENTIONColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBTC_MOVE_RENAME.NAMECONVENTIONColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ACTIVE() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tableTBTC_MOVE_RENAME.ACTIVEColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBTC_MOVE_RENAME.ACTIVEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property CREATED_WHO() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBTC_MOVE_RENAME.CREATED_WHOColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CREATED_WHO in Tabelle TBTC_MOVE_RENAME ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBTC_MOVE_RENAME.CREATED_WHOColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property CREATED_WHEN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBTC_MOVE_RENAME.CREATED_WHENColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CREATED_WHEN in Tabelle TBTC_MOVE_RENAME ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBTC_MOVE_RENAME.CREATED_WHENColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property CHANGED_WHO() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBTC_MOVE_RENAME.CHANGED_WHOColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBTC_MOVE_RENAME ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBTC_MOVE_RENAME.CHANGED_WHOColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property CHANGED_WHEN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBTC_MOVE_RENAME.CHANGED_WHENColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBTC_MOVE_RENAME ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBTC_MOVE_RENAME.CHANGED_WHENColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsCREATED_WHONull() As Boolean
|
|
Return Me.IsNull(Me.tableTBTC_MOVE_RENAME.CREATED_WHOColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetCREATED_WHONull()
|
|
Me(Me.tableTBTC_MOVE_RENAME.CREATED_WHOColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsCREATED_WHENNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBTC_MOVE_RENAME.CREATED_WHENColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetCREATED_WHENNull()
|
|
Me(Me.tableTBTC_MOVE_RENAME.CREATED_WHENColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsCHANGED_WHONull() As Boolean
|
|
Return Me.IsNull(Me.tableTBTC_MOVE_RENAME.CHANGED_WHOColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetCHANGED_WHONull()
|
|
Me(Me.tableTBTC_MOVE_RENAME.CHANGED_WHOColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsCHANGED_WHENNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBTC_MOVE_RENAME.CHANGED_WHENColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetCHANGED_WHENNull()
|
|
Me(Me.tableTBTC_MOVE_RENAME.CHANGED_WHENColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBVEKTOR_ARRAYRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBVEKTOR_ARRAY As TBVEKTOR_ARRAYDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBVEKTOR_ARRAY = CType(Me.Table,TBVEKTOR_ARRAYDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property Indexname() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBVEKTOR_ARRAY.IndexnameColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexname in Tabelle TBVEKTOR_ARRAY ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBVEKTOR_ARRAY.IndexnameColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property Wert() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBVEKTOR_ARRAY.WertColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Wert in Tabelle TBVEKTOR_ARRAY ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBVEKTOR_ARRAY.WertColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsIndexnameNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBVEKTOR_ARRAY.IndexnameColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetIndexnameNull()
|
|
Me(Me.tableTBVEKTOR_ARRAY.IndexnameColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsWertNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBVEKTOR_ARRAY.WertColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetWertNull()
|
|
Me(Me.tableTBVEKTOR_ARRAY.WertColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBErgebnisRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBErgebnis As TBErgebnisDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBErgebnis = CType(Me.Table,TBErgebnisDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property Ergebniswerte() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBErgebnis.ErgebniswerteColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ergebniswerte in Tabelle TBErgebnis ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBErgebnis.ErgebniswerteColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsErgebniswerteNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBErgebnis.ErgebniswerteColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetErgebniswerteNull()
|
|
Me(Me.tableTBErgebnis.ErgebniswerteColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBUVRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBUV As TBUVDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBUV = CType(Me.Table,TBUVDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ID() As Integer
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBUV.IDColumn),Integer)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBUV ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBUV.IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property Unterverzeichnis() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBUV.UnterverzeichnisColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Unterverzeichnis in Tabelle TBUV ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBUV.UnterverzeichnisColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsIDNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBUV.IDColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetIDNull()
|
|
Me(Me.tableTBUV.IDColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsUnterverzeichnisNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBUV.UnterverzeichnisColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetUnterverzeichnisNull()
|
|
Me(Me.tableTBUV.UnterverzeichnisColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Class TBDD_REPORTING_IMPORTRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBDD_REPORTING_IMPORTRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBDD_REPORTING_IMPORTRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBDD_REPORTING_IMPORTRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Class TBTC_MOVE_RENAMERowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBTC_MOVE_RENAMERow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBTC_MOVE_RENAMERow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBTC_MOVE_RENAMERow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Class TBVEKTOR_ARRAYRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBVEKTOR_ARRAYRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBVEKTOR_ARRAYRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBVEKTOR_ARRAYRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Class TBErgebnisRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBErgebnisRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBErgebnisRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBErgebnisRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Class TBUVRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBUVRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBUVRow, ByVal action As Global.System.Data.DataRowAction)
|
|
MyBase.New
|
|
Me.eventRow = row
|
|
Me.eventAction = action
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBUVRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
|
Get
|
|
Return Me.eventAction
|
|
End Get
|
|
End Property
|
|
End Class
|
|
End Class
|
|
|
|
Namespace MyDatasetTableAdapters
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class TBDD_REPORTING_IMPORTTableAdapter
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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_REPORTING_IMPORT"
|
|
tableMapping.ColumnMappings.Add("IMPORT_ID", "IMPORT_ID")
|
|
tableMapping.ColumnMappings.Add("FILE_NAME", "FILE_NAME")
|
|
tableMapping.ColumnMappings.Add("PROFILE_NAME", "PROFILE_NAME")
|
|
tableMapping.ColumnMappings.Add("VOLUME", "VOLUME")
|
|
tableMapping.ColumnMappings.Add("PAGE_COUNT", "PAGE_COUNT")
|
|
tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN")
|
|
tableMapping.ColumnMappings.Add("EXTENSION", "EXTENSION")
|
|
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_REPORTING_IMPORT] WHERE (([IMPORT_ID] = @Original_IMPORT_ID) AN"& _
|
|
"D ((@IsNull_FILE_NAME = 1 AND [FILE_NAME] IS NULL) OR ([FILE_NAME] = @Original_F"& _
|
|
"ILE_NAME)) AND ([PROFILE_NAME] = @Original_PROFILE_NAME) AND ((@IsNull_VOLUME = "& _
|
|
"1 AND [VOLUME] IS NULL) OR ([VOLUME] = @Original_VOLUME)) AND ((@IsNull_PAGE_COU"& _
|
|
"NT = 1 AND [PAGE_COUNT] IS NULL) OR ([PAGE_COUNT] = @Original_PAGE_COUNT)) AND ("& _
|
|
"(@IsNull_EXTENSION = 1 AND [EXTENSION] IS NULL) OR ([EXTENSION] = @Original_EXTE"& _
|
|
"NSION)) AND ([ADDED_WHEN] = @Original_ADDED_WHEN))"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IMPORT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IMPORT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FILE_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", 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("@IsNull_VOLUME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VOLUME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VOLUME", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 10, 2, "VOLUME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PAGE_COUNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PAGE_COUNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EXTENSION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EXTENSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_REPORTING_IMPORT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FILE_NAME, PROFILE_N"& _
|
|
"AME, VOLUME, PAGE_COUNT, EXTENSION)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FILE_NAME,@PROFILE_NAME,@VO"& _
|
|
"LUME,@PAGE_COUNT,@EXTENSION); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT IMPORT_ID, FILE_NAME, PROFILE_NAME, VOLUM"& _
|
|
"E, PAGE_COUNT, EXTENSION, ADDED_WHEN FROM TBDD_REPORTING_IMPORT WHERE (IMPORT_ID"& _
|
|
" = SCOPE_IDENTITY())"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_NAME", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 250, 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("@VOLUME", Global.System.Data.SqlDbType.[Decimal], 9, Global.System.Data.ParameterDirection.Input, 10, 2, "VOLUME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PAGE_COUNT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EXTENSION", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", 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_REPORTING_IMPORT] SET [FILE_NAME] = @FILE_NAME, [PROFILE_NAME] = @PR"& _
|
|
"OFILE_NAME, [VOLUME] = @VOLUME, [PAGE_COUNT] = @PAGE_COUNT, [EXTENSION] = @EXTEN"& _
|
|
"SION, [ADDED_WHEN] = @ADDED_WHEN WHERE (([IMPORT_ID] = @Original_IMPORT_ID) AND "& _
|
|
"((@IsNull_FILE_NAME = 1 AND [FILE_NAME] IS NULL) OR ([FILE_NAME] = @Original_FIL"& _
|
|
"E_NAME)) AND ([PROFILE_NAME] = @Original_PROFILE_NAME) AND ((@IsNull_VOLUME = 1 "& _
|
|
"AND [VOLUME] IS NULL) OR ([VOLUME] = @Original_VOLUME)) AND ((@IsNull_PAGE_COUNT"& _
|
|
" = 1 AND [PAGE_COUNT] IS NULL) OR ([PAGE_COUNT] = @Original_PAGE_COUNT)) AND ((@"& _
|
|
"IsNull_EXTENSION = 1 AND [EXTENSION] IS NULL) OR ([EXTENSION] = @Original_EXTENS"& _
|
|
"ION)) AND ([ADDED_WHEN] = @Original_ADDED_WHEN));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT IMPORT_ID, FILE_NAME, "& _
|
|
"PROFILE_NAME, VOLUME, PAGE_COUNT, EXTENSION, ADDED_WHEN FROM TBDD_REPORTING_IMPO"& _
|
|
"RT WHERE (IMPORT_ID = @IMPORT_ID)"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, 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("@VOLUME", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 10, 2, "VOLUME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PAGE_COUNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EXTENSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", 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_IMPORT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IMPORT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FILE_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.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.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_VOLUME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VOLUME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VOLUME", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 10, 2, "VOLUME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PAGE_COUNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PAGE_COUNT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PAGE_COUNT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EXTENSION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EXTENSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EXTENSION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IMPORT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IMPORT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.ToolCollection.My.MySettings.Default.DD_ECMConnString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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 TBDD_REPORTING_IMPORT.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_REPORTING_IMPORT"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
|
|
Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_REPORTING_IMPORTDataTable) 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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
|
|
Public Overloads Overridable Function GetData() As MyDataset.TBDD_REPORTING_IMPORTDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As MyDataset.TBDD_REPORTING_IMPORTDataTable = New MyDataset.TBDD_REPORTING_IMPORTDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_REPORTING_IMPORTDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer
|
|
Return Me.Adapter.Update(dataSet, "TBDD_REPORTING_IMPORT")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
|
|
Return Me.Adapter.Update(dataRows)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
|
|
Public Overloads Overridable Function Delete(ByVal Original_IMPORT_ID As Integer, ByVal Original_FILE_NAME As String, ByVal Original_PROFILE_NAME As String, ByVal Original_VOLUME As Global.System.Nullable(Of Decimal), ByVal Original_PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal Original_EXTENSION As String, ByVal Original_ADDED_WHEN As Date) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_IMPORT_ID,Integer)
|
|
If (Original_FILE_NAME Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FILE_NAME,String)
|
|
End If
|
|
If (Original_PROFILE_NAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_PROFILE_NAME")
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_PROFILE_NAME,String)
|
|
End If
|
|
If (Original_VOLUME.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_VOLUME.Value,Decimal)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_PAGE_COUNT.HasValue = true) Then
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_PAGE_COUNT.Value,Integer)
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_EXTENSION Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_EXTENSION,String)
|
|
End If
|
|
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHEN,Date)
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
|
|
Public Overloads Overridable Function Insert(ByVal FILE_NAME As String, ByVal PROFILE_NAME As String, ByVal VOLUME As Global.System.Nullable(Of Decimal), ByVal PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal EXTENSION As String) As Integer
|
|
If (FILE_NAME Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(FILE_NAME,String)
|
|
End If
|
|
If (PROFILE_NAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("PROFILE_NAME")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(PROFILE_NAME,String)
|
|
End If
|
|
If (VOLUME.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(VOLUME.Value,Decimal)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (PAGE_COUNT.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(PAGE_COUNT.Value,Integer)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (EXTENSION Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(EXTENSION,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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
|
|
Public Overloads Overridable Function Update(ByVal FILE_NAME As String, ByVal PROFILE_NAME As String, ByVal VOLUME As Global.System.Nullable(Of Decimal), ByVal PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal EXTENSION As String, ByVal ADDED_WHEN As Date, ByVal Original_IMPORT_ID As Integer, ByVal Original_FILE_NAME As String, ByVal Original_PROFILE_NAME As String, ByVal Original_VOLUME As Global.System.Nullable(Of Decimal), ByVal Original_PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal Original_EXTENSION As String, ByVal Original_ADDED_WHEN As Date, ByVal IMPORT_ID As Integer) As Integer
|
|
If (FILE_NAME Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FILE_NAME,String)
|
|
End If
|
|
If (PROFILE_NAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("PROFILE_NAME")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PROFILE_NAME,String)
|
|
End If
|
|
If (VOLUME.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(VOLUME.Value,Decimal)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (PAGE_COUNT.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(PAGE_COUNT.Value,Integer)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (EXTENSION Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EXTENSION,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHEN,Date)
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_IMPORT_ID,Integer)
|
|
If (Original_FILE_NAME Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_FILE_NAME,String)
|
|
End If
|
|
If (Original_PROFILE_NAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_PROFILE_NAME")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_PROFILE_NAME,String)
|
|
End If
|
|
If (Original_VOLUME.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_VOLUME.Value,Decimal)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_PAGE_COUNT.HasValue = true) Then
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_PAGE_COUNT.Value,Integer)
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (Original_EXTENSION Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
|
|
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_EXTENSION,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ADDED_WHEN,Date)
|
|
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(IMPORT_ID,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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
|
|
Public Overloads Overridable Function Update(ByVal FILE_NAME As String, ByVal PROFILE_NAME As String, ByVal VOLUME As Global.System.Nullable(Of Decimal), ByVal PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal EXTENSION As String, ByVal ADDED_WHEN As Date, ByVal Original_IMPORT_ID As Integer, ByVal Original_FILE_NAME As String, ByVal Original_PROFILE_NAME As String, ByVal Original_VOLUME As Global.System.Nullable(Of Decimal), ByVal Original_PAGE_COUNT As Global.System.Nullable(Of Integer), ByVal Original_EXTENSION As String, ByVal Original_ADDED_WHEN As Date) As Integer
|
|
Return Me.Update(FILE_NAME, PROFILE_NAME, VOLUME, PAGE_COUNT, EXTENSION, ADDED_WHEN, Original_IMPORT_ID, Original_FILE_NAME, Original_PROFILE_NAME, Original_VOLUME, Original_PAGE_COUNT, Original_EXTENSION, Original_ADDED_WHEN, Original_IMPORT_ID)
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the connection and commands used to retrieve and save data.
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DataObjectAttribute(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
|
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Partial Public Class TBTC_MOVE_RENAMETableAdapter
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.ClearBeforeFill = true
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ClearBeforeFill() As Boolean
|
|
Get
|
|
Return Me._clearBeforeFill
|
|
End Get
|
|
Set
|
|
Me._clearBeforeFill = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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 = "TBTC_MOVE_RENAME"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("PROFILE_NAME", "PROFILE_NAME")
|
|
tableMapping.ColumnMappings.Add("FOLDER_FOR_INDEX", "FOLDER_FOR_INDEX")
|
|
tableMapping.ColumnMappings.Add("NAMECONVENTION", "NAMECONVENTION")
|
|
tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE")
|
|
tableMapping.ColumnMappings.Add("CREATED_WHO", "CREATED_WHO")
|
|
tableMapping.ColumnMappings.Add("CREATED_WHEN", "CREATED_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 TBTC_MOVE_RENAME"&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 TBTC_MOVE_RENAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_NAME, FOLDER_FOR_"& _
|
|
"INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFILE_NAME,@FOLDE"& _
|
|
"R_FOR_INDEX,@NAMECONVENTION,@ACTIVE,@CREATED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_NAME, "& _
|
|
"FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO, CREATED_WHEN, CHANGED_WHO"& _
|
|
", CHANGED_WHEN FROM TBTC_MOVE_RENAME WHERE (GUID = SCOPE_IDENTITY())"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_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("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAMECONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMECONVENTION", 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("@CREATED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CREATED_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 TBTC_MOVE_RENAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROFILE_NAME = @PROFILE_NAME, F"& _
|
|
"OLDER_FOR_INDEX = @FOLDER_FOR_INDEX, NAMECONVENTION = @NAMECONVENTION, ACTIVE = "& _
|
|
"@ACTIVE, 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)&"SEL"& _
|
|
"ECT GUID, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREATED_WHO, C"& _
|
|
"REATED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBTC_MOVE_RENAME 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("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAMECONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMECONVENTION", 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("@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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.ToolCollection.My.MySettings.Default.DD_ECMConnString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT GUID, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREAT"& _
|
|
"ED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBTC_MOVE_RENAM"& _
|
|
"E"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (LOWER(PROFILE_NAME) = LOWER(@PROFILE_NAME))"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(1).Connection = Me.Connection
|
|
Me._commandCollection(1).CommandText = "SELECT GUID, PROFILE_NAME, FOLDER_FOR_INDEX, NAMECONVENTION, ACTIVE, CREAT"& _
|
|
"ED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBTC_MOVE_RENAM"& _
|
|
"E"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (LOWER(PROFILE_NAME) = LOWER(@PROFILE_NAME)) AND ACTIVE = 1"
|
|
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
|
|
Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBTC_MOVE_RENAMEDataTable, ByVal PROFILE_NAME As String) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (PROFILE_NAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("PROFILE_NAME")
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_NAME,String)
|
|
End If
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
|
|
Public Overloads Overridable Function GetData(ByVal PROFILE_NAME As String) As MyDataset.TBTC_MOVE_RENAMEDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (PROFILE_NAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("PROFILE_NAME")
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_NAME,String)
|
|
End If
|
|
Dim dataTable As MyDataset.TBTC_MOVE_RENAMEDataTable = New MyDataset.TBTC_MOVE_RENAMEDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
|
|
Public Overloads Overridable Function FillByActive(ByVal dataTable As MyDataset.TBTC_MOVE_RENAMEDataTable, ByVal PROFILE_NAME As String) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
If (PROFILE_NAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("PROFILE_NAME")
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_NAME,String)
|
|
End If
|
|
If (Me.ClearBeforeFill = true) Then
|
|
dataTable.Clear
|
|
End If
|
|
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
|
Return returnValue
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
|
|
Public Overloads Overridable Function GetDataByActive(ByVal PROFILE_NAME As String) As MyDataset.TBTC_MOVE_RENAMEDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
|
If (PROFILE_NAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("PROFILE_NAME")
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_NAME,String)
|
|
End If
|
|
Dim dataTable As MyDataset.TBTC_MOVE_RENAMEDataTable = New MyDataset.TBTC_MOVE_RENAMEDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBTC_MOVE_RENAMEDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer
|
|
Return Me.Adapter.Update(dataSet, "TBTC_MOVE_RENAME")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
|
|
Return Me.Adapter.Update(dataRows)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
|
|
Public Overloads Overridable Function Insert(ByVal PROFILE_NAME As String, ByVal FOLDER_FOR_INDEX As String, ByVal NAMECONVENTION As String, ByVal ACTIVE As Boolean, ByVal CREATED_WHO 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 (FOLDER_FOR_INDEX Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("FOLDER_FOR_INDEX")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(FOLDER_FOR_INDEX,String)
|
|
End If
|
|
If (NAMECONVENTION Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("NAMECONVENTION")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(NAMECONVENTION,String)
|
|
End If
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(ACTIVE,Boolean)
|
|
If (CREATED_WHO Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(CREATED_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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
|
|
Public Overloads Overridable Function Update(ByVal PROFILE_NAME As String, ByVal FOLDER_FOR_INDEX As String, ByVal NAMECONVENTION As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO 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 (FOLDER_FOR_INDEX Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("FOLDER_FOR_INDEX")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FOLDER_FOR_INDEX,String)
|
|
End If
|
|
If (NAMECONVENTION Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("NAMECONVENTION")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(NAMECONVENTION,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ACTIVE,Boolean)
|
|
If (CHANGED_WHO Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Integer)
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GUID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
|
|
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
Me.Adapter.UpdateCommand.Connection.Open
|
|
End If
|
|
Try
|
|
Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
|
|
Return returnValue
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
Me.Adapter.UpdateCommand.Connection.Close
|
|
End If
|
|
End Try
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
|
|
'''</summary>
|
|
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
Global.System.ComponentModel.ToolboxItem(true), _
|
|
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD"& _
|
|
"esigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")> _
|
|
Partial Public Class TableAdapterManager
|
|
Inherits Global.System.ComponentModel.Component
|
|
|
|
Private _updateOrder As UpdateOrderOption
|
|
|
|
Private _tBDD_REPORTING_IMPORTTableAdapter As TBDD_REPORTING_IMPORTTableAdapter
|
|
|
|
Private _tBTC_MOVE_RENAMETableAdapter As TBTC_MOVE_RENAMETableAdapter
|
|
|
|
Private _backupDataSetBeforeUpdate As Boolean
|
|
|
|
Private _connection As Global.System.Data.IDbConnection
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property UpdateOrder() As UpdateOrderOption
|
|
Get
|
|
Return Me._updateOrder
|
|
End Get
|
|
Set
|
|
Me._updateOrder = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
|
|
"ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
|
|
"a", "System.Drawing.Design.UITypeEditor")> _
|
|
Public Property TBDD_REPORTING_IMPORTTableAdapter() As TBDD_REPORTING_IMPORTTableAdapter
|
|
Get
|
|
Return Me._tBDD_REPORTING_IMPORTTableAdapter
|
|
End Get
|
|
Set
|
|
Me._tBDD_REPORTING_IMPORTTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
|
|
"ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
|
|
"a", "System.Drawing.Design.UITypeEditor")> _
|
|
Public Property TBTC_MOVE_RENAMETableAdapter() As TBTC_MOVE_RENAMETableAdapter
|
|
Get
|
|
Return Me._tBTC_MOVE_RENAMETableAdapter
|
|
End Get
|
|
Set
|
|
Me._tBTC_MOVE_RENAMETableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property BackupDataSetBeforeUpdate() As Boolean
|
|
Get
|
|
Return Me._backupDataSetBeforeUpdate
|
|
End Get
|
|
Set
|
|
Me._backupDataSetBeforeUpdate = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public Property Connection() As Global.System.Data.IDbConnection
|
|
Get
|
|
If (Not (Me._connection) Is Nothing) Then
|
|
Return Me._connection
|
|
End If
|
|
If ((Not (Me._tBDD_REPORTING_IMPORTTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._tBDD_REPORTING_IMPORTTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._tBDD_REPORTING_IMPORTTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._tBTC_MOVE_RENAMETableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._tBTC_MOVE_RENAMETableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._tBTC_MOVE_RENAMETableAdapter.Connection
|
|
End If
|
|
Return Nothing
|
|
End Get
|
|
Set
|
|
Me._connection = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property TableAdapterInstanceCount() As Integer
|
|
Get
|
|
Dim count As Integer = 0
|
|
If (Not (Me._tBDD_REPORTING_IMPORTTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._tBTC_MOVE_RENAMETableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
Return count
|
|
End Get
|
|
End Property
|
|
|
|
'''<summary>
|
|
'''Update rows in top-down order.
|
|
'''</summary>
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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._tBDD_REPORTING_IMPORTTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_REPORTING_IMPORT.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_REPORTING_IMPORTTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBTC_MOVE_RENAMETableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBTC_MOVE_RENAME.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._tBTC_MOVE_RENAMETableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
Return result
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Insert rows in top-down order.
|
|
'''</summary>
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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._tBDD_REPORTING_IMPORTTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_REPORTING_IMPORT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._tBDD_REPORTING_IMPORTTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBTC_MOVE_RENAMETableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBTC_MOVE_RENAME.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._tBTC_MOVE_RENAMETableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
Return result
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Delete rows in bottom-up order.
|
|
'''</summary>
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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._tBTC_MOVE_RENAMETableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBTC_MOVE_RENAME.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._tBTC_MOVE_RENAMETableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBDD_REPORTING_IMPORTTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_REPORTING_IMPORT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._tBDD_REPORTING_IMPORTTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
Return result
|
|
End Function
|
|
|
|
'''<summary>
|
|
'''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
|
|
'''</summary>
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
'''<summary>
|
|
'''Update all changes to the dataset.
|
|
'''</summary>
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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._tBDD_REPORTING_IMPORTTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_REPORTING_IMPORTTableAdapter.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._tBTC_MOVE_RENAMETableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._tBTC_MOVE_RENAMETableAdapter.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._tBDD_REPORTING_IMPORTTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._tBDD_REPORTING_IMPORTTableAdapter, Me._tBDD_REPORTING_IMPORTTableAdapter.Connection)
|
|
Me._tBDD_REPORTING_IMPORTTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBDD_REPORTING_IMPORTTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
|
|
If Me._tBDD_REPORTING_IMPORTTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._tBDD_REPORTING_IMPORTTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_REPORTING_IMPORTTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBTC_MOVE_RENAMETableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._tBTC_MOVE_RENAMETableAdapter, Me._tBTC_MOVE_RENAMETableAdapter.Connection)
|
|
Me._tBTC_MOVE_RENAMETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBTC_MOVE_RENAMETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
|
|
If Me._tBTC_MOVE_RENAMETableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._tBTC_MOVE_RENAMETableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBTC_MOVE_RENAMETableAdapter.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._tBDD_REPORTING_IMPORTTableAdapter) Is Nothing) Then
|
|
Me._tBDD_REPORTING_IMPORTTableAdapter.Connection = CType(revertConnections(Me._tBDD_REPORTING_IMPORTTableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBDD_REPORTING_IMPORTTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._tBTC_MOVE_RENAMETableAdapter) Is Nothing) Then
|
|
Me._tBTC_MOVE_RENAMETableAdapter.Connection = CType(revertConnections(Me._tBTC_MOVE_RENAMETableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBTC_MOVE_RENAMETableAdapter.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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
'''<summary>
|
|
'''Update Order Option
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Enum UpdateOrderOption
|
|
|
|
InsertUpdateDelete = 0
|
|
|
|
UpdateInsertDelete = 1
|
|
End Enum
|
|
|
|
'''<summary>
|
|
'''Used to sort self-referenced table's rows
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
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
|