4

我正在处理具有多个数据库调用的 perl 脚本，并且不断收到以下错误：

DB-Library 错误：尝试启动新的 SQL Server 操作，结果挂起。

在我的代码中，我有以下内容：

对数据库的第一次调用会执行一些从散列构建的插入语句：

while (my ($key, $value) = each(%holidays)) {

    system("log4k", "DEBUG", "$0", "Staging holiday info data for: $cal_name: $key");

    $sql = "INSERT INTO stg_holiday_data (hol_mnemonic, hol_date, hol_comment, dml_type)    VALUES (\"$cal_name\", $key, \"$value\", \"N\")";
    system("log4k", "TRACE", "$0", "SQL being executed: $sql");

    if ($test == 0) {

        $dbh->dbcmd($sql);

        ($dbh->dbsqlexec() && $dbh->dbresults)
            or &fatalError("Database error in $sql", "DB_ERROR");

        while($dbh->dbresults != NO_MORE_RESULTS) {

            while(my @dat = $dbh->dbnextrow){}
        }
    }
}

完成后我立即关闭连接，并取消它以确保没有结果需要通过发出来处理：

$dbh->dbcancel();
$dbh->dbclose();

从那里我调用一个单独的子例程来执行一个存储过程，它将产生三行表示行号的输出：

子程序调用

&run_sproc() if ($test == 0);

子程序：

sub run_sproc() {

    system("log4k", "DEBUG", "$0", "Loading staged holiday data");

    my $sql1 = "upd_holiday_data";
    system("log4k", "TRACE", "$0", "SQL being executed: $sql1");

    my($dbh2) = new Sybase::DBlib $ENV{DATABASE_USER}, $ENV{DATABASE_PASSWORD}, $ENV{DATABASE_SERVER}, "GME_calendar_sync";
    &fatalError("Failed to login imagine database", "DB_LOGIN_ERROR") unless ($dbh2);

    $dbh2->dbcmd($sql1);
    ($dbh2->dbsqlexec() && $dbh2->dbresults ) 
        or &fatalError ("Database error in $sql", "DB_ERROR");

    while ($dbh2->dbresults != NO_MORE_RESULTS) {

        while (my @d = $dbh2->dbnextrow) {

            system("log4k", "TRACE", "$0", "Next row being inserted @d");
        }
    }
    $dbh2->dbclose();
}

我确实有第三个 SQL 块，它位于存储过程之后，无论有没有这个子例程都可以正常工作。

发生的事情是我在存储过程打印结果之前收到上述错误。我已经尝试了我能想象到的一切，以确保所有结果都得到处理。日志输出示例如下：

[Tuesday, 23 October 2012 13:30:02 BST] [DEBUG] gme_process_calendars.pl: Staging holiday info data for: CA: 20251226
[Tuesday, 23 October 2012 13:30:03 BST] [TRACE] gme_process_calendars.pl: SQL being executed: INSERT INTO stg_holiday_data (hol_mnemonic, hol_date, hol_comment, dml_type)    VALUES ("CA", 20251226, "upload", "N")
[Tuesday, 23 October 2012 13:30:03 BST] [DEBUG] gme_process_calendars.pl: Staging holiday info data for: CA: 20220103
[Tuesday, 23 October 2012 13:30:03 BST] [TRACE] gme_process_calendars.pl: SQL being executed: INSERT INTO stg_holiday_data (hol_mnemonic, hol_date, hol_comment, dml_type) VALUES ("CA", 20220103, "upload", "N")
[Tuesday, 23 October 2012 13:30:03 BST] [DEBUG] gme_process_calendars.pl: Loading staged holiday data
[Tuesday, 23 October 2012 13:30:03 BST] [TRACE] gme_process_calendars.pl: SQL being executed: upd_holiday_data
DB-Library error:
    Attempt to initiate a new SQL Server operation with results pending.
[Tuesday, 23 October 2012 13:30:03 BST] [TRACE] gme_process_calendars.pl: Next row being inserted 310107230

对此的任何帮助将不胜感激，因为我已经尝试了通过互联网搜索和阅读文档所能找到的一切。

谢谢

4

2 回答 2

0

我认为您的问题是您的run_proc方法尝试执行此 SQL：

my $sql1 = "upd_holiday_data";

我怀疑这是一个有效的 SQL 命令

于 2012-10-23T14:51:41.277 回答
0

找到的解决方案：

在 run_sproc 子例程中，检查：

 ($dbh2->dbsqlexec() && $dbh2->dbresults ) 
        or &fatalError ("Database error in $sql", "DB_ERROR");

第二个条件 $dbh2->dbresults 是导致此错误条件的原因，一旦将其删除，该错误就不再出现。

于 2012-10-23T18:00:51.477 回答