Binär Speicherung / Wiederherstellung Accsess-Datenbank

  • VB.NET

Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von picoflop.

    Binär Speicherung / Wiederherstellung Accsess-Datenbank

    Hallo

    seit einiger Zeit verwalte ich meine Daten in Datenbanken. Bisher habe ich in der Datenbank aber nur einen Datenlink zu der entsprechenden Datenquelle gespeichert. Da die ganze Geschichte nun sehr umfangreich wird, habe ich mich dazu entschlossen, die Datenquelle nicht mehr zu verlinken, sondern sie binär in die Datenbank aufzunehmen. Diese Vorgehensweise schafft sicherlich eine bessere Übersicht auf der Festplatte und erleichtert auch die Datensicherung. Es handelt sich um unterschiedliche Dateiformate (excel, word, pdf, jpg, mp3). Nun bin ich auf der Suche nach einheitlichen Funktionen/Prozeduren die dieses bewerkstelligen können. Bilddateien kann ich umwandeln und auch binär speichern. Hänge nun an der Wiederherstellung fest.

    Bild umwandeln

    VB.NET-Quellcode

    1. Public Function bildanzeigen(ByVal strfile As String) As Image
    2. Dim fs As FileStream = New FileStream(strfile, FileMode.Open)
    3. Try
    4. myfilelength = fs.LengthReDim Puffer(myfilelength - 1)
    5. fs.Read(Puffer, 0, myfilelength)Dim b As Bitmap = New Bitmap(New MemoryStream(Puffer))
    6. Return bCatch ex As Exception
    7. Finally
    8. fs.Close()
    9. End Try
    10. End Function



    Bild in Datenbank aufnehmen

    VB.NET-Quellcode

    1. Public Function bildspeichern(ByVal ID As Int32) As Image
    2. cmd.CommandText = "INSERT INTO Test" & _" (FN1, FN2, FN3, FN4, FN5)" & _" VALUES (@ai,@nu,@dn,@length,@bild)"
    5. Try
    6. Dim insertcmd As New OleDbCommand(cmd.CommandText, con)
    7. insertcmd.Parameters.Add( _
    8. "@ai", OleDbType.Char).Value = "A"
    9. insertcmd.Parameters.Add( _
    10. "@nu", OleDbType.Char).Value = "100"
    11. insertcmd.Parameters.Add( _"@dn", OleDbType.Char).Value = Bilddatei
    12. insertcmd.Parameters.Add( _"@length", OleDbType.Integer).Value = Puffer.Length
    13. insertcmd.Parameters.Add( _"@bild", OleDbType.Binary).Value = Puffer
    15. con.Open()
    16. insertcmd.ExecuteNonQuery()
    17. Catch ex As Exception
    18. MessageBox.Show(ex.Message.ToString)
    19. Finally
    20. con.Close()
    21. End Try
    22. End Function



    Datensatz lesen / Bilddatei auf der Festplatte wiederherstellen (hier komme ich nicht weiter)

    VB.NET-Quellcode

    1. Public Function Bild_Wiederherstellen(ByVal AIndex As String, ByVal BIndex As String, ByVal DTab As String) As Image
    3. Try
    4. If BIndex = "" Then cmd.CommandText = "Select * from " & DTab & " where FN1 like '" & AIndex & "'"If BIndex <> "" Then cmd.CommandText = "Select * from " & DTab & " where FN1 like '" & AIndex & "'" _
    5. & "and FN2 like '" & BIndex & "'"
    6. con.Close()
    7. con.Open()
    8. reader = cmd.ExecuteReaderDo While reader.Read
    9. DLES(1) = reader("FN1")
    10. DLES(2) = reader("FN2")
    11. DLES(3) = reader("FN3")
    12. Lang = reader("FN4")
    13. Repuffer = reader("FN5")
    15. Loop
    16. con.Close()Dim Ausgabedatei As String = DLES(3)
    18. Catch ex As Exception
    19. MsgBox(ex.Message)
    20. End Try
    21. End Function



    Schön wäre es eine Vorgehensweise für alle Dateiarten zu haben (Excel, Word usw.).
    Gruß Markus

    Westerwälder schrieb:

    Da die ganze Geschichte nun sehr umfangreich wird, habe ich mich dazu entschlossen, die Datenquelle nicht mehr zu verlinken, sondern sie binär in die Datenbank aufzunehmen.

    EIGENTLICH ist die "alte" Verwaltung besser, da man ansonsten die Datenbank ziemlich aufbläht.

    ansonsten kannst du natürlich jede Datei einfach in einen Stream einlesen und diese Bytes dann in der DB speichern. Der Dateityp spielt dann keine Rolle.

    bsp: codeproject.com/KB/database/AccessBlob.aspx

    Danke, ich habe mir den Code angeschaut.

    Der Aufbau ist doch etwas anders als der meinige bisherige. Benötige nur den Codeschnippsel wie ich aus der Variable RePuffer meine Datei wieder auf der Festplatte speichern kann. Im Grunde, wenn ich das nun richtig verstanden habe, können meine Functionen dann auch andere Datenformate bearbeiten.
    Gruß Markus

    Ich regle das ganze bei mir in den Datenbanken in dem ich die Datei in einen Base64-String umwandle und dann ganz einfach in der Datenbank speichern kann.
    Zum speichern der Datei kann man es einfach wieder in eine Datei umwandeln.
    wintoolz.de
    • wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passwörten
    • wintoolz.CodeGallery - Datenbank für Codebeispiele veschiedener Programmiersprachen
    • wintoolz.Haushaltsbuch - Dient zum Auflisten der Aktivitäten ihrer Bankkonten

    Benutze auch du Ecosia

    Westerwälder schrieb:

    das dies in einer schleife erfolgt ist mir schon klar aber wie sieht diese aus?

    Um irgendeinen Byte"stream" (oder array etc) in Base64 zu wandeln, brauchts keine Schleife ...

    VB.NET-Quellcode

    1. Private Sub foo()
    3. Dim b(10) As Byte
    4. b(10) = 5
    5. ' mach base64
    6. Dim b64 As String = Convert.ToBase64String(b)
    7. ' und wieder zurück zu byte
    8. Dim c() As Byte = Convert.FromBase64String(b64)
    10. End Sub

    Das Programm läuft nun nach deinem Rat. Leider sind die wiederhergestellten Dateien nicht mehr lesbar. (Versuch mit .jpg und .xls durchgeführt). Die Bilddatei wird von win 7 gar nicht geöffnet, die exceldatei enthält irgendwelche Daten die nichts mit der Originaldatei zu tun haben. Hänge den kompletten Code nochmals an.

    VB.NET-Quellcode

    1. Imports System.Data
    2. Imports System.Data.OleDbImports System.IO
    4. Public Class Binr
    6. Inherits System.Windows.Forms.Form
    7. Private Puffer() As Byte
    8. Dim strfrile As StringDim myfilelength As Int64
    9. Dim Lang As Int64
    10. Dim Repuffer() As BytePublic
    12. Sub Dateiquelle_Einlesen(ByVal QuellDatei As String)
    14. Using br As New System.IO.BinaryReader(New System.IO.FileStream(QuellDatei, IO.FileMode.Open))
    15. Puffer = br.ReadBytes(br.BaseStream.Length)
    16. br.Close()
    17. End Using
    19. End Sub
    20. Public Sub Dateiquelle_BinrSpeichern(ByVal Dtab As String)
    22. cmd.CommandText = "INSERT INTO " & Dtab & _
    23. " (FN01, FN02, FN03, FN04, FN05)" & _
    24. " VALUES (@ai,@nu,@dn,@length,@bild)"
    26. Try
    27. Dim insertcmd As New OleDbCommand(cmd.CommandText, con)
    28. insertcmd.Parameters.Add( _
    29. "@ai", OleDbType.Char).Value = "A"
    30. insertcmd.Parameters.Add( _
    31. "@nu", OleDbType.Char).Value = "100"
    32. insertcmd.Parameters.Add( _"@dn", OleDbType.Char).Value = Bilddatei
    33. insertcmd.Parameters.Add( _"@length", OleDbType.Integer).Value = Puffer.Length
    34. insertcmd.Parameters.Add( _"@bild", OleDbType.Binary).Value = Puffer
    36. con.Open()
    37. insertcmd.ExecuteNonQuery()
    38. Catch ex As Exception
    39. MessageBox.Show(ex.Message.ToString)
    40. Finally
    41. con.Close()
    42. End Try
    43. End Sub
    45. Public Sub DateiBinr_Wiederherstellen(ByVal AIndex As String, ByVal BIndex As String, ByVal DTab As String)
    47. Try
    48. If BIndex = "" Then cmd.CommandText = "Select * from " & DTab & " where FN01 like '" & AIndex & "'"If BIndex <> "" Then cmd.CommandText = "Select * from " & DTab & " where FN01 like '" & AIndex & "'" _
    49. & "and FN02 like '" & BIndex & "'"
    50. con.Close()
    51. con.Open()
    52. reader = cmd.ExecuteReaderDo While reader.Read
    53. DLES(1) = reader("FN01")
    54. DLES(2) = reader("FN02")
    55. DLES(3) = reader("FN03")
    56. Lang = reader("FN04")
    57. Repuffer = reader("FN05")
    59. Loop
    60. con.Close()
    61. Dim datinhalt As String = Convert.ToBase64String(Repuffer)My.Computer.FileSystem.WriteAllText(ZielDatei, datinhalt, True)
    62. Catch ex As Exception
    63. MsgBox(ex.Message)
    64. End Try
    65. End Sub
    68. End Class
    Gruß Markus

    VB.NET-Quellcode

    1. 'Datei in Base64:
    2. Dim Base64 As String = Convert.ToBase64String(File.ReadAllBytes(Quelldatei))
    3. 'Base64 in Datei:
    4. File.WriteAllBytes(Zieldatei, Convert.FromBase64String(Base64))
    wintoolz.de
    • wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passwörten
    • wintoolz.CodeGallery - Datenbank für Codebeispiele veschiedener Programmiersprachen
    • wintoolz.Haushaltsbuch - Dient zum Auflisten der Aktivitäten ihrer Bankkonten

    Benutze auch du Ecosia

    Du sollst ja auch nicht das Bytearray sondern den String in der Datenbank speichern.
    In dem Beispiel von mir, speicherst du die Variable Base64 in der Datenbank.
    Zum "zurückspeichern" zur Datei nimmst du den Inhalt der Spalte, in der du den String gespeichert hast und gibst diesen Inhalt beim Beispiel "Base64 in Datei" als Base64 an.

    Hast du auch in der Datenbank den Spaltetyp geändern, sofern dieser Byte oder Blob oder ähnliches war?
    wintoolz.de
    • wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passwörten
    • wintoolz.CodeGallery - Datenbank für Codebeispiele veschiedener Programmiersprachen
    • wintoolz.Haushaltsbuch - Dient zum Auflisten der Aktivitäten ihrer Bankkonten

    Benutze auch du Ecosia

    So habe die Änderung in übernommen. Nun erscheint die Fehlermeldung Datentypen in Kriterienausdruck unverträglich. Den Feldtyp der Datenbank habe ich nun auf Text gesetzt. Ich arbeite mit Office 2000. Vielleicht liegt es auch daran.
    Gruß Markus

    Westerwälder schrieb:

    Den Feldtyp der Datenbank habe ich nun auf Text gesetzt

    Dürfte zu klein sein. Selbst "Memo" fasst nur 64k. Nur "Ole Object" wäre groß genug, aber das hat wieder andere Nachteile.
    Access ist halt nicht dafür gedacht, solcherart "Binärdaten" einfach zu speichern. "Richtige" Datenbanken kennen für sowas normalerweise den "BLOB" (Binary Large Object)

Facebook
Telefonspende