1

我当前的 perl 代码正在运行数据库查询的所有行，然后抛出一个

DBD::mysql::st fetchrow_hashref failed: fetch() without execute() at ./recieveTxn.cgi 
line 168.

在最后。几乎就像有些东西没有告诉循环在行尾停止，但我和其他人一样写了它。

例如：查询会拉起

shortcode1
shortcode2
shortcode3
然后在这里抛出错误

$sql = "
    SELECT
        aPI.folder AS aPIfolder, 
        aPI.rowNum AS aPIrowNum,
        hasInput,
        evalCode
    FROM
        aPersonalItems as aPI
    LEFT JOIN 
        pItems_special_inputs as SI 
    ON
        aPI.folder = SI.folder AND
        aPI.rowNum = SI.rowNum
    WHERE
        hasInput=1 AND
        aPI.folder='$FORM{'folder'}'
    ORDER BY
        aPI.rowNum
";

$sth = $dbh->prepare( $sql );
$sth->execute();

my ($shortcoderow, $row);
my $shortcodeSQL = "
    SELECT 
        * 
    FROM
        pItemsShortCodes 
    WHERE
        folder='$FORM{'folder'}' 
    ORDER BY
        rowNum
";
my $shortcodeSTH = $dbh->prepare( $shortcodeSQL );
$shortcodeSTH->execute();

while( my $ref = $sth->fetchrow_hashref() ) {

    my $shortCode;
    my $isblank = 1;
    my $rowNum  = $ref->{'aPIrowNum'};

    while(my $shortcodeRef = $shortcodeSTH->fetchrow_hashref())
    #&& $rowNum == $shortcodeRef->{'rowNum'}) #line 168 above
    {
        $shortCode=$shortcodeRef->{'shortcode'};
        print $shortCode."\n";
    }
    $shortcodeSTH->finish();
}
4

1 回答 1

6

问题是您正在处理不止一行来自$sth.

您的代码从 中获取一行$sth，然后您的代码从 中遍历每一行$shortcodeSTH，直到没有更多行为止。然后你的代码调用finish()on 上的方法$shortcodeSTH。（这是规范模式，因为您已经获取了所有行。）

然后，您的代码第二次通过外循环开始，从$sth. 当您的代码第二次尝试通过$shortcodeSTH循环开始时，您已经获取了所有行并关闭了语句句柄。没有更多行可检索。（如果您没有发出对该finish()方法的调用，则返回的错误会有所不同；错误消息将是关于获取超过游标末尾的内容，或者已经获取了最后一行，或者类似的内容。）

于 2012-08-24T20:15:34.460 回答