基于RHEL系统的Perl DBI与MS ODBC驱动操作SQL Server：如何插入/更新varbinary(max)类型BLOB数据？

我来帮你搞定这个问题！你遇到的HY104（无效精度值）和07002（COUNT字段错误）问题，主要是因为二进制文件读取方式不对，以及绑定参数时的类型/长度设置不符合SQL Servervarbinary(max)的要求。下面是具体的原因分析和修复方案：

问题根源 #

1. 文件读取模式错误：你用默认的文本模式打开PDF文件，Perl会自动转换换行符（比如把Windows的CRLF转成LF），这会破坏PDF的二进制结构，同时逐行读取二进制文件也可能导致数据截断。
2. 绑定参数类型不匹配：DBI::SQL_VARBINARY需要指定固定的精度（长度），但varbinary(max)是无上限的大字段，驱动无法自动识别，因此抛出精度无效的错误。

修复后的代码 #

use DBI qw(:sql_types);

# 关键1：用二进制模式打开文件，保留原始字节数据
open my $pdfFH, '<:raw', 'test.pdf' or die "无法打开PDF文件: $!";
# 关键2：一次性读取整个文件内容，避免逐行读取的问题
my $pdfStr = do { local $/; <$pdfFH> };
close $pdfFH;

my $dbh = <...valid db-handle ...>;
my $sth = $dbh->prepare(qq(INSERT INTO TestTable(Report) VALUES (?)));

# 关键3：使用SQL_LONGVARBINARY匹配varbinary(max)，或者指定SIZE=-1
$sth->bind_param(1, $pdfStr, DBI::SQL_LONGVARBINARY);
# 也可以用这种写法，效果相同：
# $sth->bind_param(1, $pdfStr, { TYPE => DBI::SQL_VARBINARY, SIZE => -1 });

$sth->execute or die "执行插入失败: " . $dbh->errstr;

每个修复点的说明 #

• 二进制模式打开：:raw修饰符告诉Perl不要对文件内容做任何字符编码或换行符转换，确保读取到的是PDF文件的原始二进制数据。
• 一次性读取文件：local $/会临时取消输入记录分隔符，这样<$pdfFH>会一次性读取整个文件内容，避免逐行读取时因为二进制数据中的换行符导致数据拆分错误。
• 正确的参数绑定：SQL_LONGVARBINARY是ODBC标准中用于大二进制对象的类型，完美匹配SQL Server的varbinary(max)；如果坚持用SQL_VARBINARY，可以通过SIZE => -1告诉驱动使用最大允许长度，这样就不会触发精度错误。

额外验证点 #

• 确认你的SQL Server数据表字段确实是varbinary(max)，而不是普通的varbinary(n)（n为固定长度）。
• 确保你使用的ODBC Driver 17 for SQL Server是最新版本，避免驱动本身的bug。

这样修改后，你就能在Linux环境下直接把PDF文件插入到SQL Server的varbinary(max)字段中，不需要把文件迁移到Windows再用OPENROWSET啦！

内容的提问来源于stack exchange，提问作者cgeen