使用Haskell编写一个简单的数据库连接程序

下面是一个使用Haskell编写的简单的数据库连接程序的示例：

import Database.HDBC
import Database.HDBC.Sqlite3

-- 连接数据库并执行查询语句的函数
runQuery :: IConnection conn => conn -> String -> IO [[String]]
runQuery conn query = do
    stmt <- prepare conn query
    execute stmt []
    fetchAllRows stmt

-- 示例函数：连接到SQLite数据库并查询数据
main :: IO ()
main = do
    -- 连接到SQLite数据库
    conn <- connectSqlite3 "test.db"

    -- 执行查询语句并打印结果
    let query = "SELECT * FROM users"
    result <- runQuery conn query
    putStrLn "Query Results:"
    mapM_ print result

    -- 断开数据库连接
    disconnect conn

上述代码使用了Database.HDBC和Database.HDBC.Sqlite3模块，其中前者为Haskell中的数据库连接API，后者为SQLite数据库的HDBC驱动。

runQuery函数接受一个数据库连接和一个查询语句作为参数，并执行该查询语句获取结果。该函数使用了prepare函数编译SQL语句，并使用execute函数执行该语句，最后使用fetchAllRows函数获取查询结果。

主函数main连接到SQLite数据库文件test.db，执行查询语句SELECT * FROM users并打印结果。最后通过disconnect函数断开数据库连接。

为了编译并运行上述程序，你需要先安装HDBC和SQLite3的HDBC驱动。具体的安装方式和操作步骤可能因你使用的操作系统和版本而有所不同，请自行查阅相关文档或使用适合你的安装工具进行安装。

接下来，创建一个SQLite数据库文件test.db并在其中创建一个名为users的表。你可以使用SQLite的命令行工具或SQLite的GUI客户端进行相关操作。

最后，使用Haskell编译器编译上述代码并运行生成的可执行文件，即可连接到SQLite数据库并查询数据。

请注意，上述代码示例是一个简单的数据库连接程序，并没有对异常处理、查询参数化等进行处理。实际应用中，你可能需要加入更多的错误处理和安全性措施。