Download Source Code Visual Basic Membaca dan Menulis Gambar kedalam Database (Oracle 8i)

Ada teman yang bertanya tentang cara menuliskan dan membaca gambar ke dan dari database. Sebenarnya itu sudah pernah saya sediakan dalam pembuatan Oriyu: Sistem Informasi Akademik yang sebelumnya. Dalam Sistem Informasi Akademik tersebut ada 2 buah Prosedur Global yakni WriteG dan ReadG. Dua buah prosedur ini akan dipanggil oleh frmMahasiswa (lihat gambar). untuk menyimpan foto mahasiswa, dan membaca foto mahasiswa. Tipe data yang digunakan adalah Blob dengan dtabase Oracle 8i.

Jadi prinsipnya begini, kita harus menyediakan 2 buah tombol dan 1 buah image pada form mahasiswa, tombol yang pertama berguna untuk mengganti foto "Ganti Foto", sedangkan tombol yang kedua berguna untuk menghilangkan foto dari database dengan nama "Tanpa Foto" (lihat gambar).

Ketika tombol Ganti Foto diklik, maka akan dibuka sebuah dialog untuk membuka file gambar yang dimaksud, setelah itu dilakukan penyimpanan yang intinya adalah perintah berikut ini:

Numblocks = FileLength / BlockSize


LeftOver = FileLength Mod BlockSize


ReDim ByteData(LeftOver)


Get SourceFile, , ByteData()


Rs.Fields("foto").AppendChunk ByteData()


ReDim ByteData(BlockSize)


For I = 1 To Numblocks


Get SourceFile, , ByteData()


Rs.Fields("foto").AppendChunk ByteData()


Next I


Rs.Update


Close SourceFile

Jadi berbeda dengan update field biasa, yang cukup dengan perintah update set nama="blalala", namun disini kita harus menentukan filelength, mempersiapkan array kemudian membuka file gambar dimaksud, kemudian secara bertahap menyimpan file gambar yang dibaca kedalam database dengan menggunakan AppendChunk.

Sedangkan prosedur ReadG berfungsi untuk menampilkan gambar mahasiswsa, jika dilakukan pencarian dan nim mahasiswa tersebut ditemukan.

Bagi yang tertarik dengan prosedur WriteG dan ReadG, silahkan download di Membaca dan Menulis Gambar kedalam Database (Oracle 8i), ini ssaya simpan dalam bentuk file .txt, hanya 2 prosedur ini saja. Sedangkan Versi lengkapnya silahkan klik Sistem Informasi Akademik diatas.

Ouw hya, mungkin ada beberapa orang teman yang bermasalah dengan source Sistem Informasi Akademik. Yang harus anda pastikan adalah COPYKAN KESELURUHAN FILE .OCX YANG ADA KE FOLDER YANG SAMA DENGAN PROJECT, kemudian lakukan installasi True DBGrid, maka program akan bisa dibuka dengan baik. jika trueDBGrid tidak ada mungkin nanti ada beberapa form yang error, tapi tidak masalha, yang kita butuhkan hanya logika saja kan?. Program ini dibuat untuk database Oracle 8i, selamat belajar...

Kami juga menyediakan Paket  Komplit Programer :

1. Paket VB.6 & Source code

2. Paket Fox Pro & Source Code

3. Paket Delphi & Source Code

Yang berminat buruan Pesan "Harga Promosi" caranya Klik di Sini ...

Posted in: Vb