Yus Waroeng Software

Kode ini BEBAS / Boleh untuk dimodifikasi dan digunakan
sesuai keperluan Anda. Semoga bermanfaat ya!.

1. Kode pembuatan table contoh:
create table tgambar (
no integer not null,
nama varchar2(35),
gambar blob,
primary key(no)
);

2. Kode pembuatan / membuat prosedur untuk memasukkan BLOB
create or replace procedure insertBLOB(pdirname varchar2,
pfilename varchar2, pno int, pnama varchar2) as
sourceFile BFILE;
destFile BLOB;
fileSize BINARY_INTEGER;
begin
sourceFile := bfilename(pdirname, pfilename);
-- insert ke tabel tgambar dengan field gambar kosong
insert into tgambar(no, nama, gambar)
values(pno, pnama, EMPTY_BLOB());

-- melakukan lock pada field gambar
select gambar into destFile from tgambar
where no = pno
for update;

-- membuka file
dbms_lob.fileopen(sourceFile, dbms_lob.file_readonly);

-- mendapatkan ukuran file
fileSize := dbms_lob.getlength(sourceFile);

-- membaca source file dan menempatkannya di dalam dest file
dbms_lob.loadfromfile(destFile, sourceFile, fileSize);
-- update field gambar
update tgambar
set gambar = destFile
where no = pno;

-- menutup file
dbms_lob.fileclose(sourceFile);
end;
/
2. Kode untuk eksekusi / menjalankan prosedur
exec insertBLOB('DTEMP', 'contoh.jpg', 1, 'Gambar pertama');
Catatan:
· DTEMP adalah direktori internal (lebih tepatnya objek direktori) yang sebelumnya
harus Anda buat terlebih dahulu dengan statemen CREATE DIRECTORY
Contoh:

SQL> create directory DTEMP as ‘D:\TEMP’;
· Contoh.jpg adalah nama file gambar yang akan dimasukkan ke dalam field
GAMBAR yang terdapat pada tabel TGAMBAR.