Menyimpan Gambar dengan VB.NET dan MySQL

Bismillah...

Adakalanya ketika dalam pembuatan sebuah aplikasi dengan VB.NET, data yang disimpan ke dalam database tidak hanya dalam bentuk teks dan angka saja. Akan tetapi ada beberapa inputan yang di dalamnya terdapat data dalam bentuk gambar, semisal Foto dan lain sebagainya.

Apakah dengan VB.NET bisa menyimpan data dalam bentuk gambar?

Jika anda sedang mencari jawaban dari pertanyaan di atas, berarti anda sedang berada pada blog yang tepat. Karena pada postingan kali ini kita akan belajar tentang bagaimana menyimpan gambar pada VB.NET dengan menggunakan database MYSQL.

Baca juga : Amicable Number

Baca juga : Fungsi IF And dan IF Or

Tanpa berlama-lama lagi, silahkan ikuti langkah-langkah berikut ini:

Pastikan sudah terinstall myconector odbc nya,  saya menggunakan versi 3.51 . Jika belum silahkan download dulu disini unduh myconnector odbc 3.5.1

1. Buat database baru pada MySQL dengan nama simpangambar

2. Kemudian buat tabel dengan nama tbgambar dan jumlah filed 3

3. Setelah itu rancang tabel dengan mengeketikan nama-nama filed yang dibutuhkan, seperti terlihat pada contoh gambar di bawah ini:

  

4. Klik simpan jika sudah selesai pembuatan rancangan tabelnya

5. Setelah database selesai dibuat, kita masuk ke aplikasi VB.NET

6. Setelah Form1 terbuka, lakukan design interface seperti tampak pada gambar di bawah ini:

7. Kemudian lakukan setting propertis, baca penjelasan di bawah ini:

No. 1 = Textbox1 dirubah Name=TxtKodeGbr 

No. 2 = Button1 dirubah Name=BtnPilih, Text=&Pilih

No. 3 = PictureBox dirubah Name=PctGbr

No. 4 = Textbox2 dirubah Name=TxtNamaGbr

No. 5 = Label3 dirubah Name=LblPath

No. 6 = Button2 dirubah Name=BtnSimpan, Text=&Simpan

No. 7 = OpenFileDialog1 (tidak usah dirubah)

8. Setelah setting properties selesai, maka selanjutkan adalah mengetikkan codingnya, lihat dan pahami coding di bawah ini

Tambahkan module (klik menu Project – Pilih Add Module) untuk mengetikkan variabel public dan coding koneksi ke databasenya. Setelah itu ketikkan coding di bawah ini:

Imports System.Data.Odbc

Module Module1

    Public konek As OdbcConnection

    Public da As OdbcDataAdapter

    Public ds As DataSet

    Public cmd As OdbcCommand

    Public rd As OdbcDataReader

    Public sql As String

    

    Sub Koneksi()

sql="driver={mysql odbc 3.51 driver};database=simpangambar; server=localhost; uid=root"

        konek = New OdbcConnection(sql)

        If konek.State = ConnectionState.Closed Then

            konek.Open()

        End If

    End Sub

End Module

Kemudian pada bagian atas Public Class Form1 ketikkan coding berikut:

Imports System.Data.Odbc

Kemudian pada bagian bawah Public Class Form1 ketikkan coding berikut:

Private PathFile As String = Nothing

Kemudian Double Click pada Form1 dan ketikkan nama sub koneksi yang kita buat pada modul

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Koneksi()

End Sub

Kemudian Double Click pada BtnPilih dan ketikkan codingnya, untuk menampilkan gambar pada PictureBox

Private Sub BtnPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPilih.Click

   On Error Resume Next

  OpenFileDialog1.Filter="JPG Files(*.jpg)|*.jpg| JPEG Files(*.jpeg) |*.jpeg|GIF Files(*.gif)|*.gif|PNG Files(*.png)|*.png|BMP files(*.bmp)|*.bmp|"

  OpenFileDialog1.FileName = ""

  If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

    PctGbr.SizeMode = PictureBoxSizeMode.StretchImage

    PctGbr.Image = New Bitmap(OpenFileDialog1.FileName)

    BtnPilih.Enabled = True

    PathFile = OpenFileDialog1.FileName

    TxtNamaGbr.Text=PathFile.Substring(PathFile.LastIndexOf("\")+1)

    LblPath.Text = OpenFileDialog1.FileName

    PctGbr.Image = Image.FromFile(LblPath.Text)

  End If

    PctGbr.Visible = True

End Sub

Kemudian buat Sub Bersih untuk membersihkan textbox dan label ketika disimpan

    

    Sub BERSIH()

        TxtKodeGbr.Clear()

        TxtNamaGbr.Clear()

        LblPath.Text = ""

        PctGbr.Hide()

    End Sub

Kemudian Double Click pada BtnSimpan untuk mengetikkan coding perintah menyimpan pada database

Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click  

Try

  Sql="Insert into tbgambar(kode_gbr,nama_gbr,alamat)values(?,?,?)"

  Dim mycomm As OdbcCommand = New OdbcCommand(sql, konek)

  With mycomm.Parameters

    .Add("?", OdbcType.VarChar, 10).Value = TxtKodeGbr.Text.Trim

    .Add("?", OdbcType.VarChar, 50).Value = TxtNamaGbr.Text.Trim

    .Add("?", OdbcType.VarChar, 100).Value = LblPath.Text.Trim

  End With

  mycomm.ExecuteNonQuery()

  mycomm = Nothing

 MsgBox("Menympan gambar berhasil",MsgBoxStyle.MsgBoxSetForeground, "Save Gambar")

Catch ex As Exception

  MsgBox(ex.Message)

End Try

  BERSIH()

End Sub

Kemudian Double Click pada TxtKodeBrg, kemudian ketikkan coding untuk menampilkan gambar sesuai dengan kode gambar yang diinput pada txtKodeGbr

Private Sub TxtKodeGbr_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtKodeGbr.TextChanged

sql = "select*from tbgambar where kode_gbr='" & TxtKodeGbr.Text & "'"

        cmd = New OdbcCommand(sql, konek)

        rd = cmd.ExecuteReader

        rd.Read()

        If rd.HasRows Then

            TxtNamaGbr.Text = rd.Item("nama_gbr")

            LblPath.Text = rd.Item("alamat")

            PctGbr.ImageLocation = rd.Item("alamat")

            PctGbr.SizeMode = PictureBoxSizeMode.StretchImage

        Else

            TxtNamaGbr.Clear()

            LblPath.Text = ""

            PctGbr.Hide()

        End If

        PctGbr.Visible = True

End Sub

9. Jika semua tahapan telah diikuti dengan sebaik-baiknya, silahkan di running untuk menguji keberhasilan aplikasi ini, (input Kode gambar, Klik Pilih, jika gambar sudah muncul klik simpan) seperti pada gambar berikut:

10. Untuk menampilkan gambar yang sudah tersimpan, tinggal masukkan kode gambar yang sudah disimpan maka gambar akan muncul.

Baca juga : Array pada VB.NET

Demikian postingan kali ini yaitu tentang menyimpan gambar pada VB.NET dengan database MySQL. Terimakasih sudah berkunjung semoga bermanfaat.