Download Source Code Visual Basic Membaca Dan Menulis Gambar Kedalam Database (Oracle 8I)
Jadi prinsipnya begini, kita harus menyediakan 2 buah tombol dan 1 buah image pada form mahasiswa, tombol yang pertama mempunyai kegunaan untuk mengganti foto "Ganti Foto", sedangkan tombol yang kedua mempunyai kegunaan untuk menghilangkan foto dari database dengan nama "Tanpa Foto" (lihat gambar).
Ketika tombol Ganti Foto diklik, maka akan dibuka sebuah obrolan untuk membuka file gambar yang dimaksud, sehabis itu dilakukan penyimpanan yang pada dasarnya yaitu 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 memilih filelength, mempersiapkan array lalu membuka file gambar dimaksud, lalu secara sedikit demi sedikit menyimpan file gambar yang dibaca kedalam database dengan memakai AppendChunk.
Sedangkan mekanisme ReadG berfungsi untuk menampilkan gambar mahasiswsa, kalau dilakukan pencarian dan nim mahasiswa tersebut ditemukan.
Bagi yang tertarik dengan mekanisme WriteG dan ReadG, silahkan download di Membaca dan Menulis Gambar kedalam Database (Oracle 8i), ini ssaya simpan dalam bentuk file .txt, hanya 2 mekanisme 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 yaitu COPYKAN KESELURUHAN FILE .OCX YANG ADA KE FOLDER YANG SAMA DENGAN PROJECT, lalu lakukan installasi True DBGrid, maka jadwal akan dapat dibuka dengan baik. kalau trueDBGrid tidak ada mungkin nanti ada beberapa form yang error, tapi tidak masalha, yang kita butuhkan hanya logika saja kan?. Program ini dibentuk untuk database Oracle 8i, selamat belajar...
EmoticonEmoticon