Linux + FreeTDS + unixODBC + Haskell 访问 SQL Server 数据库

把配置过程记录下来，方便以后自己查找。

环境： Ubuntu

安装：

1. apt-get install unixodbc freetds ...

2. 配置 FreeTDS

/etc/freetds/freetds.conf

增加一个数据源：

[yourserver]

host = [IP]

port = 1433

tds version = 7.0

3. 测试 freetds

使用 tsql 连接测试：

#tsql -S yourserver -U USERNAME -P PASSWORD

4. 配置 unixodbc:

配置驱动

/etc/odbcinst.ini

[FreeTDS]

Description = MS Sql server

Driver = /user/lib/odbc/libtdsodbc.so

Setup = /usr/lib/odbc/libtdsS.so

FileUsage = 1

配置数据源：

/etc/odbc.ini

[yourserver]

Driver = FreeTDS # 就是 odbcinst.ini 中的名字

Description = your sql server

Servername = yourserver # freetds 中的名字

Database = [initdatabase]

5. 使用 isql 测试 unixodbc 配置：

#isql -v yourserver USERNAME PASSWORD

6. 安装 Haskell HDBC 驱动

# cabal install hdbc-odbc

7. 在 haskell 中访问Sql Server

testodbc.hs

module Main where

import Database.HDBC.ODBC

import Database.HDBC

main = do

conn <- connectODBC "DSN=yourserver;UID=USERNAME;PWD=PASSWORD"

vals <- quickQuery conn "select top 10 id from testtable;" []

mapM_ print vals