Stored procedure trial 2 -- establish a test table to test different types of stored procedures

The previous article recorded the basic knowledge points of stored procedures https://mochou.blog.csdn.net/article/details/116503996, This article tries different types of stored procedures by establishing test tables

 

--  ************* Build a test table

CREATE TABLE szsz.produre_test_table(
    ID1 INTEGER PRIMARY KEY,
    NAME1 VARCHAR2(50),
    num1 INTEGER,
    bz VARCHAR2(50)
);

SELECT * FROM produre_test_table

-- ************** Parameterless stored procedure

CREATE OR REPLACE PROCEDURE testMyProcedure AS
  n_num NUMBER(10);
  v_car VARCHAR2(50);
BEGIN
  SELECT COUNT(*) INTO n_num FROM products;
  v_car := 'Geely';
  DBMS_OUTPUT.put_line(v_car || ' The number is ' || n_num);
    INSERT INTO produre_test_table VALUES(1,v_car,n_num,'T');
EXCEPTION
    WHEN OTHERS THEN
        ROLLBACK;
      INSERT INTO produre_test_table VALUES(101,'testMyProcedure',0,'F');
    RAISE;
END;

--  Run stored procedures  EXECUTE szsz.testMyProcedure;
BEGIN
    szsz.testMyProcedure;
END;

-- ************** Parameterized stored procedures

create or replace procedure test_procedure1(v_name in VARCHAR2,d_date OUT DATE) as
  v_name1 varchar2(10);
  n_num NUMBER(32);
begin
  v_name1  := v_name;
    SELECT COUNT(*) INTO n_num FROM products;
    IF n_num > 1 THEN
      d_date :=SYSDATE;
    ELSIF N_NUM = 0 THEN
        d_date := '1970-01-01 00:00:00';
    END IF;
  dbms_output.put_line(' name ：' || v_name1||',  Age ：' || n_num||',  Time ：' || d_date);
    INSERT INTO produre_test_table VALUES(3,V_NAME1,N_NUM,'F');
EXCEPTION
    WHEN OTHERS THEN 
        ROLLBACK;
        INSERT INTO produre_test_table VALUES(102,'test_procedure1',0,'F');
    RAISE ;
end;
--  In the parameter in  For input 
-- ||  Connection string 
--  The parameter does not need to write the specific type size 

--  perform 
DECLARE 
   test1 DATE;
begin
  test_procedure1('zs',test1);
end;

-- ************** stored procedure - The cursor

CREATE OR REPLACE PROCEDURE cur_procedure(id1 NUMBER) AS
v_name VARCHAR2(50);
n_NUM NUMBER(10);
CURSOR cur IS SELECT ID1,NAME1,num1 FROM produre_test_table;
BEGIN 
    SELECT COUNT(1) INTO n_Num  FROM produre_test_table;
    IF n_num > 1 THEN
        FOR RES IN cur LOOP
        dbms_output.put_line(' name ：' || RES.NAME1 ||',  Age ：' || RES.NUM1||' !!!');
        UPDATE produre_test_table A SET A.ID1 = RES.ID1+1000;
        END LOOP;
        
    END IF;
    EXCEPTION
        WHEN OTHERS THEN 
        ROLLBACK;
        INSERT INTO produre_test_table VALUES(103,'cur_procedure',0,'F');
    RAISE ;
end;
    
--  perform 

BEGIN 
    
cur_procedure(100);
END;