MS_13022016

2016-02-15 13:03:32 +01:00
parent 85d4120c50
commit 8016ae977e
10 changed files with 1479 additions and 1073 deletions
--- a/app/DD-Record-Organiser/ClassControlCommands.vb
+++ b/app/DD-Record-Organiser/ClassControlCommands.vb
@@ -49,7 +49,8 @@

    Public Shared Function GetControlGuid(name As String)
        Try
-            Return ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_CONTROL WHERE NAME = '" & name & "'")
+            Dim sql = "SELECT GUID FROM TBPMO_CONTROL WHERE NAME = '" & name & "'"
+            Return ClassDatabase.Execute_Scalar(sql)
        Catch ex As Exception
            Return -1
        End Try