Perl DBI/FreeTDS/SQL Server:如何插入/更新BLOB varbinary(max)数据

Question

我正试图通过Linux中的DBI和freeTDS将二进制数据插入Microsoft SQL Server 2014上的VARBINARY(max(列中。

以下(简化(代码不起作用：

$data = "foobar"; # real binary data gives same error
$dbh = <...valid db-handle ...>;
$sth = $dbh->prepare ("UPDATE table SET data=? WHERE id=?");
$sth->bind_param (1,$data,DBI::SQL_VARBINARY);
$sth->bind_param (2,$some_id);
$sth->execute or die ...

结果：

ct_result(ct_dynamic(CS_PREPARE)) returned -205 at /usr/lib/x86_64-linux-gnu/perl5/5.28/DBD/Sybase.pm line 138.
DBD::Sybase::db prepare failed: Server message number=257 severity=16 state=3 line=1 server=SERVER text=Implicit conversion from data type varchar to varbinary(max) is not allowed. Use the CONVERT function to run this query. Server message number=8180 severity=16 state=1 line=1 server=...
Can't call method "bind_param" on an undefined value 

bind_param调用似乎会对二进制数据进行正确编码。未定义的值错误似乎是绑定执行失败的结果。我为bind_param尝试了各种其他列类型，如SQL_LONGVARBINARY、SQL_BLOB。。。但是误差保持不变。

Answer 1

https://metacpan.org/pod/distribution/DBD-Sybase/dbd-sybase.pod#String-数据处理

DBD:：Sybase支持CHAR/VARCHAR/BINARY/VARBINARY，长度限制为255个字符，最高版本为12.0x。从12.5开始，这些数据类型的大小可以达到16K，但支持更大的大小需要使用Open Client 12.5或更高版本。

Sybase不区分CHAR和VARCHAR或BINARY，并且VARBINARY

似乎DBD::Sybase忽略了DBI::SQL_VARBINARY提示，并将数据作为varchar发送。

尝试：

UPDATE table SET data=CONVERT(VARBINARY(max), ?, 1) WHERE id=?

同时检查syb_use_bin_0x设置。