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

1. vbmysqldirect melalui project –> references –> VB MySQL Direct V1.0.
2. 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.

Leave your comment here:

Click here to cancel reply.

Name (required)

Mail (will not be published) (required)

Website (Optional)

Subscribe to comments feed

CAPTCHA Code *