Speichern/Bild einfügen in ms access-Datenbank

Ich habe eine picturebox, und zwei Tasten (durchsuchen und speichern). Sobald der Benutzer klicken Sie auf die durchsuchen-Schaltfläche, die der Benutzer durchsuchen-Bild aus dem computer und speichern Sie es auf der Datenbank, indem Sie auf die Schaltfläche speichern.

U tun haben jede Idee, wie es zu tun?

  • Ja, ich habe einen Vorschlag. Statt hier zu bleiben, auf eine Antwort zu warten suchen für einige Beispiel, versuchen Sie es und wenn Sie immer noch Probleme haben, Fragen Sie noch einmal erklären, Ihre Bemühungen.
  • 92,400 google trifft dies auf dieser Seite allein. Starten Sie Ihre recherche hier: stellen, betrachten Sie dann die Verwandte links auf der rechten Seite (und die links auf die).
  • btw. im Allgemeinen ist es nicht eine gute Idee, speichern-Bild in Datenbank (Sie können, aber...). Statt dies zu tun, Bild speichern auf der Festplatte und speichern Sie es Weg in die Datenbank.
InformationsquelleAutor jane | 2015-11-17
  1. 0

    Hier ist der code, hoffe es hilft:

    Imports System.Data.OleDb
Public Class Form1
    Dim cn As New OleDbConnection("Provider = Microsoft.Jet.OleDb.4.0;Data Source = " & Application.StartupPath & "\database.mdb;")
    Dim cm As New OleDbCommand

    Dim bytImage() As Byte
    Private Sub Browse_Click(sender As Object, e As EventArgs) Handles Browse.Click
        Dim dialog As New OpenFileDialog()
        dialog.Title = "Browse Picture"
        dialog.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
        If dialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
            PictureBox1.Image = Image.FromFile(dialog.FileName)
        End If
    End Sub

    Private Sub Save_Click(sender As Object, e As EventArgs) Handles Save.Click
        Try
            Dim ms As New System.IO.MemoryStream
            Dim bmpImage As New Bitmap(PictureBox1.Image)

            bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
            bytImage = ms.ToArray()
            ms.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        cn.Open()
        cm.Connection = cn
        cm.CommandType = CommandType.Text
        cm.CommandText = "INSERT INTO `table` (pic) VALUES (@image)"
        cm.Parameters.AddWithValue("@image", bytImage)
        cm.ExecuteNonQuery()
        cn.Close()
    End Sub
End Class
    InformationsquelleAutor Mihail Panagiotopoulos
  2. 0

    "---- Speichern von Daten In msaccess Neue accdb msaccess 2007 & Oben
    Importe System.Daten.OleDb
    Public Class Form2
    Dim cn As New OleDbConnection("Provider=Microsoft.Ass.OLEDB.12.0;Data Source=" & Application.StartupPath & "\acordv.accdb;")
    Dim cm As New OleDbCommand

    Dim bytImage() As Byte


Private Sub btnbrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbrowse.Click
    Dim dialog As New OpenFileDialog()
    dialog.Title = "Browse Picture"
    dialog.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
    If dialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
        PictureBox1.Image = Image.FromFile(dialog.FileName)
    End If
End Sub

Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
    Try
        Dim ms As New System.IO.MemoryStream
        Dim bmpImage As New Bitmap(PictureBox1.Image)

        bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
        bytImage = ms.ToArray()
        ms.Close()
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
    cn.Open()
    cm.Connection = cn
    cm.CommandType = CommandType.Text
    cm.CommandText = "INSERT INTO `pic1` (pic) VALUES (@image)"
    cm.Parameters.AddWithValue("@image", bytImage)
    cm.ExecuteNonQuery()
    cn.Close()
    MsgBox("Image Saved.")
End Sub
    InformationsquelleAutor user6473235
Schreibe einen Kommentar