Open word file, stored in database through Forms.

Question

Assalam-o-Alikum
to Genius of Oracle's
I have stored the Word file name "MY_FILE.DOC" in oracle database. Now i want to open the file through Forms, remember i am using forms 6i. is there any body who help me to open the file.
Best Regards
Farrukh Shaikh

Answer 1

Assalam-o-Alikum
My in tension was not to hurt any body. if it did then sorry for that.
here is the code through which i stored the file in database
first create the DIRECTORY CREATE DIRECTORY generic AS 'C:\temp';---- --directory path where your files will be searched for storing.
THEN
create table my_blob_table
pk_name varchar2(20) primary key,
pk_value varchar2(20),
col_document blob
INSERT INTO MY_BLOB_TABLE
(PK_NAME,PK_VALUE)
('A','A');
COMMIT;
CREATE OR REPLACE PROCEDURE load_blob_from_file
( src_file_name IN VARCHAR2
, table_name IN VARCHAR2
, column_name IN VARCHAR2
, primary_key_name IN VARCHAR2
, primary_key_value IN VARCHAR2 ) IS
-- Define local variables for DBMS_LOB.LOADBLOBFROMFILE procedure.
des_blob BLOB;
src_blob BFILE := BFILENAME('GENERIC',src_file_name);
des_offset NUMBER := 1;
src_offset NUMBER := 1;
-- Define a pre-reading size.
src_blob_size NUMBER;
-- Define local variable for Native Dynamic SQL.
stmt VARCHAR2(2000);
BEGIN
-- Opening source file is a mandatory operation.
IF dbms_lob.fileexists(src_blob) = 1 AND NOT dbms_lob.isopen(src_blob) = 1 THEN
src_blob_size := dbms_lob.getlength(src_blob);
dbms_lob.open(src_blob,DBMS_LOB.LOB_READONLY);
278 Oracle Database 11g PL/SQL Programming
END IF;
-- Assign dynamic string to statement.
stmt := 'UPDATE '||table_name||' '
|| 'SET '||column_name||' = empty_blob() '
|| 'WHERE '||primary_key_name||' = '||''''||primary_key_value||''' '
|| 'RETURNING '||column_name||' INTO :locator';
-- Run dynamic statement.
EXECUTE IMMEDIATE stmt USING OUT des_blob;
-- Read and write file to BLOB.
dbms_lob.loadblobfromfile( dest_lob => des_blob
, src_bfile => src_blob
, amount => dbms_lob.getlength(src_blob)
, dest_offset => des_offset
, src_offset => src_offset );
-- Close open source file.
dbms_lob.close(src_blob);
-- Commit write.
IF src_blob_size = dbms_lob.getlength(des_blob) THEN
$IF $$DEBUG = 1 $THEN
dbms_output.put_line('Success!');
$END
COMMIT;
ELSE
$IF $$DEBUG = 1 $THEN
dbms_output.put_line('Failure.');
$END
RAISE dbms_lob.operation_failed;
END IF;
END load_blob_from_file;
after create the PROCEDURE run the procedure
begin
load_blob_from_file('FILE_NAME.DOC',' my_blob_table','col_document','PK_NAME','A');
end;