如何在R中循环运行dbGetQuery并按参数执行查询？

你可以用参数化查询结合循环来实现，既不用重复写SQL语句，还能避免SQL注入风险，具体步骤和代码如下：

1. 定义要遍历的type列表

types_to_check <- c("Prime", "Secondary")

2. 结合参数化查询与循环，完成查询+邮件发送的流程

library(DBI)
library(mailR) # 确保已加载mailR包

# 假设数据库连接Con已提前建立
types_to_check <- c("Prime", "Secondary")

for (current_type in types_to_check) {
  # 用?作为参数占位符，通过params传递具体type值
  query <- "select table_name, Last_updated from Summary_table where type = ?"
  DF <- dbGetQuery(Con, query, params = list(current_type))
  
  # 调用mailR发送邮件（根据你的实际配置调整参数）
  send.mail(
    from = "your_email@example.com",
    to = c("recipient@example.com"),
    subject = paste("数据报告 - Type:", current_type),
    body = paste("以下是Type为", current_type, "的数据：\n", capture.output(print(DF))),
    smtp = list(host.name = "smtp.example.com", port = 587, user.name = "your_email", passwd = "your_password", ssl = TRUE),
    authenticate = TRUE,
    send = TRUE
  )
}

关键说明 #

• 参数化查询：用?作为SQL的参数占位符，通过dbGetQuery的params参数传递值，DBI会自动处理Oracle的参数绑定，避免手动拼接字符串引发的SQL注入问题，也不用额外处理引号转义。
• 可维护性：后续要新增type值，只需修改types_to_check列表，无需改动循环和查询逻辑。
• 邮件定制：邮件主题、正文可根据当前type动态生成，让收件人清晰区分不同类型的报告。

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