pavel9609
@pavel9609
Студент-программист

Почему при попытке загрузить данные в таблицу через APEX_APPLICATION_TEMP_FILES выскакивает ошибка ORA-01403?

Пытаюсь загрузить данные путём нажатия кнопки и вызовом DYNAMIC_ACTION. Цикл For не выводит ничего. Сохраняю в APEX_APPLICATION_TEMP_FILES. Работаю в онлайн версии на apex.oracle.com
declare  
  doc_size integer;  
  Upload_blob blob;
  commentWord EXCEPTION;
  cur NUMBER;
begin
    APEX_DEBUG.ENABLE(
        apex_debug.c_log_level_info);
    apex_debug.message('La-La-La');
    IF IS_NUMBER(v('COMMENTBOX')) = 0 THEN
        apex_debug.message('COMMENT IS 0');
        for r in (select * from apex_application_temp_files)
            loop
                apex_debug.message('name: %s - filename: %s', r.name, r.filename);
            end loop;
        --Copy BLOB to Upload_blob variable
        select blob_content
        into   Upload_blob
        from   APEX_APPLICATION_TEMP_FILES
        where  name = :FILELOAD;
        for r in (select * from apex_application_temp_files)
            loop
                apex_debug.message('name: %s - filename: %s', r.name, r.filename);
            end loop;
        --Get BLOB size
        doc_size := dbms_lob.getlength(Upload_blob);
        --Copy data to table MyIMAGES_TBL
        INSERT INTO MYIMAGES_TBL (
            IMAGE_NAME, FILENAME,
            MIME_TYPE, DOC_SIZE,
            CONTENT )
        select filename, filename,
                mime_type, doc_size,
                blob_content
        from   APEX_APPLICATION_TEMP_FILES
        where  name = :FILELOAD;
        SELECT MYIMAGES_TBL_SEQ.CURRVAL INTO cur FROM SYS.DUAL;
        apex_debug.message('cur: %d',cur);
        INSERT INTO ACTIONS(ACTION, FIO, COM, PERFORMER, FILM, IMAGE, TIMES) 
        VALUES ( v('VALUESLIST'),
                 v('FIOBOX'), 
                 v('COMMENTBOX'), 
                 v('APP_USER'),
                 v('DEPENDECESLIST'),
                 cur,
                 CURRENT_DATE
               );
    ELSE
        :HIDDEN:= 'NO';
        RAISE commentWord;
    END IF;
    EXCEPTION
        WHEN commentWord THEN
        :COMMENTBOX:= '';
END;
  • Вопрос задан
  • 165 просмотров
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы