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:
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.
Free Email Newsletter
And then confirm your email subcription
2 Comments to “Menampilkan Gambar dari MySQL pada VB”
ini yang aku cari..sangat detail.. terimakasih
Terimakasih atas ilmunya, sangat membantu sekali..