Chinaunix

标题: perl调用oracle存储过程的问题 [打印本页]

作者: weikunlun 时间: 2009-08-27 16:17
标题: perl调用oracle存储过程的问题
存储过程名字
CREATE OR REPLACE  PROCEDURE "SHANXI"."TEST" ( aa in integer,bb
out integer

)
IS
BEGIN
  bb:=abs(aa);
END test;

perl脚本中的内容
my $a;
$a = 0;
print "ssssssss\n";

$sth = $dbh->prepare( "BEGIN shanxi.test( ?, ? ); END;" );
print "aaaaaa\n";
$sth->bind_param( 1, 22 );
   print "bbbbbbb\n";
$sth->bind_param_inout( 2,\$a,10000) or die $sth->errstr;

print "ccccccc\n";
$sth->execute();
   print "ddddddddd\n";
print "Stored procedure returned $a \n";

错误信息
ssssssss
aaaaaa
bbbbbbb
Can't bind output values (currently) at test_store.pl line 307.
怎么回事啊？谢谢了

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)