Program Visual Basic Net Untuk Menyimpan Gambar/Image Ke Database MySQL

Pernahkah anda menyimpan gambar/image ke dalam suatu database?

Ternyata tidak begitu sulit. Nah, pada sesi ini saya akan membahas bagaimana suatu gambar akan tersimpan dalam suatu database.

Terlebih dahulu anda buat database DBImage pada database anda dengan nama tabel Karyawan.

Adapun struktur dari tabel Karyawan yaitu :

Field     Type
NIK    Varchar(10)
Nama    Varchar(30)
Gambar    MediumBlob

Buatlah project baru, tambahkan Reference MySQL MySQL.Data.Dll Versi 6.9.5, Untuk versi tersebut silahkan di download di sini.

Design form seperti berikut ini :
















Listing programnya yaitu :

Imports MySql.Data.MySqlClient

Public Class Form1
    Dim PathFile As String
    Dim SQL As String
    Public Cn As New MySql.Data.MySqlClient.MySqlConnection
    Public CMD As MySqlCommand

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        Me.Close()
    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
        btnBaru_Click(sender, e)
    End Sub

    Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click
        NIK.Text = ""
        Nama.Text = ""
        PictureBox3.Image = Nothing
        NIK.Focus()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            With OpenFileDialog1
                .Filter = "JPG Files(*.jpg)|*.jpg|JPEG Files (*.jpeg)|*.jpeg|PNG Files(*.png)|*.png"
                .FileName = ""
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    .FilterIndex = 1
                    PictureBox3.Image = New Bitmap(.FileName)
                    PictureBox3.SizeMode = PictureBoxSizeMode.StretchImage
                    PathFile = .FileName
                End If
            End With
        Catch ex As Exception
            PictureBox3.Image = Nothing
        End Try
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Untuk Membuka Database
        SQL = "server=localhost;uid=root;pwd=;database=dbimage"
        Try
            If Cn.State = ConnectionState.Closed Then
                Cn.ConnectionString = SQL
                Cn.Open()
            End If
        Catch ex As Exception
            MsgBox("Database tidak bisa terbuka...!" & vbCrLf & ex.Message)
            End
        End Try
    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        'Menyimpan Data Karyawan
        SQL = "Insert Into Karyawan(NIK, Nama) Values('" & _
               NIK.Text & "','" & Nama.Text & "')"
        CMD = New MySqlCommand
        CMD.Connection = Cn
        CMD.CommandType = CommandType.Text
        CMD.CommandText = SQL
        CMD.ExecuteNonQuery()
        CMD = Nothing

        'Untuk Menyimpan Gambar Karyawan
        Dim xFoto() As Byte = IO.File.ReadAllBytes(PathFile)
        Try
            Dim cmdFoto As MySqlCommand = Cn.CreateCommand
            SQL = "Update Karyawan set Gambar=@pict Where NIK='" & NIK.Text & "'"
            With cmdFoto
                .CommandText = SQL
                .Connection = Cn
                .Parameters.Add("@pict", MySqlDbType.MediumBlob).Value = xFoto
                .ExecuteNonQuery()
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        Call btnBaru_Click(sender, e)
        MsgBox("Data Karyawan sudah tersimpan.")
    End Sub


End Class

Bila program diatas di jalankan maka akan menghasilkan seperti tampilan berikut ini :






































Apabila dilihat di dalam database, akan terlihat seperti berikut ini :

Demikianlah Program Visual Basic Net Untuk Menyimpan Gambar/Image Ke Database MySQL, semoga bermanfaat.


Silahkan download program visual basic net untuk menyimpan gambar/image ke database mySQL disini : download program visual basic net untuk menyimpan gambar/image ke database mySQL.