Cara Menyimpan Gambar Di MySQL dengan VB.Net

Salam NewGen, kali ini  saya akan mengshare cara menyimpan gambar di database MySQL dengan menggunakan VB.Net... Ok kita langsung aja... tapi sebelumnya kita harus punya xampp dan Vb.netnya terlebih dahulu. Jika belum tahu cara instal xampp DISINI dan jangan lupa download dan instal MySQL Connector/Net 32bit, 64bit.

1.      Buat Database Di Xampp MySQL dengan nama belajar dan nama tabel gambar_vb

Nama Field           Jenis               

Nama                    Varchar(50)

Alamat                  Varchar(50)

Gambar                 MEDIUMBLOB

2.      Kalau udah kita lanjutkan dengan membuat project baru kemudian tambahkan referensi MySql.Data (menu Project -> Add Reference…)

3.      Selanjutnya kita design Form seperti Dibawah ini

Rincian : 2 Button, 1 PictureBox, 1 Label dan 1 TextBox jangan lupa juga tambahkan OpenFileDialog dari Toolbox

4.      Tambahkan Imports MySql.Data & Imports System.Data.SqlClient di paling atas listing (Doubble Klik Formnya Untuk melihat listing) dan bawah class Form1

Private conn As New MySqlClient.MySqlConnection

Private strSql As String = String.Empty

Private PathFile As String = Nothing

Public Sub New()

    ' This call is required by the Windows Form Designer.

    InitializeComponent()

    ' Add any initialization after the InitializeComponent() call.

    ' kode untuk melakukan koneksi mulai dari sini

    Dim strConn As String = "server=127.0.0.1;uid=root;database=belajar"

    conn.ConnectionString = strConn

 conn.Open()

End Sub

5.      Berikan listing pada button browse (Doubble Klik di Button Browse)

Listing :

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

      PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

      PictureBox1.Image = New Bitmap(OpenFileDialog1.FileName)

      Button3.Enabled = True

      PathFile = OpenFileDialog1.FileName

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

      Label1.Text = OpenFileDialog1.FileName

      PictureBox1.Image = Image.FromFile(Label1.Text)

End If

6.      Berikan Listing pada Button Simpan

Listing :

Try

    strSql = "Insert into gambar_vb (nama,alamat,gambar) values (@1,@2,@3)"

    Using cmd As New MySqlClient.MySqlCommand(strSql, conn)

    With cmd

      .Parameters.Clear()

      .Parameters.AddWithValue("@1", (TextBox1.Text)) ' nama

      .Parameters.AddWithValue("@2", (Label1.Text)) ' alamat

      .Parameters.AddWithValue("@3", IO.File.ReadAllBytes(OpenFileDialog1.FileName)) ' gambar

       .ExecuteNonQuery()

      End With

      End Using

MessageBox.Show("Data sudah disimpan", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

Catch ex As Exception

      MsgBox(ex.Message)

End Try

PictureBox1.Image = Nothing

TextBox1.Text = ""

Label1.Text = ""

Selesai dah silahkan Di coba...

Hasil Running

Semoga Bermanfaat... Berikutnya saya akan share tentang cara menampilkan gambar dari database MySQL semoga gak ada halangan ya.... Salam NewGen....