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
Download Patch File Download Diff File Expand all files Collapse all files

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()