Bismillah...
Adakalanya dikala 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 sanggup menyimpan data dalam bentuk gambar?
Jika anda sedang mencari tanggapan dari pertanyaan di atas, berarti anda sedang berada pada blog yang tepat. Karena pada postingan kali ini kita akan berguru ihwal bagaimana menyimpan gambar pada VB.NET dengan memakai database MYSQL.
Tanpa berlama-lama lagi, silahkan ikuti langkah-langkah berikut ini:
Pastikan sudah terinstall myconector odbc nya, saya memakai versi 3.51 . Jika belum silahkan d0wnl0ad dulu disini unduh myconnector odbc 3.5.1
1. Buat database gres 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, ibarat terlihat pada pola gambar di bawah ini:
4. Klik simpan jika sudah final pembuatan rancangan tabelnya
5. Setelah database final dibuat, kita masuk ke aplikasi VB.NET
6. Setelah Form1 terbuka, lakukan design interface ibarat tampak pada gambar di bawah ini:
7. Kemudian lakukan setting propertis, baca klarifikasi 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 yaitu mengetikkan codingnya, lihat dan pahami coding di bawah ini
Tambahkan module (klik sajian 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 bab atas Public Class Form1 ketikkan coding berikut:
Imports System.Data.Odbc
Kemudian pada bab 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 dikala 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, lalu ketikkan coding untuk menampilkan gambar sesuai dengan isyarat 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, kalau gambar sudah muncul klik simpan) ibarat pada gambar berikut:
10. Untuk menampilkan gambar yang sudah tersimpan, tinggal masukkan isyarat gambar yang sudah disimpan maka gambar akan muncul.
Baca juga : Array pada VB.NET
Demikian postingan kali ini yaitu ihwal menyimpan gambar pada VB.NET dengan database MySQL. Terimakasih sudah berkunjung biar bermanfaat.
Sumber http://pabaiq.blogspot.com
EmoticonEmoticon