1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 

    Public Sub GetFileFromDB(PKVar As String, TableVar As String, IDLocation As String, PersonIDLocation As String)
        'select file from database...
        sqlComm = "SELECT * FROM [" & TableVar & "] WHERE FileID = @IDLocation AND PersonID = @PersonID"
        '
        Dim Command As New SqlCommand(sqlComm, Connection)

        With Command.Parameters
            .Add(New SqlParameter("@IDLocation", IDLocation))
            .Add(New SqlParameter("@PersonID", PersonIDLocation))
        End With

        DR = Command.ExecuteReader()

        With DR.Read
            byteArray = DR(2) 'το καθεαυτού αρχείο...
            fileExtension = DR(3).ToString 'η προέκταση του αρχείου...
            fileName = DR(5).ToString 'το όνομα του αρχείου
        End With
        DR.Close()

        '-----------------------------------------------------------------------------------------------------------
        ' Make a path for a temporary file
        'Dim myTempFilePath = System.IO.Path.Combine(System.IO.Path.GetTempPath(), Guid.NewGuid().ToString() + fileExtension)
        'getTempPath
        Dim myTempFilePath = System.IO.Path.Combine(getTempPath, fileName + fileExtension)

        ' This will contain the edited file when the user close the program that have used to edit it
        Dim editedFileData As Byte()
        Try
            System.IO.File.WriteAllBytes(myTempFilePath, byteArray)
            Using myProcess As System.Diagnostics.Process = Process.Start(myTempFilePath)
                ' Wait for the user to close the program (editor) before continue
                If Not myProcess Is Nothing Then myProcess.WaitForExit() Else 
            End Using
        Catch ex As Exception
            '
        Finally
            ' Take the edit file data
            editedFileData = System.IO.File.ReadAllBytes(myTempFilePath)

            ' Clean up
            System.IO.File.Delete(myTempFilePath)
        End Try

        ' Save back your edited data to the DB by using editedFileData
        'etc etc etc...
        '-----------------------------------------------------------------------------------------------------------


        Dim MStream As New MemoryStream(byteArray.Length)
        MStream.Read(byteArray, 0, byteArray.Length)
        'Process.Start(byteArray.ToString)


        ConnClose()
        MStream.Close()
        MStream.Dispose()

    End Sub