Реализует ли DBD :: mysql метод bind_param_inout ?При попытке получить следующие сообщения об ошибке:
DBD :: mysql :: st bind_param_inout не удалось: выходные параметры не реализованы [для оператора "вызов spCreateTransactionRecord (?,?)" С ParamValues:0 = Null !, 1 = Null!] At ./db.pl line 23
Мой код:
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
use DBI qw(:sql_types);
use Data::Dumper;
my ($dbh, $dsn, $sth, $sql);
my ($RecID, TypeID);
my ($user, $pass) = '';
# Open DB connection
$dsn = "dbi:mysql:database=mp;mysql_read_default_file=$ENV{HOME}/.my.cnf";
$dbh = DBI->connect($dsn, $user, $pass,
{RaiseError=>1, AutoCommit=>0, ShowErrorStatement=>1})
|| die "DB open error: $DBI::errstr";
# Call stored procedure
$sql = "call spCreateTransactionRecord(?, ?)";
$sth = $dbh->prepare($sql);
$sth->bind_param_inout(2, \$p_RecID, 11, {TYPE=>SQL_INTEGER});
$sth->execute($p_TypeID) || print $sth->errstr;
# Disconnects
$dbh->commit();
$dbh->disconnect;
Хранимые процедуры объявлены как:
CREATE PROCEDURE spCreateTransactionRecord (
IN p_TypeID INTEGER,
OUT p_RecID INTEGER
)