举例一个简单的增删改查存储过程demo

最新推荐文章于 2021-07-01 20:57:55 发布
最新推荐文章于 2021-07-01 20:57:55 发布
阅读量290 收藏
点赞数
文章标签： SQL Access Oracle
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/iteye_20681/article/details/82044720
版权 

--如果A表中不存该号 在检查B表  
CREATE OR REPLACE PROCEDURE SP_NMS_DELETE
-- 删除MMS_NM_NETMESSAGE功能,所有参数均为NULL时,直接返回删除失败标识.
-- 杨化龙
-- 返回值R_DELETE_SECCUESS
(
   P_ID          IN MMS_NM_NETMESSAGE.ID%TYPE,
   R_DELETE_SECCUESS OUT NUMBER
)
AUTHID CURRENT_USER
AS  
  -- 声明删除SQL语句
  V_DELETE_SQL VARCHAR(400);
   V_ID  number;
  -- 声明条件变量
  V_CONDITION VARCHAR(200) := '';
BEGIN
	  -- 声明成功标识
     R_DELETE_SECCUESS := 0;
     SAVEPOINT DO_DELETE;
     select id into V_ID from 
 (select 1 id from MMS_NM_NETMESSAGE where id=P_ID union all
  select 2 id from Mms_Nm_Netmessage_His where id=P_ID);
     
     dbms_output.put_line(V_ID);
     IF V_ID =1 THEN--SQL拼装当前表
         V_DELETE_SQL := 'DELETE MMS_NM_NETMESSAGE WHERE  ';
          END IF;
     IF V_ID =2 THEN--SQL拼装历史表
         V_DELETE_SQL := 'DELETE MMS_NM_NETMESSAGE_HIS WHERE  ';
          END IF;
     dbms_output.put_line(V_DELETE_SQL);
  -- 封装条件语句
  IF P_ID IS NOT NULL THEN
    V_CONDITION := V_CONDITION || ' ID=' || P_ID;
  END IF;
 
  SAVEPOINT DO_DELETE;
  V_DELETE_SQL:= V_DELETE_SQL || V_CONDITION;

  --SQLERRM(SQLCODE)
  -- 执行删除操作
  EXECUTE IMMEDIATE V_DELETE_SQL;
  COMMIT;
  
  EXCEPTION
    WHEN OTHERS THEN
      R_DELETE_SECCUESS := -1;
      ROLLBACK TO DO_DELETE; -- 只有一行删除语句时可省略
      SP_NM_EXCEPTION_LOG_INSERT('SP_NMS_DELETE',SQLCODE,SP_EXCEPTION_LOG_OPERATIONTYPE.C_DELETE);
END SP_NMS_DELETE;
  --插入默认系统时间 如果插入的时间不存在时 
CREATE OR REPLACE PROCEDURE SP_Nms_ADD
-- 网信当前表添加功能
-- 杨化龙
-- 返回值R_INSERT_SUCCESS 0:成功,-1:失败
(
  P_TITLE      IN  MMS_NM_NETMESSAGE.TITLE%TYPE,
  P_FILE_PATH  IN  MMS_NM_NETMESSAGE.FILE_PATH%TYPE,
  P_TYPE       IN   MMS_NM_NETMESSAGE.TYPE%TYPE,
  P_CREATE_TIME IN  MMS_NM_NETMESSAGE.CREATE_TIME%TYPE,
  P_SEND_TIME   IN  MMS_NM_NETMESSAGE.SEND_TIME%TYPE,
  P_URL       IN    MMS_NM_NETMESSAGE.URL%TYPE,
  P_STATUS    IN    MMS_NM_NETMESSAGE.STATUS%TYPE,
  P_READ_FLAG  IN MMS_NM_NETMESSAGE.READ_FLAG%TYPE,
  P_PUSH_MESSAGE IN MMS_NM_NETMESSAGE.PUSH_MESSAGE%TYPE,
  P_NM_SIZE    IN MMS_NM_NETMESSAGE.NM_SIZE%TYPE,
  P_CALLER    IN   MMS_NM_NETMESSAGE.CALLER%TYPE,
  P_CALLED    IN  MMS_NM_NETMESSAGE.CALLED%TYPE,
  P_ACCESS_TIME  IN MMS_NM_NETMESSAGE.ACCESS_TIME%TYPE,
  P_ACCESS_COUNT IN MMS_NM_NETMESSAGE.ACCESS_COUNT%TYPE,
  P_RECEIVE_TYPE IN MMS_NM_NETMESSAGE.Receive_Type%TYPE,
  R_INSERT_SUCCESS out NUMBER)
Authid Current_User

AS

BEGIN
--  设置成功标识
  R_INSERT_SUCCESS := 0;

  SAVEPOINT DO_INSERT;
  
--  插入数据
  INSERT INTO MMS_NM_NETMESSAGE(id,title,file_path,type,create_time,
      send_time,url,status,read_flag,push_message,nm_size,caller,called,
      access_time,access_count,partcol,RECEIVE_TYPE)
		VALUES(NETMESSAGE_ID_SEQ.NEXTVAL,P_title,p_file_path,
			p_type,nvl(p_create_time,sysdate),p_send_time,
			p_url,p_status,p_read_flag,
			p_push_message,p_nm_size,p_caller,
			p_called,p_access_time,p_access_count,
			to_char(nvl(p_create_time,sysdate),'mmdd'),P_RECEIVE_TYPE);

  COMMIT;

EXCEPTION
  WHEN OTHERS THEN
--    其他错误
    R_INSERT_SUCCESS := -1;
    ROLLBACK TO DO_INSERT; -- 一条INSERT 语句时可省略
--    记录异常日志
    SP_NM_EXCEPTION_LOG_INSERT('SP_Nms_ADD',sqlcode,
      SP_EXCEPTION_LOG_OPERATIONTYPE.C_INSERT);

END SP_Nms_ADD;

 --根据字段条件查询 按照时间查询 以及Oracle中的单引号字符串需要用""代替

CREATE OR REPLACE PROCEDURE SP_NMS_GETNM
(
  P_ID          IN MMS_NM_NETMESSAGE.ID%TYPE,
  P_TITLE       IN  MMS_NM_NETMESSAGE.TITLE%TYPE,
  P_FILE_PATH   IN  MMS_NM_NETMESSAGE.FILE_PATH%TYPE,
  P_TYPE        IN   MMS_NM_NETMESSAGE.TYPE%TYPE,
  P_CREATE_TIME IN  MMS_NM_NETMESSAGE.CREATE_TIME%TYPE,
  P_SEND_TIME   IN  MMS_NM_NETMESSAGE.SEND_TIME%TYPE,
  P_STATUS      IN    MMS_NM_NETMESSAGE.STATUS%TYPE,
  P_READ_FLAG   IN MMS_NM_NETMESSAGE.READ_FLAG%TYPE,
  P_CALLER    IN   MMS_NM_NETMESSAGE.CALLER%TYPE,
  P_CALLED    IN  MMS_NM_NETMESSAGE.CALLED%TYPE,
  P_ACCESS_COUNT in MMS_NM_NETMESSAGE.Access_Count%TYPE,
  P_CURSOR OUT SP_NMS_GETNM_PACKAGE.NM_CURSOR
)
is
V_SQL varchar2(1000);
V_SQL_HIS varchar2(1000);
V_SET_VALUES varchar2(200);
BEGIN
 V_SQL:='SELECT * FROM MMS_NM_NETMESSAGE M WHERE 1=1 ' ;
 V_SQL_HIS:='SELECT * FROM MMS_NM_NETMESSAGE_HIS T WHERE 1=1 ' ;
    -- 封装SET部分内容
  IF P_ID IS NOT NULL THEN
    V_SET_VALUES := V_SET_VALUES || 'and  id=' || P_ID;
  END IF;  
  IF P_TITLE IS NOT NULL THEN
    V_SET_VALUES := V_SET_VALUES || 'and  TITLE=''' || P_TITLE||'''';
  END IF;

   IF P_FILE_PATH IS NOT NULL THEN
    V_SET_VALUES := V_SET_VALUES || ' and  FILE_PATH=''' || P_FILE_PATH||'''';
  END IF;

  IF P_TYPE IS NOT NULL THEN
    V_SET_VALUES := V_SET_VALUES || ' and  TYPE=' || P_TYPE;
  END IF;

  IF P_CREATE_TIME IS NOT NULL THEN

    V_SET_VALUES := V_SET_VALUES ||' and  create_time=to_date('''
      || to_char(P_CREATE_TIME,'yyyy-mm-dd HH24:mi:ss') || ''',''yyyy-mm-dd HH24:mi:ss'')' ;
  END IF;

  IF P_SEND_TIME IS NOT NULL THEN
  V_SET_VALUES := V_SET_VALUES ||' and  SEND_TIME=to_date('''
      || to_char(P_SEND_TIME,'yyyy-mm-dd HH24:mi:ss') || ''',''yyyy-mm-dd HH24:mi:ss'')' ;
  END IF;

  IF P_STATUS IS NOT NULL THEN
    V_SET_VALUES := V_SET_VALUES || ' and  STATUS=' || P_STATUS;
  END IF;


  IF P_READ_FLAG IS NOT NULL THEN
    V_SET_VALUES := V_SET_VALUES || ' and  READ_FLAG=' || P_READ_FLAG;
  END IF;


  IF P_CALLER IS NOT NULL THEN
    V_SET_VALUES := V_SET_VALUES || ' and  CALLER=' || P_CALLER;
  END IF;

    IF P_CALLED IS NOT NULL THEN
    V_SET_VALUES := V_SET_VALUES || ' and  CALLED=' || P_CALLED;
  END IF;


    IF P_ACCESS_COUNT IS NOT NULL THEN
    V_SET_VALUES := V_SET_VALUES || ' and  ACCESS_COUNT=' || P_ACCESS_COUNT;
  END IF;

 V_SQL:= V_SQL||' '||V_SET_VALUES;
 V_SQL_HIS:= V_SQL_HIS||' '||V_SET_VALUES;
 V_SQL:= V_SQL||'  union all   '||V_SQL_HIS;
 dbms_output.put_line(V_SQL);
OPEN P_CURSOR FOR V_SQL;
END SP_NMS_GETNM;

 ---单表更新 demo

CREATE OR REPLACE PROCEDURE SP_NMS_UPDATEMESSAGE
  -- AUTHOR  : YANG,HUALONG
  -- CREATED : 2011-03-28 13:14:14
  -- PURPOSE : NetMessage业务更新一条网信(只定义了接口)
(
  P_ID          IN MMS_NM_NETMESSAGE.ID%TYPE,
  P_TITLE      IN  MMS_NM_NETMESSAGE.TITLE%TYPE,
  P_FILE_PATH  IN  MMS_NM_NETMESSAGE.FILE_PATH%TYPE,
  P_TYPE       IN   MMS_NM_NETMESSAGE.TYPE%TYPE,
  P_CREATE_TIME IN  MMS_NM_NETMESSAGE.CREATE_TIME%TYPE,
  P_SEND_TIME   IN  MMS_NM_NETMESSAGE.SEND_TIME%TYPE,
  P_URL       IN    MMS_NM_NETMESSAGE.URL%TYPE,
  P_STATUS    IN    MMS_NM_NETMESSAGE.STATUS%TYPE,
  P_READ_FLAG  IN MMS_NM_NETMESSAGE.READ_FLAG%TYPE,
  P_PUSH_MESSAGE IN MMS_NM_NETMESSAGE.PUSH_MESSAGE%TYPE,
  P_NM_SIZE    IN MMS_NM_NETMESSAGE.NM_SIZE%TYPE,
  P_CALLER    IN   MMS_NM_NETMESSAGE.CALLER%TYPE,
  P_CALLED    IN  MMS_NM_NETMESSAGE.CALLED%TYPE,
  P_ACCESS_TIME  IN MMS_NM_NETMESSAGE.ACCESS_TIME%TYPE,
  P_ACCESS_COUNT IN MMS_NM_NETMESSAGE.ACCESS_COUNT%TYPE,
  P_RECEIVE_TYPE IN MMS_NM_NETMESSAGE.RECEIVE_TYPE%TYPE,
  R_UPDATE_SUCCESS OUT NUMBER
)
AUTHID CURRENT_USER
 IS
 V_UPDATE_SQL VARCHAR(400) := 'UPDATE MMS_NM_NETMESSAGE SET ID=' || P_ID;
 V_SET_VALUES VARCHAR(200) := '';
 V_ID  MMS_NM_NETMESSAGE.ID%TYPE;

BEGIN
  --  设置成功标识
  R_UPDATE_SUCCESS := 0;
  --  设置回滚点
  SAVEPOINT DO_UPDATE;
  --
  SELECT ID INTO V_ID FROM MMS_NM_NETMESSAGE WHERE ID=P_ID;
   -- 封装SET部分内容
  IF P_TITLE IS NOT NULL THEN
    V_SET_VALUES := V_SET_VALUES || ' ,TITLE=''' || P_TITLE||'''';
  END IF;

   IF P_FILE_PATH IS NOT NULL THEN
    V_SET_VALUES := V_SET_VALUES || ' ,FILE_PATH=''' || P_FILE_PATH||'''';
  END IF;

  IF P_TYPE IS NOT NULL THEN
    V_SET_VALUES := V_SET_VALUES || ' ,TYPE=' || P_TYPE;
  END IF;

  IF P_CREATE_TIME IS NOT NULL THEN
    
    V_SET_VALUES := V_SET_VALUES ||' ,create_time=to_date('''
			|| to_char(P_CREATE_TIME,'yyyy-mm-dd HH24:mi:ss') || ''',''yyyy-mm-dd HH24:mi:ss'')' ;
  END IF;

  IF P_SEND_TIME IS NOT NULL THEN
  V_SET_VALUES := V_SET_VALUES ||' ,SEND_TIME=to_date('''
			|| to_char(P_SEND_TIME,'yyyy-mm-dd HH24:mi:ss') || ''',''yyyy-mm-dd HH24:mi:ss'')' ;
  END IF;


  IF P_URL IS NOT NULL THEN
    V_SET_VALUES := V_SET_VALUES || ' ,URL=' || P_URL;
  END IF;
  IF P_STATUS IS NOT NULL THEN
    V_SET_VALUES := V_SET_VALUES || ' ,STATUS=' || P_STATUS;
  END IF;


  IF P_READ_FLAG IS NOT NULL THEN
    V_SET_VALUES := V_SET_VALUES || ' ,READ_FLAG=' || P_READ_FLAG;
  END IF;

  IF P_PUSH_MESSAGE IS NOT NULL THEN
    V_SET_VALUES := V_SET_VALUES || ' ,PUSH_MESSAGE=' || P_PUSH_MESSAGE;
  END IF;
  IF P_NM_SIZE IS NOT NULL THEN
    V_SET_VALUES := V_SET_VALUES || ' ,NM_SIZE=' || P_NM_SIZE;
  END IF;

  IF P_CALLER IS NOT NULL THEN
    V_SET_VALUES := V_SET_VALUES || ' ,CALLER=' || P_CALLER;
  END IF;

    IF P_CALLED IS NOT NULL THEN
    V_SET_VALUES := V_SET_VALUES || ' ,CALLED=' || P_CALLED;
  END IF;

    IF P_ACCESS_TIME IS NOT NULL THEN
    V_SET_VALUES := V_SET_VALUES ||' ,ACCESS_TIME=to_date('''
			|| to_char(P_ACCESS_TIME,'yyyy-mm-dd HH24:mi:ss') || ''',''yyyy-mm-dd HH24:mi:ss'')' ;

  END IF;

    IF P_ACCESS_COUNT IS NOT NULL THEN
    V_SET_VALUES := V_SET_VALUES || ' ,ACCESS_COUNT=' || P_ACCESS_COUNT;
  END IF;

     IF P_RECEIVE_TYPE IS NOT NULL THEN
    V_SET_VALUES := V_SET_VALUES || ' ,RECEIVE_TYPE=' || P_RECEIVE_TYPE;
  END IF;

  V_UPDATE_SQL :=V_UPDATE_SQL || V_SET_VALUES || ' WHERE ID=' || P_ID;

  DBMS_OUTPUT.PUT_LINE(V_UPDATE_SQL);
  --设置回滚点
  SAVEPOINT DO_UPDATE;

  -- 执行更新操作
  EXECUTE IMMEDIATE V_UPDATE_SQL;
  COMMIT;

  EXCEPTION
   WHEN NO_DATA_FOUND THEN
  --  未查询到网信信息
  R_UPDATE_SUCCESS := -1;
  ROLLBACK TO DO_UPDATE; -- 一条更新语句时可省略
  --  记录异常日志
  SP_NM_EXCEPTION_LOG_INSERT('CREATE OR REPLACE PROCEDURE SP_NMS_UPDATEMESSAGE',SQLCODE,
    SP_EXCEPTION_LOG_OPERATIONTYPE.C_SELECT);


    WHEN OTHERS THEN
      R_UPDATE_SUCCESS := -1;
      ROLLBACK TO DO_UPDATE;
    SP_NM_EXCEPTION_LOG_INSERT('CREATE OR REPLACE PROCEDURE SP_NMS_UPDATEMESSAGE',SQLCODE,SP_EXCEPTION_LOG_OPERATIONTYPE.C_UPDATE);


END;
 
iteye_20681
关注
Go 使用 Gorm 将操作信息集成到链路跟踪 Jaeger，进行增删改查使用举例，并做可视化UI界面展示（附源码）
代码讲故事
08-27 712
Go 使用 Gorm 将操作信息集成到链路跟踪 Jaeger，进行增删改查使用举例，并做可视化UI界面展示（附源码）。
MVC模式和三层架构（附综合案例增删改查）
我要记录学习博客
03-28 8476
MVC模式和三层架构 MVC模式 MVC 是一种分层开发的模式，其中： M：Model，业务模型，处理业务 V：View，视图，界面展示 C：Controller，控制器，处理请求，调用模型和视图 控制器（serlvlet）用来接收浏览器发送过来的请求，控制器调用模型（JavaBean）来获取数据，比如从数据库查询数据；控制器获取到数据后再交由视图（JSP）进行数据展示。 MVC 好处： 职责单一，互不影响。每个角色做它自己的事，各司其职。 有利于分工协作。 有利于组件重用 三层架构
MySQL 存储过程原理理解以及存储过程的优点缺点
wulimingde的博客
10-20 677
mysql> select curdate(),curtime(),now(); +------------+-----------+---------------------+ | curdate() | curtime() | now() | +------------+-----------+---------------------+ | 2020-10-16 | 08:54:58 | 2020-10-16 08:54:58 | +------------+--
存储过程demo
wang102010的专栏
05-30 676
用ASP.NET与SQL SERVER可是缘份最好了，稍大的程序一般第一先考虑的是SQL SERVER，只是一些很考虑经济的才使用ACCESS等了。用SQL SERVER，为了使数据库的效率更好，一般都会才取存储过程，因存储过程执行速度快，并且可以实现一些高级的查询等功能。比如传入一些数据参数，但执行的SQL过程可能不同等。  下面就来个例子，建立一新的角色，要求角色的名字不能重复，以下是
一个简单的增删查改demo（整合三大框架）
zhangmaoyu199051的专栏
11-18 211
三大框架，单张表的增删查改 分享链接：http://pan.baidu.com/share/link?shareid=140210&uk=3842825398
一个简单的增删改查的demo
01-21
一个针对SQL 2008数据库的基本操作，通过这个demo可以了解如何进行数据记录的增加、删除、修改、查询等操作.
存储过程的demo
qq_27088383的博客
09-04 165
//创建存储过程 start create or replace procedure P_IRCE_TEST(num int) as i int; begin i:=1; while i<=num loop insert into P_IRCE ( ID, SESSION_ID ) VAULES (1, 'str' ); i:=i+1; commit; end loop; end; //创建存储过程 end //plsql 执行存储过程 start begin P_IRCE_T...
yii 框架增删改查
SmallDay_的博客
11-17 997
建立数据库连接 AR 用一个 DB connection 对象与数据库交换数据。默认的，它使用 db 组件作为其连接对象。详见数据库基础章节，你可以在应用程序配置文件中设置下 db 组件，就像这样， return [ 'components' => [ 'db' => [ 'class' => 'yii\db\Connec
EF后台登陆+列表增删改查
weixin_44481764的博客
10-16 380
1:创建MVCWeb项目 2:创建实体类库项目NuGet包添加引用EntityFramework 使用ADO.NET实体数据模型（在右键添加>新建项 中查找） 输入自己数据库的服务器名， 选择SQL Server 身份验证， 输入用户名，密码， 选择所需要的数据库。 点击确定 是，否都可以（这个这是保存数据库的连接密码） 点击下...
【Express】实战 - 应用案例（二）- realworld-API - 路由设计 - mongoose - 数据验证 - 密码加密 - 登录接口 - 身份认证 - token - 增删改查API
YK菌的博客
07-01 1327
后端接口项目
通用的增删改查 存储过程
09-15
通用的增删改查 存储过程 对基本的数据超作 通俗 容懂
ssm框架集,成另加用户分页查询domo增删改查案例
12-18
ssm框架集,成另加用户分页查询domo增删改查案例,根据自己的要求修改项目名称,有问题在下方评论
存储过程Demo
danile2009的专栏
12-24 470
-- ============================================= -- Author: -- Create date: -- Description: -- ============================================= ALTER PROCEDURE [dbo].[checkPBMLock]       //checkP
存储过程简单Demo
weixin_30708329的博客
06-19 71
--创建存储过程 delimiter // create procedure p1() begin end // --调用存储过程 call p1(); --删除存储过程 drop procedure p1; drop procedure if exists; --检查存储过程 show create procedure p1; --完整的例子 del...
举例几个增删改查的管理系统
最新发布
07-22
以下是几个常见的增删改查管理系统的例子： 1. 学生信息管理系统：可以添加、删除、修改和查询学生的个人信息，如姓名、年龄、性别、班级等。 2. 客户关系管理系统：可以添加、删除、修改和查询客户的联系信息，如...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值