Menyimpan Gambar ke MySQL pada VB
Menyimpan Gambar ke MySQL pada VB
Menyimpan Gambar ke MySQL pada VB merupakan suatu hal yang mudah apabila kita menggunakan komponen vbmysqldirect untuk koneksinya. Awalnya merupakan sesuatu yang cukup sulit (error terus 🙁 ). Dalam tulisan ini saya akan berbagi source code tentang bagaimana menyimpan gambar ke MySQL pada pemrograman database menggunakan bahasa pemrograman VB. Pada kesempatan ini, saya akan membuat contoh sederhana yang merupakan lanjutan dari tulisan saya sebelum-sebelumnya mengenai koneksi database VB dan MySQL. Masih sama dengan tulisan sebelumnya, bahwa saya menggunakan komponen vbmysqldirect yang bisa diunduh pada halaman download. Ok langsung saja…
Sebelum memulai membuat program menyimpan gambar, kita buat dulu databasenya. yaitu dengan sintax berikut ini:
CREATE DATABASE dbbio; use dbbio; CREATE TABLE biodata ( noid VARCHAR(20) NOT NULL, nama VARCHAR(25) default NULL, photo LONGBLOB default NULL, PRIMARY KEY (noid));
Pertama buat buka project baru dan form baru pada program VB dikomputer Anda. jangan lupa tambahkan
- vbmysqldirect melalui project –> references –> VB MySQL Direct V1.0.
- Common Dialog (Codi) melalui component (Ctrl+T) -> “Microsoft Common Dialog Control 6.0”
Selanjutnya buat design form untuk menyimpan gambar seperti gambar berikut ini:
Berikut adalah source code untuk menyimpan gambar ke MySQL pada VB:
Dim koneksi As New MYSQL_CONNECTION Dim rs As New MYSQL_RS Private Sub CmdBrowse_Click() Codi.Filter = "(*.jpg,*.bmp)|*.jpg;*.bmp" Codi.ShowOpen ImgPhoto.Picture = LoadPicture(Codi.FileName) End Sub Private Sub CmdSimpan_Click() On Error GoTo salah: rs.CloseRecordset rs.OpenRs "SELECT * FROM biodata", koneksi With rs .AddNew .Fields("noid") = txtID.Text .Fields("nama") = txtNama.Text If ImgPhoto.Picture = 0 Then .Fields("photo") = "" Else .Fields("photo") = .ReadBinaryFromFile(Codi.FileName) End If .Update txtID.Text = Empty txtNama.Text = Empty ImgPhoto.Picture = LoadPicture("") End With rs.CloseRecordset Set rs = Nothing Exit Sub salah: pesan = MsgBox("Simpan Data tidak berhasil!" & Err.Description, vbInformation + vbOKOnly, "Peringatan") End Sub Private Sub Form_Load() koneksi.OpenConnection "localhost", "root", "root", "dbbio", 3306 End Sub
Program untuk menyimpan gambar ke MySQL pada VB belum ada tombol untuk menampilkan (load) kembali gambar yang sudah tersimpan. Tunggu saja tulisan berikutnya :D.
Selamat mencoba.
Free Email Newsletter
And then confirm your email subcription
2 Comments to “Menyimpan Gambar ke MySQL pada VB”
bagus pak ..^_^
mau nanya pak, klo mau ngedit data/gambar nya gimana pak??
soalnya klo edit selain gambar saya dah bisa. cuman ngrubah gambare yg blum bisa. tolong di jelaske lagi ya pak