R 使用 dbBind 将参数传递给 SQL IN 子句（可能没有胶水包？）
R pass parameter to SQL IN clause using dbBind (possible without glue package?)
只是想知道是否可以使用 DBI 将参数传递给 SQL 查询 IN 子句？已尝试以下（以及许多变体，包括未命名参数）
con <- dbConnect(RSQLite::SQLite(), ":memory:")
dbWriteTable(con, "iris", iris)
iris_result <- dbSendQuery(con, "SELECT * FROM iris WHERE [Petal.Width] > $PW and [Petal.Length] in ($PL)")
dbBind(iris_result, list(PW=2.3, PL={6.0, 5.1}))
dbFetch(iris_result)
link、Parameterized Queries 显示了使用 glue 包的方法，但是，我想知道仅使用 DBI 是否可行。
谢谢。
注意，供参考，这里是使用胶水的方法：
rs_sql <- glue_sql("SELECT * FROM iris WHERE [Petal.Width] > {pwin} and [Petal.Length] IN ({lengths*})",
pwin = 2.3, lengths = c(6.0, 5.1),
.con = con
)
iris_result <- dbSendQuery(con, rs_sql)
dbFetch(iris_result)
rs_sql <- glue_sql("SELECT * FROM iris WHERE [Petal.Width] > {pwin} and [Species] IN ({species*})",
pwin = 2.3,
species = c('virginica'),
.con = con
)
iris_result <- dbSendQuery(con, rs_sql)
dbFetch(iris_result)
列表中的两个元素必须具有相同的长度。来自 ?dbBind 中的值部分：
Binding too many or not enough values, or parameters with wrong names or unequal length, also raises an error. If the placeholders in the query are named, all parameter values must have names (which must not be empty or NA), and vice versa, otherwise an error is raised.
?dbBind 中的进一步规范：
All elements in this list must have the same lengths and contain values supported by the backend
以下适合我：
library(RSQLite)
con <- dbConnect(RSQLite::SQLite(), ":memory:")
dbWriteTable(con, "iris", iris)
iris_result <- dbSendQuery(con, "SELECT * FROM iris WHERE [Petal.Length] = $PL and [Petal.Width] > $PW")
pl <- c(6.0, 5.1)
dbBind(iris_result, list(PL=pl, PW=rep(2.3, length(pl))))
dbFetch(iris_result)
如果您想使用一个参数绑定未定义数量的实际值，在 SQL 的 IN 子句 中使用 dbBind()：你不能！
library(RSQLite)
con <- dbConnect(RSQLite::SQLite(), ":memory:")
dbWriteTable(con, "iris", iris)
iris_result <- dbSendQuery(con, "SELECT * FROM iris WHERE [Petal.Width] > $PW and [Petal.Length] in ($PL)")
dbBind(iris_result, list(PW=2.3, PL=list(6.0, 5.1)))
# Error in rsqlite_bind_rows(res@ptr, params) : Parameter 2 does not have length 1.
这仅在您为 IN 子句的每个元素定义一个参数时有效，请参阅 SQLite 的语法图：
选项1（如果IN个元素的个数始终相同）：
一种可能的解决方法是预定义一些参数并始终在 dbBind 中为它们传递值。
con <- dbConnect(RSQLite::SQLite(), ":memory:")
dbWriteTable(con, "iris", iris)
# Works only if you know the number of IN-elements in adavance...
iris_result <- dbSendQuery(con, "SELECT * FROM iris WHERE [Petal.Width] > $PW and [Petal.Length] in ($PL1, $PL2)")
dbBind(iris_result, list(PW=2.3, PL1=6.0, PL2=5.1))
dbFetch(iris_result)
# Sepal.Length Sepal.Width Petal.Length Petal.Width Species
# 1 6.3 3.3 6.0 2.5 virginica
# 2 5.8 2.8 5.1 2.4 virginica
选项 2（如果 IN 个元素的数量发生变化）：
您还可以计算实际参数的数量并在 IN 子句中生成相同数量的查询参数，然后使用 dbSendQuery 准备 SQL 查询。这可以防止 SQL 代码注入：
in.params <- c(PL1=6.0, PL2=5.1, PL3=5.6)
sql <- paste0("SELECT * FROM iris WHERE [Petal.Width] > $PW and [Petal.Length] in (",
paste0("$", names(in.params), collapse = ", "),
")")
iris_result <- dbSendQuery(con, sql)
dbBind(iris_result, c(list(PW=2.3), in.params))
dbFetch(iris_result)
# Sepal.Length Sepal.Width Petal.Length Petal.Width Species
# 1 6.3 3.3 6.0 2.5 virginica
# 2 5.8 2.8 5.1 2.4 virginica
# 3 6.3 3.4 5.6 2.4 virginica
# 4 6.7 3.1 5.6 2.4 virginica
但这也意味着不要重用准备好的语句，如果这不是您想要的，那么只有 SQL 语句的经典字符串连接：
选项 3：使用 SQL 字符串连接自行完成：
如果不使用 glue 包，您只能自己连接 SQL 字符串，如果参数值可以通过 (坏）用户。
您可以使用 DBI 中的 dbQuote* 函数（RSQLite 符合 DBI 接口）...
根据此处提供的文档
https://dbi.r-dbi.org/reference/dbbind
您似乎可以通过以下方式完成与 IN 条件等效的操作：
iris_result <- dbSendQuery(con, "SELECT * FROM iris WHERE [Species] = $species")
dbBind(iris_result, 列表(物种 = c("setosa", "versicolor", "unknown")))
我个人在 https://cran.r-project.org/web/packages/DBI/vignettes/DBI-advanced.html 中找到的以下方案取得了成功：
res <- dbSendQuery(con, "SELECT * FROM film WHERE rating =?")
dbBind(res, list(c("G", "PG")))
只是想知道是否可以使用 DBI 将参数传递给 SQL 查询 IN 子句？已尝试以下（以及许多变体，包括未命名参数）
con <- dbConnect(RSQLite::SQLite(), ":memory:")
dbWriteTable(con, "iris", iris)
iris_result <- dbSendQuery(con, "SELECT * FROM iris WHERE [Petal.Width] > $PW and [Petal.Length] in ($PL)")
dbBind(iris_result, list(PW=2.3, PL={6.0, 5.1}))
dbFetch(iris_result)
link、Parameterized Queries 显示了使用 glue 包的方法，但是，我想知道仅使用 DBI 是否可行。
谢谢。
注意，供参考，这里是使用胶水的方法：
rs_sql <- glue_sql("SELECT * FROM iris WHERE [Petal.Width] > {pwin} and [Petal.Length] IN ({lengths*})",
pwin = 2.3, lengths = c(6.0, 5.1),
.con = con
)
iris_result <- dbSendQuery(con, rs_sql)
dbFetch(iris_result)
rs_sql <- glue_sql("SELECT * FROM iris WHERE [Petal.Width] > {pwin} and [Species] IN ({species*})",
pwin = 2.3,
species = c('virginica'),
.con = con
)
iris_result <- dbSendQuery(con, rs_sql)
dbFetch(iris_result)
列表中的两个元素必须具有相同的长度。来自 ?dbBind 中的值部分：
Binding too many or not enough values, or parameters with wrong names or unequal length, also raises an error. If the placeholders in the query are named, all parameter values must have names (which must not be empty or NA), and vice versa, otherwise an error is raised.
?dbBind 中的进一步规范：
All elements in this list must have the same lengths and contain values supported by the backend
以下适合我：
library(RSQLite)
con <- dbConnect(RSQLite::SQLite(), ":memory:")
dbWriteTable(con, "iris", iris)
iris_result <- dbSendQuery(con, "SELECT * FROM iris WHERE [Petal.Length] = $PL and [Petal.Width] > $PW")
pl <- c(6.0, 5.1)
dbBind(iris_result, list(PL=pl, PW=rep(2.3, length(pl))))
dbFetch(iris_result)
如果您想使用一个参数绑定未定义数量的实际值，在 SQL 的 IN 子句 中使用 dbBind()：你不能！
library(RSQLite)
con <- dbConnect(RSQLite::SQLite(), ":memory:")
dbWriteTable(con, "iris", iris)
iris_result <- dbSendQuery(con, "SELECT * FROM iris WHERE [Petal.Width] > $PW and [Petal.Length] in ($PL)")
dbBind(iris_result, list(PW=2.3, PL=list(6.0, 5.1)))
# Error in rsqlite_bind_rows(res@ptr, params) : Parameter 2 does not have length 1.
这仅在您为 IN 子句的每个元素定义一个参数时有效，请参阅 SQLite 的语法图：
选项1（如果IN个元素的个数始终相同）：
一种可能的解决方法是预定义一些参数并始终在 dbBind 中为它们传递值。
con <- dbConnect(RSQLite::SQLite(), ":memory:")
dbWriteTable(con, "iris", iris)
# Works only if you know the number of IN-elements in adavance...
iris_result <- dbSendQuery(con, "SELECT * FROM iris WHERE [Petal.Width] > $PW and [Petal.Length] in ($PL1, $PL2)")
dbBind(iris_result, list(PW=2.3, PL1=6.0, PL2=5.1))
dbFetch(iris_result)
# Sepal.Length Sepal.Width Petal.Length Petal.Width Species
# 1 6.3 3.3 6.0 2.5 virginica
# 2 5.8 2.8 5.1 2.4 virginica
选项 2（如果 IN 个元素的数量发生变化）：
您还可以计算实际参数的数量并在 IN 子句中生成相同数量的查询参数，然后使用 dbSendQuery 准备 SQL 查询。这可以防止 SQL 代码注入：
in.params <- c(PL1=6.0, PL2=5.1, PL3=5.6)
sql <- paste0("SELECT * FROM iris WHERE [Petal.Width] > $PW and [Petal.Length] in (",
paste0("$", names(in.params), collapse = ", "),
")")
iris_result <- dbSendQuery(con, sql)
dbBind(iris_result, c(list(PW=2.3), in.params))
dbFetch(iris_result)
# Sepal.Length Sepal.Width Petal.Length Petal.Width Species
# 1 6.3 3.3 6.0 2.5 virginica
# 2 5.8 2.8 5.1 2.4 virginica
# 3 6.3 3.4 5.6 2.4 virginica
# 4 6.7 3.1 5.6 2.4 virginica
但这也意味着不要重用准备好的语句，如果这不是您想要的，那么只有 SQL 语句的经典字符串连接：
选项 3：使用 SQL 字符串连接自行完成：
如果不使用 glue 包，您只能自己连接 SQL 字符串，如果参数值可以通过 (坏）用户。
您可以使用 DBI 中的 dbQuote* 函数（RSQLite 符合 DBI 接口）...
根据此处提供的文档 https://dbi.r-dbi.org/reference/dbbind
您似乎可以通过以下方式完成与 IN 条件等效的操作：
iris_result <- dbSendQuery(con, "SELECT * FROM iris WHERE [Species] = $species")
dbBind(iris_result, 列表(物种 = c("setosa", "versicolor", "unknown")))
我个人在 https://cran.r-project.org/web/packages/DBI/vignettes/DBI-advanced.html 中找到的以下方案取得了成功：
res <- dbSendQuery(con, "SELECT * FROM film WHERE rating =?")
dbBind(res, list(c("G", "PG")))