DATA MERGING

Question

hi people i need a pl/sql code which will help me upload data in csv format . thanks

Answer 1

thank u all please review the code below am reading a csv file from c:\temp into a table after running the code i receive a feedback as statement processed but no data gets inserted can u help me its urgent
DECLARE
DOC UTL_FILE.FILE_TYPE;
DATA VARCHAR2(500);
PORGCODE VARCHAR2(20);
NAME VARCHAR2(200);
ORGTYPE VARCHAR2(200);
CBS VARCHAR2(3);
GCC VARCHAR2(3);
START_DATE DATE;
END_DATE DATE;
REGIONCODE VARCHAR2(10);
DISTRICTCODE VARCHAR2(10);
DEZONE varchar2(20);
OPERATIONAL_AREA VARCHAR2(100);
COMMUNITY VARCHAR2(100);
MALE NUMBER ;
FEMALE NUMBER ;
clasification varchar2(20);
fl number;
ml number;
BEGIN
DOC :=UTL_FILE.FOPEN('DR','TEST1.csv','R');
LOOP
BEGIN
UTL_FILE.GET_LINE(DOC, DATA);
SELECT SUBSTR(DATA, 1 ,INSTR(DATA, ',', 1, 1)-1) INTO PORGCODE FROM DUAL;
SELECT SUBSTR(DATA, INSTR(DATA,',', 1, 1)+1, INSTR(DATA,',',1,2)-INSTR(DATA,',',1,1)-1) INTO NAME FROM DUAL;
SELECT SUBSTR(DATA, INSTR(DATA,',', 1, 2)+1, INSTR(DATA,',',2,3)-INSTR(DATA,',',1,2)-1) INTO ORGTYPE FROM DUAL;
SELECT SUBSTR(DATA, INSTR(DATA,',', 1, 3)+1, INSTR(DATA,',',3,4)-INSTR(DATA,',',1,3)-1) INTO CBS FROM DUAL;
SELECT SUBSTR(DATA, INSTR(DATA,',', 1, 4)+1, INSTR(DATA,',',4,5)-INSTR(DATA,',',1,4)-1) INTO GCC FROM DUAL;
SELECT SUBSTR(DATA, INSTR(DATA,',', 1, 5)+1, INSTR(DATA,',',5,6)-INSTR(DATA,',',1,5)-1) INTO START_DATE FROM DUAL;
SELECT SUBSTR(DATA, INSTR(DATA,',', 1, 6)+1, INSTR(DATA,',',6,7)-INSTR(DATA,',',1,6)-1) INTO END_DATE FROM DUAL;
SELECT SUBSTR(DATA, INSTR(DATA,',', 1, 7)+1, INSTR(DATA,',',7,8)-INSTR(DATA,',',1,7)-1) INTO REGIONCODE FROM DUAL;
SELECT SUBSTR(DATA, INSTR(DATA,',', 1, 8)+1, INSTR(DATA,',',8,9)-INSTR(DATA,',',1,8)-1) INTO DISTRICTCODE FROM DUAL;
SELECT SUBSTR(DATA, INSTR(DATA,',', 1, 19)+1, INSTR(DATA,',',9,10)-INSTR(DATA,',',1,9)-1) INTO DEZONE FROM DUAL;
SELECT SUBSTR(DATA, INSTR(DATA,',', 1, 10)+1, INSTR(DATA,',',10,11)-INSTR(DATA,',',1,10)-1) INTO OPERATIONAL_AREA FROM DUAL;
SELECT SUBSTR(DATA, INSTR(DATA,',', 1, 11)+1, INSTR(DATA,',',11,12)-INSTR(DATA,',',1,11)-1) INTO COMMUNITY FROM DUAL;
SELECT SUBSTR(DATA, INSTR(DATA,',', 1, 12)+1, INSTR(DATA,',',12,13)-INSTR(DATA,',',1,12)-1) INTO MALE FROM DUAL;
SELECT SUBSTR(DATA, INSTR(DATA,',', 1, 13)+1, INSTR(DATA,',',13,14)-INSTR(DATA,',',1,13)-1) INTO FEMALE FROM DUAL;
SELECT SUBSTR(DATA, INSTR(DATA,',', 1, 14)+1, INSTR(DATA,',',14,15)-INSTR(DATA,',',1,14)-1) INTO clasification FROM DUAL;
SELECT SUBSTR(DATA, INSTR(DATA,',', 1, 15)+1, INSTR(DATA,',',15,16)-INSTR(DATA,',',1,15)-1) INTO fl FROM DUAL;
SELECT SUBSTR(DATA, INSTR(DATA,',', -1, 1)+1) INTO ml FROM DUAL;
INSERT INTO PORG_NRGP(PORGCODE,NAME,ORGTYPE,CBS,GCC,START_DATE,END_DATE,REGIONCODE,DISTRICTCODE,DEZONE,OPERATIONAL_AREA,COMMUNITY,MALE,FEMALE,clasification ,fl,ml) VALUES
(PORGCODE||PROGCODE.NEXTVAL||'D',NAME,ORGTYPE,CBS,GCC,START_DATE,END_DATE,REGIONCODE,DISTRICTCODE,DEZONE,OPERATIONAL_AREA,COMMUNITY,MALE,FEMALE,clasification ,fl,ml);
EXCEPTION
WHEN OTHERS THEN
EXIT;
END;
END LOOP;
UTL_FILE.FCLOSE(DOC);
END;
-------table
CREATE TABLE PORG_NRGP
PORGCODE VARCHAR2(20)PRIMARY KEY,
NAME VARCHAR2(200),
ORGTYPE VARCHAR2(200),
CBS VARCHAR2(3) CHECK(REGEXP_LiKE(CBS,'^(YES|NO)$')),
GCC VARCHAR2(3) CHECK(REGEXP_LiKE(GCC,'^(YES|NO)$')),
START_DATE DATE,
END_DATE DATE,
REGIONCODE VARCHAR2(10),
DISTRICTCODE VARCHAR2(10),
DEZONE varchar2(20),
OPERATIONAL_AREA VARCHAR2(100),
COMMUNITY VARCHAR2(100),
MALE NUMBER DEFAULT 0,
FEMALE NUMBER DEFAULT 0,
clasification varchar2(20),
fl number default 0,
ml number default 0,
CONSTRAINTS PORG_FK FOREIGN KEY(DISTRICTCODE,REGIONCODE)
REFERENCES DISTRICT_NRGP(DISTRICTCODE,REGIONCODE) ON DELETE CASCADE
);