宮川です。

On Tue, 25 Dec 2001 00:35:44 +0900
とみたまさひろ <tommy@xxxxxxxxxx> wrote:

> >    $sth -> execute()
> >        or &Error("SELECT * FROM userdb・・・を実行できません。");
> 
> これだとエラーになったことしかわからないので、「何処が悪くてエラー表示さ
> れるのか見当がつかない」のは当然だと思います。エラーになった時は、エラー
> コードかエラーメッセージをどっかに出力した方が良いと思います。

connect() に RaiseError 属性をつけておけば、例外があがるようになり
ますのでそれをキャッチすればよいかと。

  my $dbh = DBI->connect($dsn, $user, $pass, { RaiseError => 1 })
      or die $DBI::errstr;
  eval {
      my $sth = $dbh->prepare($sql);
      $sth->execute;
  };
  if ($@) {
      warn "SQL error: $@";
  }




--
Tatsuhiko Miyagawa                mod_perl Mailing List   
mailto:miyagawa@xxxxxxxxxx   http://bulknews.net/lib/ml/