Can PLPerl make ODBC connect.
I have perl test connect. It work well
use DBI;
my $h = DBI->connect(
'dbi:ODBC:DRIVER=SQL Server;Server=127.0.0.1;Database=TEST;Uid=sa;Pwd=abc123ABC;Port=1433',
'sa',
'abc123ABC',
{ AutoCommit => 1, RaiseError => 1, }
) or die "Did not connect to db.";
print join(',', $h->tables);
But in PLPerlu it has error
CREATE OR REPLACE FUNCTION test_connection()
RETURNS void AS
$BODY$
use DBI;
my $dbh = DBI->connect(
'dbi:ODBC:DRIVER=SQL Server;Server=127.0.0.1;Database=TEST;Uid=sa;Pwd=abc123ABC;Port=1433',
'sa',
'abc123ABC',
{ AutoCommit => 1, RaiseError => 1, }
);
if ($DBI::errstr) {
die <<ERR;
Could not connect to database
$DBI::errstr
ERR
}
RETURN;
$BODY$
LANGUAGE plperlu VOLATILE
COST 100;
ALTER FUNCTION test_connection() OWNER TO postgres;
AND when i execute function
SELECT test_connection();
Here is error
ERROR: Could not connect to database
[Microsoft][ODBC SQL Server Driver][SQL Server]Changed database context to 'TEST'. (SQL-01000)
[Microsoft][ODBC SQL Server Driver][SQL Server]Changed language setting to us_english. (SQL-01000) [state was 01000 now 01S00]
[Microsoft][ODBC SQL Server Driver]Invalid connection string attribute (SQL-01S00)
SQL state: XX000
Context: PL/Perl function "test_connection"