R语言DBI包操作MySQL：如何查看并关闭所有开放连接？

1. 查看所有开放的连接 #

dbListConnections()需要传入数据库驱动对象作为参数，不同MySQL驱动包的写法不同：

• 如果使用RMariaDB包（当前推荐的MySQL驱动）：

  dbListConnections(RMariaDB::MariaDB())
  

• 如果使用旧版RMySQL包：

  dbListConnections(RMySQL::MySQL())
  

你在环境中看不到所有连接的原因是：很多临时连接没有被赋值到全局变量中，属于"孤儿连接"，但驱动会自动追踪所有已建立的连接，所以dbListConnections能列出全部。

2. 关闭所有开放连接 #

先获取所有连接列表，再批量调用dbDisconnect()关闭：

# 以RMariaDB为例，获取所有连接
all_connections <- dbListConnections(RMariaDB::MariaDB())
# 批量关闭连接
lapply(all_connections, dbDisconnect)

也可以用循环写法：

for(conn in all_connections) {
  dbDisconnect(conn)
}

额外建议 #

为避免再次出现连接溢出，建议每次建立连接后，用on.exit()确保脚本结束时自动关闭连接：

conn <- dbConnect(RMariaDB::MariaDB(), dbname = "your_db", host = "localhost", user = "user", password = "pwd")
on.exit(dbDisconnect(conn))  # 脚本结束时自动关闭该连接

内容的提问来源于stack exchange，提问作者Pawels