Oracle PL/SQL Tutorial/PL SQL Statements/Dynamic SQL statement — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
| |
Версия 13:45, 26 мая 2010
Содержание
An example of code using native dynamic SQL
SQL> DECLARE
2 tableName VARCHAR2(30):="temp";
3 sqlString VARCHAR2(150);
4 BEGIN
5 sqlString :="create table "||tableName||"(col1 NUMBER NOT NULL)";
6 EXECUTE IMMEDIATE sqlString;
7 END;
8 /
PL/SQL procedure successfully completed.
SQL>
SQL>
SQL> drop table temp;
Table dropped.
Create dynamic table
SQL> Create or replace Procedure create_dyn_table2
2 (i_region_name VARCHAR2,
3 returnCode OUT NUMBER,
4 errorMessage OUT VARCHAR2)
5 authid current_user
6 Is
7 sqlString VARCHAR2(1000);
8 tableName VARCHAR2(30);
9 Begin
10 tableName :="ORDER_ITEMS_FOR_"||replace(trim(i_region_name),"","_");
11 sqlString :="CREATE TABLE "||tableName||
12 "(order_id NUMBER(10)NOT NULL,
13 item_id VARCHAR2(10)NOT NULL,
14 unit_price NUMBER(11,2)NOT NULL,
15 quantity NUMBER)";
16
17 EXECUTE IMMEDIATE sqlString ;
18
19 returnCode :=0;
20
21 EXCEPTION WHEN OTHERS THEN
22
23 returnCode :=SQLCODE;
24
25 errorMessage :="ERR:Creating/Altering table "||tableName ||"-"||SQLERRM;
26 End;
27 /
Procedure created.
SQL>
SQL>
SQL>
Dynamic DDL
SQL> Create or replace Procedure create_dyn_table
2 (i_region_name VARCHAR2,
3 returnCode OUT NUMBER,
4 errorMessage OUT VARCHAR2)
5 authid current_user
6 Is
7 sqlString VARCHAR2(1000);
8 tableName VARCHAR2(30);
9 Begin
10 tableName :="ORDERS_FOR_"||replace(trim(i_region_name),"","_");
11 sqlString :="CREATE TABLE "||tableName||
12 "(order_id NUMBER(10)PRIMARY KEY,
13 sale_date DATE NOT NULL,
14 total_number NUMBER,
15 total_price NUMBER(15,2),
16 company_id NUMBER(6))";
17 EXECUTE IMMEDIATE sqlString ;
18 returnCode :=0;
19 EXCEPTION WHEN OTHERS THEN
20 returnCode :=SQLCODE;
21 errorMessage :="ERR:Creating table "||tableName ||"-"||SQLERRM;
22 End;
23 /
Procedure created.
SQL>
SQL>
SQL>
Dynamic DQL with DBMS_SQL package
SQL>
SQL> CREATE OR REPLACE PROCEDURE runddl (ddl_in in VARCHAR2)
2 IS
3 cur INTEGER:= DBMS_SQL.OPEN_CURSOR;
4 returnValue INTEGER;
5 BEGIN
6 DBMS_SQL.PARSE (cur, ddl_in, DBMS_SQL.NATIVE);
7 returnValue := DBMS_SQL.EXECUTE (cur);
8 DBMS_SQL.CLOSE_CURSOR (cur);
9 EXCEPTION
10 WHEN OTHERS
11 THEN
12 DBMS_OUTPUT.PUT_LINE (
13 "RunDDL Failure on " || ddl_in);
14 DBMS_OUTPUT.PUT_LINE (SQLERRM);
15 DBMS_SQL.CLOSE_CURSOR (cur);
16 END;
17 /
Procedure created.
SQL>
SQL>
SQL>
Dynamic PL/SQL
SQL>
SQL>
SQL> CREATE TABLE customer_region(
2 region_id NUMBER(4) PRIMARY KEY,
3 region_name VARCHAR2(11) NOT NULL
4 );
Table created.
SQL>
SQL>
SQL> INSERT INTO customer_region VALUES (1,"REGION1");
1 row created.
SQL> INSERT INTO customer_region VALUES (2,"REGION2");
1 row created.
SQL> INSERT INTO customer_region VALUES (3,"REGION3");
1 row created.
SQL> INSERT INTO customer_region VALUES (4,"REGION4");
1 row created.
SQL>
SQL>
SQL> Create or replace Procedure myProc(returnCode OUT NUMBER,errorMessage OUT VARCHAR2)
2 Is
3 CURSOR csr_region IS SELECT region_name FROM customer_region;
4 Dyn_proc_name VARCHAR2(100);
5 Dyn_plsql_string VARCHAR2(1000);
6 BEGIN
7 FOR idx IN csr_region LOOP
8 EXECUTE IMMEDIATE "BEGIN update_dyn_"||replace(trim(idx.region_name),"","_")||"(:1,:2);END;"
9 USING OUT returnCode,OUT errorMessage;
10 IF returnCode <>0 THEN
11 EXIT;
12 END IF;
13 END LOOP;
14 EXCEPTION WHEN OTHERS THEN
15 returnCode := SQLCODE;
16 errorMessage := SQLERRM;
17 END;
18 /
Procedure created.
SQL>
SQL> drop table customer_region;
Table dropped.
SQL>
SQL>
SQL>
Table row counter
SQL>
SQL> CREATE TABLE EMP (EMPNO NUMBER(4) NOT NULL,
2 ENAME VARCHAR2(10),
3 JOB VARCHAR2(9),
4 MGR NUMBER(4),
5 HIREDATE DATE,
6 SAL NUMBER(7, 2),
7 COMM NUMBER(7, 2),
8 DEPTNO NUMBER(2));
Table created.
SQL>
SQL> INSERT INTO EMP VALUES (7369, "SMITH", "CLERK", 7902, TO_DATE("17-DEC-1980", "DD-MON-YYYY"), 800, NULL, 20);
1 row created.
SQL> INSERT INTO EMP VALUES (7499, "ALLEN", "SALESMAN", 7698, TO_DATE("20-FEB-1981", "DD-MON-YYYY"), 1600, 300, 30);
1 row created.
SQL> INSERT INTO EMP VALUES (7521, "WARD", "SALESMAN", 7698, TO_DATE("22-FEB-1981", "DD-MON-YYYY"), 1250, 500, 30);
1 row created.
SQL> INSERT INTO EMP VALUES (7566, "JONES", "MANAGER", 7839, TO_DATE("2-APR-1981", "DD-MON-YYYY"), 2975, NULL, 20);
1 row created.
SQL> INSERT INTO EMP VALUES (7654, "MARTIN", "SALESMAN", 7698,TO_DATE("28-SEP-1981", "DD-MON-YYYY"), 1250, 1400, 30);
1 row created.
SQL> INSERT INTO EMP VALUES (7698, "BLAKE", "MANAGER", 7839,TO_DATE("1-MAY-1981", "DD-MON-YYYY"), 2850, NULL, 30);
1 row created.
SQL> INSERT INTO EMP VALUES (7782, "CLARK", "MANAGER", 7839,TO_DATE("9-JUN-1981", "DD-MON-YYYY"), 2450, NULL, 10);
1 row created.
SQL> INSERT INTO EMP VALUES (7788, "SCOTT", "ANALYST", 7566,TO_DATE("09-DEC-1982", "DD-MON-YYYY"), 3000, NULL, 20);
1 row created.
SQL> INSERT INTO EMP VALUES (7839, "KING", "PRESIDENT", NULL,TO_DATE("17-NOV-1981", "DD-MON-YYYY"), 5000, NULL, 10);
1 row created.
SQL> INSERT INTO EMP VALUES (7844, "TURNER", "SALESMAN", 7698,TO_DATE("8-SEP-1981", "DD-MON-YYYY"), 1500, 0, 30);
1 row created.
SQL> INSERT INTO EMP VALUES (7876, "ADAMS", "CLERK", 7788,TO_DATE("12-JAN-1983", "DD-MON-YYYY"), 1100, NULL, 20);
1 row created.
SQL> INSERT INTO EMP VALUES (7900, "JAMES", "CLERK", 7698,TO_DATE("3-DEC-1981", "DD-MON-YYYY"), 950, NULL, 30);
1 row created.
SQL> INSERT INTO EMP VALUES (7902, "FORD", "ANALYST", 7566,TO_DATE("3-DEC-1981", "DD-MON-YYYY"), 3000, NULL, 20);
1 row created.
SQL> INSERT INTO EMP VALUES (7934, "MILLER", "CLERK", 7782,TO_DATE("23-JAN-1982", "DD-MON-YYYY"), 1300, NULL, 10);
1 row created.
SQL>
SQL>
SQL>
SQL> CREATE OR REPLACE FUNCTION tabcount (
2 nm IN VARCHAR2,
3 whr IN VARCHAR2 := NULL)
4 RETURN PLS_INTEGER
5 IS
6 retval PLS_INTEGER;
7 v_where VARCHAR2(2000) := whr;
8 BEGIN
9 IF UPPER (whr) NOT LIKE "WHERE %"
10 THEN
11 v_where := "WHERE " || v_where;
12 END IF;
13
14 EXECUTE IMMEDIATE
15 "SELECT COUNT(*) FROM " || nm || " " || v_where
16 INTO retval;
17 RETURN retval;
18 END;
19 /
Function created.
SQL>
SQL> select tabcount("emp", null) from dual;
TABCOUNT("EMP",NULL)
--------------------
14
SQL>
SQL> drop table emp;
Table dropped.