Sql----存储过程

实例：

--创建一个名为p_contract_purchase_import的存储过程

create or replace procedure p_contract_purchase_import(

  --以下写存储过程的外部参数（传入的参数）

  --格式为：参数名  in 参数类型

  --注意，这里的varchar不标注大小

  V_IN_SUBCOMPANYID       in VARCHAR2,  --专业分公司

  V_IN_PURCONTRACTMONEY   in NUMBER,        --采购合同金额                                           

  V_IN_PARTYBNAME         in VARCHAR2,  --供应商名称

  --设置一个返回值

  v_o_ret         out number                --返回结果0:成功；1：失败； 4：查不到供应商； 5：添加关联失败；6：新增采购合同失败

 

)

 

--以下写内部参数

--格式为：参数名称  参数类型

--注意，这里的varchar需要标注大小

as

V_SUPPLIERID            INTEGER;  --供应商编号

V_PARTYBACCOUNT         VARCHAR2(100);--收款账号

V_SQLERRM         VARCHAR2(4000);--错误详情

 

--存储过程开始

begin

  --为某些变量赋初值

  --格式为  变量名 := 值

  v_o_ret := 1;  

  V_SUPPLIERID := '';

  V_PARTYBACCOUNT := '';

 

  --写具体的操作语句（sql）

  --if语句

  if(V_IN_PARTYBNAME is not null) then

    begin

      select t.SUPPLIERID,t.PARTYBACCOUNT,t.PARTYBBANK ,t.PARTYBNAME

        into V_SUPPLIERID,V_PARTYBACCOUNT,V_PARTYBBANK,V_PARTYBNAME

        from T_SUPPLIER t where t.PARTYBNAME=trim(V_IN_PARTYBNAME) and t.SUBCOMPANYID=trim(V_IN_SUBCOMPANYID);

    --抛异常

    exception

      when others then

        v_o_ret := 4 ;  --找不到该供应商

        V_PARTYBNAME := V_IN_PARTYBNAME;

 

         -- 将异常原因写入存储过程日志表

        V_SQLERRM := SQLERRM;

        INSERT INTO T_LOG_DBERR

         (ERRTIME, ERRMODEL, ERRDESC)

        VALUES

          (SYSDATE,

            'PROCEDURES',

             'p_contract_purchase_import:ret=' || v_o_ret ||','||

        V_SQLERRM);

        COMMIT;

    end ;

  end if;

 

 ······

 

    end ;

    commit;

    v_o_ret :=0 ;

 

 

   return;

 

EXCEPTION

  WHEN OTHERS THEN

    ROLLBACK;

    -- 插入异常原因

    V_SQLERRM := SQLERRM;

    INSERT INTO T_LOG_DBERR

      (ERRTIME, ERRMODEL, ERRDESC)

    VALUES

      (SYSDATE,

       'PROCEDURES',

       'p_contract_purchase_import:ret=' || v_o_ret ||','||

       V_SQLERRM);

    COMMIT;

 

--存储过程结束

end p_contract_purchase_import;

 

 

 

 

---

删除所有行

可以在不删除表的情况下删除所有的行。这意味着表的结构、属性和索引都是完整的：

DELETE FROM table_name

 

 

 

参考：https://www.2cto.com/database/201803/729289.html

 

基础知识介绍：https://www.cnblogs.com/selene/p/4483612.html