如何在R Shiny中使用sqlInterpolate向SQL表添加新行？

错误原因拆解 #

• 加单引号的问题：当你给占位符?lookuptext1加上单引号后，数据库会把'?lookuptext1'当成普通字符串字面量，而不是需要替换的参数占位符，所以插入的就是这个固定文本，而非用户输入的实际值。
• 去掉单引号的问题：如果是直接用paste之类的方式拼接SQL语句，数据库会把?lookuptext1误认为是列名（因为没有通过正确的参数绑定机制告诉数据库这是参数），而你的表中并没有这个列，所以报错。

正确解决方式 #

核心是用参数化查询，不要手动拼接SQL字符串，让数据库驱动自动处理参数绑定，既安全（避免SQL注入）又能解决占位符识别问题。以下是基于DBI包的正确写法：

library(DBI)
library(shiny)

ui <- fluidPage(
  textInput("Lookupname", "输入第一列值"),
  selectInput("Lookupdropdown", "选择第二列值", choices = c("分类1", "分类2", "分类3")),
  actionButton("Lookupbutton", "添加数据")
)

server <- function(input, output, session) {
  # 假设你已建立有效数据库连接，比如 conn <- dbConnect(RSQLite::SQLite(), "mydb.db")
  observeEvent(input$Lookupbutton, {
    # 参数化SQL语句，占位符用?，无需加单引号
    sql_insert <- "INSERT INTO Data_table (Name, Category) VALUES (?, ?)"
    
    # 执行插入，通过params传递参数，顺序与占位符对应
    dbExecute(
      conn = conn,
      statement = sql_insert,
      params = list(input$Lookupname, input$Lookupdropdown)
    )
    
    # 可选：提示用户插入成功
    showNotification("数据已成功添加", type = "message")
  })
}

shinyApp(ui, server)

关键注意点 #

• 绝对不要用paste或sprintf拼接包含用户输入的SQL语句，这会引发SQL注入风险，同时导致占位符识别错误。
• 不同数据库驱动的占位符格式可能略有差异（比如部分用$1、$2），但DBI包会统一处理，只要通过params参数传递值即可。
• 确保数据库连接conn有效，且在Shiny应用中正确管理（不要在server函数内重复创建连接）。

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