Perl DBI - 获取事务中每个语句影响的记录

Question

嗨，

我使用 perl DBI do()，它将执行下面的 SQL 块，如下所示，在 SQL SERVER 2005 中执行

    eval {
            my $result =  do(<<SQL);
            BEGIN TRAN

            UPDATE table1 SET
            col1 = 999 where date = '2010-08-27'

            DELETE FROM table1
            where date = '2010-08-30'

            COMMIT TRAN
SQL
    $logger->info($result);
};

现在我可以看到返回值 $result 只包含受第一个更新语句影响的行。所以我没有关于已删除行的任何信息，但我可以看到这些行确实在数据库中被删除了。

一般来说，如果我在 BEGIN TRAN、COMMIT TRAN 块中有一个 INSERT、DELETE、UPDATE 语句，并且如果整个块将由 DBI do() 方法提交，我需要知道插入语句的确切数量，更新的语句数和删除的语句数。

我知道 SQL SERVER 的 @@ROWCOUNT 会在每条语句之后给我受影响的行，但这是一个 SQL 服务器变量，仅在块内可见。是否可以将数据放入 perl 中？

有什么帮助吗？

Answer 1

要获取@@ROWCOUNT 的值，您需要在“COMMIT TRAN”之前添加SELECT @@ROWCOUNT 'rowcount' 作为最后一个命令，然后整个SQL 将返回由1 行和1 'rowcount' 列组成的结果集。

唯一需要注意的是，由于do() 方法不为您提供结果集，因此您需要切换到prepare()/fetchrow_array()/fetchrow_array()，或者使用数据库库中的nsql() 之类的包装方法之一（如果有）可用。

对于详细的插入/更新/删除细分，只需在插入/更新/删除后将这些 @@ROWCOUNT 保存到变量中，然后选择计数：

declare @update_count int
declare @delete_count int

UPDATE table1 SET
col1 = 999 where date = '2010-08-27'
SELECT @update_count = @@ROWCOUNT

DELETE FROM table1
where date = '2010-08-30'
SELECT @delete_count = @@ROWCOUNT

SELECT @update_count 'update_count', @delete_count '@delete_count'

Answer 2

正在使用什么数据库访问方法？是否有任何理由不将事务逻辑移到 T-SQL 之外？

如果您正在使用 DBI，那么这些方面的内容应该可以满足您的要求：

eval {
    $dbh->begin_work;
        $dbh->do("CREATE TABLE #temp (col1 INTEGER, date DATETIME);");

        # Inserts
        my $inserted = $dbh->do("INSERT INTO #temp VALUES (1,'2010-08-27');");
        $inserted += $dbh->do("INSERT INTO #temp SELECT 999,'2010-08-27' UNION SELECT 5, '2010-08-30';");

        # Updates
        my $updated = $dbh->do("UPDATE #temp SET col1 = 999 WHERE date = '2010-08-27';");

        # Deleted
        my $deleted = $dbh->do("DELETE FROM #temp WHERE date = '2010-08-30';");
    $dbh->commit;

    print "Inserted $inserted rows.\n";
    print "Updated $updated rows.\n";
    print "Deleted $deleted rows.\n"; }

这个 sn-p 没有考虑建立数据库连接、错误处理或关闭连接，但 DBI 文档应该对此有所帮助。 http://metacpan.org/pod/DBI

如果您计划执行多个非选择语句，您可能还想研究 prepare 和 bind_param DBI 方法。