如何通过R读取Excel数据批量更新SQL表的对应字段值

基础循环实现（适合中小数据量） #

首先修正一个基础用法问题：UPDATE属于写操作，不要用dbGetQuery（该函数用于读取查询结果），改用dbExecute更适配，DBI自带的参数绑定功能可以直接解决参数填充问题，无需手动拼接SQL字符串，同时避免SQL注入风险。

可直接运行的代码如下：

library(readxl)
library(DBI)

# 读取Excel数据（确保数据框包含id、CLASS两列，对应待更新的主键和目标值）
master_read<- read_excel("D_MASTER.xlsx", sheet = "D_MASTER")

# 预定义参数化SQL，?为参数占位符，顺序要和后续传入的参数一一对应
update_sql <- "UPDATE D_MASTER SET CLASS = ? WHERE id = ?"

# 循环遍历每一行绑定参数执行更新
for (i in seq_len(nrow(master_read))) {
  dbExecute(
    conn = con,
    statement = update_sql,
    # params参数传入列表，顺序和SQL中?的顺序严格对应：第一个?对应CLASS，第二个对应id
    params = list(
      master_read$CLASS[i],
      master_read$id[i]
    )
  )
}

大数据量优化方案（批量绑定，效率更高） #

如果待更新的数据量很大，循环逐条执行效率较低，可以一次性绑定所有参数批量执行：

master_read<- read_excel("D_MASTER.xlsx", sheet = "D_MASTER")
update_sql <- "UPDATE D_MASTER SET CLASS = ? WHERE id = ?"

# 预编译SQL语句
stmt <- dbSendQuery(con, update_sql)
# 一次性绑定全量参数，直接传入整列即可
dbBind(stmt, list(master_read$CLASS, master_read$id))
# 执行完成后清理语句资源
dbClearResult(stmt)

可选：事务控制保证数据一致性 #

如果需要保证所有更新要么全部成功、要么全部回滚，避免中途报错导致部分更新的脏数据，可以增加事务控制：

master_read<- read_excel("D_MASTER.xlsx", sheet = "D_MASTER")
update_sql <- "UPDATE D_MASTER SET CLASS = ? WHERE id = ?"

# 开启事务
dbBegin(con)
tryCatch({
  for (i in seq_len(nrow(master_read))) {
    dbExecute(con, update_sql, params = list(master_read$CLASS[i], master_read$id[i]))
  }
  # 全部执行成功提交事务
  dbCommit(con)
}, error = function(e) {
  # 报错回滚所有更新
  dbRollback(con)
  stop("更新失败，已回滚：", e$message)
})

注意事项 #

• 参数顺序必须和SQL中?的顺序完全匹配，不要搞反CLASS和id的位置
• 参数绑定会自动处理数据类型转义，不需要手动给id、CLASS加引号

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