Listen Software解决方案 “How To” 系列2:存储过程

Listen Software解决方案 “How To” 系列2:存储过程

 

      参照：

           参照定义和使用游标

           参照定义和使用函数

     

      存储过程

             CREATE OR REPLACE PROCEDURE {procedure name} 
   
   

( {argument} IN {datatype} ) IS v_variable {datatype}; 
   
   

--变量类型   
   
   

        VARCHAR(X);
   
   

        VARCHAR2(X);
   
   

        VARCHAR2;
   
   

        CHAR(X);
   
   

        NUMBER(P,S);   
   
   

--P-数字的位数
   
   

        --S-数字的精度   
   
   

        NUMBER(X);
   
   

        NUMBER;
   
   

        LONG;          
   
   

        --容纳32,760字节数据
  
  

        DOUBLE PRECISION;
   
   

        FLOAT;
   
   

        INT;
   
   

        REAL;
   
   

        DATE;
   
   

        RAW(X) 
   
   

        --容纳32,760字节数据
  
  

        LONG RAW; 
   
   

        --容纳32,760字节数据
  
  

        --注意数据库类型为LONG RAW 
  
  

        --容纳20亿字节数据
  
  

        RECORD;
   
   

        TABLE;
   
   

        VARRAY;
   
   

        LOB;
   
   

        CLOB;
   
   

         v_variable_c1  VARCHAR2(20);            
   
   

        --创建20个字符长的变量
   
   

         v_variable_c2  CHAR(10);               
   
   

        --创建固定长度为10个字符的变量 
  
  

        - 最大长度255 
  
  

        v_variable_c3  VARCHAR2;               
   
   

        --变量长度不能超过2000个字符
  
  

        v_variable_n1  table_name.field_name%TYPE; 
   
   

        --定义参照方案中表字段类型的变量类型    
   
   

        v_variable_n2  NUMBER;
   
   

        v_variable_n3  NUMBER := 3;
   
   

        v_variable_n4  NUMBER(10);
   
   

        v_variable_n5  NUMBER(10,2);
   
   

        v_variable_n6  LONG;
   
   

        v_variable_n7  FLOAT;
   
   

        v_variable_n8  REAL;
   
   

         TYPE t_my_record IS RECORD
   
   

        (
   
   

        v_variable1        VARCHAR2(8)
   
   

        ,v_variable2 NUMBER(10)
   
   

        ,v_variable3 DATE
   
   

        );
   
   

         my_record t_my_record;
   
   

         TYPE t_my_table is TABLE OF VARCHAR2(10)   
   
   

        --与vb中的数据结构相似
  
  

         INDEX BY BINARY_INTEGER;
   
   

         my_table t_my_table;
   
   

 BEGIN 
   
   

        --这儿插入代码
  
  

         v_variable_c1 := 'Hello World';
   
   

        v_variable_n2 :=10;
   
   

         --条件逻辑
  
  

         IF v_variable_n2 = 1 THEN
   
   

                v_variable_c2 := 'Exact Match';
   
   

        ELSIF v_variable_n3 > 2 THEN
   
   

                v_variable_c2 := 'Greater Than Match';
   
   

        ELSE
   
   

                v_variable_c3 := 'None of the Above';
   
   

        END IF;
   
   

         my_record.v_variable1:='ABC';
   
   

        my_record.v_variable2:=3;
   
   

        my_record.v_variable3:=TO_DATE('11-JAN-1999','DD-MON-YYYY');
   
   

         my_table(1)='A';
   
   

         my_table(2)='B';
   
   

        /* v_variable_n2的值为10，因此第一个条件为false.

           v_variable_n3初始为3,因此条件为true, 

           v_variable_c2的值就为'Greater Than Match'
  
  

           循环 */
  
  

         v_variable_n2:=0;
   
   

        LOOP
   
   

                v_variable_n2:=v_variable_n2+1;
   
   

                EXIT WHEN v_variable_n2 > 10;
   
   

        END LOOP;
   
   

       v_variable_n2:=0;
   
   

      WHILE v_variable_n2<10 LOOP
   
   

                v_variable_n2:=v_variable_n2+1;
   
   

        END LOOP;
   
   

         FOR v_variable_n2 in 1..10 LOOP
   
   

         END LOOP;
   
   

 END {procedure name};