Membuat Program Sederhana Kombinasi dengan Gambar Menggunakan VB.Net dan MS Access

Module modKoneksi
Public Koneksi As String = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & Application.StartupPath & “\BLOB.mdb”
End Module

Imports System.IO
Imports System.Data.OleDb

Public Class frmBlob
    Private path As String = ""

    Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
        Try
            With ofdPhoto
                .Title = "Browse Gambar"
                .FileName = "Pilih Gambar"
                .Filter = "Type(*.jpg, *.jpeg, *.bmp, *.gif, *.png)|*.jpg; *.jpeg; *.bmp; *gif; *.png"
                .ShowDialog()
                path = .FileName
                picPhoto.Image = Image.FromFile(path)
            End With
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
        End Try
    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        Dim fs As New FileStream(ofdPhoto.FileName, FileMode.OpenOrCreate, FileAccess.Read)
        Dim gambar(fs.Length) As Byte
        Dim Simpan As String = "INSERT INTO PEGAWAI(ID_PEGAWAI,NAMA,ALAMAT,JEN_KEL,PHOTO)" & _
        "VALUES(‘" & txtID.Text & "‘,'" & txtNama.Text & "‘," & _
        "‘" & txtAlamat.Text & "‘,'" & cboJenkel.Text & "‘,@photo)"
        Try
            fs.Read(gambar, 0, CInt(fs.Length))
            fs.Close()
            Dim Conn As New OleDbConnection(Koneksi)
            Conn.Open()
            Dim cmd As New OleDbCommand(Simpan, Conn)
            cmd.Parameters.AddWithValue("@photo", gambar)
            cmd.ExecuteNonQuery()
            MsgBox("Data Berhasil Disimpan!", MsgBoxStyle.Information, "Perhatian")
            btnBatal.PerformClick()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
        End Try
    End Sub

    Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
        Dim fs As New FileStream(ofdPhoto.FileName, FileMode.OpenOrCreate, FileAccess.Read)
        Dim gambar(fs.Length) As Byte
        Dim Update As String = "UPDATE PEGAWAI SET NAMA='" & txtNama.Text & "‘," & _
        "ALAMAT='" & txtAlamat.Text & "‘,JEN_KEL='" & cboJenkel.Text & "‘," & _
        "PHOTO=@photo WHERE ID_PEGAWAI='" & txtID.Text & "‘"
        Try
            fs.Read(gambar, 0, CInt(fs.Length))
            fs.Close()
            Dim Conn As New OleDbConnection(Koneksi)
            Conn.Open()
            Dim cmd As New OleDbCommand(Update, Conn)
            cmd.Parameters.AddWithValue("@photo", gambar)
            cmd.ExecuteNonQuery()
            MsgBox("Data Berhasil Diperbaiki", MsgBoxStyle.Information, "Perhatian")
            btnBatal.PerformClick()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
        End Try
    End Sub

    Private Sub btnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCari.Click
        Dim CariPhoto As String = "SELECT PHOTO FROM PEGAWAI WHERE ID_PEGAWAI='" & txtID.Text & "‘"
        Dim CariData As String = "SELECT * FROM PEGAWAI WHERE ID_PEGAWAI='" & txtID.Text & "‘"
        Try
            Dim Conn As New OleDbConnection(Koneksi)
            Conn.Open()
            Dim cmdData As New OleDbCommand(CariData, Conn)
            Dim reader As OleDbDataReader = cmdData.ExecuteReader
            reader.Read()
            If reader.HasRows Then
                txtNama.Text = reader("NAMA")
                txtAlamat.Text = reader("ALAMAT")
                cboJenkel.Text = reader("JEN_KEL")
                'Proses Cari Image Dengan Nilai byte
                Dim cmdPhoto As New OleDbCommand(CariPhoto, Conn)
                Dim gambar As Object = cmdPhoto.ExecuteScalar
                If gambar IsNot DBNull.Value Then
                    Dim byteArray As Byte() = CType(gambar, Byte())
                    Dim ioStream As New IO.MemoryStream(byteArray.Length)
ioStream.Write(byteArray, 0, byteArray.Length – 1)
                    picPhoto.Image = Image.FromStream(ioStream)
                    ioStream.Close()
                    ioStream.Dispose()
                Else
                    MsgBox("Photo Tidak Ditemukan…!", MsgBoxStyle.Exclamation, "Perhatian")
                End If
            Else
                MsgBox("Data Tidak Ditemukan….!", MsgBoxStyle.Exclamation, "Perhatian")
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
        End Try
    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
        txtID.Text = ""
        txtNama.Text = ""
        txtAlamat.Text = ""
        cboJenkel.Text = ""
        picPhoto.Image = Nothing
        txtID.Focus()
    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        Dim Hapus As String = "DELETE FROM PEGAWAI WHERE ID_PEGAWAI='" & txtID.Text & "‘"
        Try
            Dim Pesan As String = MsgBox("Yakin Akan Menghapus Data dengan ID Pegawai = " & txtID.Text & " ?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")
            If Pesan = vbYes Then
                Dim Conn As New OleDbConnection(Koneksi)
                Conn.Open()
                Dim cmd As New OleDbCommand(Hapus, Conn)
                cmd.ExecuteNonQuery()
                MsgBox("Data Sudah Dihapus…!")
                btnBatal.PerformClick()
            Else
                btnBatal.PerformClick()
                Exit Sub
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
        End Try
    End Sub