tutorial ini adalah kelanjutan dari
Menyimpan gambar di vb 6 menggunakan database acces. setelah kita bisa menyimpan sekarang kita coba untuk menampilkan kembali gambar tersebut ke tampilan form.
yang kita perlukan yaitu :
- 1 database dbgambar (disini)
- 1 form ( 1 commond dialog, 1 image, 2 label, 1 text, 2 button, 1 combo )
- 1 module
- 1 buah folder beri nama gambar (letakkan di dalam satu folder dg project)
ok lanjut buat tampilan seperti ini
untuk coding module, tombol cari foto dan tombol simpan tidak akan saya lampirkan disini silahkan lihat tutorial
menyimpan gambar
selanjutnya pada (general) (declarations) paling atas,sebelumya perintahny berikut
Option Explicit
Dim gam As New Recordset
Dim cari As New Recordset
Dim sql As String
tambahkan yang warna merah
buatlah procedure untuk menampikan file gambar.. ketikkan sesudah perintah diatas
Private Sub tampilgambar()
buka
con.CursorLocation = adUseClient
Set cari = New Recordset
sql = "Select * from tbgambar"
cari.Open sql, con
Combo1.Clear
Combo1.Text = "Gambar"
If cari.EOF Then
MsgBox "tidak ada gambar di database", vbInformation, "Informasi"
Exit Sub
Else
Do While Not cari.EOF
Combo1.AddItem cari!nama
cari.MoveNext
Loop
End If
End Sub
kemudian buatlah perintah di combo click seperti berikut
Private Sub Combo1_Click()
Image1.Picture = LoadPicture(App.Path & "\gambar\" & Combo1.Text)
End Sub
dan terakhir ketikkan perintah ini di form load
Private Sub Form_Load()
tampilgambar
End Sub
jalankan programnya maka akan seperti ini
file gambar yang ada di combobox adalah yang tersimpan di tabel gambar
hasil akhir
untuk source code silahkan download
disini
jika ada yang kurang dimengerti silahkan komen dahulu
About Me :
Saya Martin Purnansyah
Nama
Marcode adalah singkatan dari martin code, niat awal saya membuat website ini bertujuan untuk berbagi pengalaman yang saya dapat selama belajar pemrograman. Semoga situs
marcode.web.id kedepannya rutin membuat tutorial - tutorial baru. Salam Coding.. :)
