常用PLSQL子程序

01.清空回收站
begin
EXECUTE IMMEDIATE 'purge recyclebin';
end;
/
02.截断表
declare
begin
execute immediate 'truncate table person_bak2';
end;
/
03.修改表列可以为空
--修改时间：2014年9月1日
--修改内容：修改表BT_SALE_CONTRACT字段TRANS_TIME允许为空
--修改原因：销售合同导入时报TRANS_TIME为NULL不能插入
DECLARE
VN_NULLABLE VARCHAR2(1);
BEGIN
SELECT nullable
INTO VN_NULLABLE
FROM user_tab_columns
WHERE table_name = 'BT_SALE_CONTRACT'
AND column_name = 'TRANS_TIME';
IF VN_NULLABLE = 'N' THEN
EXECUTE IMMEDIATE ' ALTER TABLE BT_SALE_CONTRACT MODIFY TRANS_TIME DATE NULL ';
END IF;
COMMIT;
END;
/
04.修改列列长度(字符型，只允许变长，不允许变短)
--修改时间：2014年9月3日
--修改内容：修改表BT_BUY_DETAIL字段PRODUCT_NAME的长度
-- 修改表BT_BUY_FPRECORD 字段PRODUCT_NAME的长度
--修改原因：导入时报其字段的长度不够

--修改产品名称字段地,采购明细导入报其字段的长度不够
alter table BT_BUY_DETAIL modify(PRODUCT_NAME varchar2(500));
--修改产品名称字段,发票表导入报其字段的长度不够
alter table BT_BUY_FPRECORD modify(PRODUCT_NAME varchar2(500));
commit;
05.创建表
--修改人：易小群
--修改内容：新增预投产品/返修产品库，在招标采购时可供选择
DECLARE
VC_STR VARCHAR2(5000);
VN_COUNT NUMBER;
BEGIN
--查看现有系统是否有BT_PRODUCT_MODEL表
SELECT COUNT(*)
INTO VN_COUNT
FROM USER_TABLES
WHERE TABLE_NAME = 'BT_PRODUCT_MODEL';
--如果没有则新增表，如果有就不处理
IF VN_COUNT < 1 THEN
VC_STR := ' create table BT_PRODUCT_MODEL
(
product_model_id NUMBER not null,
product_code VARCHAR2(30),
product_name VARCHAR2(30),
product_type VARCHAR2(30),
product_desc VARCHAR2(100),
constraint PK_PRODUCT_MODEL_ID primary key (PRODUCT_MODEL_ID)
)';
EXECUTE IMMEDIATE VC_STR;
END IF;
END;
/
06.表列增加字段
--修改时间:2014-9-16
--修改内容:销售合同表增加合同标记
DECLARE
VN_COUNT NUMBER;
VC_STR VARCHAR2(1000);
BEGIN
--查看该表中该字段是否存在
SELECT COUNT(*)
INTO VN_COUNT
FROM USER_TAB_COLUMNS
WHERE TABLE_NAME = 'BT_SALE_CONTRACT' AND COLUMN_NAME = 'CONTRACTFLAG';
IF VN_COUNT < 1 THEN
VC_STR := ' ALTER TABLE BT_SALE_CONTRACT ADD CONTRACTFLAG VARCHAR2(30)';
EXECUTE IMMEDIATE VC_STR;
END IF;
END;
/
07.开启回收站
begin
execute immediate 'alter session set recyclebin=on';
end;
/
08.创建序列
DECLARE
VC_STR VARCHAR2(5000);
VN_COUNT NUMBER;
BEGIN
SELECT COUNT(*)
INTO VN_COUNT
FROM ALL_SEQUENCES
WHERE SEQUENCE_NAME = 'AUDIT_SEQ';
IF VN_COUNT < 1 THEN
VC_STR := 'CREATE SEQUENCE audit_seq
START WITH 1000
INCREMENT BY 1
NOMAXVALUE
NOCYCLE NOCACHE;';
EXECUTE IMMEDIATE VC_STR;
END IF;
END;
/
09.解锁用户
SQL> SELECT OBJECT_NAME,S.SID, S.SERIAL#
2 FROM GV$LOCKED_OBJECT L, DBA_OBJECTS O, GV$SESSION S
3 WHERE L.OBJECT_ID　 = O.OBJECT_ID
4 AND L.SESSION_ID = S.SID;

OBJECT_NAME
-----------------------------------------------------------------------

SID SERIAL#
---------- ----------
BT_USER
132 37

SQL> alter system kill session '132,37';

系统已更改。

SQL> SELECT OBJECT_NAME,S.SID, S.SERIAL#
2 FROM GV$LOCKED_OBJECT L, DBA_OBJECTS O, GV$SESSION S
3 WHERE L.OBJECT_ID　 = O.OBJECT_ID
4 AND L.SESSION_ID = S.SID;

未选定行

SQL>
SQL注意
各位在写SQL脚本的时候注意下面的情况：
1、SQL脚本中单引号中嵌套单引号问题，如：需要在一个字段中插入字符串"ab'1'cd",不能写成'ab'1'cd'，需要写成'ab''1''cd'
2、SQL遇到字符串中有取地址符&问题，需要修改成'||'&'||' 例如：'abc&def' 需要修改成'abc'||'&'||'def'
或使用函数CHR(38)
SQL> select chr(38) from dual;

C
-
&

 

版权声明：本文为博主原创文章，未经博主允许不得转载。