将 .csv 文件导入 Oracle Forms 应用程序

Question

我对如何将 .csv 文件导入 Oracle Forms 应用程序有疑问。我们在 Oracle 12c 数据库上使用 Oracle Forms 11g。

现在我们要使用 Forms 应用程序导入一个 .csv 文件，以便我们的客户可以导入该文件并将数据写入数据库。

我的计划是创建一个应用程序，用户可以在其中使用文件选择器导入 .csv 文件。将读取 .csv 中的数据，并向用户显示此应用程序中的数据。然后用户应该可以通过一个按钮将其保存到数据库中。

我尝试了几次搜索，但没有找到解决此类问题的正确方法。我找到的唯一解决方案是将 .csv 文件直接导入数据库，而不是通过 Oracle Forms

甚至可以在 Oracle Forms 中加载 .csv 文件吗？

如果有人有好的解决方案或任何其他可能有用的方法，我将不胜感激。

Answer 1

您可以只使用 webutil 显示 select 文件的文件选择器并将其上传到应用程序服务器。如果您在应用程序服务器和数据库服务器之间使用共享目录，则可以使用外部 table 向用户显示文件的输入。然后在按钮之后，您只需将来自外部 table 的数据插入另一个 table.

Answer 2

我现在找到了适合我的解决方案。也许我可以做得更好，但这对我有帮助。

我找到了以下博客：http://tfathy.blogspot.de/2009/03/reading-from-file.html

代码通过复制和粘贴 100% 工作，从现在开始帮助我完成任务。

也许它对其他人也有帮助。

解决方法代码如下：

Reading From File 
March 19, 2009
--------------------------------------------------
Declare
  vfilename varchar2(500);
  in_file   Client_Text_IO.File_Type;
  linebuf   VARCHAR2(1800); 
BEGIN
    vfilename := client_get_file_name('c:/temp/', File_Filter=>'Comma Dialimeted Files (*.csv)|*.csv|'); 
    in_file := client_Text_IO.Fopen(vfilename, 'r');  
    GO_BLOCK('Emp'); 
    FIRST_RECORD;  
  LOOP
    Client_Text_IO.Get_Line(in_file, linebuf); 
    p_output_line(linebuf);
    Client_Text_IO.New_Line; 
    Next_record; 
  END LOOP; 
   FIRST_RECORD;
EXCEPTION
  WHEN no_data_found THEN
    Client_Text_IO.Put_Line('Closing the file...');
    Client_Text_IO.Fclose(in_file);
END;
-------------------------------------------------------
PROCEDURE p_output_line(p_line varchar2) IS 
vLINE VARCHAR2(4000);
vVALUE VARCHAR2(1000); 
vCOMMA_COUNT NUMBER;
vREPORT_DATE DATE;
BEGIN                    
 vLINE := p_line;
 vCOMMA_COUNT := LENGTH(vLINE)- LENGTH(REPLACE(vLINE,',','')); -- COUNT THE NUMBER OF COMMAS
  FOR I IN 1.. vCOMMA_COUNT+1 LOOP  
   vVALUE := SUBSTR(vLINE,1,INSTR(vLINE,',')-1);                             -- IF vLINE = 123,ABC,9877 THEN VVALUE WILL BE  123
    IF vVALUE IS NULL THEN
        vVALUE := vLINE;
    END IF;    
   vLINE := SUBSTR(vLINE,INSTR(vLINE,',')+1) ;                              -- CHANGE   123,ABC,9877 TO BE   ABC,9877  
   IF I = 1 THEN 
    :DATA.BMK_NAME := vVALUE; 
   ELSIF I = 2 THEN 
    vREPORT_DATE := last_day(to_date(vVALUE,'dd-mm-yyyy')); 
    :DATA.REPORT_DATE := vREPORT_DATE;
   ELSIF I = 3 THEN                 
    :DATA.BMK_RETURN := to_number(vVALUE);
   END IF;
  END LOOP; 
  EXCEPTION
    WHEN NO_DATA_FOUND THEN
    MESSAGE('Please Check the data type is appropriate on you excel file');
    MESSAGE('Please Check the data type is appropriate on you excel file');
END; 
-----------------------------------------------------------------------
-- notes
1- you must install webutil version 106 or later
2- make sure that you attached and compiled the webutill.pll scucessfuly

将 .csv 文件导入 Oracle Forms 应用程序

Importing .csv file into a Oracle Forms application

csv

oracle

import

oracleforms

oracle11g