Menyimpan foto ke database tidaklah sama dengan menyimpan foto ke xplore windows, untuk menyimpan foto ke database access harus dalam format byte. Jadi pada tutorial kali ini kita akan membahas mengenai Cara Menyimpan Foto Ke Database Access Di vb.Net.

LANGKA PERTAMA

Buat table di database Access anda dengan nama image_data, kolomnya terserah anda akan tetapi ditutorial kali ini saya menggunakan kolom seperti berikut.

LANGKAH KE DUA

Tambahkan sebuah form di project anda project -> Add Windows Form... Beri nama fImage.vb Dan tambahkan beberapa komponen seperti digambar berikut.

List komponen di form diatas :

1. PictureBox 1, beri nama picture
2. Labe 2.
3. TextBox 2, untuk File Name berinama filenameTxt dan untuk File Path berinama filepathTxt.
4. Button 2, untuk button browse berinama browse_btn dan untuk button simpan berinama save_btn.

LANGKAH KE TIGA

Tambahkan sebuah foto di folder debug di project anda yang akan digunakan sebagai foto default, contohnya seperti foto berikut.

LANGKAH KE EMPAT

Masuk ke ViewCode form fImage.vb yang telah dibuat tadi.

Kopi paste kode berikut.

Imports System.Data.OleDb

Public Class fImage


    Private Sub fImage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'ganti no.jpeg dengan foto anda
        picture.ImageLocation = Application.StartupPath & "\no.jpeg"
    End Sub

    Private Sub browse_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles browse_btn.Click
        Dim lebar As Integer = 480
        Dim tinggi As Integer = 640
        Dim open_file As New OpenFileDialog
        With open_file
            .FileName = ""
            .Filter = "File Jpg (*.jpg)|*.jpg"
            .FilterIndex = 1
            If .ShowDialog = DialogResult.Cancel Then Exit Sub
            Dim igambar As Image = Image.FromStream(.OpenFile())
            Dim ngambar As New Bitmap(lebar, tinggi)
            Dim grap As Graphics = Graphics.FromImage(ngambar)
            With grap
                .FillRectangle(Brushes.White, New Rectangle(0, 0, lebar, tinggi))
                .DrawImage(igambar, 3, 3, lebar - 6, tinggi - 6)
                .Flush()
                .Dispose()
            End With
            picture.Image = ngambar
            filenametxt.Text = System.IO.Path.GetFileName(.FileName)
            filepathTxt.Text = System.IO.Path.GetFullPath(.FileName)
        End With
    End Sub

    Private Sub save_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save_btn.Click
        On Error GoTo gagal
        Call ConnectDb()
        Dim gambar() As Byte
        Dim img As New Bitmap(picture.Image)
        Using memStream As System.IO.MemoryStream = New System.IO.MemoryStream
            img.Save(memStream, Imaging.ImageFormat.Jpeg)
            Dim imgArray = memStream.GetBuffer
            gambar = imgArray
        End Using
        Dim simpan As String = "insert into image_data(id,name,path,foto)values('" & Format(Now, "ddMMyyyy") & Format(Now, "HHmmss") & _
            "','" & filenametxt.Text & "','" & filepathTxt.Text & "',@img)"
        CMD = New OleDbCommand(simpan, CONN)
        CMD.Parameters.Add(New OleDbParameter("@img", gambar))
        CMD.ExecuteNonQuery()
        MsgBox("Simpan Foto Berhasil", MsgBoxStyle.Information, "Sukses")
        CONN.Dispose()
        CONN.Close()
        Exit Sub
gagal:
        MsgBox("Error : " & Err.Description, MsgBoxStyle.Critical, "Error Info")
    End Sub

End Class

Sekian tutorial, Cara Menyimpan Foto Ke Database Access Di vb.Net