Upload Gambar Ke Database Mysql Dengan Visual Studio

Assalamualaikum Wr. Wb
Kali ini author bakal membuat tutorial tentang mengupload Image ke Database Mysql menggunakan Visual Studio dengan bahasa pemrograman VB.NET. Oke tanpa basa – basi lagi , kita mulai tutorial nya :

TABLE MYSQL

1. Author buat table di mysql bernama tbl_gambar.
2. Lalu buat 2 kolom :
- id_gambar : Primary Key, dan auto_increment bertipe INT.
- gambar : bertipe BLOB

*) BLOB adalah tipe khusus dimana data yang disimpan berupa kumpulan bit, biasanya digunakan untuk gambar.

DESIGN FORM

1. Pertama kita ambil PictureBox dari ToolBox.



2. Lalu tambahkan 2 button , yaitu dan ganti namanya menjadi Browse dan Upload
- Browse nanti nya untuk memilih gambar dengan OpenFileDialog.
- Upload untuk mengupload gambar.

Contoh :


3. Yang terakhir kita tambahkan OpenFileDialog , komponen ini digunakan untuk membuat search file pada aplikasi kita.



SCRIPT

1. Setelah selesai design tinggal buat Script nya.
2. Pada button Browse , kita masukkan script berikut :

        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            'mengganti gambar di PictureBox dengan gambar yang dipilih'
            PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName) 
        End If

Penjelasan :
- OpenFileDialog.ShowDialog() = Digunakan untuk membuka form search file.
- DialogResult.OK = Untuk mengetahui apakah user menekan tombol OK pada form search file.
- PictureBox1.Image = Adalah source gambar pada PictureBox1
- Image.FromFile(OpenFileDialog1.FileName) = Mengconvert File menjadi gambar yang bisa digunakan pada project

Yang pada intinya, script diatas untuk mengganti gambar pada PictureBox1 dengan gambar yang dipilih.

3. Lalu script pada button Upload

        Dim server As String = "localhost" '<- adalah nama server, bisa kalian ganti IP'
        Dim database As String = "db_olshop" '<- adalah nama database'
        Dim user As String = "root" '< - adalah nama user pada mysql'

        'membuat koneksi dengan mysql'
        Dim conn As New MySqlClient.MySqlConnection
        conn.ConnectionString = "server=" + server + ";user id=" + user + ";database=" + database
        conn.Open() 'buka koneksi'

        'memindahkan data gambar di PictureBox1 ke object arr_image'
        Dim mstream As New System.IO.MemoryStream
        PictureBox1.Image.Save(mstream, Imaging.ImageFormat.Png)
        Dim arr_image = mstream.GetBuffer

        'mengupload data gambar berupa bit ke mysql'
        Dim sql As String = "INSERT INTO tbl_gambar(gambar) VALUES (@v1)"
        Using cmnd As New MySqlClient.MySqlCommand(sql, conn)
            cmnd.Parameters.AddWithValue("@v1", arr_image)
            cmnd.ExecuteNonQuery() 'eksekusi perintah sql nya'
        End Using

        conn.Close() 'tutup koneksi'

Penjelasan :
- PictureBox1.Image.Save(mstream, Imaging.ImageFormat.Png) = Script ini berfungsi untuk menyimpan data gambar (bit) pada PictureBox1 ke dalam variable mstream dalam format Png.
- Dim arr_image = mstream.GetBuffer  =  mengubah mstream ke bentuk object agar bisa diupload.

Berikut adalah full script milik author :

Imports MySql.Data
Public Class CobaPicture


    Private Sub button_browser_click(sender As Object, e As EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub button_upload_click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim server As String = "localhost" '<- adalah nama server, bisa kalian ganti IP'
        Dim database As String = "db_olshop" '<- adalah nama database'
        Dim user As String = "root" '< - adalah nama user pada mysql'

        'membuat koneksi dengan mysql'
        Dim conn As New MySqlClient.MySqlConnection
        conn.ConnectionString = "server=" + server + ";user id=" + user + ";database=" + database
        conn.Open() 'buka koneksi'

        'memindahkan data gambar di PictureBox1 ke object arr_image'
        Dim mstream As New System.IO.MemoryStream
        PictureBox1.Image.Save(mstream, Imaging.ImageFormat.Png)
        Dim arr_image = mstream.GetBuffer

        'mengupload data gambar berupa bit ke mysql'
        Dim sql As String = "INSERT INTO tbl_gambar(gambar) VALUES (@v1)"
        Using cmnd As New MySqlClient.MySqlCommand(sql, conn)
            cmnd.Parameters.AddWithValue("@v1", arr_image)
            cmnd.ExecuteNonQuery() 'eksekusi perintah sql nya'
        End Using


        conn.Close() 'tutup koneksi'
    End Sub
End Class

Jika kalian mau improvisasi , kalian bisa menggunakan cara – cara lain untuk membuat aplikasi kalian lebih menarik. Ini cuman dasar, jika kalian kembangkan lagi, mungkin bakal lebih hebat

Nah, sekian adalah tutorial bagaimana cara mengupload file gambar ke database mysql. jika kalian masih kesulitan dalam tutorial ini atau mengalami kegagalan , kalian bisa comment dipost ini. Semoga Bermanfaat.

Wassalamualaikum Wr. Wb


<