Mega Code Archive

 

Categories / Oracle PLSQL / System Packages

 

Executing PLSQL Blocks and use BIND_VARIABLE to bind variable

SQL> SQL> CREATE TABLE lecturer (   2    id               NUMBER(5) PRIMARY KEY,   3    first_name       VARCHAR2(20),   4    last_name        VARCHAR2(20),   5    major            VARCHAR2(30),   6    current_credits  NUMBER(3)   7    ); Table created. SQL> SQL> INSERT INTO lecturer (id, first_name, last_name, major,current_credits)   2                VALUES (10001, 'Scott', 'Lawson','Computer Science', 11); 1 row created. SQL> SQL> INSERT INTO lecturer (id, first_name, last_name, major, current_credits)   2                VALUES (10002, 'Mar', 'Wells','History', 4); 1 row created. SQL> SQL> INSERT INTO lecturer (id, first_name, last_name, major,current_credits)   2                VALUES (10003, 'Jone', 'Bliss','Computer Science', 8); 1 row created. SQL> SQL> INSERT INTO lecturer (id, first_name, last_name, major,current_credits)   2                VALUES (10004, 'Man', 'Kyte','Economics', 8); 1 row created. SQL> SQL> INSERT INTO lecturer (id, first_name, last_name, major,current_credits)   2                VALUES (10005, 'Pat', 'Poll','History', 4); 1 row created. SQL> SQL> INSERT INTO lecturer (id, first_name, last_name, major,current_credits)   2                VALUES (10006, 'Tim', 'Viper','History', 4); 1 row created. SQL> SQL> SQL> CREATE TABLE MyTable (   2    num_col    NUMBER,   3    char_col   VARCHAR2(60)   4    ); Table created. SQL> SQL> SQL> SQL> CREATE OR REPLACE PROCEDURE DynamicPLSQL (   2    p_ID IN lecturer.ID%TYPE) IS   3   4    v_CursorID  INTEGER;   5    v_BlockStr  VARCHAR2(500);   6    myFirstName lecturer.first_name%TYPE;   7    v_LastName  lecturer.last_name%TYPE;   8    v_Dummy     INTEGER;   9  10  BEGIN  11    v_CursorID := DBMS_SQL.OPEN_CURSOR;  12  13    v_BlockStr :=  14      'BEGIN  15         SELECT first_name, last_name  16           INTO :first_name, :last_name  17           FROM lecturer  18           WHERE ID = :ID;  19       END;';  20  21    DBMS_SQL.PARSE(v_CursorID, v_BlockStr, DBMS_SQL.V7);  22  23    DBMS_SQL.BIND_VARIABLE(v_CursorID, ':first_name', myFirstName, 30);  24    DBMS_SQL.BIND_VARIABLE(v_CursorID, ':last_name', v_LastName, 30);  25    DBMS_SQL.BIND_VARIABLE(v_CursorID, ':ID', p_ID);  26  27    v_Dummy := DBMS_SQL.EXECUTE(v_CursorID);  28  29    DBMS_SQL.VARIABLE_VALUE(v_CursorID, ':first_name', myFirstName);  30    DBMS_SQL.VARIABLE_VALUE(v_CursorID, ':last_name', v_LastName);  31  32    INSERT INTO MyTable (num_col, char_col)  33      VALUES (p_ID, myFirstName || ' ' || v_LastName);  34  35    DBMS_SQL.CLOSE_CURSOR(v_CursorID);  36  37    COMMIT;  38  EXCEPTION  39    WHEN OTHERS THEN  40      DBMS_SQL.CLOSE_CURSOR(v_CursorID);  41      RAISE;  42  END DynamicPLSQL;  43  / Procedure created. SQL> SQL> drop table mytable; Table dropped. SQL> SQL> drop table lecturer; Table dropped.