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

GDPicture WISAG Etc

Browse Source
This commit is contained in:
SchreiberM
2020-01-08 15:11:40 +01:00
parent ad1611802a
commit e71a0bf9d5
36 changed files with 5129 additions and 4134 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
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)
LOGGER.Debug("ReturnDatatable: " & Select_anweisung)
SQLconnect.ConnectionString = SQLSERVERConnectionString
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung
LOGGER.Debug(">>> Execute ReturnDatatable: " & Select_anweisung)
LOGGER.Debug("Execute ReturnDatatable: " & Select_anweisung)
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable()
adapter1.Fill(dt)
@@ -74,16 +74,13 @@ Public Class ClassDatabase
Return dt
Catch ex As Exception
LOGGER.Warn($"Unexpected Error in Return_Datatable: {ex.Message} [{Select_anweisung}]")
If userInput = True Then
MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
End If
Return Nothing
End Try
End Function
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("ReturnDatatable: " & SQLCommand)
Dim oSQLconnect As New SqlClient.SqlConnection
Dim oSQLcommand As SqlClient.SqlCommand
oSQLconnect.ConnectionString = oConnString
@@ -106,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("ReturnDatatable: " & SQLCommand)
Dim oSQLconnect As New SqlClient.SqlConnection
Dim oSQLcommand As SqlClient.SqlCommand
oSQLconnect.ConnectionString = ConNStr
@@ -216,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: " & cmdscalar)
result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose()
SQLconnect.Close()