Cara Membuat Program Simpan Gambar di Visual Basic Net

Cara Membuat Program Simpan Gambar di Visual Basic Net, Dalam mengelola sebuah data biasanya hanya berupa text dan juga angka, namun ada juga sebuah data yang harus dilengkapi dengan sebuah gambar untuk memperjelas sebuah keterangan dari data tersebut. Program dengan menyisipkan sebuah gambar atau foto biasanya dapat kita temui dalam program rekap data karyawan, mahasiswa, barang dan sebagainya.

Pada kesempatan yang baik ini kita akan belajar membuat sebuah program sederhana yang dapat digunakan untuk memanage sebuah gambar, baik menambahkan data dengan gambar / foto, mengedit data tersebut dan menghapusnya. Program ini sederhana serta dapat anda gunakan untuk membuat program yang lebih kompleks lagi.

Untuk membuat program simpan gambar tersebut ikutilah langkah - langkah berikut ini.

Buatlah sebuah database pada microsoft access dengan nama mahasiswa kemudian tambahkan satu buah tabel dengan spesifikasi barikut.

Field	Type	Size	Key
NIM	Text	10	*
Nama	Text	30
Gambar	OLE Object

Setelah membuat database tersebut jalankan program visual basic .net kemudian buatlah satu buah project baru dan desainlah form1 seperti gambar di bawah ini.

Setelah membuat desain form seperti gambar di atas selanjutnya tambahkanlah source code berikut ini pada form1 tersebut, jangan lupa untuk setiap button dan text box di sesuaikan namanya karena jika tidak maka button tidak akan berfungsi.

Source Code Form1

Imports System.Data.OleDb
Imports System.IO

Public Class Form1
    Public Const koneksi_database As String = "provider=microsoft.ace.oledb.12.0;data source=mahasiswa.accdb"

    Private Sub tampil_grid()
        Dim koneksi As New OleDbConnection(koneksi_database)
        koneksi.Open()
        Dim sql_string As String = "select nim as NIM, nama as Nama, gambar as Gambar from tb_mahasiswa"
        Dim sql_adapter As New OleDbDataAdapter(sql_string, koneksi)
        Dim dataset As New DataSet
        sql_adapter.Fill(dataset)
        sql_adapter.Dispose()
        Dim isi_mahasiswa As DataTable = dataset.Tables(0)
        DataGridView1.DataSource = isi_mahasiswa
        koneksi.Close()
    End Sub

    Private Sub simpan()
        If TextBox1.Text = " " Then
            MsgBox("NIM Masih Kosong….", MsgBoxStyle.Critical, "Warning")
            TextBox1.Focus()
        ElseIf TextBox2.Text = "" Then
            MsgBox("Nama Masih Kosong…", MsgBoxStyle.Critical, "Warning")
            TextBox2.Focus()
        ElseIf PictureBox1.Image Is Nothing Then
            MsgBox("Maaf, Photo Mahasiswa Masih Kosong….", MsgBoxStyle.Critical, "Warning")
            Button5.Focus()
        Else
            Dim koneksi As New OleDbConnection(koneksi_database)
            koneksi.Open()
            Dim memory_stream As New MemoryStream
            PictureBox1.Image.Save(memory_stream, PictureBox1.Image.RawFormat)
            Dim gambar() As Byte = memory_stream.GetBuffer
            memory_stream.Close()
            Dim sql_string As String = "insert into tb_mahasiswa values('" & TextBox1.Text & "','" & TextBox2.Text & "',@gambar)"
            Dim sql_command As New OleDbCommand(sql_string, koneksi)
            sql_command.Parameters.Add("@gambar", OleDbType.Binary).Value = gambar
            Dim reader As OleDbDataReader
            reader = sql_command.ExecuteReader
            koneksi.Close()
        End If
    End Sub

    Private Sub ubah()
        If TextBox1.Text = " " Then
            MsgBox("NIM Masih Kosong….", MsgBoxStyle.Critical, "Warning")
            TextBox1.Focus()
        ElseIf TextBox2.Text = " " Then
            MsgBox("Nama Masih Kosong…", MsgBoxStyle.Critical, "Warning")
            TextBox2.Focus()
        ElseIf PictureBox1.Image Is Nothing Then
            MsgBox("Maaf, Photo Mahasiswa Masih Kosong….", MsgBoxStyle.Critical, "Warning")
            Button5.Focus()
        Else
            Dim koneksi As New OleDbConnection(koneksi_database)
            koneksi.Open()
            Dim memory_stream As New MemoryStream
            PictureBox1.Image.Save(memory_stream, PictureBox1.Image.RawFormat)
            Dim gambar() As Byte = memory_stream.GetBuffer
            memory_stream.Close()
            Dim sql_string As String = "update tb_mahasiswa set nama='" & TextBox2.Text & "', gambar=@gambar where nim='" & TextBox1.Text & "'"
            Dim sql_command As New OleDbCommand(sql_string, koneksi)
            sql_command.Parameters.Add("@gambar", OleDbType.Binary).Value = gambar
            Dim reader As OleDbDataReader
            reader = sql_command.ExecuteReader
            koneksi.Close()
        End If
    End Sub
    Private Sub hapus()
        Dim koneksi As New OleDbConnection(koneksi_database)
        koneksi.Open()
        Dim sql_string As String = "delete from tb_mahasiswa where nim='" & DataGridView1.SelectedCells(0).Value & "'"
        Dim sql_command As New OleDbCommand(sql_string, koneksi)
        Dim reader As OleDbDataReader
        reader = sql_command.ExecuteReader
        koneksi.Close()
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Call tampil_grid()
        Call disabled_form()
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        If Button2.Text = "Save" Then
            Call simpan()
            Call disabled_form()
            Call tampil_grid()
            Call bersih()
            Button4.Text = "Exit"
            Button2.Enabled = False
            Button1.Enabled = True
            Button1.Focus()
        ElseIf Button2.Text = "Update" Then
            Call ubah()
            Call disabled_form()
            Call tampil_grid()
            Call bersih()
            Button4.Text = "Exit"
            Button2.Enabled = False
            Button1.Enabled = True
            Button1.Focus()
        End If
    End Sub

    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        OpenFileDialog1.Filter = "JPG|*.JPG|BMP|*.BMP|GIF|*.GIF|PNG|*.PNG"
        OpenFileDialog1.RestoreDirectory = True
        OpenFileDialog1.ShowDialog()
        If OpenFileDialog1.FileName = " " Then Exit Sub
        PictureBox1.ImageLocation = OpenFileDialog1.FileName
    End Sub

    Private Sub disabled_form()
        TextBox1.Enabled = False       TextBox2.Enabled = False        Button2.Enabled = False
        Button3.Enabled = False        Button5.Enabled = False
    End Sub

    Private Sub enabled_form()
        TextBox1.Enabled = True        TextBox2.Enabled = True        Button5.Enabled = True
    End Sub

    Private Sub bersih()
        TextBox1.Text = " "
        TextBox2.Text = " "
        PictureBox1.Image = Nothing
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Call bersih()
        Call enabled_form()
        TextBox1.Focus()
        Button2.Enabled = True
        Button4.Text = "Cancel"
        Button2.Text = "Save"
        Button1.Enabled = False
    End Sub
    Private Sub DataGridView1_CellClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        Dim koneksi As New OleDbConnection(koneksi_database)
        koneksi.Open()
        Dim sql_string As String = "select * from tb_mahasiswa where nim='" & DataGridView1.SelectedCells(0).Value & "'"
        Dim sql_command As New OleDbCommand(sql_string, koneksi)
        Dim reader As OleDbDataReader
        reader = sql_command.ExecuteReader
        If reader.Read Then
            TextBox1.Text = reader("nim")
            TextBox2.Text = reader("nama")
            Dim gambar() As Byte
            gambar = reader.Item("gambar")
            PictureBox1.Image = Image.FromStream(New IO.MemoryStream(gambar))
            Button2.Enabled = True
            Button3.Enabled = True
            Button2.Text = "Update"
            TextBox2.Enabled = True
            TextBox2.Focus()
            Button5.Enabled = True
            Button4.Text = "Cancel"
            Button1.Enabled = False
        End If
        koneksi.Close()
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Call hapus()        Call bersih()        Call disabled_form()
        Call tampil_grid()
        Button3.Enabled = False
        Button1.Enabled = True
        Button1.Focus()
    End Sub

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        If Button4.Text = "Cancel" Then
            Call bersih()
            Call disabled_form()
            Call tampil_grid()
            Button1.Enabled = True
            Button1.Focus()
            Button5.Enabled = False
        ElseIf Button4.Text = "Exit" Then
            Me.Close()
        End If
    End Sub
End Class

Setelah menambahkan source code pada form1 selanjutnya simpan database yang sudah dibuat sebelumnya pada folder bin/debug, agar database dapat terbaca. Silahkan lakukan uji coba dengan menekan tombol F5 pada program visual basic. Itulah cara membuat program simpan gambar di visual basic net, Selamat belajar happy coding, semoga bermanfaat.

Download

Share this post