2.4.1.7 Logging SQL from Task, replacing '
This commit is contained in:
@@ -1,8 +1,8 @@
|
||||
Public Class frmGhostMode
|
||||
Private Sub frmGhostMode_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Dim oSQL = "SELECT CONFIG_VALUE FROM TBIDB_BASE WHERE CONFIG_NAME = 'GHOST_SELECT'"
|
||||
oSQL = ClassDatabase.Execute_Scalar_ConStr(oSQL, CONNECTION_STRING_IDB)
|
||||
Dim DT_USER = ClassDatabase.Return_Datatable(oSQL)
|
||||
oSQL = ClassDatabase.Execute_Scalar_ConStr(oSQL, CONNECTION_STRING_IDB, "frmGhostMode_Load")
|
||||
Dim DT_USER = ClassDatabase.Return_Datatable(oSQL, "frmGhostMode_LoadDT")
|
||||
|
||||
Try
|
||||
If Not IsNothing(DT_USER) Then
|
||||
|
||||
Reference in New Issue
Block a user