Program Visual Basic Net Untuk Menampilkan Gambar/Image Dari Database MySQL

Pada postingan Program Visual Basic Net Untuk Menyimpan Gambar/Image Ke Database MySQL sebelumnya sudah di bahas.

Tidak lengkap bila tidak disertai dengan Program Visual Basic Net Untuk Menampilkan Gambar/Image Dari Database MySQL.

Nama Database : dbimage
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.


Silahkan design form seperti dibawah ini :

 














Listing Program Visual Basic Net Untuk Menampilkan Gambar/Image Dari Database MySQL

Imports MySql.Data.MySqlClient

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

    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 NIK_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NIK.KeyPress
        If Asc(e.KeyChar) = 13 Then
            SQL = "Select * from Karyawan Where NIK='" & NIK.Text & "'"
            CMD = New MySqlCommand(SQL, Cn)
            RS = CMD.ExecuteReader
            If RS.Read Then
                Nama.Text = RS!Nama

                Dim imageBytes() As Byte = CType(RS!Gambar, Byte())
                Dim ImgMS As New System.IO.MemoryStream(imageBytes)

                PictureBox3.Image = Image.FromStream(ImgMS)
                PictureBox3.SizeMode = PictureBoxSizeMode.StretchImage
            Else
                Call btnBaru_Click(sender, e)
            End If
            RS.Close()
        End If
    End Sub

    Private Sub NIK_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.TextChanged

    End Sub

    Private Sub Form2_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
End Class

Hasil Program Visual Basic Net Untuk Menampilkan Gambar/Image Dari Database MySQL, dapat dilihat :

Pada Textbox NIK harus di ENTER

Silahkan di download Program Visual Basic Net Untuk Menampilkan Gambar/Image Dari Database MySQL disini.