AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

DesignerLock

Browse Source
This commit is contained in:
SchreiberM
2020-03-18 10:49:24 +01:00
parent c767b35b12
commit e81183a698
8 changed files with 194 additions and 108 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD_PM_WINDREAM/ClassDatabase.vb
View File

@@ -80,7 +80,7 @@ Public Class ClassDatabase
Public Shared Function Return_Datatable_ConId(SQLCommand As String, ConnID As Integer, Optional userInput As Boolean = False)
Try
Dim oConnString = Get_ConnectionString(ConnID)
LOGGER.Debug("ReturnDatatable: " & SQLCommand)
LOGGER.Debug($"Return_Datatable_ConId [{ConnID}]: " & SQLCommand)
Dim oSQLconnect As New SqlClient.SqlConnection
Dim oSQLcommand As SqlClient.SqlCommand
oSQLconnect.ConnectionString = oConnString
@@ -103,7 +103,7 @@ Public Class ClassDatabase
End Function
Public Shared Function Return_Datatable_ConStr(SQLCommand As String, ConNStr As String, Optional userInput As Boolean = False)
Try
LOGGER.Debug("ReturnDatatable: " & SQLCommand)
LOGGER.Debug("Return_Datatable_ConStr: " & SQLCommand)
Dim oSQLconnect As New SqlClient.SqlConnection
Dim oSQLcommand As SqlClient.SqlCommand
oSQLconnect.ConnectionString = ConNStr
@@ -133,7 +133,7 @@ Public Class ClassDatabase
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD
LOGGER.Debug("Execute_Command Created: " & ExecuteCMD)
LOGGER.Debug("Execute_non_Query Created: " & ExecuteCMD)
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
SQLconnect.Close()
@@ -159,7 +159,7 @@ Public Class ClassDatabase
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD
LOGGER.Debug("Execute_Command Created: " & ExecuteCMD)
LOGGER.Debug("Execute_non_Query_ConStr Created: " & ExecuteCMD)
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
SQLconnect.Close()
@@ -187,7 +187,7 @@ Public Class ClassDatabase
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = cmdscalar
LOGGER.Debug("Execute_non_Query: " & cmdscalar)
LOGGER.Debug("Execute_Scalar: " & cmdscalar)
result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose()
SQLconnect.Close()
@@ -213,7 +213,7 @@ Public Class ClassDatabase
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = cmdscalar
LOGGER.Debug("Execute Scalar: " & cmdscalar)
LOGGER.Debug("Execute_Scalar_ConStr Scalar: " & cmdscalar)
result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose()
SQLconnect.Close()