71 lines
2.5 KiB
VB.net
71 lines
2.5 KiB
VB.net
Imports DigitalData.Modules.Base
|
|
Imports DigitalData.Modules.Logging
|
|
|
|
Public Class ClassUserFiles
|
|
Inherits BaseClass
|
|
|
|
Public Sub New(pLogConfig As LogConfig)
|
|
MyBase.New(pLogConfig)
|
|
End Sub
|
|
|
|
Public Function Insert_GI_File(filename As String, handleType As String) As Boolean
|
|
Try
|
|
filename = filename.Replace("'", "''")
|
|
|
|
Dim filename_only As String = IO.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.DatabaseECM.ExecuteNonQuery(ins)
|
|
|
|
Catch ex As Exception
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Public Function FileExistsinDropTable(Filename As String) As Date
|
|
Dim oSQL As String
|
|
Dim oHash As String
|
|
Dim oFilesystem As New DigitalData.Modules.Filesystem.File(My.LogConfig)
|
|
|
|
Try
|
|
If Filename.Contains("'") Then
|
|
Filename = Filename.Replace("'", "''")
|
|
End If
|
|
|
|
Try
|
|
oHash = oFilesystem.GetChecksum(Filename)
|
|
Catch ex As Exception
|
|
oHash = ""
|
|
End Try
|
|
|
|
oSQL = "SELECT * FROM TBGI_FILES_USER WHERE UPPER(FILE_HASH) = UPPER('" & oHash & "') AND WORKED = 0 ORDER BY ADDED_WHEN"
|
|
Dim oResult As DataTable = My.DatabaseECM.GetDatatable(oSQL)
|
|
|
|
If oResult Is Nothing Then
|
|
Return Nothing
|
|
End If
|
|
|
|
If oResult.Rows.Count = 0 Then
|
|
oSQL = "SELECT * FROM TBGI_HISTORY WHERE UPPER(FILE_HASH) = UPPER('" & oHash & "') ORDER BY ADDED_WHEN"
|
|
oResult = My.DatabaseECM.GetDatatable(oSQL)
|
|
|
|
If oResult Is Nothing Then
|
|
Return Nothing
|
|
End If
|
|
|
|
If oResult.Rows.Count = 0 Then
|
|
Return Nothing
|
|
Else
|
|
Dim oFirstRow As DataRow = oResult.Rows.Item(0)
|
|
Return oFirstRow.Item("ADDED_WHEN")
|
|
End If
|
|
Else
|
|
Dim oFirstRow As DataRow = oResult.Rows.Item(0)
|
|
Return oFirstRow.Item("ADDED_WHEN")
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("Error in FileExistsinDropTable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & oSQL, MsgBoxStyle.Critical)
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
End Class
|