一回の処理で、２回以上データベースに対してアクセスできない？？(perlDBIを使用)

質問があるのですが、よろしくお願いします。

use DBI;
$dbuser = 'root';
$passwd = 'abc';
$db = DBI->connect('DBI:mysql:DB:localhost',$dbuser, $passwd);

$prepare = "select MAIL from user where USER_ID = $userid";
$sth->prepare("$prepare");
$sth->execute;
@user = $sth->fetchrow_array;
$sth->finish;


while( ($key, $value) = each %in ){
$sth = $db->prepare("UPDATE user SET $key = '$value' where USER_ID = $in{userid}");
$sth->execute;
$sth->finish;
}
$db->disconnect;

という処理を行わせたいのですが、どうもUPDATE文の辺りで、処理が止まってしまっているようなのです。select文はしっかり実行されている形跡があるのですが、１回の処理で２回以上データベースに対してアクセスすることは出来ないのでしょうか？

どなたか分かる方いらっしゃいましたらご教授のほどよろしくお願いします。

No.1 ベストアンサー 回答者： moon_night 回答日時： 2006/08/14 10:53

$prepare = "select MAIL from user where USER_ID = $userid";

$sth->prepare("$prepare");

これを↓

$prepare = "select MAIL from user where USER_ID = $userid";
$sth = $db->prepare("$prepare");

としてもだめですかね？

この回答へのお礼

ありがとうございます、ただのポカミスだったようですm(__)m

お礼日時：2006/08/14 15:28