dbSendQuery 带文本的 INSERT 语句

Question

我尝试在数据库中使用动态插入语句，但在字符列上失败。请参阅下面的代码。

library(dplyr)
library(DBI)
library(pool)
library(RSQLite)

df1 <- data.frame(stringsAsFactors = F, id = 1:4, value = letters[1:4])
df2 <- data.frame(stringsAsFactors = F, id = 1:4, value = 100:103)

con <- dbPool(SQLite(), dbname = "test") %>% poolCheckout()
dbWriteTable(con, "with_text", df1, overwrite = T)
dbWriteTable(con, "no_text", df2, overwrite = T)

db1 <- dbReadTable(con, "with_text")
db2 <- dbReadTable(con, "no_text")

new1 <- db1[1,]
new2 <- db2[1,]

query1 <- sprintf(
  "INSERT INTO %s (%s) VALUES (%s);", 
  "with_text",
  paste(names(new1), collapse = ", "),
  paste(new1, collapse = ", ")
)
query2 <- sprintf(
  "INSERT INTO %s (%s) VALUES (%s);", 
  "no_text",
  paste(names(new2), collapse = ", "),
  paste(new2, collapse = ", ")
)

db_query1 <- dbSendStatement(con, query1)#fails
dbClearResult(db_query1)
dbReadTable(con, "with_text")

db_query2 <- dbSendStatement(con, query2) 
dbClearResult(db_query2)
dbReadTable(con, "no_text")

#fails 行产生此错误：

Error in rsqlite_send_query(conn@ptr, statement) : no such column: a

query1 的值为：

[1] "INSERT INTO with_text (id, value) VALUES (1, a);"

我意识到问题是文本值周围缺少单引号 (')，但必须有一个解决方法。任何帮助表示赞赏。我尝试添加列类型但无法使其工作。

Answer 1

我知道这是一个简化的示例，因此我希望该解决方案适用于您的实际用例。

query1 = sprintf("INSERT INTO %s (%s) VALUES (%s,\'%s\');", 
                 "with_text",
                 paste(names(new1), 
                       collapse =  ","),
                 new1[1,1],
                 new1[1,2])

我正在编辑以添加更多解释。如果您知道第二个值将是文本，那么您可以在 sprintf 中添加单引号以包围该值，但您需要单独调用这些值，而不是调用整行并将它们粘贴在一起。我在第二个值周围添加了

\'%s\'

转义单引号，然后分别调用这些值。