mysql - haskell `hdbc` ODBC 连接立即为远程 MySQL 实例处理

Question

我正在尝试连接到 MySQL 数据库并使用 hdbc 运行 SQL 查询和 hdbc-odbc

main :: IO ()
main = do
  mysqlSettings <- readMySQLSettings
  putStr "Connecting to MySQL database..."
  mysqlConn <- connectODBC $ buildMySQLConnectionString mysqlSettings
  putStrLn "Connected"
  _ <- run mysqlConn "USE np" []
  putStrLn " Done."

数据库连接正常，但随后在运行 SQL 查询 (_ <- run mysqlConn "USE np" []) 时出现以下错误。

SqlError {seState = "", seNativeError = -1, seErrorMsg = "Tried to use a disposed ODBC Connection handle"}

据我了解，该错误似乎表明连接一创建就立即释放。此问题仅在连接到远程数据库(在本例中为 Amazon RDS)时发生，而对于我的本地 MySQL 实例则不会。

Answer 1

我想当您使用内部使用 libmysqlclient 的 ODBC 驱动程序时会发生这种情况。问题是，libmysqlclient 不会重新启动被信号中断的系统调用，而 GHC 运行时在内部使用信号。

您可以通过查看 Database.HDBC.MySQL.withRTSSignalsBlocked 了解如何避免这种情况。 .简而言之，此函数会阻止 GHC 运行时在执行代码块时使用的 SIGALRM 和 SIGVTALRM。可以直接使用这个函数，如果不想依赖HDBC-mysql也可以直接复制。