Anpassung SQL Inst.

2020-06-23 08:30:01 +02:00
parent 9b52ab1b61
commit f02f97c82e
4 changed files with 64 additions and 50 deletions
--- a/SDL.sln
+++ b/SDL.sln
@@ -1,7 +1,7 @@

 Microsoft Visual Studio Solution File, Format Version 12.00
-# Visual Studio 15
-VisualStudioVersion = 15.0.28307.106
+# Visual Studio Version 16
+VisualStudioVersion = 16.0.29509.3
 MinimumVisualStudioVersion = 10.0.40219.1
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SDL", "SDL\SDL.vbproj", "{289BCD77-BC00-4BA1-95ED-A79176D99525}"
 EndProject
@@ -17,7 +17,9 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "VER
 EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Gemeinsames", "..\..\AVISO\Aviso\Gemeinsames\Gemeinsames.vbproj", "{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}"
 EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Parkzeit", "..\..\Parkzeit\Parkzeit\Parkzeit\Parkzeit.vbproj", "{E4190547-B222-4AE3-A0BE-A44EAEE70335}"
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Parkzeit", "..\..\Parkzeit\Parkzeit\Parkzeit.vbproj", "{E4190547-B222-4AE3-A0BE-A44EAEE70335}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "TELOTEC_Worker_lib", "..\..\ADMIN\ADMIN\TELOTEK_Worker_lib\TELOTEC_Worker_lib.vbproj", "{5B947A66-009A-4BB6-B925-F84A01045095}"
 EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
@@ -109,6 +111,18 @@ Global
 		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|Mixed Platforms.Build.0 = Release|x86
 		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|x86.ActiveCfg = Release|x86
 		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|x86.Build.0 = Release|x86
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x86.Build.0 = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Any CPU.Build.0 = Release|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x86.ActiveCfg = Release|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x86.Build.0 = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE
--- a/SDL/SDL.vbproj
+++ b/SDL/SDL.vbproj
@@ -4005,10 +4005,9 @@
      <Name>Gemeinsames</Name>
      <EmbedInteropTypes>False</EmbedInteropTypes>
    </ProjectReference>
-    <ProjectReference Include="..\..\..\Parkzeit\Parkzeit\Parkzeit\Parkzeit.vbproj">
+    <ProjectReference Include="..\..\..\Parkzeit\Parkzeit\Parkzeit.vbproj">
      <Project>{e4190547-b222-4ae3-a0be-a44eaee70335}</Project>
      <Name>Parkzeit</Name>
-      <EmbedInteropTypes>False</EmbedInteropTypes>
    </ProjectReference>
    <ProjectReference Include="..\..\RKAesIcm\RKAesIcm.csproj">
      <Project>{4167823d-7cb2-497d-958b-d579d6492e6b}</Project>
--- a/SDL/cSqlDb.vb
+++ b/SDL/cSqlDb.vb
@@ -254,7 +254,8 @@ Public Class cOptionenDAL
            End Using
            dr.Close()
        Catch ex As Exception
-            MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung.", "Datenbankfehler")
+            MsgBox(ex.Message)
+            'MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung.", "Datenbankfehler")
            Return False
        End Try

--- a/Project/Settings.Designer.vb
+++ b/Project/Settings.Designer.vb
@@ -76,11 +76,11 @@ Namespace My
            End Get
        End Property

-        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ADMIN;Integrated "& _ 
-            "Security=false;User ID=sa;Password=BmWr501956;")>  _
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated " &
+            "Security=false;User ID=sa;Password=BmWr501956;")>
        Public ReadOnly Property ADMINConnectionString() As String
            Get
                Return CType(Me("ADMINConnectionString"),String)
@@ -109,12 +109,12 @@ Namespace My
            End Get
        End Property

-        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=AVISO;Integrated "& _ 
-            "Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max P"& _ 
-            "ool Size=200")>  _
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated " &
+            "Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max P" &
+            "ool Size=200")>
        Public ReadOnly Property AVISOConnectionString() As String
            Get
                Return CType(Me("AVISOConnectionString"),String)
@@ -133,23 +133,23 @@ Namespace My
            End Get
        End Property

-        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ezoll;Integrated "& _ 
-            "Security=false;User ID=sa;Password=BmWr501956;")>  _
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ezoll;Integrated " &
+            "Security=false;User ID=sa;Password=BmWr501956;")>
        Public ReadOnly Property EZOLLConnectionString() As String
            Get
                Return CType(Me("EZOLLConnectionString"),String)
            End Get
        End Property

-        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=AVISO;Integrated "& _ 
-            "Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max P"& _ 
-            "ool Size=200")>  _
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated " &
+            "Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max P" &
+            "ool Size=200")>
        Public ReadOnly Property AVISO_ATILLAConnectionString() As String
            Get
                Return CType(Me("AVISO_ATILLAConnectionString"),String)
@@ -179,11 +179,11 @@ Namespace My
            End Get
        End Property

-        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=UID;Integrated Se"& _ 
-            "curity=false;User ID=sa;Password=BmWr501956;")>  _
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=UID;Integrated Se" &
+            "curity=false;User ID=sa;Password=BmWr501956;")>
        Public ReadOnly Property UID_PRODConnectionString() As String
            Get
                Return CType(Me("UID_PRODConnectionString"),String)
@@ -214,11 +214,11 @@ Namespace My
            End Set
        End Property

-        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=FD;Integrated Sec"& _ 
-            "urity=false;User ID=sa;Password=BmWr501956;")>  _
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=FD;Integrated Sec" &
+            "urity=false;User ID=sa;Password=BmWr501956;")>
        Public ReadOnly Property FDConnectionString() As String
            Get
                Return CType(Me("FDConnectionString"),String)
@@ -246,11 +246,11 @@ Namespace My
            End Get
        End Property

-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=DISPO;Integrated "& _ 
-            "Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max P"& _ 
-            "ool Size=200")>  _
+        <Global.System.Configuration.UserScopedSettingAttribute(),
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=DISPO;Integrated " &
+            "Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max P" &
+            "ool Size=200")>
        Public Property DISPOConnectionString() As String
            Get
                Return CType(Me("DISPOConnectionString"),String)