Tips: Import Image Ke Database - Power Builder
May 8th, 2008
Pada
artikel ini akan disajikan penggunaan powerscript untuk meng-import file image ke database. Penulis menggunakannya pada saat memasukkan foto dari user ke database. Yang perlu dicermati pada script berikut ini adalah penghitungan jumlah loops/perulangan yang harus dilakukan menggunakan FileRead. Secara default FileRead terbatas sampai pada 32765 bytes.
integer li_FileNum, loops, i
long flen, bytes_read
blob b, tot_bSetPointer(HourGlass!)
flen = FileLength(sfilename)
li_FileNum = FileOpen(sfilename,StreamMode!, Read!, LockRead!)
IF flen > 32765 THENIF Mod(flen, 32765) = 0 THEN
loops = flen/32765
ELSE
loops = (flen/32765) + 1
END IF
ELSE
loops = 1
END IF
FOR i = 1 to loops
bytes_read = FileRead(li_FileNum, b)
tot_b = tot_b + bNEXT
FileClose(li_FileNum)
Untuk memasukkan file gambar tersebut kita tinggal mengupdate kolom pada tabel yang kita buat ( tipe data dari kolom tersebut harus long binary ). Pada script dibawah kolom Image kita isi dengan variabel tot_b ang bertipe blob untuk data dengan “index image” = :iindex.
UPDATEBLOB dba.t_image SET “Image” = :tot_b
WHERE “Index Image” = :iindex
USING sqlca ;
File library / PBL dapat anda download disini. Selamat mencoba. Catatan: fungsi dalam library ini menggunakan 2 parameter yaitu sfilename bertipe string untuk namafile yang ingin kita import dan iindex bertipe integer merupakan index dari file ( bisa juga yang lain misalnya NIP atau NIM ).
Inlinks :






