perl - DBD::mysql::st fetchrow_array 失败:fetch() 没有 execute()

fetchrow_hashref 工作正常，但是当我使用 fetchrow_array 时出现以下错误。

#!/usr/bin/perl

use warnings;
use DBI;

$DB_name    = 'database';
$DB_user    = 'root';
$DB_pwd     = '';
my $dsn = 'dbi:mysql:avm:localhost:3306';

$dbh = DBI->connect($dsn,"$DB_user","$DB_pwd");

print "\nConnection error: $DBI::errstr\n\n";

$sth  = $dbh->prepare("SELECT * FROM tblmanufacturer");
$sth->execute();

while ( ($id,$name) = $sth->fetchrow_array() )
{
        print "$id\t\t $name \n";
}

$sth->finish();

$dbh->disconnect();

最佳答案

检查 execute() 和/或 print "$DBI::errstr\n\n" 的返回值并查看执行是否失败。

print $sth->execute(),"\n";

关于perl - DBD::mysql::st fetchrow_array 失败:fetch() 没有 execute()，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/7598808/