--创建一个表
DROP TABLE TEST CASCADE CONSTRAINTS ;
CREATE TABLE TEST(A VARCHAR(30),B VARCHAR(30));
--查看具体的权限
SELECT DISTINCT PRIVILEGE FROM DBA_SYS_PRIVS WHERE PRIVILEGE LIKE '%DIRECTORY%';
--用SYS用户授权给SCOTT
GRANT CREATE ANY DIRECTORY TO SCOTT ;
--授权后创建目录
CREATE OR REPLACE DIRECTORY FILENAME AS 'D:临时';
--查询所建的表
SELECT * FROM TEST ;
--写TXT文件
DECLARE FILEHANDLE UTL_FILE.FILE_TYPE;--句柄
BEGIN
--FILENAME 必须大写，不然会提示目录路径无效
FILEHANDLE := UTL_FILE.FOPEN('FILENAME','UTIL_FILE.TXT','W');
UTL_FILE.PUT_LINE(FILEHANDLE,'HELLO ORACLE!');
UTL_FILE.PUT_LINE(FILEHANDLE,'你好，胖子!');
UTL_FILE.FCLOSE(FILEHANDLE);--关闭句柄
END;
--从TXT文件中读取内容插入到表TEST中
/*SET SERVEROUTPUT ON*/
DECLARE
FILEHANDLE UTL_FILE.FILE_TYPE;
FILEBUFFER VARCHAR(200);
BEGIN
FILEHANDLE := UTL_FILE.FOPEN('FILENAME','UTIL_FILE.TXT','R');
LOOP
BEGIN
UTL_FILE.GET_LINE(FILEHANDLE,FILEBUFFER);
INSERT INTO TEST(A) VALUES(FILEBUFFER);
EXCEPTION
WHEN NO_DATA_FOUND THEN
EXIT ;
END;
END LOOP;
UTL_FILE.FCLOSE(FILEHANDLE);
COMMIT;
END;
--再次查询表
SELECT * FROM TEST ;
/*
-- 修改表结构
ALTER TABLE STU ADD (NAME2 VARCHAR2(10)); 增加新字段
UPDATE STU SET NAME2=SUBSTR(TRIM(NAME),1,10); 赋值给新字段
ALTER TABLE STU DROP(NAME); 删除原字段
ALTER TABLE STU RENAME COLUMN NAME2 TO NAME; 将新字段改名
ALTER TABLE 表名 MODIFY 字段名 VARCHAR2(长度);*/
分享： http://space.itpub.net/519536/viewspace-691051