Question

我正在使用Oracle Forms将数据从Excel导入数据库表。这是我正在使用的代码：

ligne_fin := 300;

FOR Z in 2..ligne_fin LOOP
  ligne:=Z;

  v_societe := Excel.get(1,Z,1)  ;
  v_compte := Excel.get(1,Z,2);
  v_Tiers := Excel.get(1,Z,3);
  v_section := Excel.get(1,Z,4);

  insert into EntrCl (SOCIETE, 
                      COMPTE, 
                      TIERS, 
                      SECTION)                      
    VALUES (v_societe,
            v_compte,
            v_Tiers,
            v_section);             
END LOOP

使用我的get函数

function GET(FOLIO in NUMBER, prow in number,pcol in number) 
  RETURN varchar2 
is
  deger varchar2(800);
Begin
  deger:='';

  args := OLE2.create_arglist;
  OLE2.add_arg (args, FOLIO);
  Worksheet:=OLE2.GET_OBJ_PROPERTY(workbook,'Worksheets',args);

  args:=OLE2.CREATE_ARGLIST;
  OLE2.ADD_ARG(args, prow);
  OLE2.ADD_ARG(args, pcol);
  cell:=ole2.get_obj_property(worksheet, 'Cells', args);

  deger := OLE2.Get_Char_Property(cell, 'Text');
  OLE2.RELEASE_OBJ(cell);
  OLE2.destroy_arglist (args);

  return(deger);
end;

我的问题是我想使用代码自动获取ligne_fin。我不想硬编码。

有没有办法使用PL / SQL获取Excel文件的最后一条记录？

Answer 1

检查列是否返回null值以标识最后一行

 Z:=2;
 While(Excel.get(1,Z,1) is not null)
 loop 
 v_societe := Excel.get(1,Z,1)  ;
 v_compte := Excel.get(1,Z,2);
 v_Tiers := Excel.get(1,Z,3);
 v_section := Excel.get(1,Z,4);

 insert into EntrCl (SOCIETE, 
                  COMPTE, 
                  TIERS, 
                  SECTION)                      
VALUES (v_societe,
        v_compte,
        v_Tiers,
        v_section);  
 Z:=Z+1;
 end loop;

如何使用Oracle Forms获取最后一行Excel文件

1 个答案: