sql - 选择计数 (*) 不适用于 perl DBI

Question

我的代码的目标是根据一个特定参数返回表中的行数。

这是有效的代码:

######### SQL Commands
### Connect to the SQL Database
my $dbh = DBI->connect($data_source, $user, $pass)
    or die "Can't connect to $data_source: $DBI::errstr";

### Prepare the SQL statement and execute
my $sth1 = $dbh->selectrow_array("select count(*) from TableInfo where Type = '2'")
or die "Can't connect to $data_source: $DBI::errstr";

### Disconnect from Database statements are completed.
$dbh->disconnect;
######### end SQL Commands 


print $sth1;

这将成功打印一个数字，在本例中为 189。当我尝试使用相同的代码但更改“Type = '2'”(应返回值 2000)时，出现以下错误:

DBD::ODBC::db selectrow_array failed: [Microsoft][ODBC Driver 11 for SQL Server]Numeric value out of range (SQL-22003) at ./getTotalExpSRP.cgi line 33, <DATA> line 225.
Can't connect to dbi:ODBC:BLTSS_SRP: [Microsoft][ODBC Driver 11 for SQL Server]Numeric value out of range (SQL-22003) at ./getTotalExpSRP.cgi line 33, <DATA> line 225.

我到处搜索，但我找不到为什么会这样。从问题的症状来看，我猜想返回结果的大小是有限制的，但我找不到任何支持证据。

我已经在我的 Microsoft SQL 2005 服务器上运行了跟踪，可以确认 sql 语句正在正确运行，没有错误。

我查看了我的 odbc 跟踪日志，但不幸的是，在将工作示例与失败示例进行比较时，我无法获得任何有用的信息。

如有任何帮助，我们将不胜感激!

谢谢，

Answer 1

现在我们已经看到了踪迹，我可以解释一下了。 DBD::ODBC 调用 SQLDescribeCol 并被告知:

DescribeCol column = 1, name = , namelen = 0, type = unknown(0), precision/column size = 10, scale = 0, nullable = 1 显示大小 = 11

然后它调用 SQLColAttribute 并被告知列大小为 4。由于列类型未知(驱动程序为何这样做我不确定)DBD::ODBC 决定将列绑定(bind)为 char(4) 并且所以一旦计数大于 3 位数，它就会溢出。

这里使用的 DBI 和 DBD::ODBC 版本真的很旧，我怀疑最新版本会更好地处理这个问题。