ROracle dbGetQuery 按名称绑定参数

Question

我正在尝试使用 ROracle 在 R 中处理大量带有参数的查询。我知道每个查询中出现了哪些参数，但我不知道它们出现的顺序。因此，我正在寻找一种在每个查询中按名称提交参数的方法。示例代码：

library(ROracle)

# establish connection to DB
drv <- dbDriver("Oracle")
con <- dbConnect(drv, "User", "password", dbname = "DB")

# create table
createTab <- "create table RORACLE_TEST(num1 number, num2 number)"
dbGetQuery(con, createTab)

# insert String
insStr <- "insert into RORACLE_TEST values(:row1, :row2)"
dbGetQuery(con, insStr, data.frame(row2 = 0, row1 = 1))

# check output
dbGetQuery(con, "SELECT * FROM RORACLE_TEST")

# Output is:
#  NUM1 NUM2
#1    0    1

# Desired output should be:
#  NUM1 NUM2
#1    1    0

除此类解决方案外，我们将不胜感激任何解决方法

dbGetQuery(con,gsub(":row2", "0", gsub(":row1", "1", insStr)))

因为这不会针对 sql 注入进行清理（参数将来自用户输入）。

Answer 1

我自己最近在同一个问题上花了一些时间，但没有找到完美的解决方案。在我看来，从语法的角度来看，使用命名占位符是非常错误的，因为它给人的印象是参数顺序无关紧要。

我相信这不是 ROracle 库的问题或责任，因为这也会导致结果，对于不了解 PL/SQL 的人来说，这是不期望的：

DEFINE
  row1 number;
  row2 number;
BEGIN
  row1 := 1;
  row2 := 0;
  EXECUTE IMMEDIATE 'insert into RORACLE_TEST values(:row1, :row2)' USING row2, row1;
END;
/

当我们将应用程序从RODBC 和RODBCext 迁移到ROracle 时，我们继续使用? 作为绑定变量占位符，并在我们的数据库连接API 中将它们替换为冒号样式。至少这不应该引起任何人的注意：

# placeholders '?' are replaced with :1 and :2 in custom_dbGetQuery()
insStr <- "insert into RORACLE_TEST values(?, ?)"
custom_dbGetQuery(con, insStr, data.frame(row2 = 0, row1 = 1))

编辑：添加了重新排序数据框的建议

您可以通过检查查询字符串中出现的占位符来自行重新排序数据框：

custom_dbGetQuery <- function(con, insStr, data) {
    names <- names(data)

    name.pos <- sort(sapply(names, function(ph) { 
        regexp <- paste0(":", ph, "[^\\w]")
        matches <- gregexpr(regexp, insStr, perl = TRUE)
        matches <- unlist(matches)
        stopifnot(length(matches) == 1, all(matches != -1))
        matches 
    }))

    data <- data[, names(name.pos)]

    print("running query:")
    print(insStr)
    print("using data:")
    print(data)

    dbGetQuery(con, insStr, data)
}

insStr <- "insert into RORACLE_TEST values(:row1, :row2)"
custom_dbGetQuery(con, insStr, data.frame(row2 = 0, row1 = 1))

# Output:
# [1] "running query:"
# [1] "insert into RORACLE_TEST values(:row1, :row2)"
# [1] "using data:"
#   row1 row2
# 1    1    0

Answer 2

受sqlInterpolate 启发的tidyverse 解决方案（感谢@Scarabee！）：

readr::read_file('query.sql') %>%
stringr::str_replace_all(., ':','?') %>%
DBI::sqlInterpolate(con, ., row2 = 0, row1 = 1) %>%
DBI::dbGetQuery(con, .)