在Apex把csv导入数据库Clob字段再导入到各自对应列的解决方法

1. 需求 有一用户数据存在于csv文件，因为Apex不允许上传超过44列的数据（在该案例中有90多列），所以需求是把所有列先导入到一个clob字段，然后再用存储过程导出到对应的列。 2.解决方法 1) 创建一个有clob字段的表 CREATE TABLE TABLE3( CONTENT CLOB) ; 2

1. 需求

有一用户数据存在于csv文件，因为Apex不允许上传超过44列的数据（在该案例中有90多列），所以需求是把所有列先导入到一个clob字段，然后再用存储过程导出到对应的列。

2.解决方法

1) 创建一个有clob字段的表

CREATE TABLE "TABLE3"

( "CONTENT" CLOB

) ;

2)创建一个具有真实列的表

CREATE TABLE "TABLE4"

( "NAME" VARCHAR2(20 BYTE),

"SID" VARCHAR2(20 BYTE)

) ;

3) 准备一个csv文件

比如，文件名叫book1.csv,文件格式如下

a11,1

b2,2

c33,3

4) 把csv放到一个目录下

比如/home/oracle/csv

同时，在oracle建立一个directory对象

create or replace directory csv as &＃39;/home/oracle/csv&＃39; ;

grant read,write on directory csv to user1;

5) 写一个存储过程把csv放入clob

create or replace PROCEDURE writecsvintoclob AS
l_max_line_length integer := 32767;
l_buffer varchar2(32767);
l_file UTL_FILE.FILE_TYPE;
l_clob clob;
BEGIN

l_file := utl_file.fopen(&＃39;CSV&＃39;, &＃39;book1.csv&＃39;, &＃39;r&＃39;, l_max_line_length);

dbms_lob.createtemporary(l_clob, TRUE, DBMS_LOB.session);

loop
begin
utl_file.get_line(l_file, l_buffer);

dbms_lob.append(l_clob, l_buffer||&＃39;;&＃39;);
exception
when no_data_found then
exit;
end;
end loop;

insert into table3 (content) values (l_clob);

dbms_lob.freetemporary(l_clob);

UTL_FILE.FCLOSE(l_file);

END writecsvintoclob;

6) 写一个子存储过程把varchar放入列 (为把clob放入列做准备)

CREATE OR REPLACE PROCEDURE PUTVARCHARINTOCOL
(
P_BUFFER IN VARCHAR2
) AS
l_len number;
l_start number := 1;
l_end number := 32767;
l_amount number:=32767;
l_field varchar2(32767);
l_buffer varchar2(32767);
i number :=1;
l_sql varchar2(32767);
BEGIN
l_buffer := p_buffer || &＃39;,&＃39;;
l_len :=length(l_buffer);
--dbms_output.put_line(&＃39;l_len=&＃39;||l_len);

l_end := instr(l_buffer, &＃39;,&＃39;, l_start);

l_sql := &＃39;insert into table4 (name,sid) values (&＃39;;

while(l_start
7) 写一个存储过程把clob放入列
create or replace PROCEDURE putCLOBINTOcol AS
l_clob clob;
l_start number := 1;
l_end number := 32767;
l_amount number:=32767;
l_buffer varchar2(32767);
l_len number;
i number:=1;
BEGIN
select content into l_clob from table3;

l_len := dbms_lob.getlength(l_clob);
--dbms_output.put_line(&＃39;l_len=&＃39;||l_len);

l_end := instr(l_clob, &＃39;;&＃39;, l_start);

while(l_start
3. 注意事项
由于有90多列，可能字符串的长度会超过32767，这需要额外处理。