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

ZooFlow: clean up

Browse Source
This commit is contained in:
Jonathan Jenne
2021-01-12 16:05:35 +01:00
parent b49d4b4ff7
commit 4b2ef12a55
8 changed files with 93 additions and 178 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
GUIs.ZooFlow/Globix/frmGlobix_Index.vb
View File

@@ -1,10 +1,11 @@
Imports System.IO
Option Explicit On
Imports System.IO
Imports System.Security.AccessControl
Imports System.Security.Principal
Imports System.Text.RegularExpressions
Imports DigitalData.Modules.Logging
Public Class frmGlobix_Index
#Region "+++++ Variablen ++++++"
Public vPathFile As String
@@ -1550,17 +1551,17 @@ Public Class frmGlobix_Index
Function Indexwert_checkValueDB(indexname As String, wert As String)
Try
Dim DR As DataRow
Dim oRow As DataRow
'DT = DD_DMSLiteDataSet.VWINDEX_MAN
For Each DR In DT_INDEXEMAN.Rows
If DR.Item("NAME") = indexname Then
If DR.Item("SQL_CHECK").ToString <> String.Empty Then
For Each oRow In DT_INDEXEMAN.Rows
If oRow.Item("NAME") = indexname Then
If oRow.Item("SQL_CHECK").ToString <> String.Empty Then
Dim connectionString As String
Dim sql As String
connectionString = My.Database.Get_ConnectionStringforID(DR.Item("CONNECTION_ID"))
connectionString = My.Database.Get_ConnectionStringforID(oRow.Item("CONNECTION_ID"))
If connectionString <> "" Then
Dim sqlscalar = DR.Item("SQL_CHECK")
Select Case DR.Item("DATENTYP")
Dim sqlscalar = oRow.Item("SQL_CHECK")
Select Case oRow.Item("DATENTYP")
Case "INTEGER"
sqlscalar = sqlscalar.ToString.Replace("@manValue", wert)
Case Else