Initial commit

EDKB01DB2/Testprogramm/Test1.jmconfig

@@ -0,0 +1 @@
+<?xml version="1.0" encoding="utf-8"?><Configuration xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"><DontShowAgainInSolution>false</DontShowAgainInSolution></Configuration>

EDKB01DB2/Testprogramm/Test1.sln

@@ -0,0 +1,22 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio 2013
+VisualStudioVersion = 12.0.30501.0
+MinimumVisualStudioVersion = 10.0.40219.1
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "WindowsApplication1", "WindowsApplication1\WindowsApplication1.vbproj", "{BBFDDA82-5ABF-4F79-85FF-E3DED1DC443A}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{BBFDDA82-5ABF-4F79-85FF-E3DED1DC443A}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{BBFDDA82-5ABF-4F79-85FF-E3DED1DC443A}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{BBFDDA82-5ABF-4F79-85FF-E3DED1DC443A}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{BBFDDA82-5ABF-4F79-85FF-E3DED1DC443A}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+EndGlobal

EDKB01DB2/Testprogramm/WindowsApplication1/Form1.Designer.vb

@@ -0,0 +1,294 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form1
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    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.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.Button5 = New System.Windows.Forms.Button()
+        Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
+        Me.Button6 = New System.Windows.Forms.Button()
+        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+        Me.btnXMLCheck = New System.Windows.Forms.Button()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.OpenFileDialog2 = New System.Windows.Forms.OpenFileDialog()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.lblxmlfile = New System.Windows.Forms.Label()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+        Me.lblprogress = New System.Windows.Forms.Label()
+        Me.chkUpdateHost = New System.Windows.Forms.CheckBox()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GroupBox1.SuspendLayout()
+        Me.GroupBox2.SuspendLayout()
+        Me.GroupBox3.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(6, 19)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(455, 20)
+        Me.TextBox1.TabIndex = 0
+        Me.TextBox1.Text = "dsn=edokaod;uid=tkbedoka;pwd=2014edokatst"
+        '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(479, 16)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(75, 23)
+        Me.Button2.TabIndex = 2
+        Me.Button2.Text = "Test"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Location = New System.Drawing.Point(12, 45)
+        Me.TextBox2.Multiline = True
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(542, 75)
+        Me.TextBox2.TabIndex = 4
+        '
+        'DataGridView1
+        '
+        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.DataGridView1.Location = New System.Drawing.Point(3, 16)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.Size = New System.Drawing.Size(1081, 337)
+        Me.DataGridView1.TabIndex = 5
+        '
+        'Button4
+        '
+        Me.Button4.Location = New System.Drawing.Point(12, 126)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(75, 23)
+        Me.Button4.TabIndex = 6
+        Me.Button4.Text = "Run"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
+        'Button5
+        '
+        Me.Button5.Location = New System.Drawing.Point(479, 126)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(75, 23)
+        Me.Button5.TabIndex = 7
+        Me.Button5.Text = "update"
+        Me.Button5.UseVisualStyleBackColor = False
+        Me.Button5.Visible = False
+        '
+        'Button6
+        '
+        Me.Button6.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.Button6.Location = New System.Drawing.Point(3, 353)
+        Me.Button6.Name = "Button6"
+        Me.Button6.Size = New System.Drawing.Size(1081, 23)
+        Me.Button6.TabIndex = 8
+        Me.Button6.Text = "Export XML"
+        Me.Button6.UseVisualStyleBackColor = True
+        '
+        'OpenFileDialog1
+        '
+        Me.OpenFileDialog1.FileName = "OpenFileDialog1"
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.btnXMLCheck)
+        Me.GroupBox1.Controls.Add(Me.TextBox1)
+        Me.GroupBox1.Controls.Add(Me.Button2)
+        Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(1087, 64)
+        Me.GroupBox1.TabIndex = 9
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "Connection"
+        '
+        'GroupBox2
+        '
+        Me.GroupBox2.Controls.Add(Me.Panel1)
+        Me.GroupBox2.Controls.Add(Me.ComboBox1)
+        Me.GroupBox2.Controls.Add(Me.TextBox2)
+        Me.GroupBox2.Controls.Add(Me.Button4)
+        Me.GroupBox2.Controls.Add(Me.Button5)
+        Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.GroupBox2.Location = New System.Drawing.Point(0, 64)
+        Me.GroupBox2.Name = "GroupBox2"
+        Me.GroupBox2.Size = New System.Drawing.Size(1087, 155)
+        Me.GroupBox2.TabIndex = 10
+        Me.GroupBox2.TabStop = False
+        Me.GroupBox2.Text = "SQL-Query"
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Location = New System.Drawing.Point(12, 20)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(542, 21)
+        Me.ComboBox1.Sorted = True
+        Me.ComboBox1.TabIndex = 8
+        '
+        'GroupBox3
+        '
+        Me.GroupBox3.Controls.Add(Me.DataGridView1)
+        Me.GroupBox3.Controls.Add(Me.Button6)
+        Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.GroupBox3.Location = New System.Drawing.Point(0, 219)
+        Me.GroupBox3.Name = "GroupBox3"
+        Me.GroupBox3.Size = New System.Drawing.Size(1087, 379)
+        Me.GroupBox3.TabIndex = 11
+        Me.GroupBox3.TabStop = False
+        Me.GroupBox3.Text = "GroupBox3"
+        '
+        'btnXMLCheck
+        '
+        Me.btnXMLCheck.Location = New System.Drawing.Point(614, 12)
+        Me.btnXMLCheck.Name = "btnXMLCheck"
+        Me.btnXMLCheck.Size = New System.Drawing.Size(75, 23)
+        Me.btnXMLCheck.TabIndex = 10
+        Me.btnXMLCheck.Text = "XML-Check"
+        Me.btnXMLCheck.UseVisualStyleBackColor = True
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.chkUpdateHost)
+        Me.Panel1.Controls.Add(Me.lblprogress)
+        Me.Panel1.Controls.Add(Me.ProgressBar1)
+        Me.Panel1.Controls.Add(Me.Button3)
+        Me.Panel1.Controls.Add(Me.lblxmlfile)
+        Me.Panel1.Controls.Add(Me.Button1)
+        Me.Panel1.Location = New System.Drawing.Point(614, 20)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(461, 129)
+        Me.Panel1.TabIndex = 9
+        '
+        'OpenFileDialog2
+        '
+        Me.OpenFileDialog2.FileName = "OpenFileDialog2"
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(3, 3)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 23)
+        Me.Button1.TabIndex = 0
+        Me.Button1.Text = "xmldatei"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'lblxmlfile
+        '
+        Me.lblxmlfile.AutoSize = True
+        Me.lblxmlfile.Location = New System.Drawing.Point(3, 29)
+        Me.lblxmlfile.Name = "lblxmlfile"
+        Me.lblxmlfile.Size = New System.Drawing.Size(55, 13)
+        Me.lblxmlfile.TabIndex = 1
+        Me.lblxmlfile.Text = "[Filename]"
+        '
+        'Button3
+        '
+        Me.Button3.Location = New System.Drawing.Point(3, 45)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(93, 23)
+        Me.Button3.TabIndex = 2
+        Me.Button3.Text = "HOST-Check"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'ProgressBar1
+        '
+        Me.ProgressBar1.Location = New System.Drawing.Point(6, 106)
+        Me.ProgressBar1.Name = "ProgressBar1"
+        Me.ProgressBar1.Size = New System.Drawing.Size(452, 23)
+        Me.ProgressBar1.TabIndex = 3
+        '
+        'lblprogress
+        '
+        Me.lblprogress.AutoSize = True
+        Me.lblprogress.Location = New System.Drawing.Point(175, 90)
+        Me.lblprogress.Name = "lblprogress"
+        Me.lblprogress.RightToLeft = System.Windows.Forms.RightToLeft.Yes
+        Me.lblprogress.Size = New System.Drawing.Size(24, 13)
+        Me.lblprogress.TabIndex = 5
+        Me.lblprogress.Text = "0/0"
+        '
+        'chkUpdateHost
+        '
+        Me.chkUpdateHost.AutoSize = True
+        Me.chkUpdateHost.Location = New System.Drawing.Point(6, 75)
+        Me.chkUpdateHost.Name = "chkUpdateHost"
+        Me.chkUpdateHost.Size = New System.Drawing.Size(86, 17)
+        Me.chkUpdateHost.TabIndex = 6
+        Me.chkUpdateHost.Text = "Update Host"
+        Me.chkUpdateHost.UseVisualStyleBackColor = True
+        '
+        'Form1
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1087, 598)
+        Me.Controls.Add(Me.GroupBox3)
+        Me.Controls.Add(Me.GroupBox2)
+        Me.Controls.Add(Me.GroupBox1)
+        Me.Name = "Form1"
+        Me.Text = "DB2_Test"
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox1.PerformLayout()
+        Me.GroupBox2.ResumeLayout(False)
+        Me.GroupBox2.PerformLayout()
+        Me.GroupBox3.ResumeLayout(False)
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
+    Friend WithEvents Button2 As System.Windows.Forms.Button
+    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
+    Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView
+    Friend WithEvents Button4 As System.Windows.Forms.Button
+    Friend WithEvents Button5 As System.Windows.Forms.Button
+    Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
+    Friend WithEvents Button6 As System.Windows.Forms.Button
+    Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
+    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+    Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
+    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
+    Friend WithEvents btnXMLCheck As System.Windows.Forms.Button
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents OpenFileDialog2 As System.Windows.Forms.OpenFileDialog
+    Friend WithEvents lblxmlfile As System.Windows.Forms.Label
+    Friend WithEvents Button3 As System.Windows.Forms.Button
+    Friend WithEvents lblprogress As System.Windows.Forms.Label
+    Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+    Friend WithEvents chkUpdateHost As System.Windows.Forms.CheckBox
+
+End Class

EDKB01DB2/Testprogramm/WindowsApplication1/Form1.resx

@@ -0,0 +1,129 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>154, 17</value>
+  </metadata>
+  <metadata name="OpenFileDialog2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>296, 17</value>
+  </metadata>
+</root>

EDKB01DB2/Testprogramm/WindowsApplication1/Form1.vb

@@ -0,0 +1,408 @@
+Imports IBM.Data.DB2
+Imports IBM.Data.DB2.DB2Type
+Imports System.Data
+Imports System.Data.SqlClient
+
+Imports System.IO.File
+Imports System.Data.SqlTypes
+Imports System.ComponentModel
+Imports System.IO
+Imports System.SystemException
+Imports System.Reflection
+Imports System.Configuration
+
+Public Class Form1
+    Dim dt As New DataTable
+
+    Dim ds As New DataSet
+
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        ds.ReadXml(My.Settings.ConfigFile.ToString)
+        For Each r As DataRow In ds.Tables(My.Settings.TableName).Rows
+            If r.Item(1) = My.Settings.Name Then
+                Me.TextBox1.Text = r.Item(0)
+            End If
+        Next
+        Me.ComboBox1.Items.Clear()
+        For Each value As Configuration.SettingsPropertyValue In My.Settings.PropertyValues
+            If UCase(value.Name.Substring(0, 3)) = "SQL" Then Me.ComboBox1.Items.Add(value.PropertyValue.ToString)
+        Next
+
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs)
+        Try
+            MsgBox("Start")
+            Dim con As New IBM.Data.DB2.DB2Connection(Me.TextBox1.Text)
+            con.Open()
+            con.Close()
+            MsgBox("Open / Close OK")
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Try
+            MsgBox("Start")
+            Dim d As New Odbc.OdbcConnection(Me.TextBox1.Text)
+            d.Open()
+            d.Close()
+            MsgBox("OK")
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+
+
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs)
+        Try
+            MsgBox("Start")
+            Dim con As New OleDb.OleDbConnection(Me.TextBox1.Text)
+            con.Open()
+            con.Close()
+            MsgBox("Open / Close OK")
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+
+
+    End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        Try
+            MsgBox("Start")
+            dt.Rows.Clear()
+            dt.Columns.Clear()
+            Dim SQLconnect As New Odbc.OdbcConnection()
+            Dim ds As New DataSet
+            SQLconnect.ConnectionString = Me.TextBox1.Text
+            SQLconnect.Open()
+            Dim da As New Odbc.OdbcDataAdapter("", SQLconnect)
+            Dim sqlcmd As New Odbc.OdbcCommand
+            sqlcmd.Connection = SQLconnect
+            sqlcmd.CommandType = CommandType.Text
+            sqlcmd.CommandText = Me.TextBox2.Text
+            da.SelectCommand = sqlcmd
+            da.Fill(dt)
+            Me.DataGridView1.DataSource = dt
+            SQLconnect.Close()
+            MsgBox("OK")
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+        Try
+            MsgBox("Start")
+
+            Dim SQLconnect As New Odbc.OdbcConnection()
+            SQLconnect.ConnectionString = Me.TextBox1.Text
+            Dim sqlcmd As New Odbc.OdbcCommand
+            sqlcmd.Connection = SQLconnect
+            sqlcmd.CommandType = CommandType.Text
+            sqlcmd.CommandText = Me.TextBox2.Text
+            SQLconnect.Open()
+            sqlcmd.ExecuteNonQuery()
+            SQLconnect.Close()
+            MsgBox("OK")
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+        Dim f As New SaveFileDialog
+        f.ShowDialog()
+        If f.FileName <> "" Then
+            Dim dsn As New DataSet
+            dsn.Tables.Add(dt.Copy)
+            dsn.WriteXml(f.FileName)
+            'ds.Tables.Clear()
+            'ds.Tables.Add(dt.Copy)
+            'ds.WriteXml(f.FileName)
+
+        End If
+    End Sub
+
+    'Private Sub Button7_Click(sender As Object, e As EventArgs)
+    '    Dim f As New OpenFileDialog
+    '    f.ShowDialog()
+    '    If Microsoft.VisualBasic.Right(f.FileName, 11) = "blindex.xml" Then
+    '        Dim ds As New DataSet
+    '        ds.ReadXml(f.FileName)
+    '        copatodb(ds, "BL")
+    '    End If
+    '    If Microsoft.VisualBasic.Right(f.FileName, 11) = "zvindex.xml" Then
+    '        Dim ds As New DataSet
+    '        ds.ReadXml(f.FileName)
+    '        copatodb(ds, "ZV")
+    '    End If
+    '    If Microsoft.VisualBasic.Right(f.FileName, 13) = "hostindex.xml" Then
+    '        Dim ds As New DataSet
+    '        ds.ReadXml(f.FileName)
+    '        copatodb(ds, "HOST")
+    '    End If
+    'End Sub
+
+    'Sub copatodb(ByVal ds As DataSet, type As String)
+    '    Dim cs As String = "Data Source=shu00;Initial Catalog=odadm;Persist Security Info=True;User ID=sa;password=*shu29;"
+    '    Dim connection As SqlConnection
+    '    Dim command As SqlCommand
+    '    Dim adpter As New SqlDataAdapter
+    '    connection = New SqlConnection(cs)
+
+    '    Select Case type
+    '        Case "ZV"
+    '            Dim DA As New SqlDataAdapter("select * from zvindex  ", cs)
+    '            Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
+    '            Dim dso As New DataSet()
+    '            connection.Open()
+    '            Dim ii As Integer = 0
+    '            DA.Fill(dso, "ZV")
+    '            For Each r As DataRow In ds.Tables(0).Rows
+    '                Dim myrow As DataRow
+    '                myrow = dso.Tables(0).NewRow
+    '                ii = ii + 1
+    '                For i = 0 To ds.Tables(0).Columns.Count - 2
+    '                    myrow.Item(i) = r.Item(i).ToString
+
+    '                Next
+    '                dso.Tables(0).Rows.Add(myrow)
+    '            Next
+    '            DA.Update(dso, "ZV")
+    '        Case "BL"
+    '            Dim DA As New SqlDataAdapter("select * from blindex  ", cs)
+    '            Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
+    '            Dim dso As New DataSet()
+    '            connection.Open()
+    '            DA.Fill(dso, "ZV")
+    '            For Each r As DataRow In ds.Tables(0).Rows
+    '                Dim myrow As DataRow
+    '                myrow = dso.Tables(0).NewRow
+    '                For i = 0 To ds.Tables(0).Columns.Count - 1
+    '                    myrow.Item(i) = r.Item(i)
+
+    '                Next
+    '                dso.Tables(0).Rows.Add(myrow)
+    '            Next
+    '            DA.Update(dso, "ZV")
+    '        Case "HOST"
+    '            Dim DA As New SqlDataAdapter("select * from hostindex  ", cs)
+    '            Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
+    '            Dim dso As New DataSet()
+    '            connection.Open()
+    '            DA.Fill(dso, "ZV")
+    '            For Each r As DataRow In ds.Tables(0).Rows
+    '                Dim myrow As DataRow
+    '                myrow = dso.Tables(0).NewRow
+    '                For i = 0 To ds.Tables(0).Columns.Count - 1
+    '                    myrow.Item(i) = r.Item(i)
+
+    '                Next
+    '                dso.Tables(0).Rows.Add(myrow)
+    '            Next
+    '            DA.Update(dso, "ZV")
+    '    End Select
+    'End Sub
+
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
+        Me.TextBox2.Text = Me.ComboBox1.Text
+    End Sub
+
+    Private Sub btnXMLCheck_Click(sender As Object, e As EventArgs) Handles btnXMLCheck.Click
+        If Not Panel1.Visible Then
+            Me.Panel1.Visible = True
+            Me.Panel1.Dock = DockStyle.Fill
+        Else
+            Panel1.Visible = False
+        End If
+
+    End Sub
+
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+        OpenFileDialog2.ShowDialog()
+        If OpenFileDialog2.FileName <> "" Then Me.lblxmlfile.text = OpenFileDialog2.FileName
+
+    End Sub
+
+    Dim Verarbeitungstyp As String
+    Dim sqlconn As New SqlConnection(My.Settings.HostConnection)
+    Dim Odata As New DataTable
+    Dim odata1 As New DataTable
+
+    Dim resultdata As New DataTable
+
+    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
+        Verarbeitungstyp = "HOST"
+        resultdata.Columns.Clear()
+        resultdata.Columns.Add("Mailid")
+        Dim ds As New DataSet
+        ds.ReadXml(Me.lblxmlfile.Text)
+
+        Me.ProgressBar1.Minimum = 0
+        Me.ProgressBar1.Maximum = ds.Tables(0).Rows.Count
+        Me.ProgressBar1.Value = 0
+        Dim cnt As Integer = 0
+        For Each r As DataRow In ds.Tables(0).Rows
+            Check_Dokumentid(r)
+            cnt = cnt + 1
+            Me.lblprogress.Text = cnt.ToString + " / " + ds.Tables(0).Rows.Count.ToString
+            Me.ProgressBar1.Value = cnt
+            Application.DoEvents()
+        Next
+        Me.DataGridView1.DataSource = resultdata
+
+    End Sub
+
+    Function Check_Dokumentid(r As DataRow) As Boolean
+        Dim sql As String
+        Dim sqlcmd As New SqlCommand
+        Select Case Verarbeitungstyp
+            Case "HOST"
+                sql = My.Settings.SQL_HOST_Check_Dokumentid
+                sql = sql.Replace("&MailingID&", r("MailingID"))
+            Case "ZV"
+                'sql = My.Settings.SQL_ZV_Check_Dokumentid
+                'sql = sql.Replace("&nrdoc00&", r("nrdoc00"))
+            Case "BL"
+                'sql = My.Settings.SQL_BL_Check_Dokumentid
+                'sql = sql.Replace("&mailingid&", r("mailingid"))
+        End Select
+        Dim da As New SqlDataAdapter(sql, sqlconn)
+        sqlcmd.Connection = sqlconn
+        sqlcmd.CommandType = CommandType.Text
+        sqlcmd.CommandText = sql
+        da.SelectCommand = sqlcmd
+        odata1.Rows.Clear()
+        da.Fill(odata1)
+        If odata1.Rows.Count < 1 Then
+            Get_SQLDB(Verarbeitungstyp)
+            Dim r1 As DataRow = resultdata.NewRow
+            r1.Item(0) = r.Item("Mailingid")
+            resultdata.Rows.Add(r1)
+            If chkUpdateHost.Checked Then
+                Odata.Rows.Clear()
+                Mapping_host(r)
+                Insert_rec(Odata)
+            End If
+            Return False
+        Else
+            Return True
+        End If
+    End Function
+
+    Public Function Get_SQLDB(Type As String)
+        Dim sql As String
+        Dim sqlcmd As New SqlCommand
+
+        Select Case Type
+            Case "HOST"
+                sql = My.Settings.SQL_Empty_HOST
+            Case "ZV"
+                'sql = My.Settings.SQL_Empty_ZV
+            Case "BL"
+                'sql = My.Settings.SQL_Empty_BL
+        End Select
+
+
+        Dim da As New SqlDataAdapter(sql, sqlconn)
+        sqlcmd.Connection = sqlconn
+        sqlcmd.CommandType = CommandType.Text
+        sqlcmd.CommandText = sql
+        da.SelectCommand = sqlcmd
+        Odata.Rows.Clear()
+        da.Fill(Odata)
+    End Function
+
+    Sub Insert_rec(dt As DataTable)
+        'Insert Import
+        Dim sql As String
+        Select Case Verarbeitungstyp
+            Case "HOST"
+                sql = My.Settings.SQL_Empty_HOST
+            Case "ZV"
+                'sql = My.Settings.SQL_Empty_ZV
+            Case "BL"
+                'sql = My.Settings.SQL_Empty_BL
+        End Select
+        Using adapter1 = New SqlDataAdapter(sql, sqlconn)
+            Using builder = New SqlCommandBuilder(adapter1)
+                adapter1.InsertCommand = builder.GetInsertCommand()
+                adapter1.Update(Odata)
+                builder.Dispose()
+            End Using
+            adapter1.Dispose()
+        End Using
+    End Sub
+
+    Public Sub Mapping_host(ByRef r As DataRow)
+        Dim newrow As DataRow = Odata.NewRow
+        newrow("anzahlseiten") = r("Pages")
+        newrow("dokumentid") = r("mailingid")
+        newrow("nachvollziehbarkeit") = r("traceability")
+        newrow("xomadocid") = r("xomadocid")
+        newrow("MailingProduct") = r("codemailintlid")
+        newrow("MailingProductBezeichnung") = r("Mailingproduct")
+        newrow("Valutadatum") = Microsoft.VisualBasic.Format(CDate(r("Creationdate")), "yyyyMMdd")
+        newrow("Archivdatum") = (r("dmerst00"))
+        newrow("valutadatum1") = Microsoft.VisualBasic.Format(CDate(r("valutadate")), "yyyyMMdd")
+        newrow("betreffzeile") = r("arctitle")
+        valor_isin(newrow, r)
+        newrow("standamdatum") = ""
+        newrow("ex") = r("copycode")
+        newrow("partnernr_inhaber") = r("bpkeynrinhab")
+        newrow("partnername_inhaber") = r("bpnameinhab")
+        newrow("partnernr_zusteller") = r("bpkeynrsend")
+        newrow("partnername_zusteller") = r("bpnamesend")
+        newrow("manr") = r("userid")
+        newrow("metatype") = r("metatype")
+        newrow("ordertype") = r("ordertyp")
+        newrow("loadid") = r("udokid00")
+        newrow("vvextern1") = r("macckeynr")
+        newrow("vvextern2") = r("contkeynr")
+        newrow("referenzzeile1") = ""
+        newrow("Referenzzeile2") = ""
+        newrow("transactnr") = r("ordernr")
+
+        newrow("inserttimestamp") = Now
+
+        Odata.Rows.Add(newrow)
+    End Sub
+
+    Sub valor_isin(newrow As DataRow, r As DataRow)
+        Try
+            Dim tmpvalor As String = ""
+            Dim xvalor As String = ""
+            Dim xisin As String = ""
+            Dim x As String = ""
+            newrow("valorennr") = ""
+            newrow("isinnr") = ""
+            tmpvalor = r("valoridr")
+            If tmpvalor.Length < 12 Then
+                newrow("valorennr") = r("valorid")
+            Else
+                xvalor = Microsoft.VisualBasic.Left(tmpvalor, Len(tmpvalor) - 12)
+                xisin = Microsoft.VisualBasic.Right(tmpvalor, 12)
+                x = Microsoft.VisualBasic.Left(xisin, 1)
+                If x <> "1" And x <> "2" And x <> "3" And x <> "4" And x <> "5" And x <> "6" And x <> "7" And x <> "8" And x <> "9" And x <> "0" Then
+                    newrow("Valorennr") = xvalor
+                    newrow("IsinNr") = xisin
+                Else
+                    newrow("Valorennr") = tmpvalor
+                End If
+            End If
+        Catch
+            newrow("Valorennr") = r("Valorid")
+        End Try
+    End Sub
+End Class
+
+

EDKB01DB2/Testprogramm/WindowsApplication1/My Project/Application.Designer.vb

@@ -0,0 +1,38 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern
+    ' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer.
+    ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
+    ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
+    '
+    Partial Friend Class MyApplication
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Public Sub New()
+            MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
+            Me.IsSingleInstance = false
+            Me.EnableVisualStyles = true
+            Me.SaveMySettingsOnExit = true
+            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Protected Overrides Sub OnCreateMainForm()
+            Me.MainForm = Global._DB2_Test.Form1
+        End Sub
+    End Class
+End Namespace

EDKB01DB2/Testprogramm/WindowsApplication1/My Project/Application.myapp

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <MySubMain>true</MySubMain>
+  <MainForm>Form1</MainForm>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <ApplicationType>0</ApplicationType>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>

EDKB01DB2/Testprogramm/WindowsApplication1/My Project/AssemblyInfo.vb

@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Allgemeine Informationen über eine Assembly werden über die folgenden 
+' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
+' die mit einer Assembly verknüpft sind.
+
+' Die Werte der Assemblyattribute überprüfen
+
+<Assembly: AssemblyTitle("WindowsApplication1")> 
+<Assembly: AssemblyDescription("")> 
+<Assembly: AssemblyCompany("")> 
+<Assembly: AssemblyProduct("WindowsApplication1")> 
+<Assembly: AssemblyCopyright("Copyright ©  2014")> 
+<Assembly: AssemblyTrademark("")> 
+
+<Assembly: ComVisible(False)>
+
+'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
+<Assembly: Guid("5c5dda44-1e5a-44e0-85cd-b67dc89c7796")> 
+
+' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
+'
+'      Hauptversion
+'      Nebenversion 
+'      Buildnummer
+'      Revision
+'
+' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern 
+' übernehmen, indem Sie "*" eingeben:
+' <Assembly: AssemblyVersion("1.0.*")> 
+
+<Assembly: AssemblyVersion("1.0.0.0")> 
+<Assembly: AssemblyFileVersion("1.0.0.0")> 

EDKB01DB2/Testprogramm/WindowsApplication1/My Project/Resources.Designer.vb

@@ -0,0 +1,63 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+    
+    'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
+    '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
+    'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
+    'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
+    '''<summary>
+    '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
+    Friend Module Resources
+        
+        Private resourceMan As Global.System.Resources.ResourceManager
+        
+        Private resourceCulture As Global.System.Globalization.CultureInfo
+        
+        '''<summary>
+        '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("_DB2_Test.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+        '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+    End Module
+End Namespace

EDKB01DB2/Testprogramm/WindowsApplication1/My Project/Resources.resx

@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

EDKB01DB2/Testprogramm/WindowsApplication1/My Project/Settings.Designer.vb

@@ -0,0 +1,196 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"),  _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+    Partial Friend NotInheritable Class MySettings
+        Inherits Global.System.Configuration.ApplicationSettingsBase
+        
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+        
+#Region "Funktion zum automatischen Speichern von My.Settings"
+#If _MyType = "WindowsForms" Then
+    Private Shared addedHandler As Boolean
+
+    Private Shared addedHandlerLockObject As New Object
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+        If My.Application.SaveMySettingsOnExit Then
+            My.Settings.Save()
+        End If
+    End Sub
+#End If
+#End Region
+        
+        Public Shared ReadOnly Property [Default]() As MySettings
+            Get
+                
+#If _MyType = "WindowsForms" Then
+               If Not addedHandler Then
+                    SyncLock addedHandlerLockObject
+                        If Not addedHandler Then
+                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                            addedHandler = True
+                        End If
+                    End SyncLock
+                End If
+#End If
+                Return defaultInstance
+            End Get
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\edkb01db2.exe.conf"& _ 
+            "ig")>  _
+        Public Property ConfigFile() As String
+            Get
+                Return CType(Me("ConfigFile"),String)
+            End Get
+            Set
+                Me("ConfigFile") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("setting")>  _
+        Public Property Tablename() As String
+            Get
+                Return CType(Me("Tablename"),String)
+            End Get
+            Set
+                Me("Tablename") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("DB2Connection")>  _
+        Public Property Name() As String
+            Get
+                Return CType(Me("Name"),String)
+            End Get
+            Set
+                Me("Name") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Select * from odadm.thostindex")>  _
+        Public Property SQL1() As String
+            Get
+                Return CType(Me("SQL1"),String)
+            End Get
+            Set
+                Me("SQL1") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Select * from odadm.tblindex")>  _
+        Public Property SQL2() As String
+            Get
+                Return CType(Me("SQL2"),String)
+            End Get
+            Set
+                Me("SQL2") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Select * from odadm.tzvindex")>  _
+        Public Property SQL3() As String
+            Get
+                Return CType(Me("SQL3"),String)
+            End Get
+            Set
+                Me("SQL3") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Select nothing")>  _
+        Public Property SQL4() As String
+            Get
+                Return CType(Me("SQL4"),String)
+            End Get
+            Set
+                Me("SQL4") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=shu00;Initial Catalog=edoka_host;Persist Security Info=True;User ID=s"& _ 
+            "a;Password=*shu29")>  _
+        Public Property HostConnection() As String
+            Get
+                Return CType(Me("HostConnection"),String)
+            End Get
+            Set
+                Me("HostConnection") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("select dokumentid, pk from edoka_host.dbo.host_dokument_import where DokumentID='"& _ 
+            "&MailingID&'")>  _
+        Public Property SQL_HOST_Check_Dokumentid() As String
+            Get
+                Return CType(Me("SQL_HOST_Check_Dokumentid"),String)
+            End Get
+            Set
+                Me("SQL_HOST_Check_Dokumentid") = value
+            End Set
+        End Property
+
+        <Global.System.Configuration.UserScopedSettingAttribute(), _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.Configuration.DefaultSettingValueAttribute("Select top 1 * from edoka_host.dbo.host_dokument_import where pk=-1")> _
+        Public Property SQL_Empty_HOST() As String
+            Get
+                Return CType(Me("SQL_Empty_HOST"), String)
+            End Get
+            Set(value As String)
+                Me("SQL_Empty_HOST") = value
+            End Set
+        End Property
+    End Class
+End Namespace
+
+Namespace My
+    
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
+    Friend Module MySettingsProperty
+        
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
+        Friend ReadOnly Property Settings() As Global._DB2_Test.My.MySettings
+            Get
+                Return Global._DB2_Test.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

EDKB01DB2/Testprogramm/WindowsApplication1/My Project/Settings.settings

@@ -0,0 +1,36 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
+  <Profiles />
+  <Settings>
+    <Setting Name="ConfigFile" Type="System.String" Scope="User">
+      <Value Profile="(Default)">E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\edkb01db2.exe.config</Value>
+    </Setting>
+    <Setting Name="Tablename" Type="System.String" Scope="User">
+      <Value Profile="(Default)">setting</Value>
+    </Setting>
+    <Setting Name="Name" Type="System.String" Scope="User">
+      <Value Profile="(Default)">DB2Connection</Value>
+    </Setting>
+    <Setting Name="SQL1" Type="System.String" Scope="User">
+      <Value Profile="(Default)">Select * from odadm.thostindex</Value>
+    </Setting>
+    <Setting Name="SQL2" Type="System.String" Scope="User">
+      <Value Profile="(Default)">Select * from odadm.tblindex</Value>
+    </Setting>
+    <Setting Name="SQL3" Type="System.String" Scope="User">
+      <Value Profile="(Default)">Select * from odadm.tzvindex</Value>
+    </Setting>
+    <Setting Name="SQL4" Type="System.String" Scope="User">
+      <Value Profile="(Default)">Select nothing</Value>
+    </Setting>
+    <Setting Name="HostConnection" Type="System.String" Scope="User">
+      <Value Profile="(Default)">Data Source=shu00;Initial Catalog=edoka_host;Persist Security Info=True;User ID=sa;Password=*shu29</Value>
+    </Setting>
+    <Setting Name="SQL_HOST_Check_Dokumentid" Type="System.String" Scope="User">
+      <Value Profile="(Default)">select dokumentid, pk from edoka_host.dbo.host_dokument_import where DokumentID='&amp;MailingID&amp;'</Value>
+    </Setting>
+    <Setting Name="SQL_Empty_HOST" Type="System.String" Scope="User">
+      <Value Profile="(Default)">Select top 1 * from edoka_host.dbo.host_dokument_import where pk=-1</Value>
+    </Setting>
+  </Settings>
+</SettingsFile>

EDKB01DB2/Testprogramm/WindowsApplication1/WindowsApplication1.vbproj

@@ -0,0 +1,131 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProjectGuid>{BBFDDA82-5ABF-4F79-85FF-E3DED1DC443A}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <StartupObject>_DB2_Test.My.MyApplication</StartupObject>
+    <RootNamespace>_DB2_Test</RootNamespace>
+    <AssemblyName>_DB2_Test</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>WindowsForms</MyType>
+    <TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
+    <TargetFrameworkProfile />
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>_DB2_Test.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>_DB2_Test.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionExplicit>On</OptionExplicit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionCompare>Binary</OptionCompare>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionStrict>Off</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="IBM.Data.DB2, Version=9.0.0.2, Culture=neutral, PublicKeyToken=7c307b91aa13d208, processorArchitecture=x86">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>G:\Installer\DB2\netf20\IBM.Data.DB2.dll</HintPath>
+    </Reference>
+    <Reference Include="System" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Data" />
+    <Import Include="System.Drawing" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Windows.Forms" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="Form1.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Form1.Designer.vb">
+      <DependentUpon>Form1.vb</DependentUpon>
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="Form1.resx">
+      <DependentUpon>Form1.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="app.config" />
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
+       Other similar extension points exist, see Microsoft.Common.targets.
+  <Target Name="BeforeBuild">
+  </Target>
+  <Target Name="AfterBuild">
+  </Target>
+  -->
+</Project>

EDKB01DB2/Testprogramm/WindowsApplication1/app.config

@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+    <configSections>
+        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
+            <section name="_DB2_Test.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+        </sectionGroup>
+    </configSections>
+    <system.diagnostics>
+        <sources>
+            <!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
+            <source name="DefaultSource" switchName="DefaultSwitch">
+                <listeners>
+                    <add name="FileLog"/>
+                    <!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
+                    <!--<add name="EventLog"/>-->
+                </listeners>
+            </source>
+        </sources>
+        <switches>
+            <add name="DefaultSwitch" value="Information"/>
+        </switches>
+        <sharedListeners>
+            <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
+            <!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
+            <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
+        </sharedListeners>
+    </system.diagnostics>
+<startup><supportedRuntime version="v2.0.50727"/></startup>
+    <userSettings>
+      <_DB2_Test.My.MySettings>
+        <setting name="ConfigFile" serializeAs="String">
+          <value>E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\edkb01db2.exe.config</value>
+        </setting>
+        <setting name="Tablename" serializeAs="String">
+          <value>setting</value>
+        </setting>
+        <setting name="Name" serializeAs="String">
+          <value>DB2Connection</value>
+        </setting>
+        <setting name="SQL1" serializeAs="String">
+          <value>Select * from odadm.thostindex</value>
+        </setting>
+        <setting name="SQL2" serializeAs="String">
+          <value>Select * from odadm.tblindex</value>
+        </setting>
+        <setting name="SQL3" serializeAs="String">
+          <value>Select * from odadm.tzvindex</value>
+        </setting>
+        <setting name="SQL4" serializeAs="String">
+          <value>Select nothing</value>
+        </setting>
+        <setting name="HostConnection" serializeAs="String">
+          <value>Data Source=shu00;Initial Catalog=edoka_host;Persist Security Info=True;User ID=sa;Password=*shu29</value>
+        </setting>
+        <setting name="SQL_HOST_Check_Dokumentid" serializeAs="String">
+          <value>select dokumentid, pk from edoka_host.dbo.host_dokument_import where DokumentID='&amp;MailingID&amp;'</value>
+        </setting>
+        <setting name="SQL_Empty_HOST" serializeAs="String">
+          <value>Select top 1 * from edoka_host.dbo.host_dokument_import where pk=-1</value>
+        </setting>
+      </_DB2_Test.My.MySettings>
+    </userSettings>
+</configuration>

EDKB01DB2/Testprogramm/WindowsApplication1/bin/Debug/WindowsApplication1.vshost.exe.config

@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+    <configSections>
+        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
+            <section name="_DB2_Test.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+        </sectionGroup>
+    </configSections>
+    <system.diagnostics>
+        <sources>
+            <!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
+            <source name="DefaultSource" switchName="DefaultSwitch">
+                <listeners>
+                    <add name="FileLog"/>
+                    <!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
+                    <!--<add name="EventLog"/>-->
+                </listeners>
+            </source>
+        </sources>
+        <switches>
+            <add name="DefaultSwitch" value="Information"/>
+        </switches>
+        <sharedListeners>
+            <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
+            <!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
+            <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
+        </sharedListeners>
+    </system.diagnostics>
+<startup><supportedRuntime version="v2.0.50727"/></startup>
+    <userSettings>
+        <_DB2_Test.My.MySettings>
+            <setting name="ConfigFile" serializeAs="String">
+                <value>E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\edkb01db2.exe.config</value>
+            </setting>
+            <setting name="Tablename" serializeAs="String">
+                <value>setting</value>
+            </setting>
+            <setting name="Name" serializeAs="String">
+                <value>DB2Connection</value>
+            </setting>
+            <setting name="SQL1" serializeAs="String">
+                <value>Select * from odadm.thostindex</value>
+            </setting>
+            <setting name="SQL2" serializeAs="String">
+                <value>Select * from odadm.tblindex</value>
+            </setting>
+            <setting name="SQL3" serializeAs="String">
+                <value>Select * from odadm.tzvindex</value>
+            </setting>
+            <setting name="SQL4" serializeAs="String">
+                <value>Select nothing</value>
+            </setting>
+        </_DB2_Test.My.MySettings>
+    </userSettings>
+</configuration>

EDKB01DB2/Testprogramm/WindowsApplication1/bin/Debug/WindowsApplication1.vshost.exe.manifest

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+  <assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
+  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+    <security>
+      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
+        <requestedExecutionLevel level="asInvoker" uiAccess="false"/>
+      </requestedPrivileges>
+    </security>
+  </trustInfo>
+</assembly>

EDKB01DB2/Testprogramm/WindowsApplication1/bin/Debug/_DB2_Test.exe.config

@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+    <configSections>
+        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
+            <section name="_DB2_Test.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+        </sectionGroup>
+    </configSections>
+    <system.diagnostics>
+        <sources>
+            <!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
+            <source name="DefaultSource" switchName="DefaultSwitch">
+                <listeners>
+                    <add name="FileLog"/>
+                    <!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
+                    <!--<add name="EventLog"/>-->
+                </listeners>
+            </source>
+        </sources>
+        <switches>
+            <add name="DefaultSwitch" value="Information"/>
+        </switches>
+        <sharedListeners>
+            <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
+            <!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
+            <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
+        </sharedListeners>
+    </system.diagnostics>
+<startup><supportedRuntime version="v2.0.50727"/></startup>
+    <userSettings>
+      <_DB2_Test.My.MySettings>
+        <setting name="ConfigFile" serializeAs="String">
+          <value>E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\edkb01db2.exe.config</value>
+        </setting>
+        <setting name="Tablename" serializeAs="String">
+          <value>setting</value>
+        </setting>
+        <setting name="Name" serializeAs="String">
+          <value>DB2Connection</value>
+        </setting>
+        <setting name="SQL1" serializeAs="String">
+          <value>Select * from odadm.thostindex</value>
+        </setting>
+        <setting name="SQL2" serializeAs="String">
+          <value>Select * from odadm.tblindex</value>
+        </setting>
+        <setting name="SQL3" serializeAs="String">
+          <value>Select * from odadm.tzvindex</value>
+        </setting>
+        <setting name="SQL4" serializeAs="String">
+          <value>Select nothing</value>
+        </setting>
+        <setting name="HostConnection" serializeAs="String">
+          <value>Data Source=shu00;Initial Catalog=edoka_host;Persist Security Info=True;User ID=sa;Password=*shu29</value>
+        </setting>
+        <setting name="SQL_HOST_Check_Dokumentid" serializeAs="String">
+          <value>select dokumentid, pk from edoka_host.dbo.host_dokument_import where DokumentID='&amp;MailingID&amp;'</value>
+        </setting>
+        <setting name="SQL_Empty_HOST" serializeAs="String">
+          <value>Select top 1 * from edoka_host.dbo.host_dokument_import where pk=-1</value>
+        </setting>
+      </_DB2_Test.My.MySettings>
+    </userSettings>
+</configuration>

EDKB01DB2/Testprogramm/WindowsApplication1/bin/Debug/_DB2_Test.vshost.exe.config

@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+    <configSections>
+        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
+            <section name="_DB2_Test.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+        </sectionGroup>
+    </configSections>
+    <system.diagnostics>
+        <sources>
+            <!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
+            <source name="DefaultSource" switchName="DefaultSwitch">
+                <listeners>
+                    <add name="FileLog"/>
+                    <!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
+                    <!--<add name="EventLog"/>-->
+                </listeners>
+            </source>
+        </sources>
+        <switches>
+            <add name="DefaultSwitch" value="Information"/>
+        </switches>
+        <sharedListeners>
+            <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
+            <!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
+            <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
+        </sharedListeners>
+    </system.diagnostics>
+<startup><supportedRuntime version="v2.0.50727"/></startup>
+    <userSettings>
+      <_DB2_Test.My.MySettings>
+        <setting name="ConfigFile" serializeAs="String">
+          <value>E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\edkb01db2.exe.config</value>
+        </setting>
+        <setting name="Tablename" serializeAs="String">
+          <value>setting</value>
+        </setting>
+        <setting name="Name" serializeAs="String">
+          <value>DB2Connection</value>
+        </setting>
+        <setting name="SQL1" serializeAs="String">
+          <value>Select * from odadm.thostindex</value>
+        </setting>
+        <setting name="SQL2" serializeAs="String">
+          <value>Select * from odadm.tblindex</value>
+        </setting>
+        <setting name="SQL3" serializeAs="String">
+          <value>Select * from odadm.tzvindex</value>
+        </setting>
+        <setting name="SQL4" serializeAs="String">
+          <value>Select nothing</value>
+        </setting>
+        <setting name="HostConnection" serializeAs="String">
+          <value>Data Source=shu00;Initial Catalog=edoka_host;Persist Security Info=True;User ID=sa;Password=*shu29</value>
+        </setting>
+        <setting name="SQL_HOST_Check_Dokumentid" serializeAs="String">
+          <value>select dokumentid, pk from edoka_host.dbo.host_dokument_import where DokumentID='&amp;MailingID&amp;'</value>
+        </setting>
+        <setting name="SQL_Empty_HOST" serializeAs="String">
+          <value>Select top 1 * from edoka_host.dbo.host_dokument_import where pk=-1</value>
+        </setting>
+      </_DB2_Test.My.MySettings>
+    </userSettings>
+</configuration>

EDKB01DB2/Testprogramm/WindowsApplication1/bin/Debug/_DB2_Test.vshost.exe.manifest

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+  <assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
+  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+    <security>
+      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
+        <requestedExecutionLevel level="asInvoker" uiAccess="false"/>
+      </requestedPrivileges>
+    </security>
+  </trustInfo>
+</assembly>

EDKB01DB2/Testprogramm/WindowsApplication1/bin/Debug/_DB2_Test.xml

@@ -0,0 +1,24 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+_DB2_Test
+</name>
+</assembly>
+<members>
+<member name="P:_DB2_Test.My.Resources.Resources.ResourceManager">
+	<summary>
+  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+</summary>
+</member><member name="P:_DB2_Test.My.Resources.Resources.Culture">
+	<summary>
+  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+</summary>
+</member><member name="T:_DB2_Test.My.Resources.Resources">
+	<summary>
+  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+</summary>
+</member>
+</members>
+</doc>

EDKB01DB2/Testprogramm/WindowsApplication1/bin/Release/_DB2_Test.exe.config

@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+    <configSections>
+        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
+            <section name="_DB2_Test.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+        </sectionGroup>
+    </configSections>
+    <system.diagnostics>
+        <sources>
+            <!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
+            <source name="DefaultSource" switchName="DefaultSwitch">
+                <listeners>
+                    <add name="FileLog"/>
+                    <!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
+                    <!--<add name="EventLog"/>-->
+                </listeners>
+            </source>
+        </sources>
+        <switches>
+            <add name="DefaultSwitch" value="Information"/>
+        </switches>
+        <sharedListeners>
+            <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
+            <!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
+            <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
+        </sharedListeners>
+    </system.diagnostics>
+<startup><supportedRuntime version="v2.0.50727"/></startup>
+    <userSettings>
+      <_DB2_Test.My.MySettings>
+        <setting name="ConfigFile" serializeAs="String">
+          <value>E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\edkb01db2.exe.config</value>
+        </setting>
+        <setting name="Tablename" serializeAs="String">
+          <value>setting</value>
+        </setting>
+        <setting name="Name" serializeAs="String">
+          <value>DB2Connection</value>
+        </setting>
+        <setting name="SQL1" serializeAs="String">
+          <value>Select * from odadm.thostindex</value>
+        </setting>
+        <setting name="SQL2" serializeAs="String">
+          <value>Select * from odadm.tblindex</value>
+        </setting>
+        <setting name="SQL3" serializeAs="String">
+          <value>Select * from odadm.tzvindex</value>
+        </setting>
+        <setting name="SQL4" serializeAs="String">
+          <value>Select nothing</value>
+        </setting>
+        <setting name="HostConnection" serializeAs="String">
+          <value>Data Source=shu00;Initial Catalog=edoka_host;Persist Security Info=True;User ID=sa;Password=*shu29</value>
+        </setting>
+        <setting name="SQL_HOST_Check_Dokumentid" serializeAs="String">
+          <value>select dokumentid, pk from edoka_host.dbo.host_dokument_import where DokumentID='&amp;MailingID&amp;'</value>
+        </setting>
+        <setting name="SQL_Empty_HOST" serializeAs="String">
+          <value>Select top 1 * from edoka_host.dbo.host_dokument_import where pk=-1</value>
+        </setting>
+      </_DB2_Test.My.MySettings>
+    </userSettings>
+</configuration>

EDKB01DB2/Testprogramm/WindowsApplication1/bin/Release/_DB2_Test.vshost.exe.config

@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+    <configSections>
+        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
+            <section name="_DB2_Test.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+        </sectionGroup>
+    </configSections>
+    <system.diagnostics>
+        <sources>
+            <!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
+            <source name="DefaultSource" switchName="DefaultSwitch">
+                <listeners>
+                    <add name="FileLog"/>
+                    <!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
+                    <!--<add name="EventLog"/>-->
+                </listeners>
+            </source>
+        </sources>
+        <switches>
+            <add name="DefaultSwitch" value="Information"/>
+        </switches>
+        <sharedListeners>
+            <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
+            <!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
+            <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
+        </sharedListeners>
+    </system.diagnostics>
+<startup><supportedRuntime version="v2.0.50727"/></startup>
+    <userSettings>
+      <_DB2_Test.My.MySettings>
+        <setting name="ConfigFile" serializeAs="String">
+          <value>E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\edkb01db2.exe.config</value>
+        </setting>
+        <setting name="Tablename" serializeAs="String">
+          <value>setting</value>
+        </setting>
+        <setting name="Name" serializeAs="String">
+          <value>DB2Connection</value>
+        </setting>
+        <setting name="SQL1" serializeAs="String">
+          <value>Select * from odadm.thostindex</value>
+        </setting>
+        <setting name="SQL2" serializeAs="String">
+          <value>Select * from odadm.tblindex</value>
+        </setting>
+        <setting name="SQL3" serializeAs="String">
+          <value>Select * from odadm.tzvindex</value>
+        </setting>
+        <setting name="SQL4" serializeAs="String">
+          <value>Select nothing</value>
+        </setting>
+        <setting name="HostConnection" serializeAs="String">
+          <value>Data Source=shu00;Initial Catalog=edoka_host;Persist Security Info=True;User ID=sa;Password=*shu29</value>
+        </setting>
+        <setting name="SQL_HOST_Check_Dokumentid" serializeAs="String">
+          <value>select dokumentid, pk from edoka_host.dbo.host_dokument_import where DokumentID='&amp;MailingID&amp;'</value>
+        </setting>
+        <setting name="SQL_Empty_HOST" serializeAs="String">
+          <value>Select top 1 * from edoka_host.dbo.host_dokument_import where pk=-1</value>
+        </setting>
+      </_DB2_Test.My.MySettings>
+    </userSettings>
+</configuration>

EDKB01DB2/Testprogramm/WindowsApplication1/bin/Release/_DB2_Test.vshost.exe.manifest

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+  <assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
+  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+    <security>
+      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
+        <requestedExecutionLevel level="asInvoker" uiAccess="false"/>
+      </requestedPrivileges>
+    </security>
+  </trustInfo>
+</assembly>

EDKB01DB2/Testprogramm/WindowsApplication1/bin/Release/_DB2_Test.xml

@@ -0,0 +1,24 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+_DB2_Test
+</name>
+</assembly>
+<members>
+<member name="P:_DB2_Test.My.Resources.Resources.ResourceManager">
+	<summary>
+  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+</summary>
+</member><member name="P:_DB2_Test.My.Resources.Resources.Culture">
+	<summary>
+  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+</summary>
+</member><member name="T:_DB2_Test.My.Resources.Resources">
+	<summary>
+  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+</summary>
+</member>
+</members>
+</doc>

EDKB01DB2/Testprogramm/WindowsApplication1/obj/Debug/WindowsApplication1.vbproj.FileListAbsolute.txt

@@ -0,0 +1,23 @@
+E:\Software-Projekte\_Demos\DB2\DB2Test\Test1\WindowsApplication1\bin\Debug\WindowsApplication1.exe
+E:\Software-Projekte\_Demos\DB2\DB2Test\Test1\WindowsApplication1\bin\Debug\WindowsApplication1.pdb
+E:\Software-Projekte\_Demos\DB2\DB2Test\Test1\WindowsApplication1\bin\Debug\WindowsApplication1.xml
+E:\Software-Projekte\_Demos\DB2\DB2Test\Test1\WindowsApplication1\obj\Debug\WindowsApplication1.Form1.resources
+E:\Software-Projekte\_Demos\DB2\DB2Test\Test1\WindowsApplication1\obj\Debug\WindowsApplication1.Resources.resources
+E:\Software-Projekte\_Demos\DB2\DB2Test\Test1\WindowsApplication1\obj\Debug\WindowsApplication1.vbproj.GenerateResource.Cache
+E:\Software-Projekte\_Demos\DB2\DB2Test\Test1\WindowsApplication1\obj\Debug\WindowsApplication1.exe
+E:\Software-Projekte\_Demos\DB2\DB2Test\Test1\WindowsApplication1\obj\Debug\WindowsApplication1.xml
+E:\Software-Projekte\_Demos\DB2\DB2Test\Test1\WindowsApplication1\obj\Debug\WindowsApplication1.pdb
+E:\Software-Projekte\_Demos\DB2\DB2Test\Test1\WindowsApplication1\bin\Debug\IBM.Data.DB2.dll
+E:\Software-Projekte\_Demos\DB2\DB2Test\Test1\WindowsApplication1\bin\Debug\WindowsApplication1.exe.config
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\bin\Debug\IBM.Data.DB2.dll
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\obj\Debug\WindowsApplication1.vbprojResolveAssemblyReference.cache
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\obj\Debug\WindowsApplication1.vbproj.GenerateResource.Cache
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\obj\Debug\_DB2_Test.Form1.resources
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\obj\Debug\_DB2_Test.Resources.resources
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\bin\Debug\_DB2_Test.exe.config
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\bin\Debug\_DB2_Test.exe
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\bin\Debug\_DB2_Test.pdb
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\bin\Debug\_DB2_Test.xml
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\obj\Debug\_DB2_Test.exe
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\obj\Debug\_DB2_Test.xml
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\obj\Debug\_DB2_Test.pdb

EDKB01DB2/Testprogramm/WindowsApplication1/obj/Debug/_DB2_Test.xml

@@ -0,0 +1,24 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+_DB2_Test
+</name>
+</assembly>
+<members>
+<member name="P:_DB2_Test.My.Resources.Resources.ResourceManager">
+	<summary>
+  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+</summary>
+</member><member name="P:_DB2_Test.My.Resources.Resources.Culture">
+	<summary>
+  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+</summary>
+</member><member name="T:_DB2_Test.My.Resources.Resources">
+	<summary>
+  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+</summary>
+</member>
+</members>
+</doc>

EDKB01DB2/Testprogramm/WindowsApplication1/obj/Release/WindowsApplication1.vbproj.FileListAbsolute.txt

@@ -0,0 +1,12 @@
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\bin\Release\_DB2_Test.exe.config
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\bin\Release\_DB2_Test.exe
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\bin\Release\_DB2_Test.pdb
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\bin\Release\_DB2_Test.xml
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\bin\Release\IBM.Data.DB2.dll
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\obj\Release\_DB2_Test.Form1.resources
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\obj\Release\_DB2_Test.Resources.resources
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\obj\Release\WindowsApplication1.vbproj.GenerateResource.Cache
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\obj\Release\_DB2_Test.exe
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\obj\Release\_DB2_Test.xml
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\obj\Release\_DB2_Test.pdb
+E:\Software-Projekte\EDOKA\batch\EDKB01DB2\Testprogramm\WindowsApplication1\obj\Release\WindowsApplication1.vbprojResolveAssemblyReference.cache

EDKB01DB2/Testprogramm/WindowsApplication1/obj/Release/_DB2_Test.xml

@@ -0,0 +1,24 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+_DB2_Test
+</name>
+</assembly>
+<members>
+<member name="P:_DB2_Test.My.Resources.Resources.ResourceManager">
+	<summary>
+  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+</summary>
+</member><member name="P:_DB2_Test.My.Resources.Resources.Culture">
+	<summary>
+  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+</summary>
+</member><member name="T:_DB2_Test.My.Resources.Resources">
+	<summary>
+  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+</summary>
+</member>
+</members>
+</doc>