From 8c82b567f8abfabd7a228abbdf3893f5f4d9e426 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Fri, 12 Apr 2019 15:20:54 +0200 Subject: [PATCH] SQLLIte --- ToolCollection/ClassNIDatenbankzugriff.vb | 12 +- ToolCollection/ClassSQLITE.vb | 32 +- ToolCollection/ClassWD_Rechte.vb | 14 +- ToolCollection/DSCursor.Designer.vb | 3073 ----------------- ToolCollection/DSCursor.xsc | 9 - ToolCollection/DSCursor.xsd | 369 -- ToolCollection/DSCursor.xss | 12 - ToolCollection/My Project/AssemblyInfo.vb | 2 +- .../My Project/Settings.Designer.vb | 37 - ToolCollection/My Project/Settings.settings | 17 - ToolCollection/ToolCollection.vbproj | 25 - ToolCollection/app.config | 12 - ToolCollection/clsNI_WorkFile.vb | 2 +- ToolCollection/frmNB_AD.vb | 30 +- ToolCollection/frmNB_AD_add.vb | 27 +- ToolCollection/frmNIHauptseite.vb | 136 +- .../frmNI_Nachbearbeitung.Designer.vb | 263 -- ToolCollection/frmNI_Nachbearbeitung.resx | 126 - ToolCollection/frmNI_Nachbearbeitung.vb | 193 -- 19 files changed, 149 insertions(+), 4242 deletions(-) delete mode 100644 ToolCollection/DSCursor.Designer.vb delete mode 100644 ToolCollection/DSCursor.xsc delete mode 100644 ToolCollection/DSCursor.xsd delete mode 100644 ToolCollection/DSCursor.xss delete mode 100644 ToolCollection/frmNI_Nachbearbeitung.Designer.vb delete mode 100644 ToolCollection/frmNI_Nachbearbeitung.resx delete mode 100644 ToolCollection/frmNI_Nachbearbeitung.vb diff --git a/ToolCollection/ClassNIDatenbankzugriff.vb b/ToolCollection/ClassNIDatenbankzugriff.vb index e59af95..f828996 100644 --- a/ToolCollection/ClassNIDatenbankzugriff.vb +++ b/ToolCollection/ClassNIDatenbankzugriff.vb @@ -545,7 +545,7 @@ Public Class ClassNIDatenbankzugriff ' führt eine SQL-Anweisung auf der DB aus - Public Function GetValueFromMssqlDb(Profilname As String, ByVal selectAnweisung As String, ByVal datasource As String, ByVal User As String, ByVal pw As String, ByVal myDS As DataSet, ByVal init_Cata As String, Optional ByVal Indexname As String = "", Optional ByVal QuellVektor As Boolean = False) ' + Public Function GetValueFromMssqlDb(WMFilename As String, Profilname As String, ByVal selectAnweisung As String, ByVal datasource As String, ByVal User As String, ByVal pw As String, ByVal myDS As DataSet, ByVal init_Cata As String, Optional ByVal Indexname As String = "", Optional ByVal QuellVektor As Boolean = False) ' Try _Logger.Debug("MS-SQL: " & selectAnweisung) ' die nötigen Variablen definieren @@ -594,8 +594,8 @@ Public Class ClassNIDatenbankzugriff Try Select Case dt.Rows.Count Case 0 - _Logger.Warn(">> SQL-ERGEBNIS liefert keine Zeile zurück!") - _Logger.Warn(">> SQL-Befehl: " & selectAnweisung) + _Logger.Warn($"{WMFilename} # SQL liefert keine Zeile zurück: [{selectAnweisung}]") + If QuellVektor = True Then SQLconnect.Close() Return "Empty Row" @@ -607,7 +607,7 @@ Public Class ClassNIDatenbankzugriff ' einen einzigen relevanten Wert zurückgeben Dim sqlresult = dt.Rows(0).Item(0) If IsDBNull(sqlresult) Then - _Logger.Warn("Genau 1 Zeile allerdings System.DBNull") + _Logger.Warn($"{WMFilename} # Genau 1 Zeile allerdings System.DBNull") If QuellVektor = True Then SQLconnect.Close() Return "NULL Row" @@ -616,7 +616,7 @@ Public Class ClassNIDatenbankzugriff Return Nothing End If Else - _Logger.Debug("Genau 1 Zeile - SQL-Ergebnis: '" & sqlresult.ToString & "'") + _Logger.Debug($"{WMFilename} # Genau 1 Zeile - SQL-Ergebnis: '" & sqlresult.ToString & "'") Dim newRow As DataRow If QuellVektor = True Then newRow = myDS.Tables("TBVEKTOR_ARRAY").NewRow() @@ -642,7 +642,7 @@ Public Class ClassNIDatenbankzugriff End If Case Else 'SQL liefert mehrere Werte zurück - _Logger.Debug("Mehrere Zeilen durch SQL - Anzahl: " & dt.Rows.Count) + _Logger.Debug($"{WMFilename} # Mehrere Zeilen durch SQL - Anzahl: " & dt.Rows.Count) 'Beginne mit 0 Dim counter As Integer = 0 For Each Row As DataRow In dt.Rows diff --git a/ToolCollection/ClassSQLITE.vb b/ToolCollection/ClassSQLITE.vb index 1248131..43d14b4 100644 --- a/ToolCollection/ClassSQLITE.vb +++ b/ToolCollection/ClassSQLITE.vb @@ -6,23 +6,35 @@ Public Class ClassSQLITE Public Shared Passwort_admin As String Private Shared _Logger As DigitalData.Modules.Logging.Logger - Public Shared Function Init(_form As Boolean) + Sub New(LogConfig As LogConfig) + _Logger = LogConfig.GetLogger + + End Sub + Public Function DBInit(_form As Boolean) As Boolean Try + If My.Settings.SQLLITE_CONNECTION = String.Empty Or My.Settings.SQLLITE_CONNECTION Is Nothing = True Then + _Logger.Debug($"My.Settings.SQLLITE_CONNECTION is empty or nothing...trying to fix...") + If IO.File.Exists(Application.StartupPath & "\ToolCollection.sqlite") Then + My.Settings.SQLLITE_CONNECTION = Application.StartupPath & "\ToolCollection.sqlite" + My.Settings.Save() + End If + End If + _Logger.Debug($"SQLITE ConnString: data source={My.Settings.SQLLITE_CONNECTION};Version=3;UseUTF16Encoding=True;") db_location = "data source=" & My.Settings.SQLLITE_CONNECTION & ";Version=3;UseUTF16Encoding=True;" - Dim SQLconnect As New SQLite.SQLiteConnection(db_location) '"Data Source=E:\ToolCollection.sqlite;Version=3;UseUTF16Encoding=True;") '""Data Source=" & db_location & ";") + Dim SQLconnect As New SQLite.SQLiteConnection(db_location) '"Data Source=E: \ToolCollection.sqlite;Version=3;UseUTF16Encoding=True;") '""Data Source=" & db_location & ";") 'SQLconnect.ConnectionString = "Data Source=" & db_location SQLconnect.Open() Return True Catch ex As Exception If _form = False Then - _Logger.Error(ex) + _Logger.Error(ex) Else - MsgBox("Fehler in: Init SQLiteDatabase: " & ex.Message, MsgBoxStyle.Critical) + MsgBox("Fehler in DBInit SQLiteDatabase: " & ex.Message, MsgBoxStyle.Critical) End If Return False End Try End Function - Public Shared Function Return_Datatable(Select_anweisung As String, _form As Boolean) + Public Function Return_Datatable(Select_anweisung As String, _form As Boolean) As DataTable Try Dim SQLconnect As New SQLite.SQLiteConnection() Dim SQLcommand As SQLiteCommand @@ -39,14 +51,14 @@ Public Class ClassSQLITE Return dt Catch ex As Exception If _form = False Then - _Logger.Error(ex) + _Logger.Error(ex) Else MsgBox("FEHLER IN Return_Datatable: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End If Return Nothing End Try End Function - Public Shared Function Execute_Command(_sql As String, _form As Boolean) + Public Function Execute_Command(_sql As String, _form As Boolean) As Boolean Try Dim SQLconnect As New SQLite.SQLiteConnection() Dim SQLcommand As SQLiteCommand @@ -61,14 +73,14 @@ Public Class ClassSQLITE Return True Catch ex As Exception If _form = False Then - _Logger.Error(ex) + _Logger.Error(ex) Else MsgBox("Fehler in: 'Execute_Command': " & vbNewLine & ex.Message & vbNewLine & vbNewLine & "SQL-Command: " & _sql, MsgBoxStyle.Critical) End If Return False End Try End Function - Public Shared Function Execute_scalar(_sql As String, _form As Boolean) + Public Function Execute_scalar(_sql As String, _form As Boolean) Try Dim SQLconnect As New SQLite.SQLiteConnection() Dim SQLcommand As SQLiteCommand @@ -83,7 +95,7 @@ Public Class ClassSQLITE Return result Catch ex As Exception If _form = False Then - _Logger.Error(ex) + _Logger.Error(ex) Else MsgBox("Fehler in: 'Execute_scalar': " & vbNewLine & ex.Message & vbNewLine & vbNewLine & "SQL-Command: " & _sql, MsgBoxStyle.Critical) End If diff --git a/ToolCollection/ClassWD_Rechte.vb b/ToolCollection/ClassWD_Rechte.vb index 303edcf..a631f89 100644 --- a/ToolCollection/ClassWD_Rechte.vb +++ b/ToolCollection/ClassWD_Rechte.vb @@ -39,9 +39,15 @@ Public Class ClassWD_Rechte Public oBrowser As New WMOBRWSLib.ServerBrowser Public oDokumentTypen As WINDREAMLib.WMObjects Public aktivesProfil As ClassNIProfil - Private Shared _Logger As DigitalData.Modules.Logging.Logger + Private Shared _Logger As DigitalData.Modules.Logging.Logger + Private Shared _MyLogger As LogConfig + Private _sqlite As ClassSQLITE #End Region - + Sub New(LogConfig As LogConfig, _mysqlite As ClassSQLITE) + _MyLogger = LogConfig + _Logger = _MyLogger.GetLogger + _sqlite = _mysqlite + End Sub ''' ''' Initialisiert die statische Klasse (Login, Session starten, usw.) ''' @@ -219,7 +225,7 @@ Public Class ClassWD_Rechte Dim _UserOrGroup Dim _lRight As Integer Dim _Erfolgreich As Boolean = True - Dim DT As DataTable = ClassSQLITE.Return_Datatable("select * from TBNI_NACHBEARBEITUNG_AD WHERE GUID = '" & profilID & "'", _form) + Dim DT As DataTable = _sqlite.Return_Datatable("select * from TBNI_NACHBEARBEITUNG_AD WHERE GUID = '" & profilID & "'", _form) If DT Is Nothing = False Then If DT.Rows.Count = 1 Then 'Profildaten laden @@ -230,7 +236,7 @@ Public Class ClassWD_Rechte PW = row.Item("Password") Server = row.Item("Servername") Next - Dim DTR As DataTable = ClassSQLITE.Return_Datatable("select * from TBNI_NB_STEP_AD WHERE GUID = " & regelid, _form) + Dim DTR As DataTable = _sqlite.Return_Datatable("select * from TBNI_NB_STEP_AD WHERE GUID = " & regelid, _form) If DTR.Rows.Count = 1 Then For Each row As DataRow In DTR.Rows _methode = row.Item("Methode") diff --git a/ToolCollection/DSCursor.Designer.vb b/ToolCollection/DSCursor.Designer.vb deleted file mode 100644 index 6ac573c..0000000 --- a/ToolCollection/DSCursor.Designer.vb +++ /dev/null @@ -1,3073 +0,0 @@ -'------------------------------------------------------------------------------ -' -' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.42000 -' -' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn -' der Code erneut generiert wird. -' -'------------------------------------------------------------------------------ - -Option Strict Off -Option Explicit On - - - -''' -'''Represents a strongly typed in-memory cache of data. -''' - _ -Partial Public Class DSCursor - Inherits Global.System.Data.DataSet - - Private tableSYS_WDCC As SYS_WDCCDataTable - - Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema - - _ - Public Sub New() - MyBase.New - Me.BeginInit - Me.InitClass - Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged - AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler - AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler - Me.EndInit - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context, false) - If (Me.IsBinarySerialized(info, context) = true) Then - Me.InitVars(false) - Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged - AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 - AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 - Return - End If - Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) - If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then - Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() - ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) - If (Not (ds.Tables("SYS_WDCC")) Is Nothing) Then - MyBase.Tables.Add(New SYS_WDCCDataTable(ds.Tables("SYS_WDCC"))) - End If - Me.DataSetName = ds.DataSetName - Me.Prefix = ds.Prefix - Me.Namespace = ds.Namespace - Me.Locale = ds.Locale - Me.CaseSensitive = ds.CaseSensitive - Me.EnforceConstraints = ds.EnforceConstraints - Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) - Me.InitVars - Else - Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) - End If - Me.GetSerializationData(info, context) - Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged - AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler - AddHandler Me.Relations.CollectionChanged, schemaChangedHandler - End Sub - - _ - Public ReadOnly Property SYS_WDCC() As SYS_WDCCDataTable - Get - Return Me.tableSYS_WDCC - End Get - End Property - - _ - Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode - Get - Return Me._schemaSerializationMode - End Get - Set - Me._schemaSerializationMode = value - End Set - End Property - - _ - Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection - Get - Return MyBase.Tables - End Get - End Property - - _ - Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection - Get - Return MyBase.Relations - End Get - End Property - - _ - Protected Overrides Sub InitializeDerivedDataSet() - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub - - _ - Public Overrides Function Clone() As Global.System.Data.DataSet - Dim cln As DSCursor = CType(MyBase.Clone,DSCursor) - cln.InitVars - cln.SchemaSerializationMode = Me.SchemaSerializationMode - Return cln - End Function - - _ - Protected Overrides Function ShouldSerializeTables() As Boolean - Return false - End Function - - _ - Protected Overrides Function ShouldSerializeRelations() As Boolean - Return false - End Function - - _ - Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) - If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then - Me.Reset - Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() - ds.ReadXml(reader) - If (Not (ds.Tables("SYS_WDCC")) Is Nothing) Then - MyBase.Tables.Add(New SYS_WDCCDataTable(ds.Tables("SYS_WDCC"))) - End If - Me.DataSetName = ds.DataSetName - Me.Prefix = ds.Prefix - Me.Namespace = ds.Namespace - Me.Locale = ds.Locale - Me.CaseSensitive = ds.CaseSensitive - Me.EnforceConstraints = ds.EnforceConstraints - Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) - Me.InitVars - Else - Me.ReadXml(reader) - Me.InitVars - End If - End Sub - - _ - Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema - Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) - stream.Position = 0 - Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) - End Function - - _ - Friend Overloads Sub InitVars() - Me.InitVars(true) - End Sub - - _ - Friend Overloads Sub InitVars(ByVal initTable As Boolean) - Me.tableSYS_WDCC = CType(MyBase.Tables("SYS_WDCC"),SYS_WDCCDataTable) - If (initTable = true) Then - If (Not (Me.tableSYS_WDCC) Is Nothing) Then - Me.tableSYS_WDCC.InitVars - End If - End If - End Sub - - _ - Private Sub InitClass() - Me.DataSetName = "DSCursor" - Me.Prefix = "" - Me.Namespace = "http://tempuri.org/DSCursor.xsd" - Me.EnforceConstraints = true - Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema - Me.tableSYS_WDCC = New SYS_WDCCDataTable() - MyBase.Tables.Add(Me.tableSYS_WDCC) - End Sub - - _ - Private Function ShouldSerializeSYS_WDCC() As Boolean - Return false - End Function - - _ - Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) - If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then - Me.InitVars - End If - End Sub - - _ - Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim ds As DSCursor = New DSCursor() - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any.Namespace = ds.Namespace - sequence.Items.Add(any) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - - _ - Public Delegate Sub SYS_WDCCRowChangeEventHandler(ByVal sender As Object, ByVal e As SYS_WDCCRowChangeEvent) - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class SYS_WDCCDataTable - Inherits Global.System.Data.TypedTableBase(Of SYS_WDCCRow) - - Private columnID As Global.System.Data.DataColumn - - Private columnCCID As Global.System.Data.DataColumn - - Private columnWDID As Global.System.Data.DataColumn - - Private columnFILENAME_REP As Global.System.Data.DataColumn - - Private columnFILENAME_ARCH As Global.System.Data.DataColumn - - Private columnFILEEXT As Global.System.Data.DataColumn - - Private columnOBJTYPE As Global.System.Data.DataColumn - - Private columnDOKTYPE As Global.System.Data.DataColumn - - Private columnOBG0 As Global.System.Data.DataColumn - - Private columnOBG1 As Global.System.Data.DataColumn - - Private columnOBG2 As Global.System.Data.DataColumn - - Private columnOBG3 As Global.System.Data.DataColumn - - Private columnOBG4 As Global.System.Data.DataColumn - - Private columnOBG5 As Global.System.Data.DataColumn - - Private columnOBG6 As Global.System.Data.DataColumn - - Private columnOBG7 As Global.System.Data.DataColumn - - Private columnOBG8 As Global.System.Data.DataColumn - - Private columnOBG9 As Global.System.Data.DataColumn - - Private columnCREATEDAT As Global.System.Data.DataColumn - - Private columnCREATESYS As Global.System.Data.DataColumn - - Private columnCHANGEDAT As Global.System.Data.DataColumn - - Private columnCHANGESYS As Global.System.Data.DataColumn - - Private columnRETMSG As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "SYS_WDCC" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars - End Sub - - _ - Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnID - End Get - End Property - - _ - Public ReadOnly Property CCIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCCID - End Get - End Property - - _ - Public ReadOnly Property WDIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnWDID - End Get - End Property - - _ - Public ReadOnly Property FILENAME_REPColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFILENAME_REP - End Get - End Property - - _ - Public ReadOnly Property FILENAME_ARCHColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFILENAME_ARCH - End Get - End Property - - _ - Public ReadOnly Property FILEEXTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFILEEXT - End Get - End Property - - _ - Public ReadOnly Property OBJTYPEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnOBJTYPE - End Get - End Property - - _ - Public ReadOnly Property DOKTYPEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnDOKTYPE - End Get - End Property - - _ - Public ReadOnly Property OBG0Column() As Global.System.Data.DataColumn - Get - Return Me.columnOBG0 - End Get - End Property - - _ - Public ReadOnly Property OBG1Column() As Global.System.Data.DataColumn - Get - Return Me.columnOBG1 - End Get - End Property - - _ - Public ReadOnly Property OBG2Column() As Global.System.Data.DataColumn - Get - Return Me.columnOBG2 - End Get - End Property - - _ - Public ReadOnly Property OBG3Column() As Global.System.Data.DataColumn - Get - Return Me.columnOBG3 - End Get - End Property - - _ - Public ReadOnly Property OBG4Column() As Global.System.Data.DataColumn - Get - Return Me.columnOBG4 - End Get - End Property - - _ - Public ReadOnly Property OBG5Column() As Global.System.Data.DataColumn - Get - Return Me.columnOBG5 - End Get - End Property - - _ - Public ReadOnly Property OBG6Column() As Global.System.Data.DataColumn - Get - Return Me.columnOBG6 - End Get - End Property - - _ - Public ReadOnly Property OBG7Column() As Global.System.Data.DataColumn - Get - Return Me.columnOBG7 - End Get - End Property - - _ - Public ReadOnly Property OBG8Column() As Global.System.Data.DataColumn - Get - Return Me.columnOBG8 - End Get - End Property - - _ - Public ReadOnly Property OBG9Column() As Global.System.Data.DataColumn - Get - Return Me.columnOBG9 - End Get - End Property - - _ - Public ReadOnly Property CREATEDATColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCREATEDAT - End Get - End Property - - _ - Public ReadOnly Property CREATESYSColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCREATESYS - End Get - End Property - - _ - Public ReadOnly Property CHANGEDATColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGEDAT - End Get - End Property - - _ - Public ReadOnly Property CHANGESYSColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGESYS - End Get - End Property - - _ - Public ReadOnly Property RETMSGColumn() As Global.System.Data.DataColumn - Get - Return Me.columnRETMSG - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As SYS_WDCCRow - Get - Return CType(Me.Rows(index),SYS_WDCCRow) - End Get - End Property - - _ - Public Event SYS_WDCCRowChanging As SYS_WDCCRowChangeEventHandler - - _ - Public Event SYS_WDCCRowChanged As SYS_WDCCRowChangeEventHandler - - _ - Public Event SYS_WDCCRowDeleting As SYS_WDCCRowChangeEventHandler - - _ - Public Event SYS_WDCCRowDeleted As SYS_WDCCRowChangeEventHandler - - _ - Public Overloads Sub AddSYS_WDCCRow(ByVal row As SYS_WDCCRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddSYS_WDCCRow( _ - ByVal ID As Decimal, _ - ByVal CCID As String, _ - ByVal WDID As String, _ - ByVal FILENAME_REP As String, _ - ByVal FILENAME_ARCH As String, _ - ByVal FILEEXT As String, _ - ByVal OBJTYPE As String, _ - ByVal DOKTYPE As String, _ - ByVal OBG0 As String, _ - ByVal OBG1 As String, _ - ByVal OBG2 As String, _ - ByVal OBG3 As String, _ - ByVal OBG4 As String, _ - ByVal OBG5 As String, _ - ByVal OBG6 As String, _ - ByVal OBG7 As String, _ - ByVal OBG8 As String, _ - ByVal OBG9 As String, _ - ByVal CREATEDAT As Date, _ - ByVal CREATESYS As String, _ - ByVal CHANGEDAT As Date, _ - ByVal CHANGESYS As String, _ - ByVal RETMSG As String) As SYS_WDCCRow - Dim rowSYS_WDCCRow As SYS_WDCCRow = CType(Me.NewRow,SYS_WDCCRow) - Dim columnValuesArray() As Object = New Object() {ID, CCID, WDID, FILENAME_REP, FILENAME_ARCH, FILEEXT, OBJTYPE, DOKTYPE, OBG0, OBG1, OBG2, OBG3, OBG4, OBG5, OBG6, OBG7, OBG8, OBG9, CREATEDAT, CREATESYS, CHANGEDAT, CHANGESYS, RETMSG} - rowSYS_WDCCRow.ItemArray = columnValuesArray - Me.Rows.Add(rowSYS_WDCCRow) - Return rowSYS_WDCCRow - End Function - - _ - Public Function FindByID(ByVal ID As Decimal) As SYS_WDCCRow - Return CType(Me.Rows.Find(New Object() {ID}),SYS_WDCCRow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As SYS_WDCCDataTable = CType(MyBase.Clone,SYS_WDCCDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New SYS_WDCCDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnID = MyBase.Columns("ID") - Me.columnCCID = MyBase.Columns("CCID") - Me.columnWDID = MyBase.Columns("WDID") - Me.columnFILENAME_REP = MyBase.Columns("FILENAME_REP") - Me.columnFILENAME_ARCH = MyBase.Columns("FILENAME_ARCH") - Me.columnFILEEXT = MyBase.Columns("FILEEXT") - Me.columnOBJTYPE = MyBase.Columns("OBJTYPE") - Me.columnDOKTYPE = MyBase.Columns("DOKTYPE") - Me.columnOBG0 = MyBase.Columns("OBG0") - Me.columnOBG1 = MyBase.Columns("OBG1") - Me.columnOBG2 = MyBase.Columns("OBG2") - Me.columnOBG3 = MyBase.Columns("OBG3") - Me.columnOBG4 = MyBase.Columns("OBG4") - Me.columnOBG5 = MyBase.Columns("OBG5") - Me.columnOBG6 = MyBase.Columns("OBG6") - Me.columnOBG7 = MyBase.Columns("OBG7") - Me.columnOBG8 = MyBase.Columns("OBG8") - Me.columnOBG9 = MyBase.Columns("OBG9") - Me.columnCREATEDAT = MyBase.Columns("CREATEDAT") - Me.columnCREATESYS = MyBase.Columns("CREATESYS") - Me.columnCHANGEDAT = MyBase.Columns("CHANGEDAT") - Me.columnCHANGESYS = MyBase.Columns("CHANGESYS") - Me.columnRETMSG = MyBase.Columns("RETMSG") - End Sub - - _ - Private Sub InitClass() - Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnID) - Me.columnCCID = New Global.System.Data.DataColumn("CCID", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCCID) - Me.columnWDID = New Global.System.Data.DataColumn("WDID", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWDID) - Me.columnFILENAME_REP = New Global.System.Data.DataColumn("FILENAME_REP", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFILENAME_REP) - Me.columnFILENAME_ARCH = New Global.System.Data.DataColumn("FILENAME_ARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFILENAME_ARCH) - Me.columnFILEEXT = New Global.System.Data.DataColumn("FILEEXT", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFILEEXT) - Me.columnOBJTYPE = New Global.System.Data.DataColumn("OBJTYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnOBJTYPE) - Me.columnDOKTYPE = New Global.System.Data.DataColumn("DOKTYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnDOKTYPE) - Me.columnOBG0 = New Global.System.Data.DataColumn("OBG0", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnOBG0) - Me.columnOBG1 = New Global.System.Data.DataColumn("OBG1", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnOBG1) - Me.columnOBG2 = New Global.System.Data.DataColumn("OBG2", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnOBG2) - Me.columnOBG3 = New Global.System.Data.DataColumn("OBG3", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnOBG3) - Me.columnOBG4 = New Global.System.Data.DataColumn("OBG4", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnOBG4) - Me.columnOBG5 = New Global.System.Data.DataColumn("OBG5", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnOBG5) - Me.columnOBG6 = New Global.System.Data.DataColumn("OBG6", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnOBG6) - Me.columnOBG7 = New Global.System.Data.DataColumn("OBG7", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnOBG7) - Me.columnOBG8 = New Global.System.Data.DataColumn("OBG8", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnOBG8) - Me.columnOBG9 = New Global.System.Data.DataColumn("OBG9", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnOBG9) - Me.columnCREATEDAT = New Global.System.Data.DataColumn("CREATEDAT", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCREATEDAT) - Me.columnCREATESYS = New Global.System.Data.DataColumn("CREATESYS", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCREATESYS) - Me.columnCHANGEDAT = New Global.System.Data.DataColumn("CHANGEDAT", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGEDAT) - Me.columnCHANGESYS = New Global.System.Data.DataColumn("CHANGESYS", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGESYS) - Me.columnRETMSG = New Global.System.Data.DataColumn("RETMSG", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnRETMSG) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true)) - Me.columnID.AllowDBNull = false - Me.columnID.Unique = true - Me.columnCCID.MaxLength = 80 - Me.columnWDID.MaxLength = 80 - Me.columnFILENAME_REP.MaxLength = 510 - Me.columnFILENAME_ARCH.MaxLength = 510 - Me.columnFILEEXT.MaxLength = 40 - Me.columnOBJTYPE.MaxLength = 510 - Me.columnDOKTYPE.MaxLength = 510 - Me.columnOBG0.MaxLength = 200 - Me.columnOBG1.MaxLength = 200 - Me.columnOBG2.MaxLength = 200 - Me.columnOBG3.MaxLength = 200 - Me.columnOBG4.MaxLength = 200 - Me.columnOBG5.MaxLength = 200 - Me.columnOBG6.MaxLength = 200 - Me.columnOBG7.MaxLength = 200 - Me.columnOBG8.MaxLength = 200 - Me.columnOBG9.MaxLength = 200 - Me.columnCREATEDAT.AllowDBNull = false - Me.columnCREATESYS.MaxLength = 10 - Me.columnCHANGESYS.MaxLength = 10 - Me.columnRETMSG.MaxLength = 500 - End Sub - - _ - Public Function NewSYS_WDCCRow() As SYS_WDCCRow - Return CType(Me.NewRow,SYS_WDCCRow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New SYS_WDCCRow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(SYS_WDCCRow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.SYS_WDCCRowChangedEvent) Is Nothing) Then - RaiseEvent SYS_WDCCRowChanged(Me, New SYS_WDCCRowChangeEvent(CType(e.Row,SYS_WDCCRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.SYS_WDCCRowChangingEvent) Is Nothing) Then - RaiseEvent SYS_WDCCRowChanging(Me, New SYS_WDCCRowChangeEvent(CType(e.Row,SYS_WDCCRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.SYS_WDCCRowDeletedEvent) Is Nothing) Then - RaiseEvent SYS_WDCCRowDeleted(Me, New SYS_WDCCRowChangeEvent(CType(e.Row,SYS_WDCCRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.SYS_WDCCRowDeletingEvent) Is Nothing) Then - RaiseEvent SYS_WDCCRowDeleting(Me, New SYS_WDCCRowChangeEvent(CType(e.Row,SYS_WDCCRow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveSYS_WDCCRow(ByVal row As SYS_WDCCRow) - Me.Rows.Remove(row) - End Sub - - _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As DSCursor = New DSCursor() - 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 = "SYS_WDCCDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class SYS_WDCCRow - Inherits Global.System.Data.DataRow - - Private tableSYS_WDCC As SYS_WDCCDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableSYS_WDCC = CType(Me.Table,SYS_WDCCDataTable) - End Sub - - _ - Public Property ID() As Decimal - Get - Return CType(Me(Me.tableSYS_WDCC.IDColumn),Decimal) - End Get - Set - Me(Me.tableSYS_WDCC.IDColumn) = value - End Set - End Property - - _ - Public Property CCID() As String - Get - Try - Return CType(Me(Me.tableSYS_WDCC.CCIDColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CCID in Tabelle SYS_WDCC ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableSYS_WDCC.CCIDColumn) = value - End Set - End Property - - _ - Public Property WDID() As String - Get - Try - Return CType(Me(Me.tableSYS_WDCC.WDIDColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WDID in Tabelle SYS_WDCC ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableSYS_WDCC.WDIDColumn) = value - End Set - End Property - - _ - Public Property FILENAME_REP() As String - Get - Try - Return CType(Me(Me.tableSYS_WDCC.FILENAME_REPColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILENAME_REP in Tabelle SYS_WDCC ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableSYS_WDCC.FILENAME_REPColumn) = value - End Set - End Property - - _ - Public Property FILENAME_ARCH() As String - Get - Try - Return CType(Me(Me.tableSYS_WDCC.FILENAME_ARCHColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILENAME_ARCH in Tabelle SYS_WDCC ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableSYS_WDCC.FILENAME_ARCHColumn) = value - End Set - End Property - - _ - Public Property FILEEXT() As String - Get - Try - Return CType(Me(Me.tableSYS_WDCC.FILEEXTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILEEXT in Tabelle SYS_WDCC ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableSYS_WDCC.FILEEXTColumn) = value - End Set - End Property - - _ - Public Property OBJTYPE() As String - Get - Try - Return CType(Me(Me.tableSYS_WDCC.OBJTYPEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OBJTYPE in Tabelle SYS_WDCC ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableSYS_WDCC.OBJTYPEColumn) = value - End Set - End Property - - _ - Public Property DOKTYPE() As String - Get - Try - Return CType(Me(Me.tableSYS_WDCC.DOKTYPEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DOKTYPE in Tabelle SYS_WDCC ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableSYS_WDCC.DOKTYPEColumn) = value - End Set - End Property - - _ - Public Property OBG0() As String - Get - Try - Return CType(Me(Me.tableSYS_WDCC.OBG0Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OBG0 in Tabelle SYS_WDCC ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableSYS_WDCC.OBG0Column) = value - End Set - End Property - - _ - Public Property OBG1() As String - Get - Try - Return CType(Me(Me.tableSYS_WDCC.OBG1Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OBG1 in Tabelle SYS_WDCC ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableSYS_WDCC.OBG1Column) = value - End Set - End Property - - _ - Public Property OBG2() As String - Get - Try - Return CType(Me(Me.tableSYS_WDCC.OBG2Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OBG2 in Tabelle SYS_WDCC ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableSYS_WDCC.OBG2Column) = value - End Set - End Property - - _ - Public Property OBG3() As String - Get - Try - Return CType(Me(Me.tableSYS_WDCC.OBG3Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OBG3 in Tabelle SYS_WDCC ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableSYS_WDCC.OBG3Column) = value - End Set - End Property - - _ - Public Property OBG4() As String - Get - Try - Return CType(Me(Me.tableSYS_WDCC.OBG4Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OBG4 in Tabelle SYS_WDCC ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableSYS_WDCC.OBG4Column) = value - End Set - End Property - - _ - Public Property OBG5() As String - Get - Try - Return CType(Me(Me.tableSYS_WDCC.OBG5Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OBG5 in Tabelle SYS_WDCC ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableSYS_WDCC.OBG5Column) = value - End Set - End Property - - _ - Public Property OBG6() As String - Get - Try - Return CType(Me(Me.tableSYS_WDCC.OBG6Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OBG6 in Tabelle SYS_WDCC ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableSYS_WDCC.OBG6Column) = value - End Set - End Property - - _ - Public Property OBG7() As String - Get - Try - Return CType(Me(Me.tableSYS_WDCC.OBG7Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OBG7 in Tabelle SYS_WDCC ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableSYS_WDCC.OBG7Column) = value - End Set - End Property - - _ - Public Property OBG8() As String - Get - Try - Return CType(Me(Me.tableSYS_WDCC.OBG8Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OBG8 in Tabelle SYS_WDCC ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableSYS_WDCC.OBG8Column) = value - End Set - End Property - - _ - Public Property OBG9() As String - Get - Try - Return CType(Me(Me.tableSYS_WDCC.OBG9Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OBG9 in Tabelle SYS_WDCC ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableSYS_WDCC.OBG9Column) = value - End Set - End Property - - _ - Public Property CREATEDAT() As Date - Get - Return CType(Me(Me.tableSYS_WDCC.CREATEDATColumn),Date) - End Get - Set - Me(Me.tableSYS_WDCC.CREATEDATColumn) = value - End Set - End Property - - _ - Public Property CREATESYS() As String - Get - Try - Return CType(Me(Me.tableSYS_WDCC.CREATESYSColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CREATESYS in Tabelle SYS_WDCC ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableSYS_WDCC.CREATESYSColumn) = value - End Set - End Property - - _ - Public Property CHANGEDAT() As Date - Get - Try - Return CType(Me(Me.tableSYS_WDCC.CHANGEDATColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGEDAT in Tabelle SYS_WDCC ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableSYS_WDCC.CHANGEDATColumn) = value - End Set - End Property - - _ - Public Property CHANGESYS() As String - Get - Try - Return CType(Me(Me.tableSYS_WDCC.CHANGESYSColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGESYS in Tabelle SYS_WDCC ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableSYS_WDCC.CHANGESYSColumn) = value - End Set - End Property - - _ - Public Property RETMSG() As String - Get - Try - Return CType(Me(Me.tableSYS_WDCC.RETMSGColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RETMSG in Tabelle SYS_WDCC ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableSYS_WDCC.RETMSGColumn) = value - End Set - End Property - - _ - Public Function IsCCIDNull() As Boolean - Return Me.IsNull(Me.tableSYS_WDCC.CCIDColumn) - End Function - - _ - Public Sub SetCCIDNull() - Me(Me.tableSYS_WDCC.CCIDColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsWDIDNull() As Boolean - Return Me.IsNull(Me.tableSYS_WDCC.WDIDColumn) - End Function - - _ - Public Sub SetWDIDNull() - Me(Me.tableSYS_WDCC.WDIDColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsFILENAME_REPNull() As Boolean - Return Me.IsNull(Me.tableSYS_WDCC.FILENAME_REPColumn) - End Function - - _ - Public Sub SetFILENAME_REPNull() - Me(Me.tableSYS_WDCC.FILENAME_REPColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsFILENAME_ARCHNull() As Boolean - Return Me.IsNull(Me.tableSYS_WDCC.FILENAME_ARCHColumn) - End Function - - _ - Public Sub SetFILENAME_ARCHNull() - Me(Me.tableSYS_WDCC.FILENAME_ARCHColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsFILEEXTNull() As Boolean - Return Me.IsNull(Me.tableSYS_WDCC.FILEEXTColumn) - End Function - - _ - Public Sub SetFILEEXTNull() - Me(Me.tableSYS_WDCC.FILEEXTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsOBJTYPENull() As Boolean - Return Me.IsNull(Me.tableSYS_WDCC.OBJTYPEColumn) - End Function - - _ - Public Sub SetOBJTYPENull() - Me(Me.tableSYS_WDCC.OBJTYPEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsDOKTYPENull() As Boolean - Return Me.IsNull(Me.tableSYS_WDCC.DOKTYPEColumn) - End Function - - _ - Public Sub SetDOKTYPENull() - Me(Me.tableSYS_WDCC.DOKTYPEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsOBG0Null() As Boolean - Return Me.IsNull(Me.tableSYS_WDCC.OBG0Column) - End Function - - _ - Public Sub SetOBG0Null() - Me(Me.tableSYS_WDCC.OBG0Column) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsOBG1Null() As Boolean - Return Me.IsNull(Me.tableSYS_WDCC.OBG1Column) - End Function - - _ - Public Sub SetOBG1Null() - Me(Me.tableSYS_WDCC.OBG1Column) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsOBG2Null() As Boolean - Return Me.IsNull(Me.tableSYS_WDCC.OBG2Column) - End Function - - _ - Public Sub SetOBG2Null() - Me(Me.tableSYS_WDCC.OBG2Column) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsOBG3Null() As Boolean - Return Me.IsNull(Me.tableSYS_WDCC.OBG3Column) - End Function - - _ - Public Sub SetOBG3Null() - Me(Me.tableSYS_WDCC.OBG3Column) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsOBG4Null() As Boolean - Return Me.IsNull(Me.tableSYS_WDCC.OBG4Column) - End Function - - _ - Public Sub SetOBG4Null() - Me(Me.tableSYS_WDCC.OBG4Column) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsOBG5Null() As Boolean - Return Me.IsNull(Me.tableSYS_WDCC.OBG5Column) - End Function - - _ - Public Sub SetOBG5Null() - Me(Me.tableSYS_WDCC.OBG5Column) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsOBG6Null() As Boolean - Return Me.IsNull(Me.tableSYS_WDCC.OBG6Column) - End Function - - _ - Public Sub SetOBG6Null() - Me(Me.tableSYS_WDCC.OBG6Column) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsOBG7Null() As Boolean - Return Me.IsNull(Me.tableSYS_WDCC.OBG7Column) - End Function - - _ - Public Sub SetOBG7Null() - Me(Me.tableSYS_WDCC.OBG7Column) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsOBG8Null() As Boolean - Return Me.IsNull(Me.tableSYS_WDCC.OBG8Column) - End Function - - _ - Public Sub SetOBG8Null() - Me(Me.tableSYS_WDCC.OBG8Column) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsOBG9Null() As Boolean - Return Me.IsNull(Me.tableSYS_WDCC.OBG9Column) - End Function - - _ - Public Sub SetOBG9Null() - Me(Me.tableSYS_WDCC.OBG9Column) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCREATESYSNull() As Boolean - Return Me.IsNull(Me.tableSYS_WDCC.CREATESYSColumn) - End Function - - _ - Public Sub SetCREATESYSNull() - Me(Me.tableSYS_WDCC.CREATESYSColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGEDATNull() As Boolean - Return Me.IsNull(Me.tableSYS_WDCC.CHANGEDATColumn) - End Function - - _ - Public Sub SetCHANGEDATNull() - Me(Me.tableSYS_WDCC.CHANGEDATColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGESYSNull() As Boolean - Return Me.IsNull(Me.tableSYS_WDCC.CHANGESYSColumn) - End Function - - _ - Public Sub SetCHANGESYSNull() - Me(Me.tableSYS_WDCC.CHANGESYSColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsRETMSGNull() As Boolean - Return Me.IsNull(Me.tableSYS_WDCC.RETMSGColumn) - End Function - - _ - Public Sub SetRETMSGNull() - Me(Me.tableSYS_WDCC.RETMSGColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class SYS_WDCCRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As SYS_WDCCRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As SYS_WDCCRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As SYS_WDCCRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class -End Class - -Namespace DSCursorTableAdapters - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class SYS_WDCCTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter - - Private _connection As Global.System.Data.OleDb.OleDbConnection - - Private _transaction As Global.System.Data.OleDb.OleDbTransaction - - Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection - 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.OleDb.OleDbCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "SYS_WDCC" - tableMapping.ColumnMappings.Add("ID", "ID") - tableMapping.ColumnMappings.Add("CCID", "CCID") - tableMapping.ColumnMappings.Add("WDID", "WDID") - tableMapping.ColumnMappings.Add("FILENAME_REP", "FILENAME_REP") - tableMapping.ColumnMappings.Add("FILENAME_ARCH", "FILENAME_ARCH") - tableMapping.ColumnMappings.Add("FILEEXT", "FILEEXT") - tableMapping.ColumnMappings.Add("OBJTYPE", "OBJTYPE") - tableMapping.ColumnMappings.Add("DOKTYPE", "DOKTYPE") - tableMapping.ColumnMappings.Add("OBG0", "OBG0") - tableMapping.ColumnMappings.Add("OBG1", "OBG1") - tableMapping.ColumnMappings.Add("OBG2", "OBG2") - tableMapping.ColumnMappings.Add("OBG3", "OBG3") - tableMapping.ColumnMappings.Add("OBG4", "OBG4") - tableMapping.ColumnMappings.Add("OBG5", "OBG5") - tableMapping.ColumnMappings.Add("OBG6", "OBG6") - tableMapping.ColumnMappings.Add("OBG7", "OBG7") - tableMapping.ColumnMappings.Add("OBG8", "OBG8") - tableMapping.ColumnMappings.Add("OBG9", "OBG9") - tableMapping.ColumnMappings.Add("CREATEDAT", "CREATEDAT") - tableMapping.ColumnMappings.Add("CREATESYS", "CREATESYS") - tableMapping.ColumnMappings.Add("CHANGEDAT", "CHANGEDAT") - tableMapping.ColumnMappings.Add("CHANGESYS", "CHANGESYS") - tableMapping.ColumnMappings.Add("RETMSG", "RETMSG") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM ""SYS_WDCC"" WHERE ((""ID"" = ?) AND ((? = 1 AND ""CCID"" IS NULL) OR (""CCI"& _ - "D"" = ?)) AND ((? = 1 AND ""WDID"" IS NULL) OR (""WDID"" = ?)) AND ((? = 1 AND ""FILEN"& _ - "AME_REP"" IS NULL) OR (""FILENAME_REP"" = ?)) AND ((? = 1 AND ""FILENAME_ARCH"" IS NU"& _ - "LL) OR (""FILENAME_ARCH"" = ?)) AND ((? = 1 AND ""FILEEXT"" IS NULL) OR (""FILEEXT"" ="& _ - " ?)) AND ((? = 1 AND ""OBJTYPE"" IS NULL) OR (""OBJTYPE"" = ?)) AND ((? = 1 AND ""DOK"& _ - "TYPE"" IS NULL) OR (""DOKTYPE"" = ?)) AND ((? = 1 AND ""OBG0"" IS NULL) OR (""OBG0"" = "& _ - "?)) AND ((? = 1 AND ""OBG1"" IS NULL) OR (""OBG1"" = ?)) AND ((? = 1 AND ""OBG2"" IS N"& _ - "ULL) OR (""OBG2"" = ?)) AND ((? = 1 AND ""OBG3"" IS NULL) OR (""OBG3"" = ?)) AND ((? ="& _ - " 1 AND ""OBG4"" IS NULL) OR (""OBG4"" = ?)) AND ((? = 1 AND ""OBG5"" IS NULL) OR (""OBG"& _ - "5"" = ?)) AND ((? = 1 AND ""OBG6"" IS NULL) OR (""OBG6"" = ?)) AND ((? = 1 AND ""OBG7"""& _ - " IS NULL) OR (""OBG7"" = ?)) AND ((? = 1 AND ""OBG8"" IS NULL) OR (""OBG8"" = ?)) AND "& _ - "((? = 1 AND ""OBG9"" IS NULL) OR (""OBG9"" = ?)) AND (""CREATEDAT"" = ?) AND ((? = 1 A"& _ - "ND ""CREATESYS"" IS NULL) OR (""CREATESYS"" = ?)) AND ((? = 1 AND ""CHANGEDAT"" IS NUL"& _ - "L) OR (""CHANGEDAT"" = ?)) AND ((? = 1 AND ""CHANGESYS"" IS NULL) OR (""CHANGESYS"" = "& _ - "?)) AND ((? = 1 AND ""RETMSG"" IS NULL) OR (""RETMSG"" = ?)))" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ID", Global.System.Data.OleDb.OleDbType.Numeric, 0, Global.System.Data.ParameterDirection.Input, CType(18,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_CCID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CCID", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_CCID", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CCID", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_WDID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "WDID", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_WDID", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "WDID", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_FILENAME_REP", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FILENAME_REP", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_FILENAME_REP", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FILENAME_REP", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_FILENAME_ARCH", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FILENAME_ARCH", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_FILENAME_ARCH", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FILENAME_ARCH", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_FILEEXT", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FILEEXT", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_FILEEXT", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FILEEXT", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_OBJTYPE", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBJTYPE", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OBJTYPE", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBJTYPE", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_DOKTYPE", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "DOKTYPE", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_DOKTYPE", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "DOKTYPE", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_OBG0", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG0", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OBG0", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG0", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_OBG1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG1", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OBG1", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG1", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_OBG2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG2", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OBG2", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG2", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_OBG3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG3", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OBG3", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG3", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_OBG4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG4", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OBG4", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG4", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_OBG5", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG5", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OBG5", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG5", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_OBG6", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG6", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OBG6", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG6", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_OBG7", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG7", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OBG7", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG7", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_OBG8", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG8", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OBG8", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG8", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_OBG9", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG9", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OBG9", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG9", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_CREATEDAT", Global.System.Data.OleDb.OleDbType.DBTimeStamp, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CREATEDAT", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_CREATESYS", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CREATESYS", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_CREATESYS", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CREATESYS", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_CHANGEDAT", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CHANGEDAT", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_CHANGEDAT", Global.System.Data.OleDb.OleDbType.DBTimeStamp, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CHANGEDAT", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_CHANGESYS", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CHANGESYS", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_CHANGESYS", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CHANGESYS", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_RETMSG", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "RETMSG", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_RETMSG", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "RETMSG", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO ""SYS_WDCC"" (""ID"", ""CCID"", ""WDID"", ""FILENAME_REP"", ""FILENAME_ARCH"", ""F"& _ - "ILEEXT"", ""OBJTYPE"", ""DOKTYPE"", ""OBG0"", ""OBG1"", ""OBG2"", ""OBG3"", ""OBG4"", ""OBG5"", """& _ - "OBG6"", ""OBG7"", ""OBG8"", ""OBG9"", ""CREATEDAT"", ""CREATESYS"", ""CHANGEDAT"", ""CHANGESYS"& _ - """, ""RETMSG"") VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?,"& _ - " ?, ?, ?)" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("ID", Global.System.Data.OleDb.OleDbType.Numeric, 0, Global.System.Data.ParameterDirection.Input, CType(18,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("CCID", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CCID", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("WDID", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "WDID", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("FILENAME_REP", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FILENAME_REP", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("FILENAME_ARCH", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FILENAME_ARCH", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("FILEEXT", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FILEEXT", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OBJTYPE", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBJTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("DOKTYPE", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "DOKTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OBG0", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG0", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OBG1", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG1", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OBG2", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG2", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OBG3", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG3", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OBG4", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG4", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OBG5", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG5", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OBG6", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG6", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OBG7", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG7", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OBG8", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG8", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OBG9", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG9", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("CREATEDAT", Global.System.Data.OleDb.OleDbType.DBTimeStamp, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CREATEDAT", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("CREATESYS", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CREATESYS", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("CHANGEDAT", Global.System.Data.OleDb.OleDbType.DBTimeStamp, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CHANGEDAT", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("CHANGESYS", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CHANGESYS", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("RETMSG", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "RETMSG", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE ""SYS_WDCC"" SET ""ID"" = ?, ""CCID"" = ?, ""WDID"" = ?, ""FILENAME_REP"" = ?, ""FILE"& _ - "NAME_ARCH"" = ?, ""FILEEXT"" = ?, ""OBJTYPE"" = ?, ""DOKTYPE"" = ?, ""OBG0"" = ?, ""OBG1"" "& _ - "= ?, ""OBG2"" = ?, ""OBG3"" = ?, ""OBG4"" = ?, ""OBG5"" = ?, ""OBG6"" = ?, ""OBG7"" = ?, ""OB"& _ - "G8"" = ?, ""OBG9"" = ?, ""CREATEDAT"" = ?, ""CREATESYS"" = ?, ""CHANGEDAT"" = ?, ""CHANGES"& _ - "YS"" = ?, ""RETMSG"" = ? WHERE ((""ID"" = ?) AND ((? = 1 AND ""CCID"" IS NULL) OR (""CCI"& _ - "D"" = ?)) AND ((? = 1 AND ""WDID"" IS NULL) OR (""WDID"" = ?)) AND ((? = 1 AND ""FILEN"& _ - "AME_REP"" IS NULL) OR (""FILENAME_REP"" = ?)) AND ((? = 1 AND ""FILENAME_ARCH"" IS NU"& _ - "LL) OR (""FILENAME_ARCH"" = ?)) AND ((? = 1 AND ""FILEEXT"" IS NULL) OR (""FILEEXT"" ="& _ - " ?)) AND ((? = 1 AND ""OBJTYPE"" IS NULL) OR (""OBJTYPE"" = ?)) AND ((? = 1 AND ""DOK"& _ - "TYPE"" IS NULL) OR (""DOKTYPE"" = ?)) AND ((? = 1 AND ""OBG0"" IS NULL) OR (""OBG0"" = "& _ - "?)) AND ((? = 1 AND ""OBG1"" IS NULL) OR (""OBG1"" = ?)) AND ((? = 1 AND ""OBG2"" IS N"& _ - "ULL) OR (""OBG2"" = ?)) AND ((? = 1 AND ""OBG3"" IS NULL) OR (""OBG3"" = ?)) AND ((? ="& _ - " 1 AND ""OBG4"" IS NULL) OR (""OBG4"" = ?)) AND ((? = 1 AND ""OBG5"" IS NULL) OR (""OBG"& _ - "5"" = ?)) AND ((? = 1 AND ""OBG6"" IS NULL) OR (""OBG6"" = ?)) AND ((? = 1 AND ""OBG7"""& _ - " IS NULL) OR (""OBG7"" = ?)) AND ((? = 1 AND ""OBG8"" IS NULL) OR (""OBG8"" = ?)) AND "& _ - "((? = 1 AND ""OBG9"" IS NULL) OR (""OBG9"" = ?)) AND (""CREATEDAT"" = ?) AND ((? = 1 A"& _ - "ND ""CREATESYS"" IS NULL) OR (""CREATESYS"" = ?)) AND ((? = 1 AND ""CHANGEDAT"" IS NUL"& _ - "L) OR (""CHANGEDAT"" = ?)) AND ((? = 1 AND ""CHANGESYS"" IS NULL) OR (""CHANGESYS"" = "& _ - "?)) AND ((? = 1 AND ""RETMSG"" IS NULL) OR (""RETMSG"" = ?)))" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("ID", Global.System.Data.OleDb.OleDbType.Numeric, 0, Global.System.Data.ParameterDirection.Input, CType(18,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("CCID", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CCID", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("WDID", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "WDID", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("FILENAME_REP", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FILENAME_REP", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("FILENAME_ARCH", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FILENAME_ARCH", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("FILEEXT", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FILEEXT", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OBJTYPE", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBJTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("DOKTYPE", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "DOKTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OBG0", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG0", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OBG1", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG1", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OBG2", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG2", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OBG3", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG3", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OBG4", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG4", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OBG5", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG5", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OBG6", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG6", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OBG7", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG7", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OBG8", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG8", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("OBG9", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG9", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("CREATEDAT", Global.System.Data.OleDb.OleDbType.DBTimeStamp, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CREATEDAT", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("CREATESYS", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CREATESYS", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("CHANGEDAT", Global.System.Data.OleDb.OleDbType.DBTimeStamp, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CHANGEDAT", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("CHANGESYS", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CHANGESYS", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("RETMSG", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "RETMSG", Global.System.Data.DataRowVersion.Current, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ID", Global.System.Data.OleDb.OleDbType.Numeric, 0, Global.System.Data.ParameterDirection.Input, CType(18,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_CCID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CCID", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_CCID", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CCID", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_WDID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "WDID", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_WDID", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "WDID", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_FILENAME_REP", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FILENAME_REP", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_FILENAME_REP", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FILENAME_REP", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_FILENAME_ARCH", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FILENAME_ARCH", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_FILENAME_ARCH", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FILENAME_ARCH", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_FILEEXT", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FILEEXT", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_FILEEXT", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "FILEEXT", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_OBJTYPE", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBJTYPE", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OBJTYPE", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBJTYPE", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_DOKTYPE", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "DOKTYPE", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_DOKTYPE", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "DOKTYPE", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_OBG0", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG0", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OBG0", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG0", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_OBG1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG1", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OBG1", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG1", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_OBG2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG2", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OBG2", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG2", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_OBG3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG3", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OBG3", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG3", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_OBG4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG4", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OBG4", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG4", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_OBG5", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG5", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OBG5", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG5", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_OBG6", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG6", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OBG6", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG6", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_OBG7", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG7", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OBG7", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG7", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_OBG8", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG8", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OBG8", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG8", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_OBG9", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG9", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_OBG9", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "OBG9", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_CREATEDAT", Global.System.Data.OleDb.OleDbType.DBTimeStamp, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CREATEDAT", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_CREATESYS", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CREATESYS", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_CREATESYS", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CREATESYS", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_CHANGEDAT", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CHANGEDAT", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_CHANGEDAT", Global.System.Data.OleDb.OleDbType.DBTimeStamp, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CHANGEDAT", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_CHANGESYS", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CHANGESYS", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_CHANGESYS", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "CHANGESYS", Global.System.Data.DataRowVersion.Original, false, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_RETMSG", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "RETMSG", Global.System.Data.DataRowVersion.Original, true, Nothing)) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_RETMSG", Global.System.Data.OleDb.OleDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "RETMSG", Global.System.Data.DataRowVersion.Original, false, Nothing)) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.OleDb.OleDbConnection() - Me._connection.ConnectionString = Global.ToolCollection.My.MySettings.Default.ConnectionStringCursor - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT ID, CCID, WDID, FILENAME_REP, FILENAME_ARCH, FILEEXT, OBJTYPE, DOKT"& _ - "YPE, OBG0, OBG1, OBG2, OBG3, OBG4, OBG5, OBG6, OBG7, OBG8, OBG9, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " CREATEDAT, CREATESYS, CHANGEDAT, CHANGESYS, RETMSG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - "SYS_WDCC" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DSCursor.SYS_WDCCDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData() As DSCursor.SYS_WDCCDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DSCursor.SYS_WDCCDataTable = New DSCursor.SYS_WDCCDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DSCursor.SYS_WDCCDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DSCursor) As Integer - Return Me.Adapter.Update(dataSet, "SYS_WDCC") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete( _ - ByVal Original_ID As Decimal, _ - ByVal Original_CCID As String, _ - ByVal Original_WDID As String, _ - ByVal Original_FILENAME_REP As String, _ - ByVal Original_FILENAME_ARCH As String, _ - ByVal Original_FILEEXT As String, _ - ByVal Original_OBJTYPE As String, _ - ByVal Original_DOKTYPE As String, _ - ByVal Original_OBG0 As String, _ - ByVal Original_OBG1 As String, _ - ByVal Original_OBG2 As String, _ - ByVal Original_OBG3 As String, _ - ByVal Original_OBG4 As String, _ - ByVal Original_OBG5 As String, _ - ByVal Original_OBG6 As String, _ - ByVal Original_OBG7 As String, _ - ByVal Original_OBG8 As String, _ - ByVal Original_OBG9 As String, _ - ByVal Original_CREATEDAT As Date, _ - ByVal Original_CREATESYS As String, _ - ByVal Original_CHANGEDAT As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGESYS As String, _ - ByVal Original_RETMSG As String) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Decimal) - If (Original_CCID 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_CCID,String) - End If - If (Original_WDID Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_WDID,String) - End If - If (Original_FILENAME_REP Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_FILENAME_REP,String) - End If - If (Original_FILENAME_ARCH Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_FILENAME_ARCH,String) - End If - If (Original_FILEEXT Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_FILEEXT,String) - End If - If (Original_OBJTYPE Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_OBJTYPE,String) - End If - If (Original_DOKTYPE Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_DOKTYPE,String) - End If - If (Original_OBG0 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_OBG0,String) - End If - If (Original_OBG1 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_OBG1,String) - End If - If (Original_OBG2 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_OBG2,String) - End If - If (Original_OBG3 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_OBG3,String) - End If - If (Original_OBG4 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_OBG4,String) - End If - If (Original_OBG5 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_OBG5,String) - End If - If (Original_OBG6 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_OBG6,String) - End If - If (Original_OBG7 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_OBG7,String) - End If - If (Original_OBG8 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_OBG8,String) - End If - If (Original_OBG9 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_OBG9,String) - End If - Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_CREATEDAT,Date) - If (Original_CREATESYS Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(36).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(37).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(36).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_CREATESYS,String) - End If - If (Original_CHANGEDAT.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(38).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_CHANGEDAT.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(38).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(39).Value = Global.System.DBNull.Value - End If - If (Original_CHANGESYS Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(41).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_CHANGESYS,String) - End If - If (Original_RETMSG Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(42).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(43).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(42).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(43).Value = CType(Original_RETMSG,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert( _ - ByVal ID As Decimal, _ - ByVal CCID As String, _ - ByVal WDID As String, _ - ByVal FILENAME_REP As String, _ - ByVal FILENAME_ARCH As String, _ - ByVal FILEEXT As String, _ - ByVal OBJTYPE As String, _ - ByVal DOKTYPE As String, _ - ByVal OBG0 As String, _ - ByVal OBG1 As String, _ - ByVal OBG2 As String, _ - ByVal OBG3 As String, _ - ByVal OBG4 As String, _ - ByVal OBG5 As String, _ - ByVal OBG6 As String, _ - ByVal OBG7 As String, _ - ByVal OBG8 As String, _ - ByVal OBG9 As String, _ - ByVal CREATEDAT As Date, _ - ByVal CREATESYS As String, _ - ByVal CHANGEDAT As Global.System.Nullable(Of Date), _ - ByVal CHANGESYS As String, _ - ByVal RETMSG As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(ID,Decimal) - If (CCID Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(CCID,String) - End If - If (WDID Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(WDID,String) - End If - If (FILENAME_REP Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(FILENAME_REP,String) - End If - If (FILENAME_ARCH Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(FILENAME_ARCH,String) - End If - If (FILEEXT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(FILEEXT,String) - End If - If (OBJTYPE Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(OBJTYPE,String) - End If - If (DOKTYPE Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(DOKTYPE,String) - End If - If (OBG0 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(OBG0,String) - End If - If (OBG1 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(9).Value = CType(OBG1,String) - End If - If (OBG2 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(OBG2,String) - End If - If (OBG3 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(11).Value = CType(OBG3,String) - End If - If (OBG4 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(12).Value = CType(OBG4,String) - End If - If (OBG5 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(13).Value = CType(OBG5,String) - End If - If (OBG6 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(14).Value = CType(OBG6,String) - End If - If (OBG7 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(15).Value = CType(OBG7,String) - End If - If (OBG8 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(16).Value = CType(OBG8,String) - End If - If (OBG9 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(17).Value = CType(OBG9,String) - End If - Me.Adapter.InsertCommand.Parameters(18).Value = CType(CREATEDAT,Date) - If (CREATESYS Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(19).Value = CType(CREATESYS,String) - End If - If (CHANGEDAT.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(20).Value = CType(CHANGEDAT.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value - End If - If (CHANGESYS Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(21).Value = CType(CHANGESYS,String) - End If - If (RETMSG Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(22).Value = CType(RETMSG,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal ID As Decimal, _ - ByVal CCID As String, _ - ByVal WDID As String, _ - ByVal FILENAME_REP As String, _ - ByVal FILENAME_ARCH As String, _ - ByVal FILEEXT As String, _ - ByVal OBJTYPE As String, _ - ByVal DOKTYPE As String, _ - ByVal OBG0 As String, _ - ByVal OBG1 As String, _ - ByVal OBG2 As String, _ - ByVal OBG3 As String, _ - ByVal OBG4 As String, _ - ByVal OBG5 As String, _ - ByVal OBG6 As String, _ - ByVal OBG7 As String, _ - ByVal OBG8 As String, _ - ByVal OBG9 As String, _ - ByVal CREATEDAT As Date, _ - ByVal CREATESYS As String, _ - ByVal CHANGEDAT As Global.System.Nullable(Of Date), _ - ByVal CHANGESYS As String, _ - ByVal RETMSG As String, _ - ByVal Original_ID As Decimal, _ - ByVal Original_CCID As String, _ - ByVal Original_WDID As String, _ - ByVal Original_FILENAME_REP As String, _ - ByVal Original_FILENAME_ARCH As String, _ - ByVal Original_FILEEXT As String, _ - ByVal Original_OBJTYPE As String, _ - ByVal Original_DOKTYPE As String, _ - ByVal Original_OBG0 As String, _ - ByVal Original_OBG1 As String, _ - ByVal Original_OBG2 As String, _ - ByVal Original_OBG3 As String, _ - ByVal Original_OBG4 As String, _ - ByVal Original_OBG5 As String, _ - ByVal Original_OBG6 As String, _ - ByVal Original_OBG7 As String, _ - ByVal Original_OBG8 As String, _ - ByVal Original_OBG9 As String, _ - ByVal Original_CREATEDAT As Date, _ - ByVal Original_CREATESYS As String, _ - ByVal Original_CHANGEDAT As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGESYS As String, _ - ByVal Original_RETMSG As String) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ID,Decimal) - If (CCID Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CCID,String) - End If - If (WDID Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WDID,String) - End If - If (FILENAME_REP Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(FILENAME_REP,String) - End If - If (FILENAME_ARCH Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(FILENAME_ARCH,String) - End If - If (FILEEXT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(FILEEXT,String) - End If - If (OBJTYPE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(OBJTYPE,String) - End If - If (DOKTYPE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(DOKTYPE,String) - End If - If (OBG0 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(OBG0,String) - End If - If (OBG1 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(OBG1,String) - End If - If (OBG2 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(OBG2,String) - End If - If (OBG3 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(OBG3,String) - End If - If (OBG4 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(OBG4,String) - End If - If (OBG5 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(OBG5,String) - End If - If (OBG6 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(OBG6,String) - End If - If (OBG7 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(OBG7,String) - End If - If (OBG8 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(OBG8,String) - End If - If (OBG9 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(OBG9,String) - End If - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(CREATEDAT,Date) - If (CREATESYS Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(CREATESYS,String) - End If - If (CHANGEDAT.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(CHANGEDAT.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value - End If - If (CHANGESYS Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(CHANGESYS,String) - End If - If (RETMSG Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(RETMSG,String) - End If - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_ID,Decimal) - If (Original_CCID Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_CCID,String) - End If - If (Original_WDID Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_WDID,String) - End If - If (Original_FILENAME_REP Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_FILENAME_REP,String) - End If - If (Original_FILENAME_ARCH Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_FILENAME_ARCH,String) - End If - If (Original_FILEEXT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_FILEEXT,String) - End If - If (Original_OBJTYPE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_OBJTYPE,String) - End If - If (Original_DOKTYPE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_DOKTYPE,String) - End If - If (Original_OBG0 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_OBG0,String) - End If - If (Original_OBG1 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_OBG1,String) - End If - If (Original_OBG2 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_OBG2,String) - End If - If (Original_OBG3 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_OBG3,String) - End If - If (Original_OBG4 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_OBG4,String) - End If - If (Original_OBG5 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_OBG5,String) - End If - If (Original_OBG6 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_OBG6,String) - End If - If (Original_OBG7 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_OBG7,String) - End If - If (Original_OBG8 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_OBG8,String) - End If - If (Original_OBG9 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_OBG9,String) - End If - Me.Adapter.UpdateCommand.Parameters(58).Value = CType(Original_CREATEDAT,Date) - If (Original_CREATESYS Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(59).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(59).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(60).Value = CType(Original_CREATESYS,String) - End If - If (Original_CHANGEDAT.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(61).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(62).Value = CType(Original_CHANGEDAT.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(61).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value - End If - If (Original_CHANGESYS Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(63).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(63).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(64).Value = CType(Original_CHANGESYS,String) - End If - If (Original_RETMSG Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(65).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(65).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(66).Value = CType(Original_RETMSG,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal CCID As String, _ - ByVal WDID As String, _ - ByVal FILENAME_REP As String, _ - ByVal FILENAME_ARCH As String, _ - ByVal FILEEXT As String, _ - ByVal OBJTYPE As String, _ - ByVal DOKTYPE As String, _ - ByVal OBG0 As String, _ - ByVal OBG1 As String, _ - ByVal OBG2 As String, _ - ByVal OBG3 As String, _ - ByVal OBG4 As String, _ - ByVal OBG5 As String, _ - ByVal OBG6 As String, _ - ByVal OBG7 As String, _ - ByVal OBG8 As String, _ - ByVal OBG9 As String, _ - ByVal CREATEDAT As Date, _ - ByVal CREATESYS As String, _ - ByVal CHANGEDAT As Global.System.Nullable(Of Date), _ - ByVal CHANGESYS As String, _ - ByVal RETMSG As String, _ - ByVal Original_ID As Decimal, _ - ByVal Original_CCID As String, _ - ByVal Original_WDID As String, _ - ByVal Original_FILENAME_REP As String, _ - ByVal Original_FILENAME_ARCH As String, _ - ByVal Original_FILEEXT As String, _ - ByVal Original_OBJTYPE As String, _ - ByVal Original_DOKTYPE As String, _ - ByVal Original_OBG0 As String, _ - ByVal Original_OBG1 As String, _ - ByVal Original_OBG2 As String, _ - ByVal Original_OBG3 As String, _ - ByVal Original_OBG4 As String, _ - ByVal Original_OBG5 As String, _ - ByVal Original_OBG6 As String, _ - ByVal Original_OBG7 As String, _ - ByVal Original_OBG8 As String, _ - ByVal Original_OBG9 As String, _ - ByVal Original_CREATEDAT As Date, _ - ByVal Original_CREATESYS As String, _ - ByVal Original_CHANGEDAT As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGESYS As String, _ - ByVal Original_RETMSG As String) As Integer - Return Me.Update(Original_ID, CCID, WDID, FILENAME_REP, FILENAME_ARCH, FILEEXT, OBJTYPE, DOKTYPE, OBG0, OBG1, OBG2, OBG3, OBG4, OBG5, OBG6, OBG7, OBG8, OBG9, CREATEDAT, CREATESYS, CHANGEDAT, CHANGESYS, RETMSG, Original_ID, Original_CCID, Original_WDID, Original_FILENAME_REP, Original_FILENAME_ARCH, Original_FILEEXT, Original_OBJTYPE, Original_DOKTYPE, Original_OBG0, Original_OBG1, Original_OBG2, Original_OBG3, Original_OBG4, Original_OBG5, Original_OBG6, Original_OBG7, Original_OBG8, Original_OBG9, Original_CREATEDAT, Original_CREATESYS, Original_CHANGEDAT, Original_CHANGESYS, Original_RETMSG) - End Function - End Class - - ''' - '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios - ''' - _ - Partial Public Class TableAdapterManager - Inherits Global.System.ComponentModel.Component - - Private _updateOrder As UpdateOrderOption - - Private _sYS_WDCCTableAdapter As SYS_WDCCTableAdapter - - Private _backupDataSetBeforeUpdate As Boolean - - Private _connection As Global.System.Data.IDbConnection - - _ - Public Property UpdateOrder() As UpdateOrderOption - Get - Return Me._updateOrder - End Get - Set - Me._updateOrder = value - End Set - End Property - - _ - Public Property SYS_WDCCTableAdapter() As SYS_WDCCTableAdapter - Get - Return Me._sYS_WDCCTableAdapter - End Get - Set - Me._sYS_WDCCTableAdapter = value - End Set - End Property - - _ - Public Property BackupDataSetBeforeUpdate() As Boolean - Get - Return Me._backupDataSetBeforeUpdate - End Get - Set - Me._backupDataSetBeforeUpdate = value - End Set - End Property - - _ - Public Property Connection() As Global.System.Data.IDbConnection - Get - If (Not (Me._connection) Is Nothing) Then - Return Me._connection - End If - If ((Not (Me._sYS_WDCCTableAdapter) Is Nothing) _ - AndAlso (Not (Me._sYS_WDCCTableAdapter.Connection) Is Nothing)) Then - Return Me._sYS_WDCCTableAdapter.Connection - End If - Return Nothing - End Get - Set - Me._connection = value - End Set - End Property - - _ - Public ReadOnly Property TableAdapterInstanceCount() As Integer - Get - Dim count As Integer = 0 - If (Not (Me._sYS_WDCCTableAdapter) Is Nothing) Then - count = (count + 1) - End If - Return count - End Get - End Property - - ''' - '''Update rows in top-down order. - ''' - _ - Private Function UpdateUpdatedRows(ByVal dataSet As DSCursor, 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._sYS_WDCCTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.SYS_WDCC.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._sYS_WDCCTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If - Return result - End Function - - ''' - '''Insert rows in top-down order. - ''' - _ - Private Function UpdateInsertedRows(ByVal dataSet As DSCursor, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer - Dim result As Integer = 0 - If (Not (Me._sYS_WDCCTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.SYS_WDCC.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._sYS_WDCCTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If - Return result - End Function - - ''' - '''Delete rows in bottom-up order. - ''' - _ - Private Function UpdateDeletedRows(ByVal dataSet As DSCursor, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer - Dim result As Integer = 0 - If (Not (Me._sYS_WDCCTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.SYS_WDCC.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._sYS_WDCCTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If - Return result - End Function - - ''' - '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first - ''' - _ - Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() - If ((updatedRows Is Nothing) _ - OrElse (updatedRows.Length < 1)) Then - Return updatedRows - End If - If ((allAddedRows Is Nothing) _ - OrElse (allAddedRows.Count < 1)) Then - Return updatedRows - End If - Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() - Dim i As Integer = 0 - Do While (i < updatedRows.Length) - Dim row As Global.System.Data.DataRow = updatedRows(i) - If (allAddedRows.Contains(row) = false) Then - realUpdatedRows.Add(row) - End If - i = (i + 1) - Loop - Return realUpdatedRows.ToArray - End Function - - ''' - '''Update all changes to the dataset. - ''' - _ - Public Overridable Function UpdateAll(ByVal dataSet As DSCursor) 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._sYS_WDCCTableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._sYS_WDCCTableAdapter.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._sYS_WDCCTableAdapter) Is Nothing) Then - revertConnections.Add(Me._sYS_WDCCTableAdapter, Me._sYS_WDCCTableAdapter.Connection) - Me._sYS_WDCCTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) - Me._sYS_WDCCTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) - If Me._sYS_WDCCTableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._sYS_WDCCTableAdapter.Adapter.AcceptChangesDuringUpdate = false - adaptersWithAcceptChangesDuringUpdate.Add(Me._sYS_WDCCTableAdapter.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._sYS_WDCCTableAdapter) Is Nothing) Then - Me._sYS_WDCCTableAdapter.Connection = CType(revertConnections(Me._sYS_WDCCTableAdapter),Global.System.Data.OleDb.OleDbConnection) - Me._sYS_WDCCTableAdapter.Transaction = Nothing - End If - If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then - Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter - adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) - Dim i As Integer = 0 - Do While (i < adapters.Length) - Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) - adapter.AcceptChangesDuringUpdate = true - i = (i + 1) - Loop - End If - End Try - Return result - End Function - - _ - Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) - Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) - End Sub - - _ - Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean - If (Not (Me._connection) Is Nothing) Then - Return true - End If - If ((Me.Connection Is Nothing) _ - OrElse (inputConnection Is Nothing)) Then - Return true - End If - If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then - Return true - End If - Return false - End Function - - ''' - '''Update Order Option - ''' - _ - Public Enum UpdateOrderOption - - InsertUpdateDelete = 0 - - UpdateInsertDelete = 1 - End Enum - - ''' - '''Used to sort self-referenced table's rows - ''' - _ - Private Class SelfReferenceComparer - Inherits Object - Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) - - Private _relation As Global.System.Data.DataRelation - - Private _childFirst As Integer - - _ - Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) - MyBase.New - Me._relation = relation - If childFirst Then - Me._childFirst = -1 - Else - Me._childFirst = 1 - End If - End Sub - - _ - Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow - Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) - Dim root As Global.System.Data.DataRow = row - distance = 0 - - Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() - traversedRows(row) = row - - Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) - - Do While ((Not (parent) Is Nothing) _ - AndAlso (traversedRows.ContainsKey(parent) = false)) - distance = (distance + 1) - root = parent - traversedRows(parent) = parent - parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) - - Loop - - If (distance = 0) Then - traversedRows.Clear - traversedRows(row) = row - parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) - - Do While ((Not (parent) Is Nothing) _ - AndAlso (traversedRows.ContainsKey(parent) = false)) - distance = (distance + 1) - root = parent - traversedRows(parent) = parent - parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) - - Loop - End If - - Return root - End Function - - _ - Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare - If Object.ReferenceEquals(row1, row2) Then - Return 0 - End If - If (row1 Is Nothing) Then - Return -1 - End If - If (row2 Is Nothing) Then - Return 1 - End If - - Dim distance1 As Integer = 0 - Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) - - Dim distance2 As Integer = 0 - Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) - - If Object.ReferenceEquals(root1, root2) Then - Return (Me._childFirst * distance1.CompareTo(distance2)) - Else - Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ - AndAlso (Not (root2.Table) Is Nothing))) - If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then - Return -1 - Else - Return 1 - End If - End If - End Function - End Class - End Class -End Namespace diff --git a/ToolCollection/DSCursor.xsc b/ToolCollection/DSCursor.xsc deleted file mode 100644 index 05b0199..0000000 --- a/ToolCollection/DSCursor.xsc +++ /dev/null @@ -1,9 +0,0 @@ - - - - - \ No newline at end of file diff --git a/ToolCollection/DSCursor.xsd b/ToolCollection/DSCursor.xsd deleted file mode 100644 index e9c5cba..0000000 --- a/ToolCollection/DSCursor.xsd +++ /dev/null @@ -1,369 +0,0 @@ - - - - - - - - - - - - - - - DELETE FROM "SYS_WDCC" WHERE (("ID" = ?) AND ((? = 1 AND "CCID" IS NULL) OR ("CCID" = ?)) AND ((? = 1 AND "WDID" IS NULL) OR ("WDID" = ?)) AND ((? = 1 AND "FILENAME_REP" IS NULL) OR ("FILENAME_REP" = ?)) AND ((? = 1 AND "FILENAME_ARCH" IS NULL) OR ("FILENAME_ARCH" = ?)) AND ((? = 1 AND "FILEEXT" IS NULL) OR ("FILEEXT" = ?)) AND ((? = 1 AND "OBJTYPE" IS NULL) OR ("OBJTYPE" = ?)) AND ((? = 1 AND "DOKTYPE" IS NULL) OR ("DOKTYPE" = ?)) AND ((? = 1 AND "OBG0" IS NULL) OR ("OBG0" = ?)) AND ((? = 1 AND "OBG1" IS NULL) OR ("OBG1" = ?)) AND ((? = 1 AND "OBG2" IS NULL) OR ("OBG2" = ?)) AND ((? = 1 AND "OBG3" IS NULL) OR ("OBG3" = ?)) AND ((? = 1 AND "OBG4" IS NULL) OR ("OBG4" = ?)) AND ((? = 1 AND "OBG5" IS NULL) OR ("OBG5" = ?)) AND ((? = 1 AND "OBG6" IS NULL) OR ("OBG6" = ?)) AND ((? = 1 AND "OBG7" IS NULL) OR ("OBG7" = ?)) AND ((? = 1 AND "OBG8" IS NULL) OR ("OBG8" = ?)) AND ((? = 1 AND "OBG9" IS NULL) OR ("OBG9" = ?)) AND ("CREATEDAT" = ?) AND ((? = 1 AND "CREATESYS" IS NULL) OR ("CREATESYS" = ?)) AND ((? = 1 AND "CHANGEDAT" IS NULL) OR ("CHANGEDAT" = ?)) AND ((? = 1 AND "CHANGESYS" IS NULL) OR ("CHANGESYS" = ?)) AND ((? = 1 AND "RETMSG" IS NULL) OR ("RETMSG" = ?))) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - INSERT INTO "SYS_WDCC" ("ID", "CCID", "WDID", "FILENAME_REP", "FILENAME_ARCH", "FILEEXT", "OBJTYPE", "DOKTYPE", "OBG0", "OBG1", "OBG2", "OBG3", "OBG4", "OBG5", "OBG6", "OBG7", "OBG8", "OBG9", "CREATEDAT", "CREATESYS", "CHANGEDAT", "CHANGESYS", "RETMSG") VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - SELECT ID, CCID, WDID, FILENAME_REP, FILENAME_ARCH, FILEEXT, OBJTYPE, DOKTYPE, OBG0, OBG1, OBG2, OBG3, OBG4, OBG5, OBG6, OBG7, OBG8, OBG9, - CREATEDAT, CREATESYS, CHANGEDAT, CHANGESYS, RETMSG -FROM SYS_WDCC - - - - - - UPDATE "SYS_WDCC" SET "ID" = ?, "CCID" = ?, "WDID" = ?, "FILENAME_REP" = ?, "FILENAME_ARCH" = ?, "FILEEXT" = ?, "OBJTYPE" = ?, "DOKTYPE" = ?, "OBG0" = ?, "OBG1" = ?, "OBG2" = ?, "OBG3" = ?, "OBG4" = ?, "OBG5" = ?, "OBG6" = ?, "OBG7" = ?, "OBG8" = ?, "OBG9" = ?, "CREATEDAT" = ?, "CREATESYS" = ?, "CHANGEDAT" = ?, "CHANGESYS" = ?, "RETMSG" = ? WHERE (("ID" = ?) AND ((? = 1 AND "CCID" IS NULL) OR ("CCID" = ?)) AND ((? = 1 AND "WDID" IS NULL) OR ("WDID" = ?)) AND ((? = 1 AND "FILENAME_REP" IS NULL) OR ("FILENAME_REP" = ?)) AND ((? = 1 AND "FILENAME_ARCH" IS NULL) OR ("FILENAME_ARCH" = ?)) AND ((? = 1 AND "FILEEXT" IS NULL) OR ("FILEEXT" = ?)) AND ((? = 1 AND "OBJTYPE" IS NULL) OR ("OBJTYPE" = ?)) AND ((? = 1 AND "DOKTYPE" IS NULL) OR ("DOKTYPE" = ?)) AND ((? = 1 AND "OBG0" IS NULL) OR ("OBG0" = ?)) AND ((? = 1 AND "OBG1" IS NULL) OR ("OBG1" = ?)) AND ((? = 1 AND "OBG2" IS NULL) OR ("OBG2" = ?)) AND ((? = 1 AND "OBG3" IS NULL) OR ("OBG3" = ?)) AND ((? = 1 AND "OBG4" IS NULL) OR ("OBG4" = ?)) AND ((? = 1 AND "OBG5" IS NULL) OR ("OBG5" = ?)) AND ((? = 1 AND "OBG6" IS NULL) OR ("OBG6" = ?)) AND ((? = 1 AND "OBG7" IS NULL) OR ("OBG7" = ?)) AND ((? = 1 AND "OBG8" IS NULL) OR ("OBG8" = ?)) AND ((? = 1 AND "OBG9" IS NULL) OR ("OBG9" = ?)) AND ("CREATEDAT" = ?) AND ((? = 1 AND "CREATESYS" IS NULL) OR ("CREATESYS" = ?)) AND ((? = 1 AND "CHANGEDAT" IS NULL) OR ("CHANGEDAT" = ?)) AND ((? = 1 AND "CHANGESYS" IS NULL) OR ("CHANGESYS" = ?)) AND ((? = 1 AND "RETMSG" IS NULL) OR ("RETMSG" = ?))) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/ToolCollection/DSCursor.xss b/ToolCollection/DSCursor.xss deleted file mode 100644 index 6f57c28..0000000 --- a/ToolCollection/DSCursor.xss +++ /dev/null @@ -1,12 +0,0 @@ - - - - - - - - \ No newline at end of file diff --git a/ToolCollection/My Project/AssemblyInfo.vb b/ToolCollection/My Project/AssemblyInfo.vb index 413a20f..503c540 100644 --- a/ToolCollection/My Project/AssemblyInfo.vb +++ b/ToolCollection/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/ToolCollection/My Project/Settings.Designer.vb b/ToolCollection/My Project/Settings.Designer.vb index 0a48446..ac66aa6 100644 --- a/ToolCollection/My Project/Settings.Designer.vb +++ b/ToolCollection/My Project/Settings.Designer.vb @@ -735,43 +735,6 @@ Namespace My End Get End Property - _ - Public ReadOnly Property ConnectionStringCursor() As String - Get - Return CType(Me("ConnectionStringCursor"),String) - End Get - End Property - - _ - Public ReadOnly Property INSERTTICKET() As String - Get - Return CType(Me("INSERTTICKET"),String) - End Get - End Property - - _ - Public ReadOnly Property INSERVERANST() As String - Get - Return CType(Me("INSERVERANST"),String) - End Get - End Property - - _ - Public ReadOnly Property INSERT_SONST() As String - Get - Return CType(Me("INSERT_SONST"),String) - End Get - End Property - W - - <?xml version="1.0" encoding="utf-16"?> -<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>DATA SOURCE=CURSOR_DEMO;PASSWORD=wdcc;PERSIST SECURITY INFO=True;USER ID=WDCC</ConnectionString> - <ProviderName>Oracle.DataAccess.Client</ProviderName> -</SerializableConnectionString> - DATA SOURCE=CURSOR_DEMO;PASSWORD=wdcc;PERSIST SECURITY INFO=True;USER ID=WDCC - - - E:\Digital Data\INSERT_TICKET.sql - - - E:\Digital Data\INSERT_VERANST.sql - - - E:\Digital Data\INSERT_SONST.sql - diff --git a/ToolCollection/ToolCollection.vbproj b/ToolCollection/ToolCollection.vbproj index 0e8ada3..4d531a6 100644 --- a/ToolCollection/ToolCollection.vbproj +++ b/ToolCollection/ToolCollection.vbproj @@ -208,11 +208,6 @@ - - True - True - DSCursor.xsd - True True @@ -262,12 +257,6 @@ Form - - frmNI_Nachbearbeitung.vb - - - Form - frmreadLog.vb @@ -447,9 +436,6 @@ frmNIVerknuepfungen.vb - - frmNI_Nachbearbeitung.vb - frmreadLog.vb @@ -530,17 +516,6 @@ Designer - - DSCursor.xsd - - - Designer - MSDataSetGenerator - DSCursor.Designer.vb - - - DSCursor.xsd - DSNachbearbeitung.xsd diff --git a/ToolCollection/app.config b/ToolCollection/app.config index 931a4f3..456bb4d 100644 --- a/ToolCollection/app.config +++ b/ToolCollection/app.config @@ -11,9 +11,6 @@
- @@ -231,15 +228,6 @@ W - - E:\Digital Data\INSERT_TICKET.sql - - - E:\Digital Data\INSERT_VERANST.sql - - - E:\Digital Data\INSERT_SONST.sql - DigitalData\windream_CLIENT_WMCC_Neustart diff --git a/ToolCollection/clsNI_WorkFile.vb b/ToolCollection/clsNI_WorkFile.vb index 77aa4a2..947f5ad 100644 --- a/ToolCollection/clsNI_WorkFile.vb +++ b/ToolCollection/clsNI_WorkFile.vb @@ -487,7 +487,7 @@ Public Class clsNI_WorkFile If aktivesProfil.DbArt = "Oracle" Then _NidxWert = database.GetValueFromOracleDb(aktivesProfil.Profilname, selectArray(i), aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password, MyDataset, _Index) ElseIf aktivesProfil.DbArt = "MS-SQL" Then - _NidxWert = database.GetValueFromMssqlDb(aktivesProfil.Profilname, selectArray(i), aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, MyDataset, aktivesProfil.InitialCatalog, _Index) + _NidxWert = database.GetValueFromMssqlDb(_WDFileINWORK.aName, aktivesProfil.Profilname, selectArray(i), aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, MyDataset, aktivesProfil.InitialCatalog, _Index) ElseIf aktivesProfil.DbArt = "ODBC" Then _NidxWert = database.GetValueFromOdbcDb(aktivesProfil.Profilname, selectArray(i), aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, _Index) ElseIf aktivesProfil.DbArt = "OLE (Access)" Then diff --git a/ToolCollection/frmNB_AD.vb b/ToolCollection/frmNB_AD.vb index 7365614..53978d0 100644 --- a/ToolCollection/frmNB_AD.vb +++ b/ToolCollection/frmNB_AD.vb @@ -1,4 +1,5 @@ -Imports DigitalData.Modules.Logging +Imports System.IO +Imports DigitalData.Modules.Logging Public Class frmNB_AD ' entspricht dem, über die Toolbar-Combobox ausgewählten, Profil und enthält alle relevanten Informationen darüber Private _selectedProfile As ClassNIProfil @@ -6,9 +7,11 @@ Public Class frmNB_AD Public Shared _profilname As String Public Shared _profilID As Integer Public Shared _Objekttyp As String - Dim _windreamRechte As New ClassWD_Rechte + Dim _windreamRechte As ClassWD_Rechte Dim FormClose = False - Private Shared _Logger As DigitalData.Modules.Logging.Logger + Private Shared _Logger As DigitalData.Modules.Logging.Logger + Private Shared _MyLogger As LogConfig + Private _SQLLite As ClassSQLITE Public Shared Function Instance() As frmNB_AD If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then _Instance = New frmNB_AD @@ -27,7 +30,10 @@ Public Class frmNB_AD End Sub Private Sub frmNB_AD_Load(sender As Object, e As EventArgs) Handles Me.Load - + _MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log")) + _Logger = _MyLogger.GetLogger() + _SQLLite = New ClassSQLITE(_MyLogger) + _windreamRechte = New ClassWD_Rechte(_MyLogger, _SQLLite) _windreamRechte.Init() ' alle Profile in die Toolbar-Combobox eintragen Me.LoadProfilesInCombobox() @@ -40,7 +46,7 @@ Public Class frmNB_AD If IO.File.Exists(Application.StartupPath & "\ToolCollection.sqlite") Then My.Settings.SQLLITE_CONNECTION = Application.StartupPath & "\ToolCollection.sqlite" My.Settings.Save() - If ClassSQLITE.Init(True) = False Then + If _SQLLite.DBInit(True) = False Then MsgBox("es konnte keine Verbindung zur Datenbank hergestellt werden!" & vbNewLine & "Bitte vergewissern Sie sich das die DB zugreifbar ist!", MsgBoxStyle.Critical) Me.Close() End If @@ -99,7 +105,7 @@ Public Class frmNB_AD ' hat jedoch zu diesem Zeitpunkt den Status HasChanges(), da der Inhalt der Steuerelemente verändert wurde. Me._selectedProfile.setSaved() - Dim DT As DataTable = ClassSQLITE.Return_Datatable("select * from TBNI_NACHBEARBEITUNG_AD WHERE NI_PROFILNAME = '" & _profilname & "'", True) + Dim DT As DataTable = _SQLLite.Return_Datatable("select * from TBNI_NACHBEARBEITUNG_AD WHERE NI_PROFILNAME = '" & _profilname & "'", True) If DT Is Nothing = False Then gbxProfil.Visible = True If DT.Rows.Count = 0 Then @@ -165,7 +171,7 @@ Public Class frmNB_AD End Sub Sub Load_Regeln() Try - Dim DT As DataTable = ClassSQLITE.Return_Datatable("select GUID as ID,METHODE as Methode,Rechtename as Rechtename, " & + Dim DT As DataTable = _SQLLite.Return_Datatable("select GUID as ID,METHODE as Methode,Rechtename as Rechtename, " & "CASE ACCESS_RIGHT WHEN 1 THEN 'READ' WHEN 2 THEN 'READ WRITE' ELSE 'ADMIN' END Recht, ErstelltWer as [Erstellt wer] from TBNI_NB_STEP_AD WHERE PROFIL_ID = " & _profilID, True) If DT.Rows.Count > 0 Then btndeleteRegel.Visible = True @@ -218,8 +224,8 @@ Public Class frmNB_AD Dim result As MsgBoxResult = MsgBox("Wollen Sie das gewählte Profil und die dazu gehörigen Regeln wirklich löschen?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:") If result = MsgBoxResult.Yes Then - If ClassSQLITE.Execute_Command("Delete from TBNI_NB_STEP_AD WHERE PROFIL_ID = " & txtID.Text, True) = True Then - If ClassSQLITE.Execute_Command("Delete from TBNI_NACHBEARBEITUNG_AD WHERE GUID = " & txtID.Text, True) Then + If _SQLLite.Execute_Command("Delete from TBNI_NB_STEP_AD WHERE PROFIL_ID = " & txtID.Text, True) = True Then + If _SQLLite.Execute_Command("Delete from TBNI_NACHBEARBEITUNG_AD WHERE GUID = " & txtID.Text, True) Then Lade_Profil(_selectedProfile.Profilname) End If End If @@ -262,7 +268,7 @@ Public Class frmNB_AD Else loeschen = 0 End If - If ClassSQLITE.Execute_Command("INSERT INTO TBNI_NACHBEARBEITUNG_AD (NI_PROFILNAME,DEL_ALL_RIGHTS,Domain,Servername,Username,Password,ERSTELLTWER) VALUES (" & + If _SQLLite.Execute_Command("INSERT INTO TBNI_NACHBEARBEITUNG_AD (NI_PROFILNAME,DEL_ALL_RIGHTS,Domain,Servername,Username,Password,ERSTELLTWER) VALUES (" & "'" & Me._selectedProfile.Profilname & "'," & loeschen & ",'" & txtDomäne.Text & "','" & txtServername.Text & "','" & txtUser.Text & "','" & txtPW.Text & "','" & Environment.UserName & "')", True) = True Then Lade_Profil(Me._selectedProfile.Profilname) @@ -280,7 +286,7 @@ Public Class frmNB_AD Else loeschen = 0 End If - If ClassSQLITE.Execute_Command("UPDATE TBNI_NACHBEARBEITUNG_AD set Aktiv = " & Aktiv & ",DEL_ALL_RIGHTS = " & loeschen & + If _SQLLite.Execute_Command("UPDATE TBNI_NACHBEARBEITUNG_AD set Aktiv = " & Aktiv & ",DEL_ALL_RIGHTS = " & loeschen & ", Domain = '" & txtDomäne.Text & "', Servername = '" & txtServername.Text & "', Username = '" & txtUser.Text & "', " & "Password = '" & txtPW.Text & "', GEAENDERTWER = '" & Environment.UserName & "' where GUID = " & txtID.Text, True) = True Then Lade_Profil(Me._selectedProfile.Profilname) @@ -300,7 +306,7 @@ Public Class frmNB_AD Dim i As Integer i = DataGridView.CurrentRow.Index If DataGridView.Item(0, i).Value Is Nothing = False Then - If ClassSQLITE.Execute_Command("DELETE FROM TBNI_NB_STEP_AD WHERE GUID = " & DataGridView.Item(0, i).Value, True) Then + If _SQLLite.Execute_Command("DELETE FROM TBNI_NB_STEP_AD WHERE GUID = " & DataGridView.Item(0, i).Value, True) Then Load_Regeln() End If diff --git a/ToolCollection/frmNB_AD_add.vb b/ToolCollection/frmNB_AD_add.vb index 68fdee8..6bc84e2 100644 --- a/ToolCollection/frmNB_AD_add.vb +++ b/ToolCollection/frmNB_AD_add.vb @@ -1,15 +1,24 @@ -Public Class frmNB_AD_add +Imports System.IO +Imports DigitalData.Modules.Logging +Public Class frmNB_AD_add Dim Methode As String = "" Dim userorGroup As String = "" Dim Rechtename As String = "" Dim deleteall As Boolean = False Dim AccessRight As Integer Private _windream As New ClassWindream_allgemein(CURR_MyLogger) - Dim _windreamRechte As New ClassWD_Rechte + Dim _windreamRechte As ClassWD_Rechte Dim countRegel As Integer Dim _deleteRoles As Boolean = False + Private Shared _Logger As DigitalData.Modules.Logging.Logger + Private Shared _MyLogger As LogConfig + Private _SQLLite As ClassSQLITE Private Sub frmNB_AD_add_Load(sender As Object, e As EventArgs) Handles Me.Load Try + _MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log")) + _Logger = _MyLogger.GetLogger() + _SQLLite = New ClassSQLITE(_MyLogger) + _windreamRechte = New ClassWD_Rechte(_MyLogger, _SQLLite) _windream.Init() _windreamRechte.Init() Me.pnl1.Visible = True @@ -31,8 +40,8 @@ End Sub Sub Load_Data() Try - countRegel = ClassSQLITE.Execute_scalar("select count(*) from TBNI_NB_STEP_AD WHERE PROFIL_ID = " & frmNB_AD._profilID, True) - _deleteRoles = CBool(ClassSQLITE.Execute_scalar("select DEL_ALL_RIGHTS from TBNI_NACHBEARBEITUNG_AD WHERE GUID = " & frmNB_AD._profilID, True)) + countRegel = _SQLLite.Execute_scalar("select count(*) from TBNI_NB_STEP_AD WHERE PROFIL_ID = " & frmNB_AD._profilID, True) + _deleteRoles = CBool(_SQLLite.Execute_scalar("select DEL_ALL_RIGHTS from TBNI_NACHBEARBEITUNG_AD WHERE GUID = " & frmNB_AD._profilID, True)) If IO.File.Exists(Application.StartupPath & "\Nachbearbeitung.xml") Then ' DSNachbearbeitung.Tables("TBNI_NACHBEARBEITUNG_AD").ReadXml(Application.StartupPath & "\Nachbearbeitung.xml") End If @@ -104,7 +113,7 @@ End Sub - + Private Sub rb3dediziertesRecht_CheckedChanged(sender As Object, e As EventArgs) Handles rb3dediziertesRecht.CheckedChanged If rb3dediziertesRecht.Checked Then lbl3Combobox.Visible = True @@ -228,13 +237,13 @@ If userorGroup <> "allfolderrights" Then If rb4AdminRights.Checked = False And countRegel = 0 And _deleteRoles = True Then - MsgBox("ACHTUNG:" & vbNewLine & "Diese Regel weist den ersten Rechteträger zu und muss daher Administrative Rechte zuweisen," & _ + MsgBox("ACHTUNG:" & vbNewLine & "Diese Regel weist den ersten Rechteträger zu und muss daher Administrative Rechte zuweisen," & "da alle bestehenden Regeln vorher gelöscht werden!", MsgBoxStyle.Critical) rb4AdminRights.Checked = True Exit Sub End If End If - + If rb4Lesen.Checked Then AccessRight = 1 @@ -298,8 +307,8 @@ End Sub Private Sub btSave_Click(sender As Object, e As EventArgs) Handles btSave.Click - If ClassSQLITE.Execute_Command("INSERT INTO TBNI_NB_STEP_AD (PROFIL_ID,METHODE,RECHTENAME,GROUP_OR_USER,ACCESS_RIGHT,ERSTELLTWER) VALUES (" & _ - frmNB_AD._profilID & ",'" & Methode & "','" & Rechtename & "','" & userorGroup & "'," & _ + If _SQLLite.Execute_Command("INSERT INTO TBNI_NB_STEP_AD (PROFIL_ID,METHODE,RECHTENAME,GROUP_OR_USER,ACCESS_RIGHT,ERSTELLTWER) VALUES (" & + frmNB_AD._profilID & ",'" & Methode & "','" & Rechtename & "','" & userorGroup & "'," & AccessRight & ",'" & Environment.UserName & "')", True) Then End If Me.Close() diff --git a/ToolCollection/frmNIHauptseite.vb b/ToolCollection/frmNIHauptseite.vb index 8344611..3d7c345 100644 --- a/ToolCollection/frmNIHauptseite.vb +++ b/ToolCollection/frmNIHauptseite.vb @@ -21,8 +21,8 @@ Public Class frmNIHauptseite Private database As ClassNIDatenbankzugriff Private xml As New ClassxmlZugriff - Private _windreamRechte As New ClassWD_Rechte - Private _sqlite As New ClassSQLITE + Private _windreamRechte As ClassWD_Rechte + Private _sqlite As ClassSQLITE Private manuallyRun As Boolean = False @@ -112,7 +112,7 @@ Public Class frmNIHauptseite _Logger.Info("Nachindexierungslauf wird wieder gestartet - My.Settings.NI_RUNNING = True") Start_NachindexierungThreads() Else - _Logger.Warn("Nachindexierung Hauptformular wurde geladen - Nachindexierungslauf wird NICHT gestartet.") + _Logger.Info("Nachindexierung Hauptformular wurde geladen - Nachindexierungslauf wird NICHT gestartet.") End If End Sub Private Sub frmNIHauptseite_Load(sender As Object, e As System.EventArgs) Handles Me.Load @@ -246,6 +246,7 @@ Public Class frmNIHauptseite End Sub Private Sub bwDatei_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) If bwDatei.CancellationPending Then + _Logger.Debug("bwDatei.CancellationPending - e.Cancel") e.Cancel = True Else IndexiereVerarbeiteDokument(Me.aktivesDokument) @@ -297,11 +298,11 @@ Public Class frmNIHauptseite End Sub Private Sub bwProfil_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) - ' Try - 'If bwProfil.CancellationPending Then - ' e.Cancel = True - 'End If - Dim _Fehler As Boolean = False + Try + 'If bwProfil.CancellationPending Then + ' e.Cancel = True + 'End If + Dim _Fehler As Boolean = False For Each profil As ClassNIProfil In ClassNIProfile.Profile _Fehler = False ' aktuelles Profil der Klasse mitteilen @@ -373,14 +374,21 @@ Public Class frmNIHauptseite If _Fehler = False Then If windreamSucheErgebnisse.Count > 0 Then + _Logger.Debug($"windreamSucheErgebnisse.Count: [{windreamSucheErgebnisse.Count}]") 'Wenn Nachbearbeitung AD aktiv ist dann, Klassen initialisieren If aktivesProfil.NachbearbeitungAD = True Then + _Logger.Debug($"aktivesProfil.NachbearbeitungAD = True") 'Erst DB - If ClassSQLITE.Init(False) = True Then + _sqlite = New ClassSQLITE(_MyLogger) + _windreamRechte = New ClassWD_Rechte(_MyLogger, _sqlite) + If _sqlite.DBInit(False) = True Then + _Logger.Debug($"ClassSQLITE initialized...") 'Dann Rechte-Klasse If _windreamRechte.Init() = False Then _Logger.Warn("## Die AD-Rechteklasse konnte nicht initialisert werden - Profil Abbruch") _Fehler = True + Else + _Logger.Debug($"The AD-RightClass has been initialized...") End If Else _Logger.Warn("## Die SQLite-DB konnte nicht initialisert werden - Profil Abbruch") @@ -389,6 +397,7 @@ Public Class frmNIHauptseite Else _Logger.Debug("NachbearbeitungAD inaktiv") End If + _Logger.Debug($"...Row 397...") If _Fehler = False Then 'profil() ' nun Profilabhängige Parameter laden @@ -398,16 +407,19 @@ Public Class frmNIHauptseite Else _clsWorkfile._filevalidation = False End If + _Logger.Debug($"clsWorkfile._filevalidation Checked...") If aktivesProfil.IndexFehler <> "" Then _Logger.Debug("Error-msg shall be logged in index: " & Me.aktivesProfil.IndexFehler) _clsWorkfile._fileerror = True Else _clsWorkfile._fileerror = False End If + _Logger.Debug($"clsWorkfile._fileerror Checked...") _Logger.Debug("Ni-Art: " & aktivesProfil.Ni_Art.ToLower) ' neue Anzahl von Dateien an ProgressBar2 bwProfil.ReportProgress(windreamSucheErgebnisse.Count) For Each dok As WMObject In windreamSucheErgebnisse + _Logger.Debug($"Working on Doc: [{dok.aName}]") ' aktuelles Dokument der Klasse mitteilen Me.aktivesDokument = dok @@ -442,41 +454,24 @@ Public Class frmNIHauptseite ' nächste Datei an ProgressBar2 bwProfil.ReportProgress(-1) ' Vorgang abbrechen - If bwProfil.CancellationPending Then Exit Sub + If bwProfil.CancellationPending Then + _Logger.Debug($"bwProfil.CancellationPending...Exit bwProfil_DoWork") + Exit Sub + End If Next - ''Individuelle Prozedur für CURSOR Insert - 'If profil.Profilname = "CURSORTicketformular" Then - ' Dim value As String = File.ReadAllText(My.Settings.INSERTTICKET, System.Text.Encoding.Default) - ' If database.ExecuteonOracleClient("ManuellInsertTicket", value, aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password) = 1 Then - ' _Logger.Debug("CURSOR ORACLE INSERT-Command erfolgreich ausgeführt!") - ' End If - ' value = File.ReadAllText(My.Settings.INSERT_SONST, System.Text.Encoding.Default) - ' If database.ExecuteonOracleClient("ManuellSONST", value, aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password) = 1 Then - ' _Logger.Debug("CURSOR ORACLE INSERT-Command erfolgreich ausgeführt!") - ' End If - 'End If - 'If profil.Profilname = "CursorVERANST" Then - ' Dim value As String = File.ReadAllText(My.Settings.INSERVERANST, System.Text.Encoding.Default) - ' If database.ExecuteonOracleClient("ManuellInsertVeranstaltung", value, aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password) = 1 Then - ' _Logger.Debug("CURSOR ORACLE INSERT-Command erfolgreich ausgeführt!") - ' End If - 'End If Else - _Logger.Warn("Achtung - Fehler = True - Check Log") - ' + _Logger.Debug("Fehler = True - Check Log") + _Logger.Warn("Fehler = True - Check Log") bwProfil.ReportProgress(-4) End If - Else _Logger.Debug("Keine windream-Dokumente für Profil: " & profil.Profilname & " gefunden!") - - ' keine Dateien zum Importieren + ' keine Dateien zum Indexieren bwProfil.ReportProgress(-4) - End If Else - ' + _Logger.Warn("_Fehler = True - Check the config of Nachindexierung") bwProfil.ReportProgress(-4) End If @@ -491,10 +486,10 @@ Public Class frmNIHauptseite ' nächstes Profil an ProgressBar1 bwProfil.ReportProgress(-2) Next - 'Catch ex As Exception - ' _Logger.Error(ex) + Catch ex As Exception + _Logger.Error(ex) - 'End Try + End Try End Sub @@ -605,7 +600,7 @@ Public Class frmNIHauptseite If debug Then Dim resultProfilnamen As String = "" For Each profil As ClassNIProfil In ClassNIProfile.Profile - _Logger.Info("ProfilName: " & profil.Profilname) + _Logger.Info($"Start Profile-Run for ProfilName [{ profil.Profilname}] ") resultProfilnamen &= "- " & profil.Profilname & vbNewLine Next @@ -680,7 +675,8 @@ Public Class frmNIHauptseite 'den Wert des deskriptiven Indexes für das aktuelle Dokument auslesen DESKINDEX_VALUE = aktivesDokument.GetVariableValue(aktivesProfil.Desk_windreamIndex) Else - _Logger.Warn("Check_Desk_Index: Es wurde kein deskriptiver Index hinterlegt!") + _Logger.Warn($"Check_Desk_Index: Es wurde kein deskriptiver Index für das Profil [{aktivesProfil.OriginalProfilname}] hinterlegt!") + Return True End If Catch ex As Exception errormsg = " FEHLER bei Check_Desk_Index (GetVariableValue für Index '" & aktivesProfil.Desk_windreamIndex & "'): " & ex.Message @@ -703,13 +699,15 @@ Public Class frmNIHauptseite End Function ' Indexiert die windream-Suchergebnisse Public Sub IndexiereVerarbeiteDokument(ByVal dokument As WMObject) + Try If bwDatei.CancellationPending Then + _Logger.Debug("bwDatei.CancellationPending - IndexiereVerarbeiteDokument - Exit Sub") Exit Sub End If Dim moved_Folder As String = "" Dim swWorkDocument_All As New ClassStopwatch("WorkDocument_All") - _Logger.Info("Indexierung von Dokument '" & Me.aktivesDokument.aName & "'") + _Logger.Info("IndexiereVerarbeiteDokument '" & Me.aktivesDokument.aName & "'") ' dient zum Überprüfen auf Fehler Dim error_in_Indexierung As Boolean = False Dim unvollstaendig As Boolean = False @@ -753,27 +751,27 @@ Public Class frmNIHauptseite '################## 'Zuerst überprüfen ob der Deskriptive Idnex einen gültigen Wert zurückliefert Try - Dim Value As String + Dim odescIndexValue As String ' den Wert des deskriptiven Indexes für das aktuelle Dokument auslesen - Value = dokument.GetVariableValue(aktivesProfil.Desk_windreamIndex) - Dim Check As Integer = Check_DeskIndexValue(Value, aktivesProfil.checkIndexsql) + odescIndexValue = dokument.GetVariableValue(aktivesProfil.Desk_windreamIndex) + Dim Check As Integer = Check_DeskIndexValue(odescIndexValue, aktivesProfil.checkIndexsql, dokument) 'Überprüfen welcher WErt zurücgekommen ist Select Case Check Case 0 'Kein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet - _Logger.Warn("Der deskriptive Indexwert '" & Value & "' verweist auf KEINEN Eintrag in der Datenbank! - Markierung des Doks") - fehlermsg &= " >> Der deskriptive Indexwert " & Value & " verweist auf KEINEN Eintrag in der Datenbank!" + _Logger.Warn($"{dokument.aName} # Der deskriptive Indexwert '{odescIndexValue}' of Index [{aktivesProfil.Desk_windreamIndex}] verweist auf KEINEN Eintrag in der Datenbank!") + fehlermsg &= " >> Der deskriptive Indexwert " & odescIndexValue & " verweist auf KEINEN Eintrag in der Datenbank!" 'Fehler = True unvollstaendig = True File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) - SetErrorMeldung("Value '" & Value & "' not found in Database", aktivesDokument, aktivesProfil.IndexFehler) + SetErrorMeldung("Value '" & odescIndexValue & "' not found in Database", aktivesDokument, aktivesProfil.IndexFehler) Case 1 - _Logger.Debug("Der deskriptive Indexwert '" & Value & "' verweist genau auf EINEN Eintrag in der Datenbank - Alles OK") + _Logger.Debug($"{dokument.aName} # Der deskriptive Indexwert '{odescIndexValue}' verweist genau auf EINEN Eintrag in der Datenbank - Alles OK") unvollstaendig = False Case 2 'Mehr als ein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet - _Logger.Warn("Der deskriptive Indexwert '" & Value & "' verweist auf MEHR ALS EINEN Eintrag in der Datenbank oder es trat ein genereller Fehler auf!") - fehlermsg &= " >> Der deskriptive Indexwert " & Value & " verweist auf MEHR ALS EINEN Eintrag in der Datenbank oder es trat ein genereller Fehler auf!" + _Logger.Warn($"{dokument.aName} # Der deskriptive Indexwert '{odescIndexValue}' of Index [{aktivesProfil.Desk_windreamIndex}] verweist auf MEHR ALS EINEN Eintrag in der Datenbank oder es trat ein genereller Fehler auf!") + fehlermsg &= " >> Der deskriptive Indexwert " & odescIndexValue & " verweist auf MEHR ALS EINEN Eintrag in der Datenbank oder es trat ein genereller Fehler auf!" error_in_Indexierung = True unvollstaendig = True File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation) @@ -987,7 +985,7 @@ Public Class frmNIHauptseite If Me.aktivesProfil.DbArt = "Oracle" Then _NidxWert = database.GetValueFromOracleDb(aktivesProfil.Profilname, selectArray(i), Me.aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password, MyDataset, INDEX_SQL_BEFEHL.Index, Quelle_is_vektor) ElseIf Me.aktivesProfil.DbArt = "MS-SQL" Then - _NidxWert = database.GetValueFromMssqlDb(aktivesProfil.Profilname, selectArray(i), Me.aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, MyDataset, aktivesProfil.InitialCatalog, INDEX_SQL_BEFEHL.Index, Quelle_is_vektor) + _NidxWert = database.GetValueFromMssqlDb(dokument.aName, aktivesProfil.Profilname, selectArray(i), Me.aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, MyDataset, aktivesProfil.InitialCatalog, INDEX_SQL_BEFEHL.Index, Quelle_is_vektor) ElseIf Me.aktivesProfil.DbArt = "ODBC" Then _NidxWert = database.GetValueFromOdbcDb(aktivesProfil.Profilname, selectArray(i), Me.aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, INDEX_SQL_BEFEHL.Index) ElseIf Me.aktivesProfil.DbArt = "OLE (Access)" Then @@ -1053,7 +1051,7 @@ Public Class frmNIHauptseite _dokxml = _windreamNI.oWMSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, _pathxmlfile.Substring(2)) 'WINDREAMLib.WMEntity.WMEntityDocument 'Überprüfen ob deskriptiver Wert eindeutig? _Logger.Debug("Überprüfung ob deskriptiver Wert eindeutig?") - Dim Check As Integer = Check_DeskIndexValue(_NidxWert, aktivesProfil.checkIndexsql) + Dim Check As Integer = Check_DeskIndexValue(_NidxWert, aktivesProfil.checkIndexsql, dokument) Select Case Check Case 0 'Kein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet @@ -1192,6 +1190,8 @@ Public Class frmNIHauptseite End If End If End If + Else + End If @@ -1211,6 +1211,9 @@ Public Class frmNIHauptseite If msg <> "" Then _Logger.Info($"SWResult: {msg}") '#### Nachindexierung Ende ##################################################################### '############################################################################################### + If error_in_Indexierung = True Then + _Logger.Debug("error_in_Indexierung is True - none of following steps will be run!") + End If 'Wenn ein SQL-Ergebnis im Durchlauf einen Wert lieferte wird der finale Index auf True gesetzt If NI_Values Is Nothing = False And Not error_in_Indexierung Then If Me.aktivesProfil.finalerIndex <> "" And Not error_in_Indexierung And NI_Values.Length >= 1 And NI_Values(0) <> "" Then @@ -1669,13 +1672,13 @@ Public Class frmNIHauptseite Private Function Nachbearbeitung_AD(ByVal _dokument As WMObject) Dim _erfolgreich As Boolean = True Try - Dim DT As DataTable = ClassSQLITE.Return_Datatable("select * from TBNI_NACHBEARBEITUNG_AD WHERE AKTIV = 1 AND NI_PROFILNAME = '" & aktivesProfil.Profilname & "'", True) + Dim DT As DataTable = _sqlite.Return_Datatable("select * from TBNI_NACHBEARBEITUNG_AD WHERE AKTIV = 1 AND NI_PROFILNAME = '" & aktivesProfil.Profilname & "'", True) If DT.Rows.Count = 1 Then Dim profilID As Integer For Each DTrow As DataRow In DT.Rows profilID = DTrow.Item("GUID") Next - Dim DTR As DataTable = ClassSQLITE.Return_Datatable("select * from TBNI_NB_STEP_AD WHERE PROFIL_ID = " & profilID, False) + Dim DTR As DataTable = _sqlite.Return_Datatable("select * from TBNI_NB_STEP_AD WHERE PROFIL_ID = " & profilID, False) If DTR.Rows.Count > 0 Then Dim i As Integer = 0 Dim folgeRegel As Boolean @@ -1982,7 +1985,7 @@ Public Class frmNIHauptseite End Function - Private Shared Function REGEX_REPLACE(_STRING As String) + Private Shared Function REGEX_REPLACE(_STRING As String, ByVal oWMFile As WMObject) Try ' Regulären Ausdruck zum Auslesen der windream-Indexe definieren Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" @@ -1996,16 +1999,17 @@ Public Class frmNIHauptseite ' die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index) Dim reg_element_Ohne_SZ As String = reg_element.Value.Replace("[%", "") reg_element_Ohne_SZ = reg_element_Ohne_SZ.Replace("]", "") - _Logger.Debug("Indexwert aus Index/Variable '" & reg_element_Ohne_SZ & "' auslesen....") + _Logger.Debug($"{oWMFile.aName} # Indexwert aus Index/Variable [" & reg_element_Ohne_SZ & "] auslesen....") Dim wdIndexwert + ' den Wert des Indexes für das aktuelle Dokument auslesen - wdIndexwert = aktivesDokument.GetVariableValue(reg_element_Ohne_SZ) + wdIndexwert = oWMFile.GetVariableValue(reg_element_Ohne_SZ) If wdIndexwert Is Nothing = False Then If Not wdIndexwert.GetType.ToString.Contains("System.Object") Then - _Logger.Debug("Namenkonvention (" & i & ") " & _STRING) + _Logger.Debug($"{oWMFile.aName} # Namenkonvention (" & i & ") " & _STRING) wdIndexwert = wdIndexwert.ToString.TrimEnd wdIndexwert = wdIndexwert.ToString.TrimStart - _Logger.Debug("Ausgelesener Indexwert = '" & wdIndexwert & "'") + _Logger.Debug($"{oWMFile.aName} # Ausgelesener Indexwert = '" & wdIndexwert & "'") _STRING = _STRING.Replace(reg_element.Value, wdIndexwert.ToString) i += 1 @@ -2025,7 +2029,7 @@ Public Class frmNIHauptseite Return Nothing End Try End Function - Private Function Check_DeskIndexValue(ByVal _indexvalue As String, ByVal _sql As String) + Private Function Check_DeskIndexValue(ByVal _indexvalue As String, ByVal _sql As String, ByVal oWMFile As WMObject) Try Dim sql As String = _sql Dim _vsql @@ -2036,7 +2040,7 @@ Public Class frmNIHauptseite ' Else ' _replace = "'" & _indexvalue & "'" End If - _vsql = REGEX_REPLACE(sql) + _vsql = REGEX_REPLACE(sql, oWMFile) If _vsql = Nothing Then Return 0 End If @@ -2107,6 +2111,12 @@ Public Class frmNIHauptseite End Select End Sub Sub Start_NachindexierungThreads() + If My.Settings.vLogErrorsonly = False Then + _MyLogger.Debug = True + Else + _MyLogger.Debug = False + End If + If bwProfil.IsBusy Or bwsearch.IsBusy Then _Logger.Info("Achtung die Threads laufen noch!") _Logger.Info("bwProfil: " & bwProfil.IsBusy) @@ -2155,7 +2165,7 @@ Public Class frmNIHauptseite Sub Abbruch_NI(cancel_Reason As String, Abbruch As Boolean, keeprunning As Boolean) Try - _Logger.Warn("Nachindexierung wird abgebrochen - Reason: " & cancel_Reason) + _Logger.Info("Nachindexierung wird abgebrochen - Reason: " & cancel_Reason) Try If Me.bwProfil.IsBusy Or cancel_Reason = "Abbruch nach Timeout Suche" Then _Logger.Warn("Thread Profil wird abgebrochen....") @@ -2184,7 +2194,7 @@ Public Class frmNIHauptseite End Try - _Logger.Warn("Threads gestoppt - " & Now) + _Logger.Info("Threads gestoppt - " & Now) If keeprunning = False Then _Logger.Debug("keeprunning = False - Zurücksetzen") @@ -2417,7 +2427,7 @@ Public Class frmNIHauptseite End Try End Function Private Function CrFolderForIndex(ByVal fullfilename As String) - _MyLogger.Debug = My.Settings.vLogErrorsonly + Try fullfilename = fullfilename.Replace("W:\", "\\windream\objects\") diff --git a/ToolCollection/frmNI_Nachbearbeitung.Designer.vb b/ToolCollection/frmNI_Nachbearbeitung.Designer.vb deleted file mode 100644 index ecbcf35..0000000 --- a/ToolCollection/frmNI_Nachbearbeitung.Designer.vb +++ /dev/null @@ -1,263 +0,0 @@ - _ -Partial Class frmNI_Nachbearbeitung - Inherits System.Windows.Forms.Form - - 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Wird vom Windows Form-Designer benötigt. - Private components As System.ComponentModel.IContainer - - 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. - 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. - 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ - Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() - Me.TBNACHBEARBEITUNGDataGridView = New System.Windows.Forms.DataGridView() - Me.ProfilnameDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.MethodeDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.RechtenameDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.AccessRightDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.ErstelltwannDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.ErstelltwerDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.TBNACHBEARBEITUNGBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DSNachbearbeitung = New ToolCollection.DSNachbearbeitung() - Me.TextBox1 = New System.Windows.Forms.TextBox() - Me.Button1 = New System.Windows.Forms.Button() - Me.Button2 = New System.Windows.Forms.Button() - Me.txtRightname = New System.Windows.Forms.TextBox() - Me.Button3 = New System.Windows.Forms.Button() - Me.ListBox1 = New System.Windows.Forms.ListBox() - Me.ListBox2 = New System.Windows.Forms.ListBox() - Me.Button4 = New System.Windows.Forms.Button() - Me.ListBox3 = New System.Windows.Forms.ListBox() - Me.TextBox2 = New System.Windows.Forms.TextBox() - Me.Button5 = New System.Windows.Forms.Button() - Me.CheckBox1 = New System.Windows.Forms.CheckBox() - CType(Me.TBNACHBEARBEITUNGDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBNACHBEARBEITUNGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.DSNachbearbeitung, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SuspendLayout() - ' - 'TBNACHBEARBEITUNGDataGridView - ' - Me.TBNACHBEARBEITUNGDataGridView.AutoGenerateColumns = False - Me.TBNACHBEARBEITUNGDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.TBNACHBEARBEITUNGDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.ProfilnameDataGridViewTextBoxColumn, Me.MethodeDataGridViewTextBoxColumn, Me.RechtenameDataGridViewTextBoxColumn, Me.AccessRightDataGridViewTextBoxColumn, Me.ErstelltwannDataGridViewTextBoxColumn, Me.ErstelltwerDataGridViewTextBoxColumn}) - Me.TBNACHBEARBEITUNGDataGridView.DataSource = Me.TBNACHBEARBEITUNGBindingSource - Me.TBNACHBEARBEITUNGDataGridView.Location = New System.Drawing.Point(549, 50) - Me.TBNACHBEARBEITUNGDataGridView.Name = "TBNACHBEARBEITUNGDataGridView" - Me.TBNACHBEARBEITUNGDataGridView.Size = New System.Drawing.Size(636, 220) - Me.TBNACHBEARBEITUNGDataGridView.TabIndex = 0 - ' - 'ProfilnameDataGridViewTextBoxColumn - ' - Me.ProfilnameDataGridViewTextBoxColumn.DataPropertyName = "Profilname" - Me.ProfilnameDataGridViewTextBoxColumn.HeaderText = "Profilname" - Me.ProfilnameDataGridViewTextBoxColumn.Name = "ProfilnameDataGridViewTextBoxColumn" - ' - 'MethodeDataGridViewTextBoxColumn - ' - Me.MethodeDataGridViewTextBoxColumn.DataPropertyName = "Methode" - Me.MethodeDataGridViewTextBoxColumn.HeaderText = "Methode" - Me.MethodeDataGridViewTextBoxColumn.Name = "MethodeDataGridViewTextBoxColumn" - ' - 'RechtenameDataGridViewTextBoxColumn - ' - Me.RechtenameDataGridViewTextBoxColumn.DataPropertyName = "Rechtename" - Me.RechtenameDataGridViewTextBoxColumn.HeaderText = "Rechtename" - Me.RechtenameDataGridViewTextBoxColumn.Name = "RechtenameDataGridViewTextBoxColumn" - ' - 'AccessRightDataGridViewTextBoxColumn - ' - Me.AccessRightDataGridViewTextBoxColumn.DataPropertyName = "AccessRight" - Me.AccessRightDataGridViewTextBoxColumn.HeaderText = "AccessRight" - Me.AccessRightDataGridViewTextBoxColumn.Name = "AccessRightDataGridViewTextBoxColumn" - ' - 'ErstelltwannDataGridViewTextBoxColumn - ' - Me.ErstelltwannDataGridViewTextBoxColumn.DataPropertyName = "Erstelltwann" - Me.ErstelltwannDataGridViewTextBoxColumn.HeaderText = "Erstelltwann" - Me.ErstelltwannDataGridViewTextBoxColumn.Name = "ErstelltwannDataGridViewTextBoxColumn" - ' - 'ErstelltwerDataGridViewTextBoxColumn - ' - Me.ErstelltwerDataGridViewTextBoxColumn.DataPropertyName = "Erstelltwer" - Me.ErstelltwerDataGridViewTextBoxColumn.HeaderText = "Erstelltwer" - Me.ErstelltwerDataGridViewTextBoxColumn.Name = "ErstelltwerDataGridViewTextBoxColumn" - ' - 'TBNACHBEARBEITUNGBindingSource - ' - Me.TBNACHBEARBEITUNGBindingSource.DataMember = "TBNI_NACHBEARBEITUNG_AD" - Me.TBNACHBEARBEITUNGBindingSource.DataSource = Me.DSNachbearbeitung - ' - 'DSNachbearbeitung - ' - Me.DSNachbearbeitung.DataSetName = "DSNachbearbeitung" - Me.DSNachbearbeitung.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema - ' - 'TextBox1 - ' - Me.TextBox1.Location = New System.Drawing.Point(28, 12) - Me.TextBox1.Name = "TextBox1" - Me.TextBox1.Size = New System.Drawing.Size(482, 20) - Me.TextBox1.TabIndex = 1 - Me.TextBox1.Text = "\SDK\Sample\testart-48928.txt" - ' - 'Button1 - ' - Me.Button1.Location = New System.Drawing.Point(28, 38) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(75, 42) - Me.Button1.TabIndex = 2 - Me.Button1.Text = "Get FileRights" - Me.Button1.UseVisualStyleBackColor = True - ' - 'Button2 - ' - Me.Button2.Location = New System.Drawing.Point(28, 200) - Me.Button2.Name = "Button2" - Me.Button2.Size = New System.Drawing.Size(75, 42) - Me.Button2.TabIndex = 3 - Me.Button2.Text = "Get Folder rights" - Me.Button2.UseVisualStyleBackColor = True - ' - 'txtRightname - ' - Me.txtRightname.Location = New System.Drawing.Point(274, 50) - Me.txtRightname.Name = "txtRightname" - Me.txtRightname.Size = New System.Drawing.Size(236, 20) - Me.txtRightname.TabIndex = 4 - Me.txtRightname.Text = "Digitaldata.local\schreiberm" - ' - 'Button3 - ' - Me.Button3.Location = New System.Drawing.Point(383, 76) - Me.Button3.Name = "Button3" - Me.Button3.Size = New System.Drawing.Size(127, 23) - Me.Button3.TabIndex = 5 - Me.Button3.Text = "Set Right" - Me.Button3.UseVisualStyleBackColor = True - ' - 'ListBox1 - ' - Me.ListBox1.FormattingEnabled = True - Me.ListBox1.Location = New System.Drawing.Point(28, 99) - Me.ListBox1.Name = "ListBox1" - Me.ListBox1.Size = New System.Drawing.Size(305, 95) - Me.ListBox1.TabIndex = 6 - ' - 'ListBox2 - ' - Me.ListBox2.FormattingEnabled = True - Me.ListBox2.Location = New System.Drawing.Point(28, 261) - Me.ListBox2.Name = "ListBox2" - Me.ListBox2.Size = New System.Drawing.Size(305, 95) - Me.ListBox2.TabIndex = 7 - ' - 'Button4 - ' - Me.Button4.Location = New System.Drawing.Point(28, 372) - Me.Button4.Name = "Button4" - Me.Button4.Size = New System.Drawing.Size(75, 23) - Me.Button4.TabIndex = 8 - Me.Button4.Text = "Button4" - Me.Button4.UseVisualStyleBackColor = True - ' - 'ListBox3 - ' - Me.ListBox3.FormattingEnabled = True - Me.ListBox3.Location = New System.Drawing.Point(129, 372) - Me.ListBox3.Name = "ListBox3" - Me.ListBox3.Size = New System.Drawing.Size(418, 95) - Me.ListBox3.TabIndex = 9 - ' - 'TextBox2 - ' - Me.TextBox2.Location = New System.Drawing.Point(28, 401) - Me.TextBox2.Name = "TextBox2" - Me.TextBox2.Size = New System.Drawing.Size(75, 20) - Me.TextBox2.TabIndex = 10 - Me.TextBox2.Text = "user" - ' - 'Button5 - ' - Me.Button5.Location = New System.Drawing.Point(383, 105) - Me.Button5.Name = "Button5" - Me.Button5.Size = New System.Drawing.Size(127, 23) - Me.Button5.TabIndex = 11 - Me.Button5.Text = "Set Right Folder" - Me.Button5.UseVisualStyleBackColor = True - ' - 'CheckBox1 - ' - Me.CheckBox1.AutoSize = True - Me.CheckBox1.Location = New System.Drawing.Point(339, 146) - Me.CheckBox1.Name = "CheckBox1" - Me.CheckBox1.Size = New System.Drawing.Size(136, 17) - Me.CheckBox1.TabIndex = 12 - Me.CheckBox1.Text = "Delete all Rights before" - Me.CheckBox1.UseVisualStyleBackColor = True - ' - 'frmNI_Nachbearbeitung - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1197, 558) - Me.Controls.Add(Me.CheckBox1) - Me.Controls.Add(Me.Button5) - Me.Controls.Add(Me.TextBox2) - Me.Controls.Add(Me.ListBox3) - Me.Controls.Add(Me.Button4) - Me.Controls.Add(Me.ListBox2) - Me.Controls.Add(Me.ListBox1) - Me.Controls.Add(Me.Button3) - Me.Controls.Add(Me.txtRightname) - Me.Controls.Add(Me.Button2) - Me.Controls.Add(Me.Button1) - Me.Controls.Add(Me.TextBox1) - Me.Controls.Add(Me.TBNACHBEARBEITUNGDataGridView) - Me.Name = "frmNI_Nachbearbeitung" - Me.Text = "frmNI_Nachbearbeitung" - CType(Me.TBNACHBEARBEITUNGDataGridView, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBNACHBEARBEITUNGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.DSNachbearbeitung, System.ComponentModel.ISupportInitialize).EndInit() - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - Friend WithEvents DSNachbearbeitung As ToolCollection.DSNachbearbeitung - Friend WithEvents TBNACHBEARBEITUNGBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBNACHBEARBEITUNGDataGridView As System.Windows.Forms.DataGridView - Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents TextBox1 As System.Windows.Forms.TextBox - Friend WithEvents Button1 As System.Windows.Forms.Button - Friend WithEvents Button2 As System.Windows.Forms.Button - Friend WithEvents txtRightname As System.Windows.Forms.TextBox - Friend WithEvents Button3 As System.Windows.Forms.Button - Friend WithEvents ListBox1 As System.Windows.Forms.ListBox - Friend WithEvents ListBox2 As System.Windows.Forms.ListBox - Friend WithEvents ProfilnameDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents MethodeDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents RechtenameDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents AccessRightDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents ErstelltwannDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents ErstelltwerDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents GeändertwannDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents Button4 As System.Windows.Forms.Button - Friend WithEvents ListBox3 As System.Windows.Forms.ListBox - Friend WithEvents TextBox2 As System.Windows.Forms.TextBox - Friend WithEvents Button5 As System.Windows.Forms.Button - Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox -End Class diff --git a/ToolCollection/frmNI_Nachbearbeitung.resx b/ToolCollection/frmNI_Nachbearbeitung.resx deleted file mode 100644 index e59c2d8..0000000 --- a/ToolCollection/frmNI_Nachbearbeitung.resx +++ /dev/null @@ -1,126 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 178, 17 - - - 17, 17 - - \ No newline at end of file diff --git a/ToolCollection/frmNI_Nachbearbeitung.vb b/ToolCollection/frmNI_Nachbearbeitung.vb deleted file mode 100644 index 3b44e59..0000000 --- a/ToolCollection/frmNI_Nachbearbeitung.vb +++ /dev/null @@ -1,193 +0,0 @@ -Public Class frmNI_Nachbearbeitung - Dim _windreamRechte As New ClassWD_Rechte - Private _windream As ClassWindream_allgemein -#Region "+++++ Konstanten +++++" - Const REL_Document_AccessRight = "AccessRight" - Const COL_AccessRight_AccessRight = "dwAccessRight" - Const REL_AccessRight_UserOrGroup = "AccessRightUserOrGroup" - Const WMEntityDocument = 1 - - Const WMEntityGroups = 13 - Const WMEntityUser = 18 - - Const WMAccessRightUndefined = 0 - Const WMAccessRightRead = 1 - Const WMAccessRightWrite = 2 - Const WMAccessRightAdmin = 4 - Const WMAccessRightAllRights = 7 - -#End Region - - - Private Sub frmNI_Nachbearbeitung_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing - Me.TBNACHBEARBEITUNGBindingSource.EndEdit() - Dim filePath As String = Application.StartupPath & "\Nachbearbeitung.xml" - DSNachbearbeitung.WriteXml(filePath) - End Sub - - Private Sub TBNACHBEARBEITUNGDataGridView_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles TBNACHBEARBEITUNGDataGridView.CellContentClick - - End Sub - - Private Sub frmNI_Nachbearbeitung_Load(sender As Object, e As EventArgs) Handles Me.Load - Me._windreamRechte.Init() - - If IO.File.Exists(Application.StartupPath & "\Nachbearbeitung.xml") Then - ' DSNachbearbeitung.Tables("TBNI_NACHBEARBEITUNG_AD").ReadXml(Application.StartupPath & "\Nachbearbeitung.xml") - End If - - End Sub - - Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click - ListBox1.Items.Clear() - Dim WMObject As WINDREAMLib.WMObject - WMObject = Nothing - WMObject = _windreamRechte.oSession.GetWMObjectByPath(WMEntityDocument, Me.TextBox1.Text) - If WMObject IsNot Nothing Then - - - Dim msg As String - Dim AccessRights = WMObject.GetWMObjectRelationByName(REL_Document_AccessRight) - For Each aRightRelation In AccessRights - Dim dwAccessRight = aRightRelation.GetVariableValue(COL_AccessRight_AccessRight) - Dim UserGroupRelation = aRightRelation.GetWMObjectRelationByName(REL_AccessRight_UserOrGroup) - Dim UserOrGroup = UserGroupRelation.item(0) - If (UserOrGroup.aWMEntity = WMEntityGroups) Then - msg = msg & "Group: " - Else - msg = msg & "User: " - End If - msg = msg & UserOrGroup.aName + " " - If dwAccessRight And WMAccessRightRead Then - msg = msg + "R" - End If - If dwAccessRight And WMAccessRightWrite Then - msg = msg + "W" - End If - If dwAccessRight And WMAccessRightAdmin Then - msg = msg + "A" - End If - ListBox1.Items.Add(msg) - msg = "" - Next - End If - - End Sub - - Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click - ListBox2.Items.Clear() - Dim WMObject As WINDREAMLib.WMObject - WMObject = Nothing - WMObject = _windreamRechte.oSession.GetWMObjectByPath(WMEntityDocument, Me.TextBox1.Text) - If WMObject IsNot Nothing Then - WMObject.LockRights() - Dim AccessRights = WMObject.GetWMObjectRelationByName(REL_Document_AccessRight) - Dim WMParent = WMObject.aParentWMObject - Dim ParentAccessRights = WMParent.GetWMObjectRelationByName(REL_Document_AccessRight) - - Err.Clear() - Dim msg As String - For Each aRightRelation In ParentAccessRights - Dim dwAccessRight = aRightRelation.GetVariableValue(COL_AccessRight_AccessRight) - Dim UserGroupRelation = aRightRelation.GetWMObjectRelationByName(REL_AccessRight_UserOrGroup) - Dim UserOrGroup = UserGroupRelation.item(0) - If (UserOrGroup.aWMEntity = WMEntityGroups) Then - msg = msg & "Group: " - Else - msg = msg & "User: " - End If - msg = msg & UserOrGroup.aName + " " - If dwAccessRight And WMAccessRightRead Then - msg = msg + "R" - End If - If dwAccessRight And WMAccessRightWrite Then - msg = msg + "W" - End If - If dwAccessRight And WMAccessRightAdmin Then - msg = msg + "A" - End If - ListBox2.Items.Add(msg) - msg = "" - 'AccessRights.Insert2(UserOrGroup, dwAccessRight) - Next - - End If - End Sub - - Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click - - ' _windreamRechte.SetRightFile_AndDelete(Me.TextBox1.Text, Me.txtRightname.Text, 18, 2) - - 'Dim WMObject As WINDREAMLib.WMObject - 'WMObject = Nothing - 'WMObject = _windreamRechte.oSession.GetWMObjectByPath(WMEntityDocument, Me.TextBox1.Text) - 'If WMObject IsNot Nothing Then - ' Err.Clear() - - ' Dim GruppenRechtname = Me.txtRightname.Text - ' Dim sInstitut - ' Dim oGroup - ' Dim SetUserRights As Boolean = True - ' Try - ' oGroup = _windreamRechte.oSession.GetWMObjectByName(WMEntityUser, GruppenRechtname) - ' Catch ex As Exception - ' MsgBox("Fehler bei GetWMObjectByName(WMEntityGroups, sGroup) " & Err.Description) - ' SetUserRights = False - ' End Try - - ' If Err.Number <> 0 Then - ' MsgBox("Fehler bei GetWMObjectByName(WMEntityGroups, sGroup) " & Err.Description) - ' Err.Clear() - ' SetUserRights = False - ' End If - ' WMObject.LockRights() - - ' If Err.Number <> 0 Then - ' MsgBox("Fehler beim Setzen der Sperre für Rechteänderung: .LockRights " & Err.Description) - ' Err.Clear() - ' SetUserRights = False - ' End If - ' Dim AccessRights - - ' AccessRights = WMObject.GetWMObjectRelationByName(REL_Document_AccessRight) - ' If lRight = 0 Then - ' ' Recht entfernen - ' If AccessRights.Includes(oGroup) Then AccessRights.Delete(oGroup) - ' Else - ' Recht setzen - ' AccessRights.Insert2(oGroup, 2) - ' End If - ' If Err.Number <> 0 Then - ' MsgBox("Fehler beim Setzen der Rechte! " & Err.Description) - ' Err.Clear() - ' SetUserRights = False - ' End If - - ' WMObject.Save() - ' If Err.Number <> 0 Then - ' MsgBox("Fehler beim Speichern der geänderten Rechte! " & Err.Description) - ' Err.Clear() - ' SetUserRights = False - ' End If - 'End If - End Sub - - - - Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click - Dim rechte = _windreamRechte.GetAll_WDRightNames_AdminUsers(TextBox2.Text) - ListBox3.Items.Clear() - If rechte IsNot Nothing Then - For Each recht As String In rechte - If recht Is Nothing = False Then - ListBox3.Items.Add(recht) - End If - - Next - End If - End Sub - - Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click - - End Sub -End Class \ No newline at end of file