После чтения из файла .CVS он не вставляет данные в базу данных. - PullRequest
Новая
       4

После чтения из файла .CVS он не вставляет данные в базу данных.

0 голосов
/ 03 июля 2019

Я новичок в Oracle PL / SQL и создаю приложение, которое будет считывать данные из .CVS и вставлять в базу данных.Но проблема возникает, когда я запускаю приложение, оно подходит к концу, и я получаю сообщение об успехе, но данные не вставляются в базу данных.

       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(10000);

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

  kraj_fajla number;

begin
        brojac_redova:=0;
        vec_importovano:=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;

    dbms_output.put_line(brojac_redova);

    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
         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
         -- dbms_output.put_line('Insert called');
        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;
         end if;
     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=p_rbr;     
   END IF;

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

end;

Любой, кто может помочь мне с этим, я был бы очень благодарен.Я полагаю, что проблема где-то в вставке, потому что, когда я исправляю delete, она удаляет данные из базы данных, но не вводит данные в базу данных.

...