Menampilkan Gambar Dari Database MySQL Menggunakan Visual Basic

Pada kesempatan lalu, kita sudah membahas tentang bagaimana menyimpan gambar ke dalam database MySQL menggunakan pemrograman Visual Basic. Ketika gambar sudah tersimpan, tentunya dibutuhkan cara untuk menampilkan gambar tersebut. Lalu bagaimana cara

menampilkan gambar yang tersimpan dalam database MySQL?

Pertama, buatlah project baru dengan menambahkan 1 (satu) Form.

Tambahkan komponen:

• 1 Image ganti Name menjadi "Gmbr"
• 1 CommandButton, ganti Name menjadi "cmdTampil" dan Caption menjadi "&Tampil"
• 1 CommandButton, ganti Name menjadi "cmdTutup" dan Caption menjadi "&Tutup"

Atur posisi dan ukuran komponen pada form tersebut sehingga tampil menarik. Misalkan seperti contoh di atas.

Tambahkan referensi VB MySQL Direct v1.0 untuk koneksi.

Tambahkan kode berikut:

• Pembuatan Deklarasi Variabel untuk koneksi dan pengiriman perintah SQL:

Public Koneksi As New MYSQL_CONNECTIONPublic RC As New MYSQL_RSPublic SQL As String, NmServer As String, NmDB As String, NmUsr As String, NmPwd As String, NmPort As StringPrivate Sub Buka()    Set RC = New MYSQL_RS    RC.OpenRs SQL, Koneksi, adOpenDynamic, adLockBatchOptimisticEnd SubFunction Tutup() As Boolean    If Tutup = True Then        RC.CloseRecordset        Koneksi.CloseConnection        Koneksi = Nothing    End IfEnd Function

download project

password terletak di akhir artikel

Pengaturan koneksi sekaligus proses koneksi ke database.

Private Sub Form_Load()NmServer = "localhost"          'IP MysqlNmDB = "latihan"           'Nama DatabaseNmUsr = "root"            'Login MysqlNmPwd = "admin"      'Password MysqlNmPort = "3306"         'Port Mysql
Set Koneksi = New MYSQL_CONNECTIONKoneksi.OpenConnection NmServer, NmUsr, NmPwd, NmDB, NmPortKoneksi.CursorLocation = adUseClient
If Koneksi.State = MY_CONN_CLOSED Then    MsgBox "Ada kesalahan dengan server, periksa apakah server sudah berjalan!", vbExclamation, "Fatal error"End IfEnd Sub

*)Sesuaikan setingan di atas dengan MySQL yang terinstall dalam komputer sahabat.

Menampilkan gambar yang tersimpan dalam database MySQL:

Private Sub cmdTampil_Click()    SQL = "select*from t_siswa where id=1"    Buka    If RC.SaveBinaryToFile(RC.Fields("foto"), App.Path & "\" & xnm & ".jpg") Then        Gmbr.Picture = LoadPicture(App.Path & "\" & xnm & ".jpg")        Kill App.Path & "\" & xnm & ".jpg"    End If    TutupEnd Sub

Menutup Project:

Private Sub cmdTutup_Click()EndEnd Sub

Jika hal di atas dilakukan dengan benar, maka akan menghasilkan project yang mampu menampilkan gambar dari dalam database. Untuk contoh database yang digunakan dalam pembahasan ini, dapat sahabat unduh DI SINI. Untuk contoh project yang sudah dijelaskan seperti contoh di atas, dapat sahabat unduh di tengah artikel.

Sekian pembahasan kita pada kesempatan ini, semoga memberikan manfaat kepada sahabat pembaca SB serta juga kepada penulis.

Kritik dan Saran sangat diharapkan, silakan kirimkan kritik, saran, pertanyaan kepada kami melalui komentar di bawah. Jawaban akan langsung kami berikan jika sedang online atau ada waktu luang. Tentunya jawaban sesuai dengan ilmu yang kami kuasai. Jika ada pertanyaan yang sekiranya belum terjawab. Mohon sahabat pembaca yang lain yang mengetahui dapat memberikan solusi melalui komentar. Terima kasih.

Password: suruhbelajar.blogspot.com

Share via Whatsapp