ODBC查询中的R-变量

Question

我需要运行多个查询以将数据从SQL Server多次获取到R。 我想在sqlQuery函数的查询中使用句点作为变量。

我的查询如下：

fld_fec_car<-sqlQuery(dbNGC, "select fld_fec_car 
from neptuno.data_mart.[dbo].[tbl_periodo_asig]
where fld_cod_emp='tg'
and fld_periodo ='072014'")

我想……

per='072014'


fld_fec_car<-sqlQuery(dbNGC, "select fld_fec_car 
from neptuno.data_mart.[dbo].[tbl_periodo_asig]
where fld_cod_emp='tg'
and fld_periodo =&per")

是否可以在sqlQuery函数中包含变量值？ 谢谢。

Answer 1

可能会有一个更优雅的解决方案，但是我通常要做的是使函数根据输入生成查询文本：

genQuery <- function(arg)
{
  lhs <- "select fld_fec_car 
  from neptuno.data_mart.[dbo].[tbl_periodo_asig]
  where fld_cod_emp='tg'
  and fld_periodo ='"
  rhs <- "';"
  ##
  Query <- paste0(lhs,arg,rhs)
  Query <- gsub("\n"," ",Query)
  Query <- gsub("\t"," ",Query)
  return(Query)
}
##
> genQuery(123)
[1] "select fld_fec_car   from neptuno.data_mart.[dbo].[tbl_periodo_asig]  where fld_cod_emp='tg'  and fld_periodo ='123';"
> genQuery(436)
[1] "select fld_fec_car   from neptuno.data_mart.[dbo].[tbl_periodo_asig]  where fld_cod_emp='tg'  and fld_periodo ='436';"

gsub("\\n"," ",...)和gsub("\\t"," ",...)只是为了摆脱换行符和制表符-我的SQL客户端不接受他们; 您的可能会有所不同。

Answer 2

我用粘贴：

a<-paste("SELECT fld_fec_car FROM neptuno.data_mart.[dbo].[tbl_periodo_asig] where fld_cod_emp='tg' and fld_periodo='", per, "'", sep='')

接着

sqlQuery(dbNGC, a)