O arquivo CSV é um arquivo delimitado por vírgulas no qual os campos são separados por vírgulas. Neste artigo, estou dando um exemplo para importar o arquivo CSV para a tabela oracle usando o procedimento armazenado. O procedimento armazenado no Oracle é uma unidade de programa PL/SQL que pode ser independente ou em um pacote de banco de dados.
Você deve ter um objeto de diretório no banco de dados Oracle referente ao caminho do servidor no qual o arquivo está armazenado. No exemplo abaixo, estou usando o nome do objeto de diretório como CSV_DIR e o nome do procedimento é read_csv. Também criei uma função GetString no procedimento read_csv para obter a string delimitada uma a uma .
Carregar arquivo CSV na tabela Oracle usando o procedimento PL/SQL
CREATE OR REPLACE PROCEDURE read_csv
IS
l_file_type UTL_FILE.file_type;
l_string VARCHAR2 (32765);
TYPE Fieldvalue IS TABLE OF VARCHAR2 (4000)
INDEX BY BINARY_INTEGER;
t_field Fieldvalue;
FUNCTION GetString (Source_string IN VARCHAR2,
Field_position IN NUMBER,
UnTerminated IN BOOLEAN DEFAULT FALSE,
Delimiter IN VARCHAR2 DEFAULT ',')
RETURN VARCHAR2
IS
iPtrEnd PLS_INTEGER := 0;
iPtrStart PLS_INTEGER := 0;
vcSourceStrCopy VARCHAR2 (4000) := Source_string;
BEGIN
IF UnTerminated
THEN
vcSourceStrCopy := vcSourceStrCopy || Delimiter;
END IF;
IF Field_Position > 1
THEN
iPtrStart :=
INSTR (vcSourceStrCopy,
Delimiter,
1,
Field_Position - 1)
+ LENGTH (Delimiter);
ELSE
iPtrStart := 1;
END IF;
iPtrEnd :=
INSTR (vcSourceStrCopy,
Delimiter,
1,
Field_Position);
RETURN SUBSTR (vcSourceStrCopy, iPtrStart, (iPtrEnd - iPtrStart));
END GetString;
BEGIN
l_file_type := UTL_FILE.Fopen ('CSV_DIR', 'abc.csv', 'r');
LOOP
UTL_FILE.Get_Line (l_file_type, l_string);
l_string := l_string || ',';
FOR n IN 1 .. REGEXP_COUNT (l_string, ',')
LOOP
t_field (n) :=
Getstring (l_string,
n,
FALSE,
',');
END LOOP;
INSERT INTO EMP (EMPNO,
ENAME,
JOB,
MGR,
HIREDATE,
SAL,
COMM,
DEPTNO)
VALUES (t_field (1),
t_field (2),
t_field (3),
t_field (4),
TO_DATE (t_field (5), 'dd/mm/yyyy'),
t_field (6),
t_field (7),
t_field (8));
END LOOP;
UTL_FILE.Fclose (l_file_type);
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
IF UTL_FILE.is_open (l_file_type)
THEN
UTL_FILE.Fclose (l_file_type);
END IF;
END; Observe que você deve estudar seu arquivo CSV para mapear a tabela de destino corretamente. Manipule também o formato de data para campos de data, de acordo com o formato de dados de data CSV.
