BLOB-Datei aus SQLite Datenbank lesen und öffnen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von vivil.

    BLOB-Datei aus SQLite Datenbank lesen und öffnen

    Hallo Community,

    ich habe folgendes Problem:
    Ich habe eine SQLite-Datenbank, dort habe ich eine Tabelle protokolldatei die folgende Werte enthält:

    SQL-Abfrage

    1. CREATE TABLE dwaprotokolldatei(
    2. iddwaprotokolldatei integer PRIMARY KEY AUTOINCREMENT NOT NULL,
    3. groesse BIGINT(20),
    4. dateiname varchar(255),
    5. datei BLOB, speicherdatum datetime); "


    Die Tabelle wird auch angelegt und ich kann dort auch meine Dateien hineinspeichern.

    Jetzt ist aber das Problem, dass ich die Datei erstelle, aber nach dem Process.Start wird die Datei direkt wieder gelöscht.
    Woran kann dies liegen ?
    Hier der Code:

    VB.NET-Quellcode

    1. 'Blob-Protokoll öffnen:
    2. If e.RowIndex >= 0 Then
    3. 'Dim sProkotoll As String
    4. 'sProkotoll = Application.StartupPath & "\" & dgProtokolle.Rows(e.RowIndex).Cells("protokolldatei").Value.ToString()
    5. 'Process.Start(sProkotoll)
    7. Dim filename As String
    8. Dim file() As Byte
    9. Try
    10. 'Dateinamen + Pfad in Variable speichern
    11. filename = Application.StartupPath & "\cache\" & dgProtokolle.Rows(e.RowIndex).Cells("protokolldatei").Value.ToString
    13. 'Prüfen, ob das Verzeichnis vorhanden ist
    14. If Directory.Exists(Application.StartupPath & "\cache") Then
    15. 'Prüfen, ob die Datei in dem Verzeichnis schon vorhanden ist
    16. If System.IO.File.Exists(filename) Then
    17. 'Datei öffnen
    18. Process.Start(filename)
    19. Else
    20. 'Wenn die Datei noch nicht vorhanden ist,
    21. 'dann Speichern und öffnen der Datei in das Verzeichnis
    22. file = dgProtokolle.Rows(e.RowIndex).Cells("datei").Value
    23. Dim K As Long
    24. K = UBound(file)
    25. Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Write)
    26. fs.Write(file, 0, K + 1)
    27. fs.Close()
    29. Process.Start(filename)
    30. End If
    31. Else
    32. 'Wenn das Verzeichnis nicht vorhanden ist,
    33. 'dann das Verzeichnis erstellen, die Datei in dem Verzeichnis
    34. 'abspeichern und die Datei öffnen
    35. Directory.CreateDirectory(Application.StartupPath & "\cache")
    37. file = dgProtokolle.Rows(e.RowIndex).Cells("datei").Value
    38. Dim K As Long
    39. K = UBound(file)
    40. Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Write)
    41. fs.Write(file, 0, K)
    42. fs.Close()
    44. Process.Start(filename)
    45. End If
    46. Catch ex As Exception
    47. MessageBox.Show(ex.ToString())
    48. End Try
    49. End If



    Ich hoffe, Ihr könnt mir weiterhelfen.

    vivil

    Vielen Dank für die Antwort.
    Habe das Problem selber gefunden.
    Und zwar lag das Problem darin, dass main_Deactivate immer aufgerufen wurde und in diesem Event, werden alle Dateien aus dem Ordner gelöscht.
    Dies habe ich nun auskommentiert und jetzt funktioniert es.
    Eiegene Dummheit.

    Trotzdem vielen Dank