jj 02.06

app/DD-Record-Organiser/ClassDatabase.vb

@@ -56,6 +56,8 @@ Public Class ClassDatabase
     End Function
     Public Shared Function Return_Datatable(Select_anweisung As String, Optional CallMethod As String = "")
         Try
+            Dim sw As New SW("Return_Datatable: " & Select_anweisung)
+
             Dim SQLconnect As New SqlClient.SqlConnection
             Dim SQLcommand As SqlClient.SqlCommand
             SQLconnect.ConnectionString = connectionString
@@ -67,6 +69,9 @@ Public Class ClassDatabase
             Dim dt As DataTable = New DataTable()
             adapter1.Fill(dt)
             SQLconnect.Close()
+
+            sw.Done()
+
             Return dt
         Catch ex As Exception
             MsgBox("Error in Return_Datatable: " & ex.Message & vbNewLine & vbNewLine & Select_anweisung & vbNewLine & vbNewLine & "Call-Method: " & CallMethod, MsgBoxStyle.Critical)
@@ -114,6 +119,8 @@ Public Class ClassDatabase
     End Function
     Public Shared Function Return_Datatable_CS(Select_anweisung As String, ConString As String, Optional userInput As Boolean = False)
         Try
+            Dim sw As New SW("Return_Datatable_CS: " & Select_anweisung)
+
             Dim SQLconnect As New SqlClient.SqlConnection
             Dim SQLcommand As SqlClient.SqlCommand
             SQLconnect.ConnectionString = ConString
@@ -125,6 +132,9 @@ Public Class ClassDatabase
             Dim dt As DataTable = New DataTable()
             adapter1.Fill(dt)
             SQLconnect.Close()
+
+            sw.Done()
+
             Return dt
         Catch ex As Exception
             If userInput = True Then
@@ -137,6 +147,8 @@ Public Class ClassDatabase
     End Function
     Public Shared Function Execute_non_Query(ExecuteCMD As String, Optional Userinput As Boolean = False)
         Try
+            Dim sw As New SW("Execute_non_Query: " & ExecuteCMD)
+
             Dim SQLconnect As New SqlClient.SqlConnection
             Dim SQLcommand As SqlClient.SqlCommand
             SQLconnect.ConnectionString = MyConnectionString
@@ -148,6 +160,9 @@ Public Class ClassDatabase
             SQLcommand.ExecuteNonQuery()
             SQLcommand.Dispose()
             SQLconnect.Close()
+
+            sw.Done()
+
             Return True
         Catch ex As Exception
             If Userinput = True Then
@@ -161,6 +176,8 @@ Public Class ClassDatabase
     End Function
     Public Shared Function Execute_non_Query_withConn(ExecuteCMD As String, ConnID As Integer)
         Try
+            Dim sw As New SW("Execute_non_Query_withConn: " & ExecuteCMD)
+
             Dim connectionString As String
             connectionString = ClassDatabase.GetConnectionString(ConnID)
             If connectionString <> "" Then
@@ -174,6 +191,9 @@ Public Class ClassDatabase
                 SQLcommand.ExecuteNonQuery()
                 SQLcommand.Dispose()
                 SQLconnect.Close()
+
+                sw.Done()
+
                 Return True
             Else
                 MsgBox("No ConnectionID for Conn-ID: " & ConnID.ToString, MsgBoxStyle.Exclamation)
@@ -223,6 +243,8 @@ Public Class ClassDatabase
     Public Shared Function Execute_Scalar(cmdscalar As String, Optional Userinput As Boolean = False)
         Dim result
         Try
+            Dim sw As New SW("Execute_Scalar: " & cmdscalar)
+
             Dim SQLconnect As New SqlClient.SqlConnection
             Dim SQLcommand As SqlClient.SqlCommand
             SQLconnect.ConnectionString = connectionString
@@ -233,6 +255,9 @@ Public Class ClassDatabase
             result = SQLcommand.ExecuteScalar()
             SQLcommand.Dispose()
             SQLconnect.Close()
+
+            sw.Done()
+
             Return result
         Catch ex As Exception
             If Userinput = True Then