2014-06-02 Created By BaoXinjian
1. 最簡單例子
(1).SQL
1 DECLARE
3 l_sql_text VARCHAR (1000);
5 TYPE c_type_wip_entity IS REF CURSOR;
7 c_wip_entity c_type_wip_entity;
9 r_wip_entity wip_entities%ROWTYPE;
11 BEGIN
13 l_sql_text :='select * from wip_entities'
15 || ' where wip_entity_id in ('|| ''''|| '2363' || ''','' '|| '2462'|| ''')';
16
17 DBMS_OUTPUT.put_line (l_sql_text);
19 OPEN c_wip_entity FOR l_sql_text;
21 LOOP
23 FETCH c_wip_entity INTO r_wip_entity;
25 EXIT WHEN c_wip_entity%NOTFOUND;
27 DBMS_OUTPUT.put_line ('Job Name-->' || r_wip_entity.wip_entity_name);
29 END LOOP;
31 END;
(2).DBMS Output
2. 動態語句結合批處理
(1).SQL
1 DECLARE
3 i NUMBER;
5 l_sql_text VARCHAR (1000);
7 TYPE c_type_wip_entity IS TABLE OF wip_entities%ROWTYPE;
9 c_wip_entity c_type_wip_entity;
11 p_wip_entity_id NUMBER := 2363;
13 BEGIN
15 l_sql_text := 'select * from wip_entities where wip_entity_id = :wip_entity_id';
17 EXECUTE IMMEDIATE l_sql_text
19 BULK COLLECT INTO c_wip_entity
21 USING p_wip_entity_id;
23 FOR i IN 1 .. c_wip_entity.COUNT
25 LOOP
27 DBMS_OUTPUT.put_line (c_wip_entity (i).wip_entity_name);
29 END LOOP;
31 END;
(2).DBMS Output
3. 動態更新語句
(1).SQL
1 DECLARE
3 l_sql_text VARCHAR (1000);
5 BEGIN
7 l_sql_text := 'update cux_wf_demo_documents set note= ' || '''Test''' || ' where document_id= :document_id';
9 EXECUTE IMMEDIATE l_sql_text
11 USING 1;
13 DBMS_OUTPUT.put_line (l_sql_text);
15 END;
(2).DBMS Output
Thanks and Regarads