Hello, all!
Please help me! I do not understand WHERE mistake..
I have Oracle stored procedure P_Account(in1 IN INTEGER, out1 OUT INTEGER)), that must
return
value $rv... value in1 I get from Webform...
I write code as:
============================================================================
use DBI;use CGI;use strict;
my $k=param ("Param_name_from Webform");
my $dbh = DBI->connect('dbi:Oracle:orcl','name','password', {RaiseError =>
1,AutoCommit => 0 }) || die "Database connection not made: $DBI::errstr";
my $rv;
eval {
my $func = $dbh->prepare(q{
BEGIN
:rv := P_Account(
in1 => :parameter1,out1=>:rv
);
END;
});
$func->bind_param(":parameter1", \$k);
$func->bind_param_inout(":rv", \$rv, 8);
$func->execute;
$dbh->commit;
};
if( $@ ) {
warn "Execution of stored procedure failed: $DBI::errstr\n";
$dbh->rollback; }
print "Execution of stored procedure returned $rv\n";
$dbh->disconnect;
====================================================================
Please, help me....
You can email me any info about these problem
to me directly,without hesitation!
Best regards
Dmitry Bondarev
�������� �������
mailto:[EMAIL PROTECTED]
http://www.brainbench.com/transcript.jsp?pid=338216
http://bdmalex.chat.ru
