AppStd/ToolCollection
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS VErsionOFF MOVERENAME, Neues DD

Browse Source
This commit is contained in:
SchreiberM 2020-12-02 15:16:46 +01:00
parent 59b08fa9cd
commit 5959f3dfe9
15 changed files with 619 additions and 259 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ToolCollection/ClassMO_RE.vb
View File

@ -22,7 +22,7 @@ Public Class ClassMO_REOld
adapter1.Fill(dt) adapter1.Fill(dt)
SQLconnection.Close() SQLconnection.Close()
Dim msg = sw.Done Dim msg = sw.Done
If msg <> "" Then _Logger.Info($"SWResult: {msg}") If msg <> "" Then _Logger.Debug($"SWResult: {msg}")
Return dt Return dt
Catch ex As Exception Catch ex As Exception
_Logger.Error(ex) _Logger.Error(ex)
@ -40,7 +40,7 @@ Public Class ClassMO_REOld
SQLcommand.Dispose() SQLcommand.Dispose()
SQLconnection.Close() SQLconnection.Close()
Dim msg = sw.Done Dim msg = sw.Done
If msg <> "" Then _Logger.Info($"SWResult: {msg}") If msg <> "" Then _Logger.Debug($"SWResult: {msg}")
Return True Return True
Catch ex As Exception Catch ex As Exception
_Logger.Error(ex) _Logger.Error(ex)
@ -184,7 +184,7 @@ Public Class ClassMO_REOld
My.Computer.FileSystem.RenameFile(vDatei, _newfilename) My.Computer.FileSystem.RenameFile(vDatei, _newfilename)
_Logger.Debug("Erfolgsmeldung - Datei wurde erfolgreich umbenannt") _Logger.Debug("Erfolgsmeldung - Datei wurde erfolgreich umbenannt")
Dim msg = sw.Done Dim msg = sw.Done
If msg <> "" Then _Logger.Info($"SWResult: {msg}") If msg <> "" Then _Logger.Debug($"SWResult: {msg}")
End If End If
Execute_Command("INSERT INTO TBMO_RE_HISTORY (FILE_ORIGINAL, FILE_NEW, KUNDE, INDEX1, INDEX2, ERSTELLTWER) VALUES " & Execute_Command("INSERT INTO TBMO_RE_HISTORY (FILE_ORIGINAL, FILE_NEW, KUNDE, INDEX1, INDEX2, ERSTELLTWER) VALUES " &
"('" & vDatei & "','" & _ziel & "','" & _kunde & "','" & _MRDeskrIndex & "','" & _MRDOKART & "','ToolCollection MORE')") "('" & vDatei & "','" & _ziel & "','" & _kunde & "','" & _MRDeskrIndex & "','" & _MRDOKART & "','ToolCollection MORE')")

12
ToolCollection/ClassNIDatenbankzugriff.vb
View File

@ -173,7 +173,7 @@ Public Class ClassNIDatenbankzugriff
Next Next
_LastStep = "DataSet wurde durchlaufen" _LastStep = "DataSet wurde durchlaufen"
Dim msg = swGvfO.Done Dim msg = swGvfO.Done
If msg <> "" Then _Logger.Info($"SWResult: {msg}") If msg <> "" Then _Logger.Debug($"SWResult: {msg}")
Return Index Return Index
Else Else
If DataSet.Tables(0).Rows.Count = 1 Then If DataSet.Tables(0).Rows.Count = 1 Then
@ -182,13 +182,13 @@ Public Class ClassNIDatenbankzugriff
_Logger.Debug("PLSQL-Ergebnis: '" & DataSet.Tables(0).Rows(0).Item(0) & "'") _Logger.Debug("PLSQL-Ergebnis: '" & DataSet.Tables(0).Rows(0).Item(0) & "'")
' MsgBox("TestM: Wert: " & DataSet.Tables(0).Rows(0).Item(0).ToString) ' MsgBox("TestM: Wert: " & DataSet.Tables(0).Rows(0).Item(0).ToString)
Dim msg = swGvfO.Done Dim msg = swGvfO.Done
If msg <> "" Then _Logger.Info($"SWResult: {msg}") If msg <> "" Then _Logger.Debug($"SWResult: {msg}")
Return DataSet.Tables(0).Rows(0).Item(0) Return DataSet.Tables(0).Rows(0).Item(0)
Else Else
_LastStep = "Rows.Count = 0" _LastStep = "Rows.Count = 0"
'If My.Settings.vLogErrorsonly = False Then _Logger.Info("Dataadapter Rows count = 0") 'If My.Settings.vLogErrorsonly = False Then _Logger.Info("Dataadapter Rows count = 0")
Dim msg = swGvfO.Done Dim msg = swGvfO.Done
If msg <> "" Then _Logger.Info($"SWResult: {msg}") If msg <> "" Then _Logger.Debug($"SWResult: {msg}")
Return Nothing Return Nothing
End If End If
End If End If
@ -202,7 +202,7 @@ Public Class ClassNIDatenbankzugriff
' DB-Connection schliessen ' DB-Connection schliessen
Oracle_Conn.Close() Oracle_Conn.Close()
Dim msg = swGvfO.Done Dim msg = swGvfO.Done
If msg <> "" Then _Logger.Info($"SWResult: {msg}") If msg <> "" Then _Logger.Debug($"SWResult: {msg}")
Return Nothing Return Nothing
End Try End Try
@ -214,7 +214,7 @@ Public Class ClassNIDatenbankzugriff
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromOracleDb - SQL-Anweisung ist ungültig. Command-Objekt konnte nicht erstellt werden. ") email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromOracleDb - SQL-Anweisung ist ungültig. Command-Objekt konnte nicht erstellt werden. ")
End If End If
Dim msg = swGvfO.Done Dim msg = swGvfO.Done
If msg <> "" Then _Logger.Info($"SWResult: {msg}") If msg <> "" Then _Logger.Debug($"SWResult: {msg}")
Return Nothing Return Nothing
End If End If
@ -227,7 +227,7 @@ Public Class ClassNIDatenbankzugriff
email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromOracleDb - Ein unbekannter Fehler: " & ex.Message) email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromOracleDb - Ein unbekannter Fehler: " & ex.Message)
End If End If
Dim msg = swGvfO.Done Dim msg = swGvfO.Done
If msg <> "" Then _Logger.Info($"SWResult: {msg}") If msg <> "" Then _Logger.Debug($"SWResult: {msg}")
Return Nothing Return Nothing
End Try End Try

186
ToolCollection/ClassNIWindream.vb
View File

@ -308,9 +308,23 @@ Public Class ClassNIWindream
Dim i As Integer = 0 Dim i As Integer = 0
Dim indexname As String Dim indexname As String
Dim oLengthValues As Integer
Try
If aValues.Length = 1 And aValues(0) = "" Then If aValues.Length = 1 And aValues(0) = "" Then
_Logger.Info("Indexwert ist leer/Nothing - Keine Nachindexierung 311")
_Logger.Info("Indexwert ist leer/Nothing - Keine Nachindexierung 313")
End If End If
Catch ex As Exception
Try
If aValues.Count = 1 And aValues(0) = "" Then
_Logger.Info("Indexwert ist leer/Nothing - Keine Nachindexierung 318")
End If
Catch ex1 As Exception
_Logger.Warn("Unexpected error in RunIndexing 321: " + ex.Message)
End Try
End Try
' wenn der Datei noch kein Dokumenttyp zugewiesen wurde ' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
If oDocument.aObjectType.aName <> Objekttyp Then If oDocument.aObjectType.aName <> Objekttyp Then
' ihr den entsprechenden Dokumenttyp zuweisen ' ihr den entsprechenden Dokumenttyp zuweisen
@ -330,10 +344,12 @@ Public Class ClassNIWindream
'Jetzt jeden Indexwert durchlaufen 'Jetzt jeden Indexwert durchlaufen
For Each aName As String In Indizes For Each aName As String In Indizes
indexname = aName indexname = aName
' das entsprechende Attribut aus windream auslesen ' das entsprechende Attribut aus windream auslesen
Dim oAttribute = Me.oWMSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indizes(i)) Dim oAttribute = Me.oWMSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indizes(i))
' den Variablentyp (String, Integer, ...) auslesen ' den Variablentyp (String, Integer, ...) auslesen
Dim vType = oAttribute.getVariableValue("dwAttrType") Dim vType = oAttribute.getVariableValue("dwAttrType")
_Logger.Debug($"RunIndexing on Index [{aName}]...dwAttrType [{vType}]..")
' wenn in aValues an Position i ein Wert steht ' wenn in aValues an Position i ein Wert steht
If Me.IsNotEmpty(aValues(i)) Then If Me.IsNotEmpty(aValues(i)) Then
Dim _int As Boolean = False Dim _int As Boolean = False
@ -510,11 +526,10 @@ Public Class ClassNIWindream
'For Each row As DataRow In DT.Rows 'For Each row As DataRow In DT.Rows
'MsgBox(aName & vbNewLine & row.Item("IndexName") & vbNewLine & CStr(row.Item("Value"))) 'MsgBox(aName & vbNewLine & row.Item("IndexName") & vbNewLine & CStr(row.Item("Value")))
'Next 'Next
Dim Anzahl As Integer = BS.Count Dim oAnzahl As Integer = BS.Count
_Logger.Debug("Anzahl Vektorwerte: " & Anzahl.ToString)
'Vektorfeld wird mit EINEM Wert gefüllt 'Vektorfeld wird mit EINEM Wert gefüllt
Dim temp_arr As New ArrayList If oAnzahl = 0 Then
If Anzahl = 1 Then
_Logger.Debug("Vektorfeld wird mit EINEM Wert gefüllt ") _Logger.Debug("Vektorfeld wird mit EINEM Wert gefüllt ")
ReDim myArray(0) ReDim myArray(0)
myArray(0) = Convert_VectorType(vType, value) myArray(0) = Convert_VectorType(vType, value)
@ -527,59 +542,44 @@ Public Class ClassNIWindream
If _selectedProfil Is Nothing = False Then If _selectedProfil Is Nothing = False Then
Me._selectedProfil._links.selectedLink = Me._selectedProfil._links.getLinkByIndex(aName) Me._selectedProfil._links.selectedLink = Me._selectedProfil._links.getLinkByIndex(aName)
If Me._selectedProfil._links.selectedLink IsNot Nothing Then If Me._selectedProfil._links.selectedLink IsNot Nothing Then
Dim VektorArray Dim oVektorList As New List(Of String)
Select Case Me._selectedProfil._links.selectedLink.vktins_state Select Case Me._selectedProfil._links.selectedLink.vktins_state
Case 1 Case 1
_Logger.Debug("vektInsState = '1'") _Logger.Debug("vektInsState = '1'")
ReDim Preserve VektorArray(0) oVektorList.Add(myArray(0))
VektorArray(0) = myArray(0)
Case 2 'Anfügen Case 2 'Anfügen
_Logger.Debug("vektInsState = '2'-538") _Logger.Debug("vektInsState = '2'-550")
VektorArray = Return_VektorArray(oDocument, aName, myArray, False, vType) oVektorList = Return_VektorArray(oDocument, aName, myArray, False, vType)
Case 3 'Anfügen mit DuplikatCheck Case 3 'Anfügen mit DuplikatCheck
_Logger.Debug("vektInsState = '3'") _Logger.Debug("vektInsState = '3'")
VektorArray = Return_VektorArray(oDocument, aName, myArray, True, vType) oVektorList = Return_VektorArray(oDocument, aName, myArray, True, vType)
End Select End Select
_Logger.Debug($"Vektortype is {vType} ...") If oVektorList Is Nothing = False Then
If VektorArray Is Nothing = False Then Try
ReDim myArray(VektorArray.Length - 1)
Array.Copy(VektorArray, myArray, VektorArray.Length)
'Jetzt die Nachindexierung für Vektor-Felder ReDim myArray(oVektorList.Count - 1)
'If BS.Count = 1 Then Dim oIndex As Integer = 0
' If vType = 4097 Then For Each oString As String In oVektorList
' Dim strArray()
' ReDim Preserve strArray(0)
' strArray(0) = myArray(0)
' temp_arr.Add(CStr(myArray(0)))
' oDocument.SetVariableValue(aName, strArray) myArray(oIndex) = Convert_VectorType(vType, oString)
' ElseIf vType = 4098 Then oIndex += 1
' temp_arr.Add(CInt(myArray(0))) Next
' If temp_arr.Count > 0 Then
' _Logger.Debug("'Einträge in temp_arr also Speichern des Arrays in convertValue")
' convertValue = Nothing
' convertValue = temp_arr.ToArray
' Else
' convertValue = vbEmpty
' End If
' ' den konvertierten Indexwert dem entsprechenden Index zuweisen
' oDocument.SetVariableValue(aName, convertValue)
' Else
' _Logger.Debug($"Vektortype is {vType} therefore only storing first value [{myArray(0)}]!")
' oDocument.SetVariableValue(aName, myArray(0))
' End If
'Else Try
_Logger.Debug($"Vektortype is {vType}: Indexing with [{VektorArray.Length} values]!") _Logger.Debug($"Vektortype is {vType}: Indexing with [{oVektorList.Count}] values!")
Catch ex As Exception
End Try
oDocument.SetVariableValue(aName, myArray) oDocument.SetVariableValue(aName, myArray)
'End If 'End If
_Logger.Debug("'SetVariableValue' für VEKTOR erfolgreich") _Logger.Debug("'SetVariableValue' für VEKTOR erfolgreich")
'Die Änderungen festsschreiben/speichern 'Die Änderungen festsschreiben/speichern
oDocument.Save() oDocument.Save()
Catch ex As Exception
_Logger.Warn($"Unexpected error while indexing vectorfield [{aName}] - Error: [{ex.Message}]")
End Try
End If End If
Else Else
@ -589,12 +589,12 @@ Public Class ClassNIWindream
_Logger.Warn(">> Achtung: Das Profil konnte nicht geladen werden - _selectedProfil is NOTHING") _Logger.Warn(">> Achtung: Das Profil konnte nicht geladen werden - _selectedProfil is NOTHING")
End If End If
Else Else
_Logger.Debug("(RI) Vektorfeld wird mit MEHREREN Werten gefüllt ") _Logger.Debug("Vektorfeld wird mit MEHREREN Werten [oAnzahl] gefüllt ")
' das ausgewählte Profil in _selectedProfile laden ' das ausgewählte Profil in _selectedProfile laden
_selectedProfil = ClassNIProfile.getProfilByName(Profil) _selectedProfil = ClassNIProfile.getProfilByName(Profil)
'Die Größe des Arrays festlegen 'Die Größe des Arrays festlegen
ReDim myArray(Anzahl - 1) ReDim myArray(oAnzahl - 1)
Dim i1 As Integer = 0 Dim i1 As Integer = 0
'Die Datatable durchlaufen und Werte für den Index in Array schreiben 'Die Datatable durchlaufen und Werte für den Index in Array schreiben
For Each DR In DT_VEKTOR.Rows For Each DR In DT_VEKTOR.Rows
@ -621,7 +621,13 @@ Public Class ClassNIWindream
Case 1 Case 1
_Logger.Debug("vektInsState = '1'") _Logger.Debug("vektInsState = '1'")
Dim z As Integer = 0 Dim z As Integer = 0
Try
ReDim VektorArray(myArray.Length) ReDim VektorArray(myArray.Length)
Catch ex As Exception
ReDim VektorArray(myArray.Count)
End Try
For Each str As Object In myArray For Each str As Object In myArray
If str Is Nothing = False Then If str Is Nothing = False Then
'Das Array anpassen 'Das Array anpassen
@ -644,8 +650,16 @@ Public Class ClassNIWindream
End Select End Select
If VektorArray Is Nothing = False Then If VektorArray Is Nothing = False Then
'Das Array wieder anpassen 'Das Array wieder anpassen
Try
ReDim myArray(VektorArray.Length - 1) ReDim myArray(VektorArray.Length - 1)
Array.Copy(VektorArray, myArray, VektorArray.Length) Catch ex As Exception
ReDim myArray(VektorArray.count - 1)
End Try
Dim oIndex As Integer = 0
For Each oStr As String In VektorArray
myArray(oIndex) = oStr
oIndex += 1
Next
'Jetzt die Nachindexierung für Vektor-Felder 'Jetzt die Nachindexierung für Vektor-Felder
oDocument.SetVariableValue(aName, myArray) oDocument.SetVariableValue(aName, myArray)
@ -714,28 +728,40 @@ Public Class ClassNIWindream
Try Try
Dim missing As Boolean = False Dim missing As Boolean = False
Dim Anzahl As Integer = 0 Dim Anzahl As Integer = 0
Dim ValueArray() Dim oValues As New List(Of String)
'Jeden Wert des Vektorfeldes durchlaufen 'Jeden Wert des Vektorfeldes durchlaufen
Dim wertWD = oDocument.GetVariableValue(vktIndexName) Dim oWMValue = oDocument.GetVariableValue(vktIndexName)
If wertWD Is Nothing = False Then If oWMValue Is Nothing = False Then
'Nochmals prüfen ob wirklich Array 'Nochmals prüfen ob wirklich Array
If wertWD.GetType.ToString.Contains("System.Object") Then If oWMValue.GetType.ToString.Contains("System.Object") Then
'Keine Duplikatprüfung also einfach neues Array füllen 'Keine Duplikatprüfung also einfach neues Array füllen
If CheckDuplikat = False Then If CheckDuplikat = False Then
For Each value As Object In wertWD _Logger.Debug("Return_VektorArray: no duplicatecheck...")
'Das Array anpassen If Not IsNothing(oWMValue) Then
ReDim Preserve ValueArray(Anzahl) Dim oWMValueArr() As Object
'Den Wert im Array speichern oWMValueArr = oWMValue
ValueArray(Anzahl) = Convert_VectorType(vType, value) For Each oWMValueExisting As Object In oWMValueArr
Try
If oWMValueExisting Is Nothing = False Then
_Logger.Debug($"oWMValueExisting = [{oWMValueExisting.ToString}]")
Dim oconvertedvalue = Convert_VectorType(vType, oWMValueExisting.ToString)
oValues.Add(oconvertedvalue)
Anzahl += 1 Anzahl += 1
End If
Catch ex As Exception
_Logger.Warn($"Return_VektorArray: Could not convert value [{oWMValueExisting.ToString}] - {ex.Message}")
End Try
Next Next
_Logger.Debug($"...we got [{Anzahl}] existing values!")
End If
'Und jetzt den/die Neuen Wert(e) anfügen 'Und jetzt den/die Neuen Wert(e) anfügen
For Each NewValue As Object In NIIndexe For Each oNewValue As Object In NIIndexe
If NewValue Is Nothing = False Then If oNewValue Is Nothing = False Then
'Das Array anpassen _Logger.Debug($"oNewValue = [{oNewValue}]")
ReDim Preserve ValueArray(Anzahl)
'Den Wert im Array speichern 'Den Wert im Array speichern
ValueArray(Anzahl) = Convert_VectorType(vType, NewValue) oValues.Add(Convert_VectorType(vType, oNewValue))
Anzahl += 1 Anzahl += 1
End If End If
@ -743,23 +769,17 @@ Public Class ClassNIWindream
Else Else
_Logger.Debug("Duplikatprüfung soll durchgeführt werden.") _Logger.Debug("Duplikatprüfung soll durchgeführt werden.")
'Duplikat Prüfung an, also nur anhängen wenn Wert <> 'Duplikat Prüfung an, also nur anhängen wenn Wert <>
For Each WDValue As Object In wertWD For Each WDValue As Object In oWMValue
If WDValue Is Nothing = False Then If WDValue Is Nothing = False Then
'Erst einmal die ALten Werte schreiben oValues.Add(Convert_VectorType(vType, WDValue.ToString))
ReDim Preserve ValueArray(Anzahl)
'Den Wert im Array speichern
ValueArray(Anzahl) = Convert_VectorType(vType, WDValue)
Anzahl += 1 Anzahl += 1
End If End If
Next Next
'Jetzt die Neuen Werte auf Duplikate überprüfen 'Jetzt die Neuen Werte auf Duplikate überprüfen
For Each NewValue As Object In NIIndexe For Each NewValue As Object In NIIndexe
If NewValue Is Nothing = False Then If NewValue Is Nothing = False Then
If ValueArray.Contains(NewValue) = False Then If oValues.Contains(NewValue) = False Then
'Das Array anpassen oValues.Add(Convert_VectorType(vType, NewValue))
ReDim Preserve ValueArray(Anzahl)
'Den Wert im Array speichern
ValueArray(Anzahl) = Convert_VectorType(vType, NewValue)
Anzahl += 1 Anzahl += 1
Else Else
_Logger.Debug(">> Value '" & NewValue.ToString & "' bereits in Vektorfeld enthalten") _Logger.Debug(">> Value '" & NewValue.ToString & "' bereits in Vektorfeld enthalten")
@ -774,39 +794,31 @@ Public Class ClassNIWindream
For Each NewValue As Object In NIIndexe For Each NewValue As Object In NIIndexe
If NewValue Is Nothing = False Then If NewValue Is Nothing = False Then
If CheckDuplikat = True Then If CheckDuplikat = True Then
If ValueArray Is Nothing = False Then If oValues.Count > 0 Then
If ValueArray.Contains(NewValue) = False Then If oValues.Contains(NewValue) = False Then
'Das Array anpassen oValues.Add(Convert_VectorType(vType, NewValue))
ReDim Preserve ValueArray(Anzahl)
'Den Wert im Array speichern
ValueArray(Anzahl) = Convert_VectorType(vType, NewValue)
Anzahl += 1 Anzahl += 1
Else Else
_Logger.Debug(">> Value '" & NewValue.ToString & "' bereits in Array enthalten") _Logger.Debug(">> Value '" & NewValue.ToString & "' bereits in Array enthalten")
End If End If
Else 'Dererste Wert, also hinzufügen Else 'Dererste Wert, also hinzufügen
'Das Array anpassen oValues.Add(Convert_VectorType(vType, NewValue))
ReDim Preserve ValueArray(Anzahl)
'Den Wert im Array speichern
ValueArray(Anzahl) = Convert_VectorType(vType, NewValue)
Anzahl += 1 Anzahl += 1
End If End If
Else Else
'Das Array anpassen oValues.Add(Convert_VectorType(vType, NewValue))
ReDim Preserve ValueArray(Anzahl)
'Den Wert im Array speichern
ValueArray(Anzahl) = Convert_VectorType(vType, NewValue)
Anzahl += 1 Anzahl += 1
End If End If
End If End If
Next Next
End If End If
Return ValueArray Return oValues
Catch ex As Exception Catch ex As Exception
_Logger.Error(ex) _Logger.Warn($"Unexpected Error Return_VektorArray [{vktIndexName}] # ERROR: {ex.Message}")
_Logger.Debug($"Unexpected Error Return_VektorArray [{vktIndexName}] # ERROR: {ex.Message}")
End Try End Try
@ -1024,11 +1036,11 @@ Public Class ClassNIWindream
oWMFile.unlock() oWMFile.unlock()
_Logger.Info($"NEW_MOVE_FILE ({oMethod}): file has been moved - target: '" & targetpath & "'") _Logger.Info($"NEW_MOVE_FILE ({oMethod}): file has been moved - target: '" & targetpath & "'")
Dim msg = sw.Done Dim msg = sw.Done
If msg <> String.Empty Then _Logger.Info(msg) If msg <> String.Empty Then _Logger.Debug(msg)
Return True Return True
Else Else
Dim msg = sw.Done Dim msg = sw.Done
If msg <> String.Empty Then _Logger.Info(msg) If msg <> String.Empty Then _Logger.Debug(msg)
Return False Return False
End If End If
Catch ex As Exception Catch ex As Exception

2
ToolCollection/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.3.5.0")> <Assembly: AssemblyVersion("2.3.7.0")>
<Assembly: AssemblyFileVersion("1.5.1.0")> <Assembly: AssemblyFileVersion("1.5.1.0")>

378
ToolCollection/MyDataset.Designer.vb generated
View File

@ -31,6 +31,8 @@ Partial Public Class MyDataset
Private tableTBVEKTOR_ARRAY As TBVEKTOR_ARRAYDataTable Private tableTBVEKTOR_ARRAY As TBVEKTOR_ARRAYDataTable
Private tableTBErgebnis As TBErgebnisDataTable
Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -69,6 +71,9 @@ Partial Public Class MyDataset
If (Not (ds.Tables("TBVEKTOR_ARRAY")) Is Nothing) Then If (Not (ds.Tables("TBVEKTOR_ARRAY")) Is Nothing) Then
MyBase.Tables.Add(New TBVEKTOR_ARRAYDataTable(ds.Tables("TBVEKTOR_ARRAY"))) MyBase.Tables.Add(New TBVEKTOR_ARRAYDataTable(ds.Tables("TBVEKTOR_ARRAY")))
End If End If
If (Not (ds.Tables("TBErgebnis")) Is Nothing) Then
MyBase.Tables.Add(New TBErgebnisDataTable(ds.Tables("TBErgebnis")))
End If
Me.DataSetName = ds.DataSetName Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace Me.Namespace = ds.Namespace
@ -116,6 +121,16 @@ Partial Public Class MyDataset
End Get End Get
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBErgebnis() As TBErgebnisDataTable
Get
Return Me.tableTBErgebnis
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.BrowsableAttribute(true), _ Global.System.ComponentModel.BrowsableAttribute(true), _
@ -192,6 +207,9 @@ Partial Public Class MyDataset
If (Not (ds.Tables("TBVEKTOR_ARRAY")) Is Nothing) Then If (Not (ds.Tables("TBVEKTOR_ARRAY")) Is Nothing) Then
MyBase.Tables.Add(New TBVEKTOR_ARRAYDataTable(ds.Tables("TBVEKTOR_ARRAY"))) MyBase.Tables.Add(New TBVEKTOR_ARRAYDataTable(ds.Tables("TBVEKTOR_ARRAY")))
End If End If
If (Not (ds.Tables("TBErgebnis")) Is Nothing) Then
MyBase.Tables.Add(New TBErgebnisDataTable(ds.Tables("TBErgebnis")))
End If
Me.DataSetName = ds.DataSetName Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace Me.Namespace = ds.Namespace
@ -242,6 +260,12 @@ Partial Public Class MyDataset
Me.tableTBVEKTOR_ARRAY.InitVars Me.tableTBVEKTOR_ARRAY.InitVars
End If End If
End If End If
Me.tableTBErgebnis = CType(MyBase.Tables("TBErgebnis"),TBErgebnisDataTable)
If (initTable = true) Then
If (Not (Me.tableTBErgebnis) Is Nothing) Then
Me.tableTBErgebnis.InitVars
End If
End If
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -258,6 +282,8 @@ Partial Public Class MyDataset
MyBase.Tables.Add(Me.tableTBTC_DI_REGEX_MATCH) MyBase.Tables.Add(Me.tableTBTC_DI_REGEX_MATCH)
Me.tableTBVEKTOR_ARRAY = New TBVEKTOR_ARRAYDataTable() Me.tableTBVEKTOR_ARRAY = New TBVEKTOR_ARRAYDataTable()
MyBase.Tables.Add(Me.tableTBVEKTOR_ARRAY) MyBase.Tables.Add(Me.tableTBVEKTOR_ARRAY)
Me.tableTBErgebnis = New TBErgebnisDataTable()
MyBase.Tables.Add(Me.tableTBErgebnis)
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -278,6 +304,12 @@ Partial Public Class MyDataset
Return false Return false
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBErgebnis() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
@ -345,6 +377,9 @@ Partial Public Class MyDataset
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Delegate Sub TBVEKTOR_ARRAYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBVEKTOR_ARRAYRowChangeEvent) Public Delegate Sub TBVEKTOR_ARRAYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBVEKTOR_ARRAYRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Delegate Sub TBErgebnisRowChangeEventHandler(ByVal sender As Object, ByVal e As TBErgebnisRowChangeEvent)
'''<summary> '''<summary>
'''Represents the strongly named DataTable class. '''Represents the strongly named DataTable class.
'''</summary> '''</summary>
@ -1353,6 +1388,258 @@ Partial Public Class MyDataset
End Function End Function
End Class End Class
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class TBErgebnisDataTable
Inherits Global.System.Data.TypedTableBase(Of TBErgebnisRow)
Private columnErgebniswerte As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBErgebnis"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property ErgebniswerteColumn() As Global.System.Data.DataColumn
Get
Return Me.columnErgebniswerte
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Default ReadOnly Property Item(ByVal index As Integer) As TBErgebnisRow
Get
Return CType(Me.Rows(index),TBErgebnisRow)
End Get
End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Event TBErgebnisRowChanging As TBErgebnisRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Event TBErgebnisRowChanged As TBErgebnisRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Event TBErgebnisRowDeleting As TBErgebnisRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Event TBErgebnisRowDeleted As TBErgebnisRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Overloads Sub AddTBErgebnisRow(ByVal row As TBErgebnisRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Overloads Function AddTBErgebnisRow(ByVal Ergebniswerte As String) As TBErgebnisRow
Dim rowTBErgebnisRow As TBErgebnisRow = CType(Me.NewRow,TBErgebnisRow)
Dim columnValuesArray() As Object = New Object() {Ergebniswerte}
rowTBErgebnisRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBErgebnisRow)
Return rowTBErgebnisRow
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBErgebnisDataTable = CType(MyBase.Clone,TBErgebnisDataTable)
cln.InitVars
Return cln
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBErgebnisDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Friend Sub InitVars()
Me.columnErgebniswerte = MyBase.Columns("Ergebniswerte")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Sub InitClass()
Me.columnErgebniswerte = New Global.System.Data.DataColumn("Ergebniswerte", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnErgebniswerte)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function NewTBErgebnisRow() As TBErgebnisRow
Return CType(Me.NewRow,TBErgebnisRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBErgebnisRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBErgebnisRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBErgebnisRowChangedEvent) Is Nothing) Then
RaiseEvent TBErgebnisRowChanged(Me, New TBErgebnisRowChangeEvent(CType(e.Row,TBErgebnisRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBErgebnisRowChangingEvent) Is Nothing) Then
RaiseEvent TBErgebnisRowChanging(Me, New TBErgebnisRowChangeEvent(CType(e.Row,TBErgebnisRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBErgebnisRowDeletedEvent) Is Nothing) Then
RaiseEvent TBErgebnisRowDeleted(Me, New TBErgebnisRowChangeEvent(CType(e.Row,TBErgebnisRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBErgebnisRowDeletingEvent) Is Nothing) Then
RaiseEvent TBErgebnisRowDeleting(Me, New TBErgebnisRowChangeEvent(CType(e.Row,TBErgebnisRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub RemoveTBErgebnisRow(ByVal row As TBErgebnisRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As MyDataset = New MyDataset()
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "TBErgebnisDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
'''<summary> '''<summary>
'''Represents strongly named DataRow class. '''Represents strongly named DataRow class.
'''</summary> '''</summary>
@ -1738,6 +2025,49 @@ Partial Public Class MyDataset
End Sub End Sub
End Class End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class TBErgebnisRow
Inherits Global.System.Data.DataRow
Private tableTBErgebnis As TBErgebnisDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBErgebnis = CType(Me.Table,TBErgebnisDataTable)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property Ergebniswerte() As String
Get
Try
Return CType(Me(Me.tableTBErgebnis.ErgebniswerteColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ergebniswerte in Tabelle TBErgebnis ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBErgebnis.ErgebniswerteColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsErgebniswerteNull() As Boolean
Return Me.IsNull(Me.tableTBErgebnis.ErgebniswerteColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub SetErgebniswerteNull()
Me(Me.tableTBErgebnis.ErgebniswerteColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary> '''<summary>
'''Row event argument class '''Row event argument class
'''</summary> '''</summary>
@ -1845,6 +2175,42 @@ Partial Public Class MyDataset
End Get End Get
End Property End Property
End Class End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Class TBErgebnisRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TBErgebnisRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub New(ByVal row As TBErgebnisRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property Row() As TBErgebnisRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
End Class End Class
Namespace MyDatasetTableAdapters Namespace MyDatasetTableAdapters
@ -1989,9 +2355,9 @@ Namespace MyDatasetTableAdapters
Me._adapter.TableMappings.Add(tableMapping) Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.Connection = Me.Connection
Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBTC_MOVE_RENAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFILE_NAME = @PNAME)" Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBTC_MOVE_RENAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)"
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBTC_MOVE_RENAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_NAME, FOLDER_FOR_"& _ Me._adapter.InsertCommand.CommandText = "INSERT INTO TBTC_MOVE_RENAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_NAME, FOLDER_FOR_"& _
@ -2112,12 +2478,8 @@ Namespace MyDatasetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
Public Overloads Overridable Function Delete(ByVal PNAME As String) As Integer Public Overloads Overridable Function Delete(ByVal GUID As Integer) As Integer
If (PNAME Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(0).Value = CType(GUID,Integer)
Throw New Global.System.ArgumentNullException("PNAME")
Else
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(PNAME,String)
End If
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then <> Global.System.Data.ConnectionState.Open) Then

11
ToolCollection/MyDataset.xsd
View File

@ -13,9 +13,9 @@
<DeleteCommand> <DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>DELETE FROM TBTC_MOVE_RENAME <CommandText>DELETE FROM TBTC_MOVE_RENAME
WHERE (PROFILE_NAME = @PNAME)</CommandText> WHERE (GUID = @GUID)</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="PNAME" ColumnName="PROFILE_NAME" DataSourceName="DD_ECM_TEST.dbo.TBTC_MOVE_RENAME" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@PNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="PROFILE_NAME" SourceColumnNullMapping="false" SourceVersion="Original" /> <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBTC_MOVE_RENAME" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</DeleteCommand> </DeleteCommand>
@ -254,6 +254,13 @@ SELECT GUID, PROFILE_NAME, REGEX, CREATED_WHO, CREATED_WHEN, CHANGED_WHO, CHANGE
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBErgebnis" msprop:Generator_TableClassName="TBErgebnisDataTable" msprop:Generator_TableVarName="tableTBErgebnis" msprop:Generator_RowChangedName="TBErgebnisRowChanged" msprop:Generator_TablePropName="TBErgebnis" msprop:Generator_RowDeletingName="TBErgebnisRowDeleting" msprop:Generator_RowChangingName="TBErgebnisRowChanging" msprop:Generator_RowEvHandlerName="TBErgebnisRowChangeEventHandler" msprop:Generator_RowDeletedName="TBErgebnisRowDeleted" msprop:Generator_RowClassName="TBErgebnisRow" msprop:Generator_UserTableName="TBErgebnis" msprop:Generator_RowEvArgName="TBErgebnisRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="Ergebniswerte" msprop:Generator_ColumnVarNameInTable="columnErgebniswerte" msprop:Generator_ColumnPropNameInRow="Ergebniswerte" msprop:Generator_ColumnPropNameInTable="ErgebniswerteColumn" msprop:Generator_UserColumnName="Ergebniswerte" type="xs:string" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:choice> </xs:choice>
</xs:complexType> </xs:complexType>
<xs:unique name="Constraint1" msdata:PrimaryKey="true"> <xs:unique name="Constraint1" msdata:PrimaryKey="true">

7
ToolCollection/MyDataset.xss
View File

@ -6,9 +6,10 @@
</autogenerated>--> </autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="3" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout"> <DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="3" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes> <Shapes>
<Shape ID="DesignTable:TBTC_MOVE_RENAME" ZOrder="3" X="89" Y="81" Height="267" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" /> <Shape ID="DesignTable:TBTC_MOVE_RENAME" ZOrder="4" X="89" Y="80" Height="267" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBTC_DI_REGEX_MATCH" ZOrder="2" X="402" Y="78" Height="210" Width="286" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" /> <Shape ID="DesignTable:TBTC_DI_REGEX_MATCH" ZOrder="3" X="402" Y="78" Height="210" Width="286" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBVEKTOR_ARRAY" ZOrder="1" X="946" Y="307" Height="67" Width="174" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" /> <Shape ID="DesignTable:TBVEKTOR_ARRAY" ZOrder="2" X="946" Y="307" Height="67" Width="174" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
<Shape ID="DesignTable:TBErgebnis" ZOrder="1" X="693" Y="314" Height="48" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="44" />
</Shapes> </Shapes>
<Connectors /> <Connectors />
</DiagramLayout> </DiagramLayout>

16
ToolCollection/frmDIHauptseite.vb
View File

@ -452,21 +452,27 @@ Public Class frmDIHauptseite
Me.arrayDateiinformationen = New ArrayList Me.arrayDateiinformationen = New ArrayList
If Me.ImportFileList.Count > 0 Then If Me.ImportFileList.Count > 0 Then
ClassLoggerDI.Add(" Insgesamt sollen " & Me.ImportFileList.Count & " Dateien importiert werden", False) ClassLoggerDI.Add(" Insgesamt sollen [" & Me.ImportFileList.Count & "] Dateien importiert werden", False)
Else Else
ClassLoggerDI.Add(" Keine Dateien vorhanden", False) ClassLoggerDI.Add(" Keine Dateien vorhanden", False)
Exit Sub
End If End If
Dim fileAusschliessen As Boolean = False Dim fileAusschliessen As Boolean = False
If Me.selectedProfile.Subdirectories = True Then If Me.selectedProfile.Subdirectories = True Then
CURRENT_UNTERV.Clear() If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" > Subdirectories activated", False)
For Each di In Directory.GetDirectories(Path.GetDirectoryName(Me.selectedProfile.OriginalQuellordner & "\"), "*.*") CURRENT_UNTERV = New List(Of String)
For Each oSubdirectory In Directory.GetDirectories(Path.GetDirectoryName(Me.selectedProfile.OriginalQuellordner & "\"), "*.*")
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add($" > checking Subdirectory [{oSubdirectory}]", False)
GetDirectories(Me.selectedProfile.OriginalQuellordner & "\", oSubDirectoryList) GetDirectories(Me.selectedProfile.OriginalQuellordner & "\", oSubDirectoryList)
Next Next
For Each Dir As String In oSubDirectoryList For Each Dir As String In oSubDirectoryList
oLastFolderinFiles = Dir oLastFolderinFiles = Dir
Next Next
oSubDirectoryList.Reverse() oSubDirectoryList.Reverse()
If My.Settings.vLogErrorsonly = False Then
ClassLoggerDI.Add(" >CURRENT_UNTERV filled", False)
End If
Else Else
oLastFolderinFiles = Me.selectedProfile.OriginalQuellordner oLastFolderinFiles = Me.selectedProfile.OriginalQuellordner
End If End If
@ -498,7 +504,9 @@ Public Class frmDIHauptseite
End If End If
' alle Dateien durchlaufen ' alle Dateien durchlaufen
If Me.ImportFileList.Count > 0 Then
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" > Now For Each oFilenameQuelle As String In Me.ImportFileList", False)
End If
For Each oFilenameQuelle As String In Me.ImportFileList For Each oFilenameQuelle As String In Me.ImportFileList
fileAusschliessen = False fileAusschliessen = False
Dim oFilenameOnly = Path.GetFileName(oFilenameQuelle) Dim oFilenameOnly = Path.GetFileName(oFilenameQuelle)

51
ToolCollection/frmNIHauptseite.vb
View File

@ -321,8 +321,8 @@ Public Class frmNIHauptseite
bwProfil.ReportProgress(-3) bwProfil.ReportProgress(-3)
' Ausgabe an Logdatei über nächstes Profil ' Ausgabe an Logdatei über nächstes Profil
_Logger.Debug("########################################################") _Logger.Info("########################################################")
_Logger.Debug("Starte Durchlauf für Profil: " & profil.Profilname & " - " & Now) _Logger.Info("Starte Durchlauf für Profil: " & profil.Profilname & " - " & Now)
' Überprüfen ob Profil aktiv oder inaktiv ' Überprüfen ob Profil aktiv oder inaktiv
If CBool(Me.aktivesProfil.Aktiv) = False Then If CBool(Me.aktivesProfil.Aktiv) = False Then
@ -504,7 +504,7 @@ Public Class frmNIHauptseite
End If End If
End If End If
_Logger.Info("####################################################End Profile DoWork####")
' nächstes Profil an ProgressBar1 ' nächstes Profil an ProgressBar1
bwProfil.ReportProgress(-2) bwProfil.ReportProgress(-2)
Next Next
@ -1291,18 +1291,16 @@ Public Class frmNIHauptseite
_Logger.Debug("Me.aktivesProfil.SQL_Anweisung: " & Me.aktivesProfil.SQL_Anweisung) _Logger.Debug("Me.aktivesProfil.SQL_Anweisung: " & Me.aktivesProfil.SQL_Anweisung)
If Me.aktivesProfil.SQL_Anweisung.StartsWith("EXECUTEVB") Then If Me.aktivesProfil.SQL_Anweisung.StartsWith("EXECUTEVB") Then
_Logger.Debug("Execute VB-Script after indexing......") _Logger.Debug("Execute VB-Script after indexing......")
Dim anweisung As String = Me.aktivesProfil.SQL_Anweisung.Replace("EXECUTEVB ", "") Dim oVBScriptRAW As String = Me.aktivesProfil.SQL_Anweisung.Replace("EXECUTEVB ", "")
Dim arrAnweisung As String() = Split(anweisung, "#")
' Regulären Ausdruck zum Auslesen der windream-Indexe definieren ' Regulären Ausdruck zum Auslesen der windream-Indexe definieren
Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
' SQL-String für aktuelles Profil laden ' SQL-String für aktuelles Profil laden
Dim VBSCRIPTCOMMAND As String = anweisung Dim oVBScriptCommand As String = oVBScriptRAW
' einen Regulären Ausdruck laden ' einen Regulären Ausdruck laden
Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg) Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
' die Vorkommen im SQL-String auslesen ' die Vorkommen im SQL-String auslesen
Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(VBSCRIPTCOMMAND) Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(oVBScriptCommand)
' alle Vorkommen der windream-Indexe im SQL-String durchlaufen ' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
For Each element As System.Text.RegularExpressions.Match In elemente For Each element As System.Text.RegularExpressions.Match In elemente
@ -1320,7 +1318,7 @@ Public Class frmNIHauptseite
ddvariable = Path.GetDirectoryName(filepath) ddvariable = Path.GetDirectoryName(filepath)
End Select End Select
VBSCRIPTCOMMAND = VBSCRIPTCOMMAND.Replace(element.Value, ddvariable) oVBScriptCommand = oVBScriptCommand.Replace(element.Value, ddvariable)
Else Else
Try Try
' den Wert des deskriptiven Indexes für das aktuelle Dokument auslesen ' den Wert des deskriptiven Indexes für das aktuelle Dokument auslesen
@ -1331,7 +1329,7 @@ Public Class frmNIHauptseite
_Logger.Warn("Fehler in Get Indexwert aus windream bei Spezifischem SQL: " & ex.Message.ToString) _Logger.Warn("Fehler in Get Indexwert aus windream bei Spezifischem SQL: " & ex.Message.ToString)
End Try End Try
VBSCRIPTCOMMAND = VBSCRIPTCOMMAND.Replace(element.Value, IndexwertAusWindream.ToString) oVBScriptCommand = oVBScriptCommand.Replace(element.Value, IndexwertAusWindream.ToString)
End If End If
@ -1339,27 +1337,38 @@ Public Class frmNIHauptseite
'MsgBox(Me.aktivesDokument.aPath & vbNewLine & vbNewLine & Me.aktivesDokument.aName) 'MsgBox(Me.aktivesDokument.aPath & vbNewLine & vbNewLine & Me.aktivesDokument.aName)
Next Next
_Logger.Debug("VBSCRIPTCOMMAND after replacing variables: " & VBSCRIPTCOMMAND) _Logger.Debug("VBSCRIPTCOMMAND after replacing variables: " & oVBScriptCommand)
Try Try
Dim arr_split As String() Dim oArrParams As String()
arr_split = VBSCRIPTCOMMAND.Split("#") oArrParams = oVBScriptCommand.Split("#")
_Logger.Debug("Split1 - Path: " & arr_split(0).ToString) _Logger.Debug("VBSplit1 - Path: " & oArrParams(0).ToString)
Dim myProcess As New Process Dim myProcess As New Process
Dim oProcessID Dim oProcessID
myProcess.StartInfo.FileName = arr_split(0) myProcess.StartInfo.FileName = oArrParams(0)
' Dim startInfo As New ProcessStartInfo(arr_split(0)) ' Dim startInfo As New ProcessStartInfo(arr_split(0))
' startInfo.CreateNoWindow = True ' startInfo.CreateNoWindow = True
Dim oParamArg As String = ""
Dim _argument As String = arr_split(1) Dim i As Integer = 0
_argument = _argument.Replace("'", """") Dim oStepArg As String
'startInfo.Arguments = _argument For Each oParam As String In oArrParams
If i <> 0 Then
If i = 1 Then
oStepArg = $"""{oParam.Replace("'", """")}"""
Else
oStepArg = $" ""{oParam.Replace("'", """")}"""
End If
oParamArg += oStepArg
End If
myProcess.StartInfo.Arguments = _argument i += 1
Next
myProcess.StartInfo.Arguments = oParamArg
_Logger.Debug("Argument from myProcess: " & myProcess.StartInfo.Arguments) _Logger.Debug("Argument from myProcess: " & myProcess.StartInfo.Arguments)
myProcess.Start() myProcess.Start()
@ -1566,7 +1575,7 @@ Public Class frmNIHauptseite
'Dim sw1 As New ClassStopwatch("dokument.GetVariableValue(Me.aktivesProfil.MR_DAIndex)") 'Dim sw1 As New ClassStopwatch("dokument.GetVariableValue(Me.aktivesProfil.MR_DAIndex)")
'Dim _MOREDA = dokument.GetVariableValue(Me.aktivesProfil.MR_DAIndex) 'Dim _MOREDA = dokument.GetVariableValue(Me.aktivesProfil.MR_DAIndex)
'Dim msg As String = sw1.Done 'Dim msg As String = sw1.Done
'If msg <> "" Then _Logger.Info($"SWResult: {msg}") 'If msg <> "" Then _Logger.Debug($"SWResult: {msg}")
'Dim _MOREKD 'Dim _MOREKD
'If Me.aktivesProfil.MR_KDIndex <> "" Then 'If Me.aktivesProfil.MR_KDIndex <> "" Then
' _MOREKD = dokument.GetVariableValue(Me.aktivesProfil.MR_KDIndex) ' _MOREKD = dokument.GetVariableValue(Me.aktivesProfil.MR_KDIndex)
@ -1676,7 +1685,7 @@ Public Class frmNIHauptseite
If swMessage <> "" Then If swMessage <> "" Then
Stopwatch1 += vbNewLine & $"{swMessage}" Stopwatch1 += vbNewLine & $"{swMessage}"
End If End If
_Logger.Info("## Result Stopwatch: ##" & vbNewLine & Stopwatch1) _Logger.Debug("## Result Stopwatch: ##" & vbNewLine & Stopwatch1)
Catch ex As Exception Catch ex As Exception
_Logger.Error(ex) _Logger.Error(ex)
_Logger.Warn($"oResultNachindexierung so far: {oResultNachindexierung.ToString}") _Logger.Warn($"oResultNachindexierung so far: {oResultNachindexierung.ToString}")

9
ToolCollection/frmNIVerknuepfungen.Designer.vb generated
View File

@ -114,7 +114,6 @@ Partial Class frmNIVerknuepfungen
Me.lblDescr_manuellerWert = New System.Windows.Forms.Label() Me.lblDescr_manuellerWert = New System.Windows.Forms.Label()
Me.txtManIndexwert = New System.Windows.Forms.TextBox() Me.txtManIndexwert = New System.Windows.Forms.TextBox()
Me.MyDataset = New ToolCollection.MyDataset() Me.MyDataset = New ToolCollection.MyDataset()
Me.TBErgebnisBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.pnlfulltext = New System.Windows.Forms.Panel() Me.pnlfulltext = New System.Windows.Forms.Panel()
Me.lblFT_Meldung = New System.Windows.Forms.Label() Me.lblFT_Meldung = New System.Windows.Forms.Label()
Me.btnSave_FulltextLinks = New System.Windows.Forms.Button() Me.btnSave_FulltextLinks = New System.Windows.Forms.Button()
@ -182,7 +181,6 @@ Partial Class frmNIVerknuepfungen
Me.TabPage2.SuspendLayout() Me.TabPage2.SuspendLayout()
Me.GroupBox2.SuspendLayout() Me.GroupBox2.SuspendLayout()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBErgebnisBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlfulltext.SuspendLayout() Me.pnlfulltext.SuspendLayout()
Me.grpbxFT_Vorkommen.SuspendLayout() Me.grpbxFT_Vorkommen.SuspendLayout()
Me.GroupBox4.SuspendLayout() Me.GroupBox4.SuspendLayout()
@ -1262,11 +1260,6 @@ Partial Class frmNIVerknuepfungen
Me.MyDataset.DataSetName = "MyDataset" Me.MyDataset.DataSetName = "MyDataset"
Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
' '
'TBErgebnisBindingSource
'
Me.TBErgebnisBindingSource.DataMember = "TBErgebnis"
Me.TBErgebnisBindingSource.DataSource = Me.MyDataset
'
'pnlfulltext 'pnlfulltext
' '
Me.pnlfulltext.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Me.pnlfulltext.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@ -1963,7 +1956,6 @@ Partial Class frmNIVerknuepfungen
Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout() Me.GroupBox2.PerformLayout()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBErgebnisBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlfulltext.ResumeLayout(False) Me.pnlfulltext.ResumeLayout(False)
Me.pnlfulltext.PerformLayout() Me.pnlfulltext.PerformLayout()
Me.grpbxFT_Vorkommen.ResumeLayout(False) Me.grpbxFT_Vorkommen.ResumeLayout(False)
@ -2060,7 +2052,6 @@ Partial Class frmNIVerknuepfungen
Friend WithEvents txtTestwert_checkindex As System.Windows.Forms.TextBox Friend WithEvents txtTestwert_checkindex As System.Windows.Forms.TextBox
Friend WithEvents btntest_checkIndexsql As System.Windows.Forms.Button Friend WithEvents btntest_checkIndexsql As System.Windows.Forms.Button
Friend WithEvents MyDataset As ToolCollection.MyDataset Friend WithEvents MyDataset As ToolCollection.MyDataset
Friend WithEvents TBErgebnisBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TabPage6 As System.Windows.Forms.TabPage Friend WithEvents TabPage6 As System.Windows.Forms.TabPage
Friend WithEvents lblDescr_manuellerWert As System.Windows.Forms.Label Friend WithEvents lblDescr_manuellerWert As System.Windows.Forms.Label
Friend WithEvents txtManIndexwert As System.Windows.Forms.TextBox Friend WithEvents txtManIndexwert As System.Windows.Forms.TextBox

3
ToolCollection/frmNIVerknuepfungen.resx
View File

@ -130,9 +130,6 @@ SQL-Command can be written like sql.</value>
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>305, 17</value> <value>305, 17</value>
</metadata> </metadata>
<metadata name="TBErgebnisBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>415, 17</value>
</metadata>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>606, 17</value> <value>606, 17</value>
</metadata> </metadata>

17
ToolCollection/frmNIVerknuepfungen.vb
View File

@ -2173,12 +2173,7 @@ Public Class frmNIVerknuepfungen
End Sub End Sub
Private Sub txtUpdateAnweisung_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtfinalSkriptUpdate.TextChanged Private Sub txtUpdateAnweisung_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtfinalSkriptUpdate.TextChanged
If Me._selectedProfil IsNot Nothing Then
Me._selectedProfil.SQL_Anweisung = Me.txtfinalSkriptUpdate.Text
If Not Me.txtfinalSkriptUpdate.Text = Me._selectedProfil.OriginalSQL_Anweisung Then
End If
End If
End Sub End Sub
Private Sub btnWindreamIndexEinfügenSQL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWindreamIndexEinfügenSQL.Click Private Sub btnWindreamIndexEinfügenSQL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWindreamIndexEinfügenSQL.Click
If Not Me.cmbWindreamIndexeSQL.SelectedItem = "" Then If Not Me.cmbWindreamIndexeSQL.SelectedItem = "" Then
@ -3531,6 +3526,18 @@ Public Class frmNIVerknuepfungen
End Sub End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
If Me._selectedProfil IsNot Nothing Then
If Not Me.txtfinalSkriptUpdate.Text = Me._selectedProfil.OriginalSQL_Anweisung Then
Me._selectedProfil.SQL_Anweisung = Me.txtfinalSkriptUpdate.Text
Me._selectedProfil.setChanged()
Me._selectedProfil._links.setLinksChanged()
Else
Exit Sub
End If
Else
Exit Sub
End If
If Me._selectedProfil.Save(True, "profile") = True Then If Me._selectedProfil.Save(True, "profile") = True Then
' wenn das Speichern erfolgreich war ' wenn das Speichern erfolgreich war
Me.lblsaveSQLAnweisung.Text = "Data saved - " & Now.ToString Me.lblsaveSQLAnweisung.Text = "Data saved - " & Now.ToString

64
ToolCollection/frmNI_SQLTest.Designer.vb generated
View File

@ -24,10 +24,8 @@ Partial Class frmNI_SQLTest
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNI_SQLTest)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNI_SQLTest))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components)
Me.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components) Me.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components)
Me.MyDataset1 = New ToolCollection.MyDataset()
Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton()
@ -39,14 +37,13 @@ Partial Class frmNI_SQLTest
Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.txtStartwert = New System.Windows.Forms.ToolStripTextBox() Me.txtStartwert = New System.Windows.Forms.ToolStripTextBox()
Me.tsbaktualisieren = New System.Windows.Forms.ToolStripButton() Me.tsbaktualisieren = New System.Windows.Forms.ToolStripButton()
Me.MyDataset = New ToolCollection.MyDataset()
Me.txtSQL_String = New System.Windows.Forms.TextBox() Me.txtSQL_String = New System.Windows.Forms.TextBox()
Me.DataGridView = New System.Windows.Forms.DataGridView() Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.ErgebniswerteDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.BindingNavigator1.SuspendLayout() Me.BindingNavigator1.SuspendLayout()
CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyDataset1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'BindingNavigator1 'BindingNavigator1
@ -68,16 +65,6 @@ Partial Class frmNI_SQLTest
Me.BindingNavigator1.TabIndex = 0 Me.BindingNavigator1.TabIndex = 0
Me.BindingNavigator1.Text = "BindingNavigator1" Me.BindingNavigator1.Text = "BindingNavigator1"
' '
'BindingSource1
'
Me.BindingSource1.DataMember = "TBErgebnis"
Me.BindingSource1.DataSource = Me.MyDataset1
'
'MyDataset1
'
Me.MyDataset1.DataSetName = "MyDataset"
Me.MyDataset1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'BindingNavigatorCountItem 'BindingNavigatorCountItem
' '
Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
@ -112,6 +99,7 @@ Partial Class frmNI_SQLTest
' '
Me.BindingNavigatorPositionItem.AccessibleName = "Position" Me.BindingNavigatorPositionItem.AccessibleName = "Position"
Me.BindingNavigatorPositionItem.AutoSize = False Me.BindingNavigatorPositionItem.AutoSize = False
Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 21) Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 21)
Me.BindingNavigatorPositionItem.Text = "0" Me.BindingNavigatorPositionItem.Text = "0"
@ -147,6 +135,7 @@ Partial Class frmNI_SQLTest
' '
'txtStartwert 'txtStartwert
' '
Me.txtStartwert.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.txtStartwert.Name = "txtStartwert" Me.txtStartwert.Name = "txtStartwert"
Me.txtStartwert.Size = New System.Drawing.Size(100, 25) Me.txtStartwert.Size = New System.Drawing.Size(100, 25)
' '
@ -160,6 +149,11 @@ Partial Class frmNI_SQLTest
Me.tsbaktualisieren.Text = "ToolStripButton1" Me.tsbaktualisieren.Text = "ToolStripButton1"
Me.tsbaktualisieren.ToolTipText = "Aktualisieren" Me.tsbaktualisieren.ToolTipText = "Aktualisieren"
' '
'MyDataset
'
Me.MyDataset.DataSetName = "MyDataset"
Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'txtSQL_String 'txtSQL_String
' '
Me.txtSQL_String.BackColor = System.Drawing.SystemColors.ControlLight Me.txtSQL_String.BackColor = System.Drawing.SystemColors.ControlLight
@ -172,36 +166,21 @@ Partial Class frmNI_SQLTest
Me.txtSQL_String.Size = New System.Drawing.Size(625, 47) Me.txtSQL_String.Size = New System.Drawing.Size(625, 47)
Me.txtSQL_String.TabIndex = 1 Me.txtSQL_String.TabIndex = 1
' '
'DataGridView 'ListBox1
' '
Me.DataGridView.AllowUserToAddRows = False Me.ListBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.DataGridView.AllowUserToDeleteRows = False Me.ListBox1.FormattingEnabled = True
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan Me.ListBox1.Location = New System.Drawing.Point(0, 72)
Me.DataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.ListBox1.Name = "ListBox1"
Me.DataGridView.AutoGenerateColumns = False Me.ListBox1.Size = New System.Drawing.Size(625, 444)
Me.DataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.ListBox1.TabIndex = 2
Me.DataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.ErgebniswerteDataGridViewTextBoxColumn})
Me.DataGridView.DataSource = Me.BindingSource1
Me.DataGridView.Dock = System.Windows.Forms.DockStyle.Fill
Me.DataGridView.Location = New System.Drawing.Point(0, 72)
Me.DataGridView.Name = "DataGridView"
Me.DataGridView.ReadOnly = True
Me.DataGridView.Size = New System.Drawing.Size(625, 444)
Me.DataGridView.TabIndex = 2
'
'ErgebniswerteDataGridViewTextBoxColumn
'
Me.ErgebniswerteDataGridViewTextBoxColumn.DataPropertyName = "Ergebniswerte"
Me.ErgebniswerteDataGridViewTextBoxColumn.HeaderText = "Ergebniswerte"
Me.ErgebniswerteDataGridViewTextBoxColumn.Name = "ErgebniswerteDataGridViewTextBoxColumn"
Me.ErgebniswerteDataGridViewTextBoxColumn.ReadOnly = True
' '
'frmNI_SQLTest 'frmNI_SQLTest
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(625, 516) Me.ClientSize = New System.Drawing.Size(625, 516)
Me.Controls.Add(Me.DataGridView) Me.Controls.Add(Me.ListBox1)
Me.Controls.Add(Me.txtSQL_String) Me.Controls.Add(Me.txtSQL_String)
Me.Controls.Add(Me.BindingNavigator1) Me.Controls.Add(Me.BindingNavigator1)
Me.DataBindings.Add(New System.Windows.Forms.Binding("Location", Global.ToolCollection.My.MySettings.Default, "frmNI_SQL_Loc", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.DataBindings.Add(New System.Windows.Forms.Binding("Location", Global.ToolCollection.My.MySettings.Default, "frmNI_SQL_Loc", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
@ -216,8 +195,7 @@ Partial Class frmNI_SQLTest
Me.BindingNavigator1.ResumeLayout(False) Me.BindingNavigator1.ResumeLayout(False)
Me.BindingNavigator1.PerformLayout() Me.BindingNavigator1.PerformLayout()
CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MyDataset1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -235,8 +213,8 @@ Partial Class frmNI_SQLTest
Friend WithEvents txtStartwert As System.Windows.Forms.ToolStripTextBox Friend WithEvents txtStartwert As System.Windows.Forms.ToolStripTextBox
Friend WithEvents BindingSource1 As System.Windows.Forms.BindingSource Friend WithEvents BindingSource1 As System.Windows.Forms.BindingSource
Friend WithEvents tsbaktualisieren As System.Windows.Forms.ToolStripButton Friend WithEvents tsbaktualisieren As System.Windows.Forms.ToolStripButton
Friend WithEvents MyDataset1 As ToolCollection.MyDataset Friend WithEvents MyDataset As ToolCollection.MyDataset
Friend WithEvents txtSQL_String As System.Windows.Forms.TextBox Friend WithEvents txtSQL_String As System.Windows.Forms.TextBox
Friend WithEvents DataGridView As System.Windows.Forms.DataGridView
Friend WithEvents ErgebniswerteDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents ErgebniswerteDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents ListBox1 As ListBox
End Class End Class

70
ToolCollection/frmNI_SQLTest.resx
View File

@ -112,65 +112,61 @@
<value>2.0</value> <value>2.0</value>
</resheader> </resheader>
<resheader name="reader"> <resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>
<metadata name="BindingSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="BindingSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>159, 17</value> <value>152, 23</value>
</metadata> </metadata>
<metadata name="MyDataset1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<value>287, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="BindingNavigatorMoveFirstItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BindingNavigatorMoveFirstItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAStJREFUOE9jYBg0 JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABKklEQVQ4T2MYPKBw1vP/TQue/8+c+Pg/
oHDW8/9NC57/z5z4+D8uR4W3P8Apx5A789n/VUfe/8elKL77wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+ VAgDhLc/wCnHkDvz2f9VR97/x6UovvvB/+CGa7gNyJjy9P/CfR+wKorvefh/6f7///2rL+A2IKHnyf9p
///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0v3f1BxRFoa33wJpb1wFt7/z73yX/AG4D W95jKIpovw/WnDnr/3+v0hO4DYjsevS/d/UHFEWhrffAmlvXAW3v/PvfJf8AbgMCmx/+r5v/Dq4ouOXu
Apsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvgUXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF /0V7///vAGrOmPPzv13dz//2GdtxG+BRdf9//rQ3KIrsim//T5/z+79/17f/OoXv/lskrMdtgH3p3f/Z
7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbAIu/O/9T+11gVGSSd+C+b9vW/bvA83AYY k19jKNJPOf/fpOjFf5WsT/+NI5fhNsAi787/1P7XWBUZJJ34L5v29b9u8DzcBhhm3f4f1vISpyL91Mv/
Zt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPulf8gBXgVDZqMh+wQAPB2wKsSwCgmAAAA NXyn4TZAJ+3Gf7/qh3gVqXhMwG2AU+6V/yAFeBUNQsDAAADwdsCrpeWacAAAAABJRU5ErkJggg==
AElFTkSuQmCC
</value> </value>
</data> </data>
<data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAL1JREFUOE9jYBgy JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAAtklEQVQ4T2MYOiC8/cF/KJN0EN/94H9w
ILz9wX+yHRvf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3v wzXyDIjvefh/6f7///2rL5BuQET7fbDmzFn//3uVniDNgNDWe2DNreuAtnf+/e+Sf4B4A4Jb7v5ftPf/
kn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ14A0ChbVd8+3/6nN///bu+/dcpfPffImE9aQaADNFP /w6g5ow5P//b1f38b5+xnTQX2BXf/p8+5/d//65v/3UK3/23SFhPehjop5z/b1L04r9K1qf/xpHLSDcA
Of/fpOjFf5WsT/+NI5eRbgDIEIOkE/9l077+1w2eR54BYJekXv6v4TuNfANAhqh4TKDMALKTMc01AgDQ BAySTvyXTfv6Xzd4HnkGgIB+6uX/Gr7TyDcABFQ8JlBmwGAFDAwA0BRgmAS6UFUAAAAASUVORK5CYII=
FGCYkuTLEQAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAKtJREFUOE9jYBh0 JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAAo0lEQVQ4T2MYfKBw1vP/UCZ5IHfms/8J
oHDW8/8UOSp35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ 3ffINyRjytP/8/b//p/QdYc8QxJ6nvyfve/X/86tf/+7lV4m3ZDIrkf/p2z79b9k6d//CdP//rfJPUua
ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuIN8Sj6v7/krnv4JoVXXqI1wyKPvvSu/8D IYHND/+3rn0P1mxc8uW/dPS1/8aRy4g3xKPq/v+Sue/gmhVdekhzgX3p3f+BLc/I0wwCFnl3/tsUXCFP
W56BbSZZM8gAi7w7/20KrpCnGWSAYdZt8jWDDNBJu0GanylKtoNCMwCgfl+gC2KedgAAAABJRU5ErkJg MwgYZt0mXzMI6KTdIF/zUAQMDACgfl+gBzRCOAAAAABJRU5ErkJggg==
gg==
</value> </value>
</data> </data>
<data name="BindingNavigatorMoveLastItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BindingNavigatorMoveLastItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAATBJREFUOE9jYBhU JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABLElEQVQ4T2MYXKBw1vP/UCYGAMk1LXj+
oHDW8/+4HASSa1rw/H/mxMc41TDkznz2P6H7HlYFILlVR97/D29/gNuAjClP/8/b//t/QtcdDEUguYX7 P3PiY5xqGHJnPvuf0H0PqwKQ3Koj7/+Htz/AbUDGlKf/5+3//T+h6w6GIpDcwn0f/gc3XMNtQELPk/+z
PvwPbriG24CEnif/Z+/79b9z69//bqWXURSC5KZtef/fv/oCbgMiux79n7Lt1/+SpX//J0z/+98m9yxc 9/3637n173+30ssoCkFy07a8/+9ffQG3AZFdj/5P2fbrf8nSv/8Tpv/9b5N7Fq4YJNe7+sN/r9ITuA0I
MUiud/WH/16lJ3AbENj88H/r2vdgzcYlX/5LR1/7bxy5DKwBJFc3/91/l/wDuA3wqLr/v2TuO7hmRZce bH74v3Xte7Bm45Iv/6Wjr/03jlwG1gCSq5v/7r9L/gHcBnhU3f9fMvcdXLOiSw9cMUguf9qb//YZ23Eb
uGKQXP60N//tM7bjNsC+9O7/wJZnYJuRNYNcAJLLnvz6v0XCetwGWOTd+W9TcAVDM8gAkFxq/2u4l7Cm YF96939gyzMMzSAAksue/Pq/RcJ63AZY5N35b1NwBUMzCIDkUvtfw72EFRhm3caqGQRAcmEtL//rBs/D
F8Os21g1gxSD5MJaXv7XDZ6H2wU6aTdwSoLk/Kof/tfwnYbbAHz5yin3yn8VjwlgPKjyHwMAvtG/s0Vm bYBO2g2ckiA5v+qH/zV8p+E2AB9wyr3yX8VjAhhDhQYFYGAAAL7Rv7O5DE6cAAAAAElFTkSuQmCC
x8MAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>287, 17</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAABAAIAICAQAAEABADoAgAAJgAAABAQEAABAAQAKAEAAA4DAAAoAAAAIAAAAEAAAAABAAQAAAAAAIAC AAABAAIAICAQAAEABADoAgAAJgAAABAQEAABAAQAKAEAAA4DAAAoAAAAIAAAAEAAAAABAAQAAAAAAIAC

26
ToolCollection/frmNI_SQLTest.vb
View File

@ -128,20 +128,14 @@ Public Class frmNI_SQLTest
'Try 'Try
' Datenadapter laden ' Datenadapter laden
DataAdapter = New OracleDataAdapter(Command) 'OracleDataAdapter(Command) DataAdapter = New OracleDataAdapter(Command) 'OracleDataAdapter(Command)
' DataSet mit Daten füllen MyDataset.Tables("TBErgebnis").Clear()
' MsgBox(Command.CommandText)
MyDataset1.Tables("TBErgebnis").Clear()
' DataSet erzeugen ' DataSet erzeugen
Dim DataSet = New DataSet() Dim DataSet = New DataSet()
ListBox1.Items.Clear()
' DataSet mit Daten füllen ' DataSet mit Daten füllen
DataAdapter.Fill(DataSet) DataAdapter.Fill(DataSet)
For Each Row As DataRow In DataSet.Tables(0).Rows For Each Row As DataRow In DataSet.Tables(0).Rows
Dim Row1 As DataRow ListBox1.Items.Add(Row.Item(0))
Row1 = MyDataset1.Tables("TBErgebnis").NewRow()
'filling the row with values. Item property is used to set the field value.
Row1.Item("Ergebniswerte") = Row.Item(0)
MyDataset1.Tables("TBErgebnis").Rows.Add(Row1)
Next Next
Me.BindingSource1.ResumeBinding() Me.BindingSource1.ResumeBinding()
' DB-Connection schliessen ' DB-Connection schliessen
@ -216,20 +210,18 @@ Public Class frmNI_SQLTest
' Datenadapter laden ' Datenadapter laden
DataAdapter = New SqlDataAdapter(Command) DataAdapter = New SqlDataAdapter(Command)
' DataSet mit Daten füllen ' DataSet mit Daten füllen
MyDataset1.Tables("TBErgebnis").Clear() MyDataset.Tables("TBErgebnis").Clear()
' DataSet erzeugen ' DataSet erzeugen
Dim DataSet1 = New DataSet() Dim DataSet1 = New DataSet()
ListBox1.Items.Clear()
' DataSet mit Daten füllen ' DataSet mit Daten füllen
DataAdapter.Fill(DataSet1) DataAdapter.Fill(DataSet1)
For Each Row As DataRow In DataSet1.Tables(0).Rows For Each Row As DataRow In DataSet1.Tables(0).Rows
Dim Row1 As DataRow ListBox1.Items.Add(Row.Item(0))
Row1 = MyDataset1.Tables("TBErgebnis").NewRow()
'filling the row with values. Item property is used to set the field value.
Row1.Item("Ergebniswerte") = Row.Item(0)
MyDataset1.Tables("TBErgebnis").Rows.Add(Row1)
Next Next
Me.BindingSource1.ResumeBinding()
BindingSource1.DataSource = MyDataset.Tables("TBErgebnis")
'Me.BindingSource1.ResumeBinding()
' DB-Connection schliessen ' DB-Connection schliessen
Me.CloseMssqlDb(Connection) Me.CloseMssqlDb(Connection)
Catch ex As Exception Catch ex As Exception