unixODBC + FreeTDS + perlで、MS SQL Serverに接続する

本当はやりたくないのですが・・・Debianのサーバーから
SQL Server 2005に接続する必要が出てきました。

最終目標はPythonかphpからのアクセスですが、まずはperlからの
接続を調査してみます。

今回採用した方式は、

unixODBC - FreeTDS - SQL Server
という接続方法です。

まずはモジュールの取得

cd /usr/local/src
wget http://www.unixodbc.org/unixODBC-2.2.14.tar.gz
wget http://ftp.ibiblio.org/pub/Linux/ALPHA/freetds/stable/freetds-stable.tgz

unixODBCのインストール
--disable-gui をつけて、インストール画面を表示しないようにしています。

tar zxvf unixODBC-2.2.14.tar.gz
cd unixODBC-2.2.14
./configure --disable-gui
make
make install

次にMS SQL ServerのODBCドライバFreeTDSをインストール

tar zxvf freetds-stable.tgz

#この操作は不要かも
export LD_LIBRARY_PATH=/usr/local/lib
export LD_RUN_PATH=/usr/local/lib

./configure --with-unixodbc=/usr/local/src/unixODBC-2.2.14 --with-msdblib --with-libiconv-prefix=/usr/local/lib
make
make install

--with-unixodbcでunixODBCを解凍したフォルダを指定していないと

configure: error: sql.h not found

というエラーと共にconfigureが失敗します。


これでインストールは完了です。
odbc接続の設定を行います。

vi /usr/local/etc/odbc.ini

[ODBC Data Sources]
freetds = FreeTDS ODBC Driver

[freetds]
Driver = /usr/local/lib/libtdsodbc.so
Description = Microsoft SQL Server
Servername = sqlserver
Database = test_database
Port = 1433

[freetds]、Servernameは好きな名前を設定します。
Databaseは、実際に接続するDatabaseの名前を設定します。

次にFreeTDSの設定を行います。

vi /usr/local/etc/freetds.conf

[sqlserver]
host = 192.168.1.1
instance = instance_name
port = 1433
tds version = 8.0
charset = utf8
client charset = utf8

[sqlserver]は、/usr/local/etc/odbc.iniに書いたServernameと
一致させます。
instanceは、SQL Serverのインスタンスを指定します。
既定のインスタンスでインストールされていれば指定する必要はありません。


早速テストして見ます。

# isql -v freetds username password
+---------------------------------------+
| Connected! |
| |
| sql-statement |
| help [tablename] |
| quit |
| |
+---------------------------------------+
SQL>

isql -v freetds username password
freetds:/usr/local/etc/odbc.iniに書いたセクション名
username:SQL ServerへのログインID
password:SQL Serverへのログインパスワード

SQL文を書いて実行すると、ちゃんと結果が表示されます。



perlから触ってみます。

参考にさせていただいたサイトはこちら。
http://rebecca.ac/milano/mt/archives/001412.html


unixODBCを使用するため、CPANからモジュールのインストールを行います。

CPANを使ったことがなかったので、こちらを参考に初期設定を行いました。
http://bob777.net/2007/08/cpan.html
http://www.crimson-snow.net/tips/unix/cpan.html

export ODBCHOME=/usr/local
perl -MCPAN -e shell
cpan> install DBD::ODBC

# vi odbc.pl
--
#!/usr/bin/perl

use strict;
use DBI;
use Data::Dumper;

my $dbh = DBI->connect('dbi:ODBC:freetds', 'username', 'password') or die $!;
my $sth = $dbh->prepare("select id,name from TABLE_NAME") or die $dbh->errstr;
$sth->execute or die $dbh->errstr;
while (my $arrayref = $sth->fetchrow_arrayref) {
my($id, $name) = @$arrayref;
print "$id,$name\r\n";
}
$sth->finish;
$dbh->disconnect;

これでとりあえず接続が確認できました。
しかし、perlを書いたことがないので、perlを覚えるか、
PythonでunixODBCを使用する方法を探すか・・・迷いどころです。



【参考URL】
unixODBC+FreeTDS+DBD::ODBCでSQL Serverに接続する
http://rebecca.ac/milano/mt/archives/001412.html

【Linux】LinuxでSQL Serverにアクセスする
http://blog.livedoor.jp/akf0/archives/51618402.html

FreeTDSとunixODBCを使ったSQL Server 2000のデータベース操作
http://yokote.net/tech/linux/freetds/