选择计数（*）不适用于 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), 精度/列大小 = 10, scale = 0, nullable = 1 显示尺寸 = 11

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

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

Answer 2

Numeric value out of range 是类型转换错误。 TYPE 应该是一个字符/字符串的数字吗？如果应该是数字，请使用数字

my $sth1 = $dbh->selectrow_array(
    "select count(*) from TableInfo where Type=2")  # Type=2, not Type='2'

或使用占位符，让 Perl 和数据库驱动程序担心类型转换

my $sth = $dbh->prepare("select count(*) from TableInfo where Type=?");
$sth->execute(2);
$sth->execute('2');     # same thing
my $st1 = $sth->fetchall_arrayref;