2

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

这是有效的代码:

######### 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 跟踪日志,但不幸的是,在将工作示例与失败示例进行比较时,我无法得出任何有用的信息。

任何帮助,将不胜感激!!

谢谢,

4

2 回答 2

3

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

DescribeCol column = 1,name = ,namelen = 0,type = unknown(0),precision/column size = 10,scale = 0,nullable = 1 display size = 11

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

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

于 2013-04-03T16:43:55.400 回答
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;
于 2013-04-03T15:20:46.570 回答