в 13:46, 26 мая 2010

2010-05-26T13:46:00Z

Admin: 1 версия

2010-05-26T10:17:10Z

1 версия

Новая страница

==Calling a stored procedure in Perl==



<source lang="sql">

$dbh = DBI->connect("DBI:mysql:$database:$host:$port","$user", "$password",{ PrintError => 0}) || die $DBI::errstr;

if ($dbh->do("call error_test_proc(1)"))
{
printf("Stored procedure execution succeeded\n");
}
else
{
printf("Error executing stored procedure: MySQL error %d (SQLSTATE %s)\n %s\n",
$dbh->err,$dbh->state,$dbh->errstr);
}
</source>

==Get returning value from a MySQL stored procedure in Perl==



<source lang="sql">

$stmt=$my_db->prepare("SELECT isodd(?)") or die($my_db->error);
$stmt->bind_param("i",$aNumber) or die($stmt->error);
$stmt->execute() or die($stmt->error);
$stmt->bind_result($isodd);
$stmt->fetch();
if ($isodd == 1 )
printf("%d is an odd number\n",$aNumber);
else
printf("%d is an even number\n",$aNumber);
</source>

← Предыдущая	Версия 13:46, 26 мая 2010
(нет различий)

SQL/MySQL/Procedure Function/Perl - История изменений

в 13:46, 26 мая 2010

Admin: 1 версия