[前][次][番号順一覧][スレッド一覧]

mysql:11279

From: HORI <HORI <john.smith@xxxxxxxxxx>>
Date: Sat, 26 Mar 2005 22:06:25 +0900
Subject: [mysql 11279] perlからのストアドプロシージャーの使い方を教えて下さい

いつもお世話になっております。堀と申します。

perlからストアドプロシージャーを呼びたいのですが
うまくいきません。どなたかご存知の方いますか?

こんな感じでテストしましたがダメでした。

hori@debian:~$ mysql -u root -p system
Enter password:
Welcome to the MySQL monitor. Commands end with ; or \g.
Your MySQL connection id is 9 to server version: 5.0.2-alpha-standard

Type 'help;' or '\h' for help. Type '\c' to clear the buffer.

mysql> delimiter '/';
mysql> create procedure proc1() begin select "Hello world"; end/
Query OK, 0 rows affected (0.00 sec)

mysql> call proc1();
-> /
+-------------+
| Hello world |
+-------------+
| Hello world |
+-------------+
1 row in set (0.00 sec)

Query OK, 0 rows affected (0.00 sec)

mysql>

hori@debian:~$ ./aa.pl
DBD::mysql::st execute failed: SELECT in a stored procedure must have
INTO at ./aa.pl line 6.
DBD::mysql::st fetchrow_arrayref failed: fetch() without execute() at
./aa.pl line 7.
hori@debian:~$


hori@debian:~$ cat aa.pl
#!/usr/local/bin/perl
use DBI;
$dbh =
DBI->connect("DBI:mysql:database=system;host=localhost",'root','???');
$dbh->do("set names ujis");
$sth = $dbh->prepare("call proc1()");
$sth->execute();
while($ref = $sth->fetchrow_arrayref()){
print join(',',@{$ref}),"\n";
}


hori@debian:~$




[前][次][番号順一覧][スレッド一覧]

->   11279 2005-03-26 22:06 [HORI <john.smith@xxx] perlからのストアドプロシージャーの使い方を教えて下さい
     11282 2005-03-27 22:54 ┗["KAWAI,Takanori" <GC]                                       
     11289 2005-03-28 23:10  ┗[HORI <john.smith@xxx]