TT#118050 SQLServer connectivity using tdsodbc

Change-Id: Ia9a08bc84289d1636b318985c83432bcd285d9e2
mr9.4.1
Rene Krenn 4 years ago
parent f9222f2f97
commit fc85c81911

1
debian/control vendored

@ -65,6 +65,7 @@ Depends:
libyaml-libyaml-perl, libyaml-libyaml-perl,
Suggests: Suggests:
libdbd-odbc-perl, libdbd-odbc-perl,
tdsodbc,
libdbd-orable-perl, libdbd-orable-perl,
libdbd-pg-perl, libdbd-pg-perl,
Description: NGCP bulk processor framework perl modules Description: NGCP bulk processor framework perl modules

@ -160,7 +160,9 @@ sub _dbd_connect {
if ($^O eq 'MSWin32') { if ($^O eq 'MSWin32') {
$connection_string = 'DBI:ODBC:Driver={SQL Server};Server=' . $self->{host} . ',' . $self->{port}; $connection_string = 'DBI:ODBC:Driver={SQL Server};Server=' . $self->{host} . ',' . $self->{port};
} else { } else {
$connection_string = 'dbi:ODBC:driver=SQL Server Native Client 11.0;server=tcp:' . $self->{host} . ',' . $self->{port}; # . ';database=DB_TOWNE;MARS_Connection=yes; #$connection_string = 'dbi:ODBC:driver=SQL Server Native Client 11.0;server=tcp:' . $self->{host} . ',' . $self->{port};
#$connection_string = 'dbi:ODBC:driver=ODBC Driver 17 for SQL Server;server=tcp:' . $self->{host} . ',' . $self->{port};
$connection_string = 'dbi:ODBC:driver={FreeTDS};server=' . $self->{host} . ',' . $self->{port};
} }
if (length($databasename) > 0) { if (length($databasename) > 0) {
$connection_string .= ';database=' . $databasename; $connection_string .= ';database=' . $databasename;

Loading…
Cancel
Save