Oracle中如何建存储过程!

numberone11

请各位大侠指点!很急!!!

zhangych

直接写啊 createproc 。。。。

numenhuang

有些知识是需要自己去看书的，一切勤为王道。

numberone11

谢谢各位高手,我有一个sql server的存储过程,想改成Oracle的,我对Oracle不太熟,请指教

doni

参见下面这个帖子的一楼
http://bbs.chinaunix.net/viewthr ... &extra=page%3D1

numberone11

CREATE PROC GRP_OP
@ID                INT,                        /* 输入-表ID */
@DEPARTMENT_ID        SMALLINT,
@USERNAME        VARCHAR(32),
@Op                TINYINT,                /* 输入-操作类型 0--插入,1--修改,2--删除 */
@ReturnID        INT OUTPUT,
@Explain        VARCHAR(32) OUTPUT        /* 输出-错误消息 */
AS
DECLARE @OLD_DEPARTMENT_ID        smallint
DECLARE @OLD_USERNAME                varchar(32)

SET @ReturnID=-1
SET @Explain='未知错误类型'

IF @Op = 0  /* 插入 */
  IF (SELECT USERNAME FROM SMBS_USERS WHERE DEPARTMENT_ID=@DEPARTMENT_ID AND USERNAME=@USERNAME AND GRP=1) IS NOT NULL /* 是否存在该名称 */
    BEGIN
     SET @Explain='在组中已存在 ' + @USERNAME
     RETURN
    END
  ELSE
    BEGIN
      INSERT INTO SMBS_USERS(DEPARTMENT_ID,USERNAME, GRP) VALUES (@DEPARTMENT_ID,@USERNAME,1)
      SELECT @ReturnID=USER_ID FROM SMBS_USERS WHERE DEPARTMENT_ID=@DEPARTMENT_ID AND USERNAME=@USERNAME AND GRP=1
    END
IF @Op = 1  /* 修改 */
  BEGIN
    SELECT @OLD_DEPARTMENT_ID=DEPARTMENT_ID,@OLD_USERNAME=USERNAME FROM SMBS_USERS WHERE USER_ID=@ID
    IF ((@OLD_DEPARTMENT_ID != @DEPARTMENT_ID) OR (@OLD_USERNAME != @USERNAME))
      IF (SELECT USERNAME FROM SMBS_USERS WHERE DEPARTMENT_ID=@DEPARTMENT_ID AND USERNAME=@USERNAME AND GRP=1) IS NOT NULL
        BEGIN
          SET @Explain='在组中已存在 ' + @USERNAME
          RETURN
        END
      ELSE
        BEGIN
          UPDATE SMBS_USERS SET DEPARTMENT_ID=@DEPARTMENT_ID,USERNAME=@USERNAME WHERE USER_ID=@ID
          SELECT @ReturnID=USER_ID FROM SMBS_USERS WHERE DEPARTMENT_ID=@DEPARTMENT_ID AND USERNAME=@USERNAME AND GRP=1
        END
  END
IF @Op = 2  /* 删除 */
  EXECUTE GRP_DELETE @ID
SET @Explain='执行成功'
RETURN
GO
下面的if我不知道怎么改

doni

这个是学习上的问题还是工作上的问题
如果是学习上的问题:
这个如果只是针对这个procedure,LZ并没能学到什么,PL/SQL应该要系统的学习
如果是工作上的问题:
这个procedure搞定了,那下一个呢?

numenhuang

学习是不可避免的，就是别人帮你改好代码，那调试和功能修改呢。

numberone11

我就是想问一下那三个if在Oracle中怎么改?我原来没有接触到这样的,都是些简单的