帮我看下我写的格式，出错了

-一个大坑 2017-11-06 11:33:16 


create or replace procedure P_TEST(E_APPNO IN VARCHAR2) is

  MAIL1 VARCHAR2(200);

  MAIL2 VARCHAR2(2000);

  CNT   NUMBER;



begin



  SELECT COUNT(A.PEMPLID)

    INTO CNT

    FROM APP_PASSENGER A

   WHERE A.PEMPLID IS NOT NULL

     AND A.APPNO = E_APPNO;



  IF CNT > 0 THEN  

    FOR X IN (SELECT A.PEMPLID

                FROM APP_PASSENGER A

               WHERE A.PEMPLID IS NOT NULL

                 AND A.APPNO = E_APPNO) LOOP

      SELECT F_GetEmpByWebService(X.PEMPLID) INTO MAIL1 FROM DUAL;

    

      select MAIL1,

             substr(MAIL1,

                    instr(MAIL1, ',', 1, 2) + 8,

                    instr(MAIL1, ',', 1, 3) - instr(MAIL1, ',', 1, 2) - 9)

        into MAIL1

        from dual;



    

      IF MAIL1 <> 'null' THEN      

        MAIL2 := MAIL2 || ',' || MAIL1;      

      END IF;

          

    END LOOP;  

    MAIL2 := SUBSTR(MAIL2, 1);  

  END IF;



end P_TEST;
...全文
285 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
碧水幽幽泉 2017-11-06
  • 打赏
  • 举报
 回复
优化下：去掉CNT查询的逻辑


CREATE OR REPLACE PROCEDURE P_TEST

(

  E_APPNO IN       VARCHAR2(200),

  MAIL1   IN  OUT  VARCHAR2(200),

  MAIL2   IN  OUT  VARCHAR2(2000)

)

IS

   V_MAIL1  VARCHAR2(200);

BEGIN

 

  FOR X IN (SELECT PEMPLID

              FROM APP_PASSENGER

			 WHERE APPNO =  E_APPNO

			   AND A.PEMPLID IS NOT NULL

		    )LOOP

     

      SELECT MAIL1,

             SUBSTR(MAIL1,

                    INSTR(MAIL1, ',', 1, 2) + 8,

                    INSTR(MAIL1, ',', 1, 3) - INSTR(MAIL1, ',', 1, 2) - 9)

        INTO MAIL1

        FROM DUAL;

     

      IF MAIL1 IS NOT NULL THEN      

        MAIL2 := MAIL2 || ',' || V_MAIL1;      

      END IF;

           

    END LOOP;  



    MAIL2 := SUBSTR(MAIL2, 1);  

 

END P_TEST;
碧水幽幽泉 2017-11-06
  • 打赏
  • 举报
 回复
楼主，你是需要将MAIL1，MAIL2 既当做输入参数，又当做输出参数返回吗？
如果是的，代码如下：


CREATE OR REPLACE PROCEDURE P_TEST

(

  E_APPNO IN       VARCHAR2(200),

  MAIL1   IN  OUT  VARCHAR2(200),

  MAIL2   IN  OUT  VARCHAR2(2000)

)

IS

   V_MAIL1  VARCHAR2(200);

BEGIN

 

  SELECT COUNT(A.PEMPLID)

    INTO CNT

    FROM APP_PASSENGER A

   WHERE A.PEMPLID IS NOT NULL

     AND A.APPNO = E_APPNO;

 

  FOR X IN (SELECT PEMPLID

              FROM APP_PASSENGER

			 WHERE APPNO =  E_APPNO

			   AND A.PEMPLID IS NOT NULL

		    )LOOP

     

      SELECT MAIL1,

             SUBSTR(MAIL1,

                    INSTR(MAIL1, ',', 1, 2) + 8,

                    INSTR(MAIL1, ',', 1, 3) - INSTR(MAIL1, ',', 1, 2) - 9)

        INTO MAIL1

        FROM DUAL;

     

      IF MAIL1 IS NOT NULL THEN      

        MAIL2 := MAIL2 || ',' || V_MAIL1;      

      END IF;

           

    END LOOP;  



    MAIL2 := SUBSTR(MAIL2, 1);  

 

END P_TEST;
卖水果的net 2017-11-06
  • 打赏
  • 举报
 回复
CNT 是一个 in 参数 最好 select count（） into 新变量
碧水幽幽泉 2017-11-06
  • 打赏
  • 举报
 回复
调整下，试试这个:


create or replace procedure P_TEST(E_APPNO IN VARCHAR2(200),

  MAIL1 VARCHAR2(200),

  MAIL2 IN OUT VARCHAR2(2000),

  CNT  IN OUT NUMBER

)

is

   V_MAIL1  varchar2(200);

begin

 

  SELECT COUNT(A.PEMPLID)

    INTO CNT

    FROM APP_PASSENGER A

   WHERE A.PEMPLID IS NOT NULL

     AND A.APPNO = E_APPNO;

 

  IF CNT > 0 THEN  

    FOR X IN (SELECT A.PEMPLID

                FROM APP_PASSENGER A

               WHERE A.PEMPLID IS NOT NULL

                 AND A.APPNO = E_APPNO) LOOP

      SELECT F_GetEmpByWebService(X.PEMPLID) INTO MAIL1 FROM DUAL;

     

      select MAIL1,

             substr(MAIL1,

                    instr(MAIL1, ',', 1, 2) + 8,

                    instr(MAIL1, ',', 1, 3) - instr(MAIL1, ',', 1, 2) - 9)

        into V_MAIL1

        from dual;

 

     

      IF v_MAIL1<> 'null' THEN      

        MAIL2 := MAIL2 || ',' || v_MAIL1;      

      END IF;

           

    END LOOP;  

    MAIL2 := SUBSTR(MAIL2, 1);  

  END IF;

 

end P_TEST;
碧水幽幽泉 2017-11-06
  • 打赏
  • 举报
 回复
试试这个:


create or replace procedure P_TEST(E_APPNO IN VARCHAR2(200),

  MAIL1 VARCHAR2(200),

  MAIL2 IN OUT VARCHAR2(2000),

  CNT   NUMBER

)

is

   V_MAIL1  varchar2(200);

   V_MAIL2  varchar2(2000); 

begin

 

  SELECT COUNT(A.PEMPLID)

    INTO CNT

    FROM APP_PASSENGER A

   WHERE A.PEMPLID IS NOT NULL

     AND A.APPNO = E_APPNO;

 

  IF CNT > 0 THEN  

    FOR X IN (SELECT A.PEMPLID

                FROM APP_PASSENGER A

               WHERE A.PEMPLID IS NOT NULL

                 AND A.APPNO = E_APPNO) LOOP

      SELECT F_GetEmpByWebService(X.PEMPLID) INTO MAIL1 FROM DUAL;

     

      select MAIL1,

             substr(MAIL1,

                    instr(MAIL1, ',', 1, 2) + 8,

                    instr(MAIL1, ',', 1, 3) - instr(MAIL1, ',', 1, 2) - 9)

        into V_MAIL1

        from dual;

 

     

      IF v_MAIL1<> 'null' THEN      

        MAIL2 := MAIL2 || ',' || v_MAIL1;      

      END IF;

           

    END LOOP;  

    V_MAIL2 := SUBSTR(MAIL2, 1);  

  END IF;

 

end P_TEST;
-一个大坑 2017-11-06
  • 打赏
  • 举报
 回复
错误提示 Compilation errors for PROCEDURE SENDCAR.P_TEST Error: PL/SQL: ORA-00909: invalid number of arguments Line: 22 Text: select COUNT(MAIL1, Error: PL/SQL: SQL Statement ignored Line: 22 Text: select COUNT(MAIL1, Error: Hint: Value assigned to 'MAIL2' never used in 'P_TEST' Line: 43 Text: MAIL2 := SUBSTR(MAIL2, 1);
-一个大坑 2017-11-06
  • 打赏
  • 举报
 回复
引用 10 楼 qq646748739 的回复:
这帖子我在PC端看不到了，难道又被删除了？
我也看不到，只能看到通知有。既然解决了。我结贴的
碧水幽幽泉 2017-11-06
  • 打赏
  • 举报
 回复
这帖子我在PC端看不到了，难道又被删除了？
-一个大坑 2017-11-06
  • 打赏
  • 举报
 回复
引用 6 楼 qq646748739 的回复:
优化下：去掉CNT查询的逻辑 

CREATE OR REPLACE PROCEDURE P_TEST
(
  E_APPNO IN       VARCHAR2(200),
  MAIL1   IN  OUT  VARCHAR2(200),
  MAIL2   IN  OUT  VARCHAR2(2000)
)
IS
   V_MAIL1  VARCHAR2(200);
BEGIN
 
  FOR X IN (SELECT PEMPLID
              FROM APP_PASSENGER
			 WHERE APPNO =  E_APPNO
			   AND A.PEMPLID IS NOT NULL
		    )LOOP
     
      SELECT MAIL1,
             SUBSTR(MAIL1,
                    INSTR(MAIL1, ',', 1, 2) + 8,
                    INSTR(MAIL1, ',', 1, 3) - INSTR(MAIL1, ',', 1, 2) - 9)
        INTO MAIL1
        FROM DUAL;
     
      IF MAIL1 IS NOT NULL THEN      
        MAIL2 := MAIL2 || ',' || V_MAIL1;      
      END IF;
           
    END LOOP;  

    MAIL2 := SUBSTR(MAIL2, 1);  
 
END P_TEST;
我改好了，看下还有什么需要优化的吗？ 

create or replace procedure P_TEST(E_APPNO IN VARCHAR2) is
  MAIL1 VARCHAR2(200);
  MAIL2 VARCHAR2(2000);
  CNT   NUMBER;

begin

  SELECT COUNT(A.PEMPLID)
    INTO CNT
    FROM APP_PASSENGER A
   WHERE A.PEMPLID IS NOT NULL
     AND A.APPNO = E_APPNO;

  IF CNT > 0 THEN
    FOR X IN (SELECT A.PEMPLID
                FROM APP_PASSENGER A
               WHERE A.PEMPLID IS NOT NULL
                 AND A.APPNO = E_APPNO) LOOP
      SELECT F_GetEmpByWebService(X.PEMPLID) INTO MAIL1 FROM DUAL;
    
      with tmp as
       (select MAIL1 str from dual)
      select substr(str,
                    instr(str, ',', 1, 2) + 8,
                    instr(str, ',', 1, 3) - instr(str, ',', 1, 2) - 9)
        into MAIL1
        from tmp
       group by str;
    
      IF MAIL1 <> 'null' THEN
        MAIL2 := MAIL2 || ',' || MAIL1;
      END IF;
    
    END LOOP;
  
    select substr(mail2, 1) into mail2 from dual;
  
  END IF;

end P_TEST;
-一个大坑 2017-11-06
  • 打赏
  • 举报
 回复
引用 6 楼 qq646748739 的回复:
优化下：去掉CNT查询的逻辑 

CREATE OR REPLACE PROCEDURE P_TEST
(
  E_APPNO IN       VARCHAR2(200),
  MAIL1   IN  OUT  VARCHAR2(200),
  MAIL2   IN  OUT  VARCHAR2(2000)
)
IS
   V_MAIL1  VARCHAR2(200);
BEGIN
 
  FOR X IN (SELECT PEMPLID
              FROM APP_PASSENGER
			 WHERE APPNO =  E_APPNO
			   AND A.PEMPLID IS NOT NULL
		    )LOOP
     
      SELECT MAIL1,
             SUBSTR(MAIL1,
                    INSTR(MAIL1, ',', 1, 2) + 8,
                    INSTR(MAIL1, ',', 1, 3) - INSTR(MAIL1, ',', 1, 2) - 9)
        INTO MAIL1
        FROM DUAL;
     
      IF MAIL1 IS NOT NULL THEN      
        MAIL2 := MAIL2 || ',' || V_MAIL1;      
      END IF;
           
    END LOOP;  

    MAIL2 := SUBSTR(MAIL2, 1);  
 
END P_TEST;


      SELECT MAIL1,

             SUBSTR(MAIL1,
                    INSTR(MAIL1, ',', 1, 2) + 8,
                    INSTR(MAIL1, ',', 1, 3) - INSTR(MAIL1, ',', 1, 2) - 9)
        INTO MAIL1
        FROM DUAL;
MAIL2 := SUBSTR(MAIL2, 1);
这两句报错了 Compilation errors for PROCEDURE SENDCAR.P_TEST Error: PL/SQL: ORA-00947: not enough values Line: 18 Text: FROM DUAL; Error: PL/SQL: SQL Statement ignored Line: 13 Text: SELECT MAIL1, Error: Hint: Value assigned to 'MAIL2' never used in 'P_TEST' Line: 26 Text: MAIL2 := SUBSTR(MAIL2, 1);
-一个大坑 2017-11-06
  • 打赏
  • 举报
 回复
引用 5 楼 qq646748739 的回复:
楼主，你是需要将MAIL1，MAIL2 既当做输入参数，又当做输出参数返回吗？ 如果是的，代码如下： 

CREATE OR REPLACE PROCEDURE P_TEST
(
  E_APPNO IN       VARCHAR2(200),
  MAIL1   IN  OUT  VARCHAR2(200),
  MAIL2   IN  OUT  VARCHAR2(2000)
)
IS
   V_MAIL1  VARCHAR2(200);
BEGIN
 
  SELECT COUNT(A.PEMPLID)
    INTO CNT
    FROM APP_PASSENGER A
   WHERE A.PEMPLID IS NOT NULL
     AND A.APPNO = E_APPNO;
 
  FOR X IN (SELECT PEMPLID
              FROM APP_PASSENGER
			 WHERE APPNO =  E_APPNO
			   AND A.PEMPLID IS NOT NULL
		    )LOOP
     
      SELECT MAIL1,
             SUBSTR(MAIL1,
                    INSTR(MAIL1, ',', 1, 2) + 8,
                    INSTR(MAIL1, ',', 1, 3) - INSTR(MAIL1, ',', 1, 2) - 9)
        INTO MAIL1
        FROM DUAL;
     
      IF MAIL1 IS NOT NULL THEN      
        MAIL2 := MAIL2 || ',' || V_MAIL1;      
      END IF;
           
    END LOOP;  

    MAIL2 := SUBSTR(MAIL2, 1);  
 
END P_TEST;
不需要输入，也不需要输出 主要是把邮箱都统计出来然后插入到表中
csv文件转换为excel文件
  首先，这里需要简单的介绍一个软件PHPmyadmin，可能对一些大佬或者是学习python方向的同学对这个软件相对熟悉， 我是在一位学长帮我写过一个程序之后了解到这个软件，学长简单介绍的是这是一个可视化的数据库软件，今天在自己操作这个软件的时候遇到了一些问题，所以自己又了解了一些这个软件。   phpMyAdmin 是一个以PHP为基础，以Web-Base方式架构在网站主机上的MySQL的数...
chkdsk /f P 很强大，帮我解决了硬盘写保护的问题
chkdsk /f P 很强大，帮我解决了硬盘写保护的问题
“U盘、手机卡、内存卡出错，打开提示“未格式化”，里面有重要的资料~别着急，就这样试试吧~”【U盘、内存卡使用时意外断电或死机导致U盘无法打开，提示未格式化，解决思路参考】
我的U盘之前做成了启动盘，能脱离光盘的不便重装系统，最近帮别人重装系统的时候，通过u盘启动winpe的时候突然断电，导致u盘暂时瘫痪，通过别的机器，插入u盘打开出现“磁盘i:未被格式化”的提示，要求进行格式化，但是U盘里面存储了很多重要的数据肿么能随便格式化，于是走上探索如何恢复U盘数据。     很多时候在对u盘进行数据传输的时候，突然拔掉，活动断电，或者死机，都会导致u盘出错，打不开出错
FPGA之SD卡读写操作
（呕心沥血，写了接近三个小时。我觉得如果耐心看的话，真的会有所帮助哦哈哈哈。看在博主这么kindhearted的份上，点个赞吧！！！！） 学到后面发现例程文件越来越多，代码越来越恶心了。SD卡，I2C_EEPROM，SPI_Flash这种芯片的各种时序看得头晕，数据手册冗长啰嗦，搞不好还是100多页的英文版。。。不是人看的。。所以我觉得更加要把自己的心得写出来，让更多爱学习的人提高自己的效率。虽...
chkdsk /f P:很强大，帮我解决了硬盘写保护的问题
Microsoft Windows XP [版本 5.1.2600] (C) 版权所有 1985-2001 Microsoft Corp. C:\Documents and Settings\Administrator>chkdsk /f P: 文件系统的类型是 exFAT。 由于该卷正在被另一个过程使用，Chkdsk 不能运行。 如果先卸下该卷，Chkdsk 也许可以运
基础和管理

17,377

社区成员

95,128

社区内容

发帖
与我相关
我的任务
社区描述
Oracle 基础和管理
社区管理员
  • 基础和管理社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章