将R变量传递给具有多个条目的RODBC sql查询？

Question

我正在学习 R，向 SAS 挥手告别，我还是新手，不知何故我很难找到我正在寻找的东西。

但是对于这个特定的案例，我读到： Pass R variable to RODBC's sqlQuery? 并让它为我自己工作，只要我只在目标表中插入一个变量。

这是我的代码：

library(RODBC)
channel <- odbcConnect("test")
b <- sqlQuery(channel,
  "select top 1 Noinscr
   FROM table
   where PrixVente > 100
   order by datevente desc")

sqlQuery(channel,
   paste("insert into TestTable (UniqueID) Values (",b,")", sep = "")

当我将 top 1 替换为任何其他数字（假设为 top 2）并运行完全相同的代码时，我收到以下错误：

[1] "42000 195 [Microsoft][SQL Server Native Client 10.0][SQL Server]
    'c' is not a recognized built-in function name."      
[2] "[RODBC] ERROR: Could not SQLExecDirect 
    'insert into TestTable  (UniqueID) Values (c(8535735, 8449336))'"

我知道这是因为生成了一个额外的 c，我在给出命令时假设为列：paste(b)。

那么在使用paste(b) 时，我怎样才能得到"8535735, 8449336" 而不是"c(8535735, 8449336)"？还是有其他方法可以做到这一点？

Answer 1

查看paste() 文档中的collapse 参数。尝试将b替换为paste(b, collapse = ", ")，如下所示。

编辑 正如 Joshua 指出的那样，sqlQuery 返回一个 data.frame，而不是一个向量。因此，您可以使用paste(b[[1]], collapse = ", ")，而不是paste(b, collapse = ", ")。

library(RODBC)
channel <- odbcConnect("test")
b <- sqlQuery(channel,
  "select top 1 Noinscr
   FROM table
   where PrixVente > 100
   order by datevente desc")

sqlQuery(channel,
   ## note paste(b[[1]], collapse = ", ") in line below
   paste("insert into TestTable (UniqueID) Values (", paste(b[[1]], collapse = ", "),")", sep = "")

Answer 2

假设b 看起来像这样：

b <- data.frame(Noinscr=c("8535735", "8449336"))

那么你只需要几个步骤：

# in case Noinscr is a factor
b$Noinscr <- as.character(b$Noinscr)
# convert the vector into a single string
# NOTE that I subset to get the vector, since b is a data.frame
B <- paste(b$Noinscr, collapse=",")
# create your query
paste("insert into TestTable (UniqueID) Values (",B,")", sep="")
# [1] "insert into TestTable (UniqueID) Values (8535735,8449336)"

你得到了奇怪的结果，因为sqlQuery 返回一个data.frame，而不是一个向量。正如您所了解的，在 data.frame（或任何列表）上使用 paste 会产生奇怪的结果，因为 paste 必须返回一个字符向量。