1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| -- #################################### updateBlob ####################################
PROCEDURE updateBlob( tablename varchar2,abbreviation varchar2,sequenceKey number,dataKey number,clobname varchar2,name varchar2,descr varchar2,fileType varchar2,category varchar2,data BLOB, url varchar2, print number )
is
sqlStatement VARCHAR2(2000);
BEGIN
sqlStatement := 'UPDATE ' || tablename || ' SET ';
sqlStatement := sqlStatement || abbreviation || '_' || tablename || '_PK =' || dataKey || ',';
sqlStatement := sqlStatement || abbreviation || '_CLOB_NAME = ' || clobname || ',';
sqlStatement := sqlStatement || abbreviation || '_NAME = ' || name || ',';
sqlStatement := sqlStatement || abbreviation || '_DESCRIPTION = ' || descr || ',';
sqlStatement := sqlStatement || abbreviation || '_BLOB = :blob' || ',';
sqlStatement := sqlStatement || abbreviation || '_URL = ' || url || ',';
sqlStatement := sqlStatement || abbreviation || '_PRINTABLE = ' || print || ',';
sqlStatement := sqlStatement || abbreviation || '_FILE_TYPE =' || fileType || ',';
sqlStatement := sqlStatement || abbreviation || '_CATEGORY = ' || category;
sqlStatement := sqlStatement || ' WHERE ' || 'PK_' || tablename || '_BLOB = ' || sequenceKey;
EXECUTE IMMEDIATE sqlStatement using data;
END updateBlob; |
Partager