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

ms

Browse Source
This commit is contained in:
SchreiberM 2017-01-25 10:19:44 +01:00
parent 44ef127125
commit 399ef6d985
10 changed files with 322 additions and 323 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
DD_PROXY_SYNC/App.config
View File

@ -5,10 +5,7 @@
<section name="DD_PROXY_SYNC.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
</sectionGroup>
</configSections>
<connectionStrings>
<add name="DD_PROXY_SYNC.My.MySettings.MyConnectionString" connectionString="Data Source=SDD-VMX04-DB01\TESTS;Persist Security Info=True;User ID=sa;Password=dd"
providerName="System.Data.SqlClient" />
</connectionStrings>
<connectionStrings />
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.1" />
</startup>
@ -17,6 +14,9 @@
<setting name="LOG_ERRORS_ONLY" serializeAs="String">
<value>False</value>
</setting>
<setting name="MyConnectionString" serializeAs="String">
<value>Server=172.24.12.41\tests;Database=DD_ECM_RENOLIT;User Id=sa;Password=dd;</value>
</setting>
</DD_PROXY_SYNC.My.MySettings>
</applicationSettings>
</configuration>

4
DD_PROXY_SYNC/My Project/Settings.Designer.vb generated
View File

@ -65,9 +65,7 @@ Namespace My
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMX04-DB01\TESTS;Persist Security Info=True;User ID=sa;Password=d"& _
"d")> _
Global.System.Configuration.DefaultSettingValueAttribute("Server=172.24.12.41\tests;Database=DD_ECM_RENOLIT;User Id=sa;Password=dd;")> _
Public ReadOnly Property MyConnectionString() As String
Get
Return CType(Me("MyConnectionString"),String)

9
DD_PROXY_SYNC/My Project/Settings.settings
View File

@ -5,13 +5,8 @@
<Setting Name="LOG_ERRORS_ONLY" Type="System.Boolean" Scope="Application">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="MyConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=SDD-VMX04-DB01\TESTS;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
&lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=SDD-VMX04-DB01\TESTS;Persist Security Info=True;User ID=sa;Password=dd</Value>
<Setting Name="MyConnectionString" Type="System.String" Scope="Application">
<Value Profile="(Default)">Server=172.24.12.41\tests;Database=DD_ECM_RENOLIT;User Id=sa;Password=dd;</Value>
</Setting>
</Settings>
</SettingsFile>

10
DD_PROXY_SYNC/Service1.vb
View File

@ -70,8 +70,16 @@ Public Class DD_PROXY_SERV
If DT_PROCEDURES.Rows.Count > 0 Then
'Wenn Zeilen enthalten.....
For Each syncRow As DataRow In DT_PROCEDURES.Rows
Dim GUID = syncRow.Item("GUID")
clsLogger.AddDetailLog(">> Executing Procedure: " & syncRow.Item("PROC_NAME").ToString & " ...")
EXECUTE_ROCEDURE(syncRow.Item("PROC_NAME").ToString)
clsLogger.WriteLog()
Dim upd = "UPDATE TBPROXY_SYNC_PROCEDURES SET SYNCHRONIZED_WHEN = NULL WHERE GUID = " & GUID
clsDatabase.Execute_non_Query(upd)
If EXECUTE_ROCEDURE(syncRow.Item("PROC_NAME").ToString) = True Then
upd = "UPDATE TBPROXY_SYNC_PROCEDURES SET SYNCHRONIZED_WHEN = GETDATE() WHERE GUID = " & GUID
clsDatabase.Execute_non_Query(upd)
End If
clsLogger.WriteLog()
Next
End If
Else

8
DD_PROXY_SYNC/bin/Debug/DD_PROXY_SYNC.exe.config
View File

@ -5,10 +5,7 @@
<section name="DD_PROXY_SYNC.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
</sectionGroup>
</configSections>
<connectionStrings>
<add name="DD_PROXY_SYNC.My.MySettings.MyConnectionString" connectionString="Data Source=SDD-VMX04-DB01\TESTS;Persist Security Info=True;User ID=sa;Password=dd"
providerName="System.Data.SqlClient" />
</connectionStrings>
<connectionStrings />
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.1" />
</startup>
@ -17,6 +14,9 @@
<setting name="LOG_ERRORS_ONLY" serializeAs="String">
<value>False</value>
</setting>
<setting name="MyConnectionString" serializeAs="String">
<value>Server=172.24.12.41\tests;Database=DD_ECM_RENOLIT;User Id=sa;Password=dd;</value>
</setting>
</DD_PROXY_SYNC.My.MySettings>
</applicationSettings>
</configuration>

8
DD_PROXY_SYNC/bin/Debug/DD_PROXY_SYNC.vshost.exe.config
View File

@ -5,10 +5,7 @@
<section name="DD_PROXY_SYNC.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
</sectionGroup>
</configSections>
<connectionStrings>
<add name="DD_PROXY_SYNC.My.MySettings.MyConnectionString" connectionString="Data Source=SDD-VMX04-DB01\TESTS;Persist Security Info=True;User ID=sa;Password=dd"
providerName="System.Data.SqlClient" />
</connectionStrings>
<connectionStrings />
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.1" />
</startup>
@ -17,6 +14,9 @@
<setting name="LOG_ERRORS_ONLY" serializeAs="String">
<value>False</value>
</setting>
<setting name="MyConnectionString" serializeAs="String">
<value>Server=172.24.12.41\tests;Database=DD_ECM_RENOLIT;User Id=sa;Password=dd;</value>
</setting>
</DD_PROXY_SYNC.My.MySettings>
</applicationSettings>
</configuration>

1
DD_PROXY_SYNC/clsDatabase.vb
View File

@ -24,6 +24,7 @@
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung
SQLcommand.CommandTimeout = 180
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable()

5
DD_PROXY_SYNC/obj/Debug/DD_PROXY_SYNC.vbproj.FileListAbsolute.txt
View File

@ -9,8 +9,5 @@ E:\SchreiberM\Visual Studio\GIT\DD_PROXY_SYNC\DD_PROXY_SYNC\obj\Debug\DD_PROXY_S
E:\SchreiberM\Visual Studio\GIT\DD_PROXY_SYNC\DD_PROXY_SYNC\obj\Debug\DD_PROXY_SYNC.exe
E:\SchreiberM\Visual Studio\GIT\DD_PROXY_SYNC\DD_PROXY_SYNC\obj\Debug\DD_PROXY_SYNC.xml
E:\SchreiberM\Visual Studio\GIT\DD_PROXY_SYNC\DD_PROXY_SYNC\obj\Debug\DD_PROXY_SYNC.pdb
E:\SchreiberM\Visual Studio\GIT\DDProxySync\DD_PROXY_SYNC\bin\Debug\DD_PROXY_SYNC.exe.config
E:\SchreiberM\Visual Studio\GIT\DDProxySync\DD_PROXY_SYNC\obj\Debug\DD_PROXY_SYNC.exe
E:\SchreiberM\Visual Studio\GIT\DDProxySync\DD_PROXY_SYNC\obj\Debug\DD_PROXY_SYNC.xml
E:\SchreiberM\Visual Studio\GIT\DDProxySync\DD_PROXY_SYNC\obj\Debug\DD_PROXY_SYNC.pdb
E:\JenneJ\Visual Studio\Git\DDProxySync\DD_PROXY_SYNC\bin\Debug\DD_PROXY_SYNC.exe.config
E:\SchreiberM\Visual Studio\GIT\DDProxySync\DD_PROXY_SYNC\bin\Debug\DD_PROXY_SYNC.exe.config

BIN
DD_PROXY_SYNC/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
View File

Binary file not shown.

BIN
DD_PROXY_SYNC/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll
View File

Binary file not shown.