大侠们,怎样给oracle存储过程传递数组参数啊,

gengzhizhen 2008-07-27 09:13:41

大侠们,怎样给oracle存储过程传递数组参数啊
CREATE OR REPLACE PROCEDURE "PIC_INSERT" (FILENAME IN v_arrary) IS
F_LOB BFILE;
B_LOB BLOB;
BEGIN
for i in 1..10
loop
INSERT INTO PIC_LOB(PIC_ID, PIC)
VALUES (licheng.nextval,FILENAME(i));
end loop;
COMMIT;
END;
上面是存储过程

Dim FILENAME() AS Variant;
FILENAME()=.........
Cmd.CommandText = "pic_insert"
Cmd.Parameters.Append Cmd.CreateParameter("FILENAME", adArray, adParamInput, 500, FILENAME)
Cmd.Execute

执行时出现如下错误
实时错误'3001' 参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突

...全文

4340 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

njhart2003 2008-07-30

打赏
举报

[Quote=引用 11 楼 sql_xep 的回复:]

1 create or replace procedure show_list(
2 p_varlist in myvarray_list
3 )
4 is
5 str varchar(50);
6 begin
7 for x in 1.. p_varlist.count loop
8 dbms_output.put_line('p_varlist(' ¦ ¦x ¦ ¦')=' ¦ ¦p_varlist(x));
9 end loop;
10* end;
c:\>/

过程已创建。

c:\>exec show_list(myvarray_list('oracle','db2','sqlserver'));

PL/SQL 过程已成功完成。
…
[/Quote]

用到dbms_output包时，需要在sqlplus里设置一下环境变量：
set serveroutput on size 1000000

sql_xeppp 2008-07-30

打赏
举报

1 create or replace procedure show_list(
2 p_varlist in myvarray_list
3 )
4 is
5 str varchar(50);
6 begin
7 for x in 1.. p_varlist.count loop
8 dbms_output.put_line('p_varlist('||x||')='||p_varlist(x));
9 end loop;
10* end;
c:\>/

过程已创建。

c:\>exec show_list(myvarray_list('oracle','db2','sqlserver'));

PL/SQL 过程已成功完成。

执行后没反映呀？没也输出～～

gengzhizhen 2008-07-29

打赏
举报

关键是用其他语言怎样给过程传递数组啊

javaex 2008-07-29

打赏
举报

study ing...

njhart2003 2008-07-29

打赏
举报

没有VB环境，不好测试。

我觉得有点难：
Cmd.Parameters.Append Cmd.CreateParameter("FILENAME", adArray, adParamInput, 500, FILENAME)

你数组定义的参数类型没有指定，可能不会匹配存储过程里数组的类型。
因为存储过程里定义的数组参数是自定义的，不是标准的。VB不可能知道这个类型。

gengzhizhen 2008-07-29

打赏
举报

to njhart2003
你的方法我试过,是可以执行的

关键是我想用vb给oracle的存储过程传递一个数组参数,老是出现错误

njhart2003 2008-07-29

打赏
举报

用动态sql试试。如：



SQL> declare

  2  mysql varchar2(200);

  3  begin

  4  mysql:='begin show_list(myvarray_list('''||'Oracle'''||','''||'DB2'''||')); end;';

  5  execute immediate mysql;

  6  end;

  7  /

p_varlist(1)=Oracle

p_varlist(2)=DB2



PL/SQL 过程已成功完成。



SQL>

njhart2003 2008-07-28

打赏
举报

参考一下:



SQL> create or replace type myvarray_list as varray(10) of varchar2(50);

  2  /



类型已创建。



SQL> create or replace procedure show_list(

  2  p_varlist in myvarray_list

  3  )

  4  is

  5  str varchar2(50);

  6  begin

  7  for x in 1..p_varlist.count loop

  8  dbms_output.put_line('p_varlist('||x||')='||p_varlist(x));

  9  end loop;

 10  end;

 11  /



过程已创建。



SQL> exec show_list(myvarray_list('Oracle','DB2','Sql Server','mySql','DBA'));

p_varlist(1)=Oracle

p_varlist(2)=DB2

p_varlist(3)=Sql Server

p_varlist(4)=mySql

p_varlist(5)=DBA



PL/SQL 过程已成功完成。



SQL>