edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Anpassung SQL Inst.

Browse Source
This commit is contained in:
ms
2020-06-23 08:30:01 +02:00
parent 9b52ab1b61
commit f02f97c82e
4 changed files with 64 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
SDL.sln
View File

@@ -1,7 +1,7 @@
 
Microsoft Visual Studio Solution File, Format Version 12.00 Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 15 # Visual Studio Version 16
VisualStudioVersion = 15.0.28307.106 VisualStudioVersion = 16.0.29509.3
MinimumVisualStudioVersion = 10.0.40219.1 MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SDL", "SDL\SDL.vbproj", "{289BCD77-BC00-4BA1-95ED-A79176D99525}" Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SDL", "SDL\SDL.vbproj", "{289BCD77-BC00-4BA1-95ED-A79176D99525}"
EndProject EndProject
@@ -17,7 +17,9 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "VER
EndProject EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Gemeinsames", "..\..\AVISO\Aviso\Gemeinsames\Gemeinsames.vbproj", "{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}" Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Gemeinsames", "..\..\AVISO\Aviso\Gemeinsames\Gemeinsames.vbproj", "{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}"
EndProject 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 EndProject
Global Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution 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|Mixed Platforms.Build.0 = Release|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|x86.ActiveCfg = Release|x86 {E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|x86.ActiveCfg = Release|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|x86.Build.0 = 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 EndGlobalSection
GlobalSection(SolutionProperties) = preSolution GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE HideSolutionNode = FALSE

3
SDL/SDL.vbproj
View File

@@ -4005,10 +4005,9 @@
<Name>Gemeinsames</Name> <Name>Gemeinsames</Name>
<EmbedInteropTypes>False</EmbedInteropTypes> <EmbedInteropTypes>False</EmbedInteropTypes>
</ProjectReference> </ProjectReference>
<ProjectReference Include="..\..\..\Parkzeit\Parkzeit\Parkzeit\Parkzeit.vbproj"> <ProjectReference Include="..\..\..\Parkzeit\Parkzeit\Parkzeit.vbproj">
<Project>{e4190547-b222-4ae3-a0be-a44eaee70335}</Project> <Project>{e4190547-b222-4ae3-a0be-a44eaee70335}</Project>
<Name>Parkzeit</Name> <Name>Parkzeit</Name>
<EmbedInteropTypes>False</EmbedInteropTypes>
</ProjectReference> </ProjectReference>
<ProjectReference Include="..\..\RKAesIcm\RKAesIcm.csproj"> <ProjectReference Include="..\..\RKAesIcm\RKAesIcm.csproj">
<Project>{4167823d-7cb2-497d-958b-d579d6492e6b}</Project> <Project>{4167823d-7cb2-497d-958b-d579d6492e6b}</Project>

3
SDL/cSqlDb.vb
View File

@@ -254,7 +254,8 @@ Public Class cOptionenDAL
End Using End Using
dr.Close() dr.Close()
Catch ex As Exception 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 Return False
End Try End Try

88
VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb generated
View File

@@ -75,12 +75,12 @@ Namespace My
Return CType(Me("FMZOLL_PRODConnectionString"),String) Return CType(Me("FMZOLL_PRODConnectionString"),String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ADMIN;Integrated "& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated " &
"Security=false;User ID=sa;Password=BmWr501956;")> _ "Security=false;User ID=sa;Password=BmWr501956;")>
Public ReadOnly Property ADMINConnectionString() As String Public ReadOnly Property ADMINConnectionString() As String
Get Get
Return CType(Me("ADMINConnectionString"),String) Return CType(Me("ADMINConnectionString"),String)
@@ -108,13 +108,13 @@ Namespace My
Return CType(Me("FMZOLLConnectionString"),String) Return CType(Me("FMZOLLConnectionString"),String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=AVISO;Integrated "& _ 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"& _ "Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max P" &
"ool Size=200")> _ "ool Size=200")>
Public ReadOnly Property AVISOConnectionString() As String Public ReadOnly Property AVISOConnectionString() As String
Get Get
Return CType(Me("AVISOConnectionString"),String) Return CType(Me("AVISOConnectionString"),String)
@@ -132,24 +132,24 @@ Namespace My
Return CType(Me("SDLConnectionString"),String) Return CType(Me("SDLConnectionString"),String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ezoll;Integrated "& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ezoll;Integrated " &
"Security=false;User ID=sa;Password=BmWr501956;")> _ "Security=false;User ID=sa;Password=BmWr501956;")>
Public ReadOnly Property EZOLLConnectionString() As String Public ReadOnly Property EZOLLConnectionString() As String
Get Get
Return CType(Me("EZOLLConnectionString"),String) Return CType(Me("EZOLLConnectionString"),String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=AVISO;Integrated "& _ 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"& _ "Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max P" &
"ool Size=200")> _ "ool Size=200")>
Public ReadOnly Property AVISO_ATILLAConnectionString() As String Public ReadOnly Property AVISO_ATILLAConnectionString() As String
Get Get
Return CType(Me("AVISO_ATILLAConnectionString"),String) Return CType(Me("AVISO_ATILLAConnectionString"),String)
@@ -178,12 +178,12 @@ Namespace My
Return CType(Me("ATLAS_SBGConnectionString"),String) Return CType(Me("ATLAS_SBGConnectionString"),String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ 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"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=UID;Integrated Se" &
"curity=false;User ID=sa;Password=BmWr501956;")> _ "curity=false;User ID=sa;Password=BmWr501956;")>
Public ReadOnly Property UID_PRODConnectionString() As String Public ReadOnly Property UID_PRODConnectionString() As String
Get Get
Return CType(Me("UID_PRODConnectionString"),String) Return CType(Me("UID_PRODConnectionString"),String)
@@ -213,12 +213,12 @@ Namespace My
Me("SCANCANON_PRODConnectionString") = value Me("SCANCANON_PRODConnectionString") = value
End Set End Set
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ 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"& _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=FD;Integrated Sec" &
"urity=false;User ID=sa;Password=BmWr501956;")> _ "urity=false;User ID=sa;Password=BmWr501956;")>
Public ReadOnly Property FDConnectionString() As String Public ReadOnly Property FDConnectionString() As String
Get Get
Return CType(Me("FDConnectionString"),String) Return CType(Me("FDConnectionString"),String)
@@ -245,12 +245,12 @@ Namespace My
Return CType(Me("VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService"),String) Return CType(Me("VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService"),String)
End Get End Get
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=DISPO;Integrated "& _ 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"& _ "Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max P" &
"ool Size=200")> _ "ool Size=200")>
Public Property DISPOConnectionString() As String Public Property DISPOConnectionString() As String
Get Get
Return CType(Me("DISPOConnectionString"),String) Return CType(Me("DISPOConnectionString"),String)