如何在R中用单个连接池和dplyr查询同一主机上的多个数据库？

这问题我之前也碰到过，多数据库重复建连接池确实太浪费资源了！下面给你两种实用的方案，都能实现单连接池搞定多库查询的需求：

方案一：动态切换连接的默认数据库 #

这种方法是从连接池里取出一个连接，临时切换到目标数据库执行查询，用完再把连接放回池里。

首先创建不带默认数据库的连接池：

p <- pool::dbPool(
  drv = RMySQL::MySQL(),
  host = myhost,
  port = myport,
  username = myusername,
  password = mypassword
)

然后写个辅助函数封装切换和查询的逻辑，确保连接用完必归还：

query_from_db <- function(pool, target_db, target_table) {
  # 从连接池取出一个连接
  conn <- pool::poolCheckout(pool)
  # 不管函数正常结束还是报错，都要把连接放回池里
  on.exit(pool::poolReturn(conn))
  
  # 切换到目标数据库（用dbQuoteIdentifier避免特殊字符或注入风险）
  DBI::dbExecute(conn, paste0("USE ", DBI::dbQuoteIdentifier(conn, target_db)))
  
  # 执行查询并返回结果
  dplyr::tbl(conn, target_table) %>% dplyr::collect(n = Inf)
}

# 调用示例
t1 <- query_from_db(p, mydbname1, "mytable1")
t2 <- query_from_db(p, mydbname2, "mytable2")

方案二：直接指定跨数据库表路径（更推荐） #

MySQL支持直接用数据库名.表名的形式访问其他数据库的表，只要你的用户有对应权限，完全不用切换连接的默认数据库。用dplyr的in_schema函数来指定数据库和表，既简洁又安全：

首先创建连接池（可以指定任意一个你有权限访问的数据库当默认，比如系统自带的mysql库）：

p <- pool::dbPool(
  drv = RMySQL::MySQL(),
  host = myhost,
  port = myport,
  username = myusername,
  password = mypassword,
  dbname = "mysql" # 随便填一个你能访问的数据库就行
)

然后直接查询跨库表：

# 用in_schema指定数据库和表（推荐，自动处理特殊字符）
t1 <- dplyr::tbl(p, dplyr::in_schema(mydbname1, "mytable1")) %>% dplyr::collect(n = Inf)
t2 <- dplyr::tbl(p, dplyr::in_schema(mydbname2, "mytable2")) %>% dplyr::collect(n = Inf)

# 也可以直接写字符串（但不如in_schema安全）
# t1 <- dplyr::tbl(p, "mydbname1.mytable1") %>% dplyr::collect(n = Inf)

这种方法不需要额外的切换操作，代码更简洁，而且不用担心连接放回池时的数据库状态问题，是更优的选择。

额外注意事项 #

• 确保你的MySQL用户拥有所有目标数据库的SELECT权限
• 方案一中的on.exit一定要加，否则连接会一直被占用，最终导致连接池耗尽
• 如果数据库名或表名包含特殊字符，in_schema会自动帮你处理转义，比手动拼接字符串安全得多

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