3,492
社区成员
发帖
与我相关
我的任务
分享
CREATE OR REPLACE PROCEDURE P(P_SEQNAME VARCHAR2, P_NAME VARCHAR2) AS
L_SQL VARCHAR2(1000);
L_CNT NUMBER;
L_SEQ NUMBER;
BEGIN
L_SQL := 'select count(*) from user_sequences where sequence_name= upper(''' ||
P_SEQNAME || ''')';
EXECUTE IMMEDIATE L_SQL
INTO L_CNT;
IF L_CNT = 0 THEN
EXECUTE IMMEDIATE 'create sequence ' || P_SEQNAME;
ELSE
L_SQL := 'INSERT INTO CHAP4 VALUES (' || P_SEQNAME || '.NEXTVAL,''' ||
P_NAME || ''')';
EXECUTE IMMEDIATE L_SQL;
END IF;
END;
/
BEGIN
p('seq_123','xxx');
END;
/
[Quote=引用楼主 firmrock 的帖子:]