Cara menyimpan dan menampilkan gambar ke database VB.NET 2010

         Sekarang saya mau share nie cara memanggil,simpan & menampilkan gambar,.. Nah ada beberapa cara untuk memanggil,simpan & menampilkan gambar terkadang menggunakan cara menyimpan langsung gambar ke dalam database. Ada juga cara menyimpan hanya alamat gambar ke database kata-katanya sih supaya kapasitas database tidak berat dan memungkinkan untuk penyimpanan data skala besar. Nah sekarang saya mau share menggunakan cara kedua yaitu menyimpan data gambar dari folder di Direktori ke database. Dapet dari mbah google juga sih, ets..tapi saya gak copy paste loh.. en saya rubah2 dikit lah.. DIKIT,hehehhe.. Ok basa-basinya cukup sudah,sekarang waktunya berCODING-ria...jrenk..jrenk.. 

Berikut langkah – langkahnya :

Langkah Pertama        : buat tabel untuk simpan data gambar disini aku makai tb_foldergambar

Langkah Kedua           : buat 3 kolom yaitu kd_gambar(interger),nama(varchar),alamat(varchar)

Add caption

Langkah Ketiga           : buka vb.net nya ikutin gambar ini tp,sesuai dengan selera juga gak apa-apa sih,..

Add caption

 Dengan properti berikut;

Nama Kontrol	Values	Keterangan
Textbox	txt_kdgambar	Textbox kode gambar
Textbox	txt_nmgambar	Textbox nama gambar
Label	lbl_alamat	Label alamat gambar
Button	btnpilih	Button pilih gambar
Button	btnsimpan	Button simpan gambar
PictureBox	pct_gambar	PictureBox
OpenDialog1	OpenDialog1	OpenDialog1

Langkah Kelima           : Anda harus membuat koneksi terlebih dahulu. Disini saya memakai database Mysql dengan connector MyODBC-3.51.12-win32.

Source codenya untuk memanggil gambar :

Imports System.Data.Odbc

Public Class Form1

    Dim conn As New accesdata.koneksi

    Private PathFile As String = Nothing

    Dim sql As String

    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|TIFF Files(*.tiff)|*.tiff"

        OpenFileDialog1.FileName = ""

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

            pct_gambar.SizeMode = PictureBoxSizeMode.StretchImage

            pct_gambar.Image = New Bitmap(OpenFileDialog1.FileName)

            btnpilih.Enabled = True

            PathFile = OpenFileDialog1.FileName

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

            lbl_alamat.Text = OpenFileDialog1.FileName

            pct_gambar.Image = Image.FromFile(lbl_alamat.Text)

        End If

    End Sub

Source code untuk simpan gambar :

Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        Try

            sql = "Insert into tb_foldergambar (kd_gambar,nama,alamat) values (?,?,?)"

            Dim mycomm As OdbcCommand = New OdbcCommand(sql, conn.buka)

            With mycomm.Parameters

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

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

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

            End With

            mycomm.ExecuteNonQuery()

            mycomm = Nothing

            MsgBox("Simpan Data Foto ke database berhasil", MsgBoxStyle.MsgBoxSetForeground, "Simpan")

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

Source code untuk Menampilkan gambar :

Private Sub txt_kdgambar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_kdgambar.TextChanged

        Dim sql As String = ("select*from tb_foldergambar where kd_gambar ='" & txt_kdgambar.Text & "'")

        Dim cmd = New OdbcCommand(sql, conn.buka)

        Dim rd As OdbcDataReader

        rd = cmd.ExecuteReader

        rd.Read()

        If rd.HasRows Then

            txt_nmgambar.Text = rd.Item("nama")

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

            pct_gambar.ImageLocation = rd.Item("alamat") 'untuk mencari lokasi gambar pada direktori

            pct_gambar.SizeMode = PictureBoxSizeMode.StretchImage

        End If

    End Sub

Semoga Bermanfaat

Posted in Visual Basic 2010