如何检查通过 RMySql 与 MySql 的连接是否持续存在？

Question

我已经使用这个语句通过 RMySQL 包连接到一个 mysql 数据库：

con<-dbConnect(drv=RMySQL::MySQL(max.con=1,fetch.default.rec=500),host="host",dbname="dbname",password="psswd",user="user"))

到目前为止没有问题。当我检查时：

>class(con)
[1] "MySQLConnection"
attr(,"package")
[1] "RMySQL"

一个小时后，我使用了以下语句：

dbGetQuery(conn=con,"show tables") 

我得到一个错误：

Error in .local(dbObj, ...) : 
internal error in RS_DBI_getConnection: corrupt connection handle

但是，如果我检查此声明：

dbListConnections(drv=RMySQL::MySQL())

它给出：

[[1]]
<MySQLConnection:0,21>

当我尝试时：

dbDisconnect(conn=con)

我得到同样的错误：

Error in .local(dbObj, ...) : 
internal error in RS_DBI_getConnection: corrupt connection handle

然后我删除了连接对象：

rm(con)

当我尝试使用 dbConnect() 再次连接时，出现以下错误：

con<-dbConnect(drv=RMySQL::MySQL(max.con=1,fetch.default.rec=500),host="host",dbname="dbname",password="psswd",user="user"))
Error in .local(drv, ...): Cannot allocate a new connection: 1 connections already opened

我知道当没有与数据库的连接时，dbListConnections() 调用会返回一个空列表。但在这种情况下不会返回一个空列表。

损坏的连接句柄与断开连接状态的连接状态是否不同？

或

连接已超时？

检查与 DB 的连接是否仍然有效的最佳方法是什么？

Answer 1

您可能仍需要关闭与dbDisconnect(con) 而不是rm(con) 的连接以释放内部连接句柄并允许新连接。后者只删除了一个指向连接对象的“指针”（这样你就不能再通过con访问这个对象了），但它在物理上仍然存在，直到garbage collection。

您可以通过dbIsValid(con) 来检查连接是否有效，或者使用简单的dbGetQuery(con, "SELECT 1")。我很想知道前者是否检测到您的系统断开连接，有一个 discussion on GitHub 围绕这个主题。