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

MS HASH only deleted = 0

Browse Source
This commit is contained in:
SchreiberM 2022-05-31 15:59:32 +02:00
parent be401fa264
commit 8b3c425d6b
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
GUIs.ZooFlow/Modules/Globix/ClassFilehandle.vb
View File

@ -56,7 +56,6 @@ Public Class ClassFilehandle
'Dim oBoxOptions = MsgBoxStyle.Question Or MsgBoxStyle.YesNo 'Dim oBoxOptions = MsgBoxStyle.Question Or MsgBoxStyle.YesNo
ofrmDuplicate.ShowDialog() ofrmDuplicate.ShowDialog()
If ofrmDuplicate.DialogResult = DialogResult.Yes Then If ofrmDuplicate.DialogResult = DialogResult.Yes Then
Return True Return True
End If End If

3
GUIs.ZooFlow/Modules/Globix/ClassUserFiles.vb
View File

@ -52,7 +52,8 @@ Public Class ClassUserFiles
oHash = "" oHash = ""
End Try End Try
oSQL = "SELECT * FROM TBIDB_FILE_OBJECT WHERE FILE_HASH = '" & oHash & "' ORDER BY ADDED_WHEN" oSQL = $"SELECT A.* FROM TBIDB_FILE_OBJECT A INNER JOIN TBIDB_OBJECT B ON A.IDB_OBJ_ID = B.IDB_OBJ_ID
WHERE A.FILE_HASH = '{oHash}' AND B.DELETED = 0 ORDER BY A.ADDED_WHEN"
Dim oResult As DataTable = My.DatabaseECM.GetDatatable(oSQL) Dim oResult As DataTable = My.DatabaseECM.GetDatatable(oSQL)
If oResult.Rows.Count = 0 Then If oResult.Rows.Count = 0 Then