2.4.1.7 Logging SQL from Task, replacing '

2020-06-05 13:49:20 +02:00
parent fcf3ad53a4
commit 386e3b62b5
25 changed files with 892 additions and 473 deletions
--- a/app/DD_PM_WINDREAM/frmSQL_Admin.vb
+++ b/app/DD_PM_WINDREAM/frmSQL_Admin.vb
@@ -7,7 +7,7 @@ Public Class frmSQL_Admin
    Private Sub btnrunSQL_Click(sender As Object, e As EventArgs) Handles btnrunSQL.Click
        If txtSQL.Text <> "" Then
            If txtSQL.Text.ToLower.StartsWith("select") Then
-                Dim dt As DataTable = ClassDatabase.Return_Datatable(txtSQL.Text)
+                Dim dt As DataTable = ClassDatabase.Return_Datatable(txtSQL.Text, "btnrunSQL_Click")
                If Not dt Is Nothing Then
                    XtraTabControl1.SelectedTabPageIndex = 1
                    BindingSource1.DataSource = dt