存储过程out参数是table型的，如何输出？

[aoyusky]

存储过程：
type rec1_type is record(place varchar2(80),sekinin number(2));
type tbl1_type is table of rec1_type index by binary_integer;
procedure bulk_insert(
ret out tbl1_type
);

vb.net程序里如何得到返回值？

[Dobzhansky]

oracle, 还是 10G 以上版本, 你用的微软还是 odp.net 呢?

[aoyusky]

版本:10G
用odp.net

[aoyusky]

没方法吗？

[Dobzhansky]

试了一下, 好像不行, 测试用的 C# 代码:

      DbProviderFactory factory = DbProviderFactories.GetFactory("Oracle.DataAccess.Client");
      DbConnection conn = factory.CreateConnection();
      conn.ConnectionString = "User Id=scott;Password=tiger;Data Source=ora";
      conn.Open();
      DbCommand cmd = conn.CreateCommand();
      Oracle.DataAccess.Client.OracleCommandBuilder cmdbuilder = (Oracle.DataAccess.Client.OracleCommandBuilder)factory.CreateCommandBuilder();
      cmd.CommandType = CommandType.StoredProcedure;
      cmd.CommandText = "mytest.bulk_insert";
      // 尝试让 oracle 分析参数的个数和类型
      // 这里激发异常 "位于参数位置 1 的 PL/SQL 数据类型不受支持"
      Oracle.DataAccess.Client.OracleCommandBuilder.DeriveParameters((Oracle.DataAccess.Client.OracleCommand)cmd);

测试 package, 服务器版本 10.2.0.3 / odp.net 版本 2.111.6.20

create or replace package mytest as
type rec1_type is record(place varchar2(80),sekinin number(2));
type tbl1_type is table of rec1_type index by binary_integer;
procedure bulk_insert(ret out tbl1_type);
end mytest;

create or replace package body mytest as

procedure bulk_insert(ret out tbl1_type)
is
begin
  ret(1).place := 'abc';
  ret(1).sekinin := 0;
end;

end mytest;

改用游标?

[aoyusky]

好像JAVA里可以的