عملية ادخال الملفات داخل قواعد البيانات

16 مايو 2004

تحياتي للجميع

هذه الوظيفة تقوم بادخال الملف الى قواعد البيانات وتخزينها مثل ( صور، بيانات ثنائية )

CREATE PROCEDURE insert_blob (doc_name VARCHAR2)
IS
 the_file BFILE;
 the_doc  BLOB;
 doc_size INTEGER;

BEGIN

 the_file := BFILENAME('MY_DIR',doc_name);
 doc_size := DBMS_LOB.GETLENGTH(the_file);

 INSERT INTO <table_name> (<column_name>,<blob_column_name>)
 VALUES (<value>, EMPTY_BLOB())
 RETURNING <blob_column_name> INTO the_doc;

 /*
  *
  * INSERT INTO evidence (evidence_id,evidence_photo)
  * VALUES (999, EMPTY_BLOB())
  * RETURNING evidence_photo INTO the_doc;
  * 
  */
 
 DBMS_LOB.FILEOPEN(the_file);
 DBMS_LOB.LOADFROMFILE(the_doc,the_file,doc_size);
 DBMS_LOB.FILECLOSE(the_file);

 COMMIT;

END;
/

مرفقة بالملف المرفق

INSERT_BLOB.txt