关于存储过程传值的问题

Question

使用動態語句
存储过程proc
(
   p_contid IN VARCHAR2
)
as
   sql_str     varchar2(500);
begin
   sql_str := 'Update PaymentRecord set Flag = 1 where ID in ( '||p_contid||' ) ';
   execute immediate sql_str;
   commit;
end;

Answer 1

对了，还有这个问题
 for A IN (select contid,lastdate,nextdate,paymentrecord.ifend as ifend,
decode(paytype,"月付",1,"双月付",2,1) as intval 
from paymentrecord Inner Join Contract on paymentrecord.ContID = Contract.ContractID where paymentrecord.nextdate is not null and paymentrecord.ContID in (p_contid))
 LOOP
            begin            end;
 end loop;     
当中这段in (p_contid)) 该怎么来表示呢？

Answer 2

传递进来的值该和update后面的使用该参数的类型一致. 比如楼主的例子, 传递是varchar2类型,而在使用的时候(id该是number型的吧.)却不一定一致, 当然不一致也没关系,系统会转换,但是当传递的不能转换成需要的类型的时候,就会出现查询异常.  如果要传递一个字符串. 那就可以考虑使用动态SQL.

Answer 3

對於傳入字符串的問題。可以使用動態語句來解決
以上的問題就是將你的執行語句變成字符串
用動態語句來打開遊標及操作就可以了；
--example
SQL> create or replace procedure pro_test
  2        (
  3         p_contid   in varchar2
  4        )
  5  as
  6    type ref_cursor_type is ref cursor;
  7    my_cursor    ref_cursor_type;
  8    is_name      varchar2(20);
  9    sql_str      varchar2(500);
 10  begin
 11    sql_str := 'select name from bao_temp where name in ('||p_contid||')' ;
 12    dbms_output.put_line(sql_str);
 13    open my_cursor for sql_str ;
 14    loop
 15         fetch my_cursor into is_name;
 16         exit when my_cursor%notfound;
 17  
 18         dbms_output.put_line('name is :'||is_name);
 19  
 20    end loop;
 21    close my_cursor;
 22  end;
 23  /程序已被建立SQL> exec pro_test('''A'',''B''');
select name from bao_temp where name in ('A','B')
name is :A
name is :BPL/SQL 程序順利完成目前歷時: 00:00:00.16

Answer 4

declare
type v_rc is cursor ref;
var_sql varchar2(1000);
begin
var_sql:='select contid,lastdate,nextdate,paymentrecord.ifend as ifend,decode(paytype,"月付",1,"双月付",2,1) as intval from paymentrecord Inner Join Contract on paymentrecord.ContID = Contract.ContractID where paymentrecord.nextdate is not null and paymentrecord.ContID in ('||p_contid||')';
open var_sql for var_sql;
LOOP
            begin            end;
 end loop;     
....
/

Answer 5

(
   p_contid IN VARCHAR2
)
beginfor A IN (select contid,lastdate,nextdate,paymentrecord.ifend as ifend,
decode(paytype,"月付",1,"双月付",2,1) as intval 
from paymentrecord Inner Join Contract on paymentrecord.ContID = Contract.ContractID where paymentrecord.nextdate is not null and paymentrecord.ContID in (p_contid))
 LOOP
            begin
                  insert into tab1(contid,curdate) values(A.contid,A.nextdate); 
            end;
 end loop;    
end; 
这个应该怎么改呢？

Answer 6

declare
type v_rc is ref cursor ;
var_sql varchar2(1000);
v_contid number;
v_lastdate date;
v_nextdate date;
v_ifend varchar2(100);
v_intval varchar2(100);
begin
var_sql:='select contid,lastdate,nextdate,paymentrecord.ifend as ifend,decode(paytype,"月付",1,"双月付",2,1) as intval from paymentrecord Inner Join Contract on paymentrecord.ContID = Contract.ContractID where paymentrecord.nextdate is not null and paymentrecord.ContID in ('||p_contid||')';
open v_rc for var_sql;
LOOP
FETCH v_rc INTO v_contid,v_lastdate,v_nextdate,v_ifend,v_intval;
exit when var_sql%notfound;
insert into tab1(contid,curdate) values(v_contid,v_nextdate); 
end loop;     
....
close v_rc;
/

Answer 7

(paytype,"月付",1,"双月付",2,1)
这里执行出错，请问如何解决？