Vb.net Acces Datenbank?

Hallo Liebe Community

Ich bin gerade dabei ein programm für einen Freund zu schreiben , wo er Bilder in einer Access Datenbank Speichern kann Das Klappt alles soweit ganz gut Aber beim löschen bleibt die Datenbank immer noch Gleich groß

Beispiel: 15 Bilder in der Datenbank und die hat nun 50MB und wenn ich 10 Bilder Lösche hat sie immer noch EXAKT die Gleiche Größe.. Aber im Browser ( Mein Programm) wird es nicht Angezeigt, Solls ja auch ^^
  Dim ConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\ImageDatabase.mdb"
    Dim CONNECTION As New OleDbConnection(ConnString)
    Dim DS As DataSet

Methode zum Speichern

Dim ms As New MemoryStream
        Me.PictureBox1.Image.Save(ms, Me.PictureBox1.Image.RawFormat)

        Dim arrayImage() As Byte = ms.GetBuffer         ms.Close() ' Closes the Memory Stream

        Dim nStr As String = Me.Label1.Text.Substring(Me.Label1.Text.LastIndexOf("\") + 1)

        Dim strQuery As String = "INSERT INTO Pic(Name, Picture) VALUES(@Name, @Picture)"

        Dim objcommand As New OleDbCommand(strQuery, CONNECTION)         With objcommand             .Parameters.Add(New OleDbParameter("@Name", SqlDbType.NVarChar, 50)).Value = nStr             .Parameters.Add(New OleDbParameter("@Picture", SqlDbType.Image)).Value = arrayImage         End With

        CONNECTION.Open()         objcommand.ExecuteNonQuery()         MessageBox.Show("Image Saved Into the DataBase", "Save Successfully", MessageBoxButtons.OK, MessageBoxIcon.Information)         CONNECTION.Close()

Methode zum Löschen

 Dim strQuery As String = "DELETE FROM Pic WHERE ID=@ID"

        Dim objcommand As New OleDbCommand(strQuery, CONNECTION)         With objcommand             .Parameters.Add(New OleDbParameter("@ID", SqlDbType.Int)).Value = intID         End With

        CONNECTION.Open()
        objcommand.ExecuteNonQuery()
        MessageBox.Show("Delete Image From the DataBase", "Delete Successfully", MessageBoxButtons.OK, MessageBoxIcon.Information)
        CONNECTION.Close()

Es Handelt sich um DataSets!

Access, vb.net
1 Antwort
Weitere Inhalte können nur Nutzer sehen, die bei uns eingeloggt sind.