存储过程缺失关键字怎么整，在线等急...........

Question

CREATE OR REPLACE PROCEDURE PROC_QUERY_ELECTRICJOURNAL(trancodein  in varchar2,
                                                       devdatein   in varchar2,
                                                       tranacctin  in varchar2,
                                                       clinicfeein in varchar2,
                                                       p_cur       out sys_refcursor) as
  str    varchar2(2000);
  normal varchar2(2000);  trancode_code1 varchar2(10);
  trancode_name1 varchar2(200);begin  trancode_code1 := '0200000000';
  trancode_name1 := '消费';  str := 'select case trancode when ' || trancode_code1 || ' then ' ||
         trancode_name1 || 'end as trancode from electricjournal where trancode = '||trancodein;  open p_cur for str;
end PROC_QUERY_ELECTRICJOURNAL;
调用的时候在  open p_cur for str;这行提示错误缺失关键字

Answer 1

试试把动态SQL的拼接改成如下这样：
   str := 'select case trancode when ''' || trancode_code1 || ''' then ''' ||
         trancode_name1 || '''end as trancode from electricjournal where trancode = '''||trancodein||'''';

Answer 2

试试把动态SQL拼接的语句拿出来单独执行一下，看看问题出现在何处，比较容易发现错误

Answer 3

楼主，你ping的语句有问题啊。那个end 前面没空格呢~

Answer 4

DECLARE
str    VARCHAR2(2000);
/* normal VARCHAR2(2000);
*/    trancodein  VARCHAR2(10);
trancode_code1 VARCHAR2(10);
trancode_name1 VARCHAR2(200);BEGIN trancode_code1 := '0200000000';
trancode_name1 := '消费';
    trancodein:='测试用'; str := 'select case trancode when ' || trancode_code1 || ' then ' || trancode_name1 ||
 'end as trancode from electricjournal where trancode = ' || trancodein; dbms_output.put_line(str);
/*   OPEN p_cur FOR str;*/
END;
楼主你的动态sql打印出来的~，你自己调整下吧

Answer 5

 str := 'select case trancode when ' || trancode_code1 || ' then ' ||
         trancode_name1 || ' end as trancode from electricjournal where trancode = '||trancodein;此END前缺少空格

Answer 6

还有楼主varchar2字符类型的条件注意加引号
str            := 'select case trancode when ''' || trancode_code1 || ''' then ''' ||
                    trancode_name1 ||
                    ''' end as trancode from electricjournal where trancode = ''' ||
                    trancodein || '''';

Answer 7

动态游标才能用open for打开