rizaarifudin[dot]com

Berbagi ilmu, pengalaman, tips dan trik, software

You are here: » Menyimpan Gambar ke MySQL pada VB

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:

Menyimpan Gambar

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.

Posted by 2 Responses
 

Free Email Newsletter

Stay Updates with this Blog. Get Free email newsletter updates..

And then confirm your email subcription

   

2 Comments to “Menyimpan Gambar ke MySQL pada VB”

  1. Jefri says:

    bagus pak ..^_^

  2. syafii says:

    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

Leave your comment here:

*

Jul
1
2011
 
Archives
Chat
Name:
Email:
For:  
Mail will not be published
(but it's required)