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

MS

Browse Source
This commit is contained in:
SchreiberM 2021-07-28 11:47:36 +02:00
parent 3feb7ebf4d
commit 54d57761ea
4 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD-Record-Organizer/App.config
View File

@ -12,7 +12,7 @@
<add name="DD_Record_Organizer.My.MySettings.DD_DMSConnectionString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=ddd" providerName="System.Data.SqlClient"/>
</connectionStrings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2"/>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1"/>
</startup>
<userSettings>
<DD_Record_Organizer.My.MySettings>

13
app/DD-Record-Organizer/ClassDatabase.vb
View File

@ -77,7 +77,7 @@ Public Class ClassDatabase
Else
SQLconnect.ConnectionString = connectionString
End If
LOGGER.Debug("Return_Datatable-Return_Datatable_CS: '" & Select_anweisung & "'")
If USE_PROXY = False Then
Console.WriteLine(Select_anweisung)
End If
@ -123,6 +123,7 @@ Public Class ClassDatabase
SQLconnect.ConnectionString = connectionString
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
LOGGER.Debug("MSSQL_ReturnDTWithConnection-Return_Datatable_CS: '" & sql & "'")
SQLcommand.CommandText = sql
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
@ -151,7 +152,7 @@ Public Class ClassDatabase
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung
LOGGER.Debug("Return_Datatable_Connection-Return_Datatable_CS: '" & Select_anweisung & "'")
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable()
adapter1.Fill(dt)
@ -183,7 +184,7 @@ Public Class ClassDatabase
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung
LOGGER.Debug("Return_Datatable_Connection-Command: '" & Select_anweisung & "'")
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable()
adapter1.Fill(dt)
@ -217,6 +218,7 @@ Public Class ClassDatabase
End If
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
LOGGER.Debug("Execute_non_Query-Command: '" & ExecuteCMD & "'")
'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD
SQLcommand.CommandTimeout = 120
@ -252,6 +254,7 @@ Public Class ClassDatabase
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD
LOGGER.Debug("Execute_non_Query_withConn-Command: '" & ExecuteCMD & "'")
SQLcommand.CommandTimeout = 120
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
@ -283,6 +286,7 @@ Public Class ClassDatabase
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD
LOGGER.Debug("Execute_non_Query_withConnString-Command: '" & ExecuteCMD & "'")
SQLcommand.CommandTimeout = 120
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
@ -312,7 +316,7 @@ Public Class ClassDatabase
'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD
SQLcommand.CommandTimeout = 120
LOGGER.Debug("Execute_non_Query_Async-Command: '" & ExecuteCMD & "'")
SQLcommand.BeginExecuteNonQuery(callback, SQLcommand)
Catch ex As Exception
If Userinput = True Then
@ -353,6 +357,7 @@ Public Class ClassDatabase
'Update Last Created Record in Foo
SQLcommand.CommandText = cmdscalar
SQLcommand.CommandTimeout = 120
LOGGER.Debug("Execute_Scalar-Command: '" & cmdscalar & "'")
result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose()
SQLconnect.Close()

2
app/DD-Record-Organizer/DD-Record-Organizer.vbproj
View File

@ -11,7 +11,7 @@
<AssemblyName>DD-Record-Organizer</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<IsWebBootstrapper>false</IsWebBootstrapper>
<PublishUrl>publish\</PublishUrl>

2
app/DD-Record-Organizer/My Project/Settings.Designer.vb generated
View File

@ -15,7 +15,7 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.8.1.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.10.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase