Berikut saya akan memberikan sedikit coding cara menyimpan atau insert gambar ke database dengan vb.net
Sebelumnya saya ucapkan selamat datang jika kamu adalah pendatang baru di blog jelek ini dan kalau kamu suka dengan postingan ini jangan lupa di like dan share ya.
Sedikit basa basi meski terlihat basi.
Baik langsung aja ya kita melangkah ke topik dari postingan ini yaitu bagaimana cara menyimpan gambar ke database dengan vb.net.
Pertama-tama buatlah sebuah database dengan nama partazonedb (saya menggunakan mysql aturlah sesuai yang kalian gunakan).
Setelah kalian membuat database, tambahkan satu table dengan nama tbsiswa (tabel siswa) dengan data seperti gambar di bawah ini ya. Saya buat idnya auto increment (id otomatis)
Setelah kalian membuat database dan juga tablenya maka kita melangkah ke step ke dua yaitu membuat aplikasi simpan gambarnya dengan vb.net tentunya.
Buka vb.net kalian dan buatlah project baru dan aturlah form seperti gambar di bawah ini
Dan ubahlah nama masing control seperti berikut
Txtnama
Txtpicture
Lbpicture
Btpicture
Pbgambar
Btsimpan
Nah kita sudah selesai mendesign sebuah form. Maka kita akan melangkah ke step ke tiga yaitu membuat koneksi ke database mysqlnya
Buatlah sebuah sub koneksi dengan code seperti berikut ini
Sub koneksi()
Try
Dim read As IO.StreamReader
read = IO.File.OpenText("koneksi.txt")
Dim str As String = read.ReadToEnd()
read.Close()
conn = New MySqlConnection(str)
If conn.State = ConnectionState.Closed Then
conn.Open()
MsgBox("Sukses", vbInformation, "Koneksi")
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Gagal")
End Try
End Sub
Dan panggil sub koneksi yang sudah kita buat ada form load dengan menambakan
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
koneksi()
End Sub
Sebelumnya imports terlebih dahulu mysql clientnya dengan menambahkan mysql.data.mysqlclient pada bagian paling atas dari code form
Imports mysql.data.mysqlclient
Pada sub koneksi kita menggunakan conn sebagai mysqlconectionya maka tambahkan public conn as MysqlConnection pada bagian bawah dari class form1
Public conn As MySqlConnection
Karena kita membuat koneksi dengan streamreader maka kita harus menambahkan koneksi.txt ke dalam.folder debug kita. Sebelumnya running dulu meski masih error..hehe
Buatlah koneksi.txt di dalam folder debug kalian dan isikan data koneksinya seperti berikut
Server=localhost;user id=root;password=;database=partazonedb
Nah coba jalankan lagi jika coding yang kalian buat sudah benar maka msgbox sukses akan muncul.
Selanjutnya kita akan melangkah ke step 4 yaitu menambhkan code pada btpicture ketika diclick. Tambahkan code berikut
Private Sub BtPicture_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtPicture.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
Pbgambar.SizeMode = PictureBoxSizeMode.StretchImage
Pbgambar.Image = New Bitmap(OpenFileDialog1.FileName)
BtSimpan.Enabled = True
pathfile = OpenFileDialog1.FileName
TxtPicture.Text = pathfile.Substring(pathfile.LastIndexOf("\") + 1)
lblpic.Text = OpenFileDialog1.FileName
Pbgambar.Image = Image.FromFile(lblpic.Text)
End If
End Sub
Melangkah ke step 5 dari cara menyimpan atau insert gambar ke database dengan vb.net ini. Pada step ini kita akan menambahkan code pada btsimpan. Tambahkan code berikut ini pada btsimpan ketika diclick
Private Sub BtSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSimpan.Click
If TxtNama.Text = "" Then
MsgBox("nama masih kosong")
Exit Sub
End If
If TxtPicture.Text = "" Then
strsql = "insert into tbsiswa (nama) values (@1)"
Dim mycomm As MySqlCommand = New MySqlCommand(strsql, conn)
With mycomm.Parameters
.Add("@1", MySqlDbType.Text, 50).Value = TxtNama.Text
End With
mycomm.ExecuteNonQuery()
mycomm = Nothing
MsgBox("Data disimpan")
TxtNama.Text = ""
TxtPicture.Text = ""
lblpic.Text = ""
Pbgambar.Image = Nothing
Else
strsql = "insert into tbsiswa (nama,gambar) values (@1,@2)"
Dim mycomm As MySqlCommand = New MySqlCommand(strsql, conn)
With mycomm.Parameters
.Add("@1", MySqlDbType.Text, 50).Value = TxtNama.Text
.Add("@2", MySqlDbType.Blob).Value = IO.File.ReadAllBytes(OpenFileDialog1.FileName)
End With
mycomm.ExecuteNonQuery()
mycomm = Nothing
MsgBox("Data disimpan")
TxtNama.Text = ""
TxtPicture.Text = ""
lblpic.Text = ""
Pbgambar.Image = Nothing
End If
End Sub
Coba jalankan program yang sudah kalian buat bagaimana sudah bisa menyimpan gambar kan ke database.
Untuk code lengkapnya bisa kalian lihat di bawah ini
Imports mysql.data.mysqlclient
Public Class Form1
Public pathfile As String = Nothing
Public strsql As String
Public conn As MySqlConnection
Sub koneksi()
Try
Dim read As IO.StreamReader
read = IO.File.OpenText("koneksi.txt")
Dim str As String = read.ReadToEnd()
read.Close()
conn = New MySqlConnection(str)
If conn.State = ConnectionState.Closed Then
conn.Open()
MsgBox("Sukses", vbInformation, "Koneksi")
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Gagal")
End Try
End Sub
Private Sub BtPicture_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtPicture.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
Pbgambar.SizeMode = PictureBoxSizeMode.StretchImage
Pbgambar.Image = New Bitmap(OpenFileDialog1.FileName)
BtSimpan.Enabled = True
pathfile = OpenFileDialog1.FileName
TxtPicture.Text = pathfile.Substring(pathfile.LastIndexOf("\") + 1)
lblpic.Text = OpenFileDialog1.FileName
Pbgambar.Image = Image.FromFile(lblpic.Text)
End If
End Sub
Private Sub BtSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSimpan.Click
If TxtNama.Text = "" Then
MsgBox("nama masih kosong")
Exit Sub
End If
If TxtPicture.Text = "" Then
strsql = "insert into tbsiswa (nama) values (@1)"
Dim mycomm As MySqlCommand = New MySqlCommand(strsql, conn)
With mycomm.Parameters
.Add("@1", MySqlDbType.Text, 50).Value = TxtNama.Text
End With
mycomm.ExecuteNonQuery()
mycomm = Nothing
MsgBox("Data disimpan")
TxtNama.Text = ""
TxtPicture.Text = ""
lblpic.Text = ""
Pbgambar.Image = Nothing
Else
strsql = "insert into tbsiswa (nama,gambar) values (@1,@2)"
Dim mycomm As MySqlCommand = New MySqlCommand(strsql, conn)
With mycomm.Parameters
.Add("@1", MySqlDbType.Text, 50).Value = TxtNama.Text
.Add("@2", MySqlDbType.Blob).Value = IO.File.ReadAllBytes(OpenFileDialog1.FileName)
End With
mycomm.ExecuteNonQuery()
mycomm = Nothing
MsgBox("Data disimpan")
TxtNama.Text = ""
TxtPicture.Text = ""
lblpic.Text = ""
Pbgambar.Image = Nothing
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
koneksi()
End Sub
End Class
Jika dalam latihan ini kalian ada kendala bisa tinggalkan komentar di bawah ini pasti akan saya balas.
Atau kalian bisa mendownload file lengkap latihan ini di bawah ini
Komentar
Posting Komentar