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

BugFix und WMFileCreate

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2019-05-24 10:22:47 +02:00
parent 54afd3754f
commit 3338f01501
14 changed files with 683 additions and 969 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
app/DD_PM_WINDREAM/ClassDatabase.vb
View File

@@ -61,12 +61,12 @@ Public Class ClassDatabase
Try
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
LOGGER.Debug(">>> ReturnDatatable: " & Select_anweisung, False)
LOGGER.Debug(">>> ReturnDatatable: " & Select_anweisung)
SQLconnect.ConnectionString = SQLSERVERConnectionString
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung
LOGGER.Debug(">>> Execute ReturnDatatable: " & Select_anweisung, False)
LOGGER.Debug(">>> Execute ReturnDatatable: " & Select_anweisung)
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable()
adapter1.Fill(dt)
@@ -86,7 +86,7 @@ Public Class ClassDatabase
Public Shared Function Return_Datatable_CS(SQLCommand As String, Conn_ID As Integer, Optional userInput As Boolean = False)
Try
Dim oConString As String = Get_ConnectionString(Conn_ID)
LOGGER.Debug(">>> ReturnDatatable: " & SQLCommand, False)
LOGGER.Debug(">>> ReturnDatatable: " & SQLCommand)
Dim oSQLconnect As New SqlClient.SqlConnection
Dim oSQLcommand As SqlClient.SqlCommand
oSQLconnect.ConnectionString = oConString
@@ -114,12 +114,12 @@ Public Class ClassDatabase
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = SQLSERVERConnectionString
LOGGER.Debug(">>> Execute_non_Query: " & ExecuteCMD, False)
LOGGER.Debug(">>> Execute_non_Query: " & ExecuteCMD)
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD
LOGGER.Debug(">>> Execute NonQuery: " & ExecuteCMD, False)
LOGGER.Debug(">>> Execute NonQuery: " & ExecuteCMD)
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
SQLconnect.Close()
@@ -142,12 +142,12 @@ Public Class ClassDatabase
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = ConString
LOGGER.Debug(">>> Execute_non_Query: " & cmdscalar, False)
LOGGER.Debug(">>> Execute_non_Query: " & cmdscalar)
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = cmdscalar
LOGGER.Debug(">>> Execute Scalar: " & cmdscalar, False)
LOGGER.Debug(">>> Execute Scalar: " & cmdscalar)
result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose()
SQLconnect.Close()