WHEN-BUTTON-PRESSED触发引发未理解的异常ORA-01407

时间:2019-07-02 11:36:38

标签: oracle plsql runtime-error oracleforms

我是PL SQL的新手,我正在尝试解决从.CVS文件到数据库的复制粘贴数据的问题 我创建了一个小型应用程序,它将从.CVS中获取数据并将其粘贴到数据库中。 我创建了一个方法,但是在编译后将其写入成功编译 但是当我运行表单时,出现错误

WHEN-BUTTON-PRESSED trigger raise unhendled exception ORA-01407

自从我用Google搜索它以来,没有人知道这意味着什么吗? 我会非常感激

declare 
    import_file text_io.file_type; 
  import_file_name varchar2(1000);

  import_log_file text_io.file_type;
  import_log_file_name varchar2(1000);

  vec_importovano number;
  brojac number;
  brojac_redova number;
  linebuf varchar2(5000);

  p_rbr varchar2(4);
  p_polica varchar2(20);
  p_banka varchar2 (20);
  p_kontakt varchar2(20);

  kraj_fajla number;

begin
    import_file_name := :Global.Lokacija_prenosa||:import.naziv_fajla||:Global.Ekstenzija_prenosa;
    import_file := text_io.fopen(import_file_name,'r');
    --p_rbr := 100000;

    delete from zivot_trajni_nalog_ponude where banka is not null;
    commit;

    kraj_fajla := 0;  
    while kraj_fajla = 0 loop
        begin   
    text_io.get_line(import_file, linebuf);

     if brojac_redova>=2 then
         if length(linebuf)>100 then 

            p_rbr:=substr(linebuf, 1, instr(linebuf,';',1,1)-1);
            p_polica:=substr(linebuf, instr(linebuf,';',1,1)+1, instr(linebuf,';',1,2) - instr(linebuf,';',1,1)-1);
            p_banka:=substr(linebuf, instr(linebuf,';',1,2)+1, instr(linebuf,';',1,3) - instr(linebuf,';',1,2)-1);
            p_kontakt:=substr(linebuf, instr(linebuf,';',1,3)+1, instr(linebuf,';',1,4) - instr(linebuf,';',1,3)-1);

        select count(*) 
      into vec_importovano 
      from ZIVOT_TRAJNI_NALOG_PONUDE
      where broj_police=p_polica and p_rbr=redni_broj;

        if vec_importovano=0 then
        insert into ZIVOT_TRAJNI_NALOG_PONUDE values(p_rbr, p_polica, p_banka, p_kontakt);          
        commit;
         end if;
         end if;
     end if;

     EXCEPTION WHEN NO_DATA_FOUND THEN kraj_fajla := 1;
     end;

        end loop;  
        update zivot_trajni_nalog_ponude set redni_broj = p_rbr;
            commit;

    text_io.fclose(import_file);
        message('Zavrseno prepisivanje fajla');

end;

2 个答案:

答案 0 :(得分:2)

您收到的错误(ORA-01407)表示您正在尝试使用NOT NULL值更新列(设置为NULL)。那行不通。例如:

SQL> create table test (id number not null);

Table created.

SQL> insert into test (id) values (100);

1 row created.

SQL> update test set id = null;
update test set id = null
                *
ERROR at line 1:
ORA-01407: cannot update ("SCOTT"."TEST"."ID") to NULL


SQL>

代码中唯一的UPDATE是这样的:

UPDATE zivot_trajni_nalog_ponude SET redni_broj = p_rbr;

显然,p_rbrNULLredni_broj将不接受它,并且您得到了错误。

该怎么办?调试代码,看看为什么p_rbr没有值。一个简单的“解决方案”可能是

   IF p_rbr IS NOT NULL
   THEN
      UPDATE zivot_trajni_nalog_ponude
         SET redni_broj = p_rbr;
   END IF;

尽管与您的问题无关,但也不要:COMMIT不在循环内。

答案 1 :(得分:1)

  

当您尝试将列更新/插入NULL时,发生ORA-01407   当列不接受NULL值时。

要查找表ZIVOT_TRAJNI_NALOG_PONUDE中的所有“非空”列,请检查表的DDL。