WHEN-BUTTON-PRESSED触发器引发未处理的异常ORA-01400

时间:2019-07-08 11:34:08

标签: oracle plsql oracleforms

我正准备将数据从.CSV文件导入Oracle数据库。 运行后,我会收到错误消息

WHEN-BUTTON-PRESSED trigger raise unhandled exception ORA-01400

declare 

   import_file text_io.file_type; 
   export_file text_io.file_type; 
   import_file_name varchar2(1000);
   export_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(10);
   p_polica varchar2(10);
   p_banka VARCHAR2(10);
   p_kontakt varchar2(10);

  kraj_fajla number;

begin
    brojac_redova:=0;

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

    delete from zivot_trajni_nalog_ponude where banka is not null;
    commit;

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

 if brojac_redova > 2 then

   p_polica:=substr(linebuf, 1, instr(linebuf,';',1,1)-1);
   --message(p_polica);
   p_kontakt:=substr(linebuf, instr(linebuf,';',1,1)+1, instr(linebuf,';',1,2) - instr(linebuf,';',1,1)-1);

/*
If it has third semicolon then use your formula, string between 2 and 3. If it has only two semicolons then use from second to the end of string.
*/

   if instr(linebuf,';',1,3) > 0 then 
            p_banka := substr(linebuf, 
                            instr(linebuf,';',1, 2) + 1, 
                            instr(linebuf,';',1,3) - instr(linebuf,';',1,2)-1);
                           -- message(p_banka);

        else
          p_banka := substr(linebuf, 
                            instr(linebuf,';',1, 2) + 1);   
                            --message(p_banka);                     
        end if;  


        insert into ZIVOT_TRAJNI_NALOG_PONUDE 
        (BROJ_POLICE,REDNI_BROJ,BROJ_PONUDE,BANKA)  
         values(
         p_polica,p_rbr,p_kontakt,p_banka);     
            commit;                   
                end if;



     EXCEPTION WHEN NO_DATA_FOUND THEN kraj_fajla := 1;         
     end;

end loop;  
     IF p_rbr IS NOT NULL THEN
   update zivot_trajni_nalog_ponude set redni_broj=rownum;
    end if;         
    text_io.fclose(import_file);
      message('Zavrseno prepisivanje fajla');

end;

在将数据插入表之前,我尝试检查p_polica是否为NULL,但这不起作用。 由于我的IDE中没有调试器,因此无法检查错误的出处。 有人知道我可能会犯错吗?

1 个答案:

答案 0 :(得分:0)

ORA-01400的描述为“无法将NULL插入(字符串)”。您没有提供错误消息的全文,因此我不知道(string)可能是什么,但这可能是表名和字段名-在这里知道哪个表和字段可能很重要。我怀疑表ZIVOT_TRAJNI_NALOG_PONUDE的字段中不允许使用NULL值,并且您没有在INSERT语句中填充或为该字段提供NULL。例如,您将p_rbr的值放入ZIVOT_TRAJNI_NALOG_PONUDE.REDNI_BROJ,但是p_rbr从未被赋予值,因此为NULL。如果ZIVOT_TRAJNI_NALOG_PONUDE.REDNI_BROJ具有NOT NULL约束,则会收到该错误。

好运。