将 R 变量用于 SQL 查询 [重复]

Question

简而言之，我正在使用JDBC，并且我正在尝试编写一个查询，该查询将从 SQL 开发人员数据库表中返回一些值。

到目前为止，我有这个：

#Query for getting data
sql <- paste("select * 
           FROM GRID Z
           where Z.LAT = Xlat AND Z.LON = Xlon")
fun <- dbGetQuery(jdbcConnection, sql)
attach(fun)

问题是 Xlat 和 Xlon 是 R 中的变量，它们的值经常变化，所以我不能真正将它们硬传递到查询中。显然，Z.LAT 和Z.LON 对应于GRID 表。

问题是：是否可以在查询中使用 R 变量？

我还想知道是否有一些东西可以匹配最接近或最接近的值，而不是 =。

感谢任何建议。谢谢

编辑：另一种方法是从我的桌子上SELECT *，然后与fun“玩”以获得我的价值观。对此有何想法或做法？

注意：jdbcConnection 正在请求远程连接。

Answer 1

你在找这个吗？

sql <- paste0("select * 
           FROM GRID Z
           where Z.LAT ='", Xlat,"' AND Z.LON = '", Xlon,"'")

我假设您的变量是字符。如果以上内容在 Web 服务器后面运行，则可以使用 URL 编码和转义选项来避免代码注入……例如 this

编辑：关于这个：

I would also like to know if instead of = is there something to match the closest or nearest values.

由于您通过 SQL 引擎执行查询，因此它更像是一个 SQL 问题而不是 R 问题。就像@Vivek 说你可以在sqldf 中那样做，但我猜你的数据在远程数据库中，所以在这种情况下它不会有帮助。

所有 SQL 风格都有like，所以只需在查询中使用它。如果我误解了您的问题，请告诉我。

sql <- paste0("select * 
           FROM GRID Z
           where Z.LAT like '", Xlat,"' AND Z.LON like '", Xlon,"'")

Answer 2

gsubfn 的 fn$ 运算符支持类似 perl 的字符串插值，如下所示：

library(gsubfn)

sql0 <- "select * FROM GRID Z where Z.LAT = $Xlat AND Z.LON = $Xlon"
fun <- fn$dbGetQuery(jdbcConnection, sql0)

或这样允许在替换后检查sql：

sql0 <- "select * FROM GRID Z where Z.LAT = $Xlat AND Z.LON = $Xlon"
sql <- fn$identity(sql0)
fun <- dbGetQuery(jdbcConnection, sql)

参见?fn 以及sqldf home page 上的示例。

Answer 3

是的，当然可以，请参阅库 sqldf。你可以使用近似匹配Z.LAT like 'Xlat'

data(CO2)

var1<-"Plant"
var2<-"conc"

require(sqldf)
squery2<-paste("select * from CO2 where",var1,"like 'Qn%'","and",var2,"> 500",sep=" ")

> sqldf(squery2)
  Plant   Type  Treatment conc uptake
1   Qn1 Quebec nonchilled  675   39.2
2   Qn1 Quebec nonchilled 1000   39.7
3   Qn2 Quebec nonchilled  675   41.4
4   Qn2 Quebec nonchilled 1000   44.3
5   Qn3 Quebec nonchilled  675   43.9
6   Qn3 Quebec nonchilled 1000   45.5

Answer 4

你也可以使用这个 - 假设，

 Xlat <- 8
 Xlon <- 10

那么，

 #Query for getting data
 sql <- paste("select * 
       FROM GRID Z
       where Z.LAT = $Xlat AND Z.LON = $Xlon")
 fun <- dbGetQuery(jdbcConnection, sql)
 attach(fun)