haskellDB.hs

import Database.HDBC
import Database.HDBC.ODBC

data Person = Person
    { id   :: Int
    , name :: [Char] }
    deriving Show

convRow :: [SqlValue] -> Person
convRow [sqlId, sqlDesc] = 
    Person intId desc
        where intId = (fromSql sqlId) :: Int
              desc = case fromSql sqlDesc of
                         Just x -> x 
                         Nothing -> "NULL" 

main = 
    let connectionString =  "DSN=TestDB"
        ioconn = connectODBC connectionString in
    do
            conn <- ioconn
            vals <- quickQuery conn "SELECT TOP 10 * FROM Person;" []
            let rows = map convRow vals
            mapM_ print rows