rizaarifudin[dot]com

Berbagi ilmu, pengalaman, tips dan trik, software

You are here: » Menampilkan Gambar dari MySQL pada VB

Menampilkan Gambar dari MySQL pada VB

Menampilkan Gambar dari MySQL pada VB

Menampilkan Gambar dari MySQL pada VB merupakan lanjutan dari tulisan saya sebelumnya. Dengan menggunakan koneksi vbmysqldirect, kita akan dengan mudah membuat program untuk menampilkan gambar. tipe gambar atau photo yang disimpan dalam database MySQL bertipe BLOB (bisa LONGBLOB, BLOB atau yg lain). Tulisan ini saya sebelumnya sudah menjelaskan bagaimana membuat database dan tabelnya, sekaligus bagaimana membuat program cara menyimpan gambarnya ke dalam database MySQL dengan bahasa pemrograman yang sama yaitu MS. Visual Basic 6.0.

Pada Tulisan kali ini, saya akan berbagi source code tentang bagaimana menampilkan gambar dari MySQL pada bahasa pemrograman VB. saya akan menunjukkan contoh sederhana yang merupakan lanjutan dari tulisan saya  sebelum-sebelumnya yaitu menyimpan gambar ke MySQL pada VB (tentunya pada MySQLnya untuk gambar/photo bertipe BLOB) . Saya tetap menggunakan komponen vbmysqldirect yang bisa diunduh pada halaman download. Ok langsung keTKP… 🙂

Desain form yang dibuat untuk menampilkan gambar dari MySQL pada VB adalah sebagai berikut:

Menampilkan Gambar dari MySQL pada VB

Tak lengkap rasanya menampilkan desain form tanpa sourcecodenya hehe… :D. Selanjutnya untuk source code lengkap program menampilkan gambar dari MySQL pada VB adalah sebagai berikut:

Dim koneksi As New MYSQL_CONNECTION
Dim rs As New MYSQL_RS
Private Sub CmdTampil_Click()
rs.CloseRecordset
rs.OpenRs "SELECT * FROM biodata where noid=" & Val(txtID), koneksi
If rs.RecordCount = 0 Then GoTo kosong
    txtNama.Text = rs.Fields("nama")
    If rs.SaveBinaryToFile(rs.Fields("photo").Value, App.Path & "\tempp.dat") Then
    ImgPhoto.Picture = LoadPicture(App.Path & "\tempp.dat")
    Kill App.Path & "\tempp.dat"
    End If
rs.CloseRecordset
Set rs = Nothing
Exit Sub
kosong:
pesan = MsgBox("Data tidak ada", vbOKOnly, "Peringatan")
End Sub

Private Sub Form_Load()
koneksi.OpenConnection "localhost", "root", "root", "dbbio", 3306
End Sub

Sedikit penjelasan mengenai program menampilkan gambar ini:

  • Program akan mengambil data binary dari field “photo” (bertipe BLOB) yang tersimpan dalam database, kemudian diubah menjadi sebuah file bernama “tempp.dat” (suka-suka saya buat nama filenya :D)
  • Dari file tersebut akan ditampilkan kedalam objek image yang dalam program ini saya beri nama “imgphoto”
  • Setelah gambar ditampilkan pada image maka file “tempp.dat” akan dihapus untuk keamanan data (sedikit aman :D).

Semoga program menampilkan gambar dari MySQL pada VB ini bisa berjalan :). Jangan lupa database dan tabelnya dibuat terlebih dahulu.

Semoga bermanfaat.

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 “Menampilkan Gambar dari MySQL pada VB”

  1. djiesoft says:

    ini yang aku cari..sangat detail.. terimakasih

  2. edi says:

    Terimakasih atas ilmunya, sangat membantu sekali..

Leave your comment here:

*

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