EDMI: Work on ClassDataASorDB

2021-06-30 16:35:21 +02:00
parent d79340d54f
commit 8e8374fc88
24 changed files with 210 additions and 131 deletions
--- a/GUIs.ZooFlow/Globix/ClassFilehandle.vb
+++ b/GUIs.ZooFlow/Globix/ClassFilehandle.vb
@@ -180,7 +180,7 @@ Public Class ClassFilehandle

            Dim filename_only As String = Path.GetFileName(filename)
            Dim ins As String = "INSERT INTO TBGI_FILES_USER (FILENAME2WORK, USER@WORK,HANDLE_TYPE,FILENAME_ONLY) VALUES ('" & filename & "','" & Environment.UserName & "','" & handleType & "','" & filename_only & "')"
-            Return My.Database.ExecuteNonQuery(ins)
+            Return My.DatabaseECM.ExecuteNonQuery(ins)

        Catch ex As Exception
            Return False