通过 R 在 SQL 查询中粘贴值

Question

我有以下包含 AxiomaID 的数据框。

x<-c(0123, 234, 2348, 345, 3454)

并尝试运行在 R 中进行以下 SQL 查询。

 SQL6<-data.frame(sqlQuery(myConn, "SELECT top 10 [AxiomaDate] 
  ,[RiskModelID]
  ,[AxiomaID]
  ,[Factor1]
   FROM [PortfolioAnalytics].[Data_Axioma].[SecurityExposures]
   Where AxiomaID = x"))

如何将包含 AxiomaID 的所有 x 值粘贴到 SQL 查询中？

Answer 1

尝试以下查询：

SQL6<-data.frame(sqlQuery(myConn, paste("SELECT top 10 [AxiomaDate] 
  ,[RiskModelID]
  ,[AxiomaID]
  ,[Factor1]
   FROM [PortfolioAnalytics].[Data_Axioma].[SecurityExposures]
   Where AxiomaID IN (", paste(x, collapse = ", "), ")")))

希望对您有所帮助！

Answer 2

你可以试试

这样的函数

InsertListInQuery <- function(querySentence, InList) {
  InValues <- ""
for (i in 1:length(InList)){
  if (i < length(InList)) {
    InValues <- paste(InValues,InList[[i]],",")}
  else {
    InValues <- paste(InValues,InList[[i]],sep = "")
  }

}
  LocOpenParenthesis <- gregexpr('[(]', querySentence)[[1]][[1]]
  LocCloseParenthesis <- gregexpr('[)]', querySentence)[[1]][[1]]
  if (LocCloseParenthesis-LocOpenParenthesis==1) {
    querySentence<- gsub("[(]", paste("(",InValues,sep = ""), querySentence)
  }
 return (querySentence )
}

函数 InsertListInQuery 要求您将原始查询更改为在 WHERE 子句中使用约束 IN () 的查询。函数的作用是将一个字符串与以逗号分隔的向量元素相匹配，并将“(”字符串替换为组成的字符串。最后，return 一个字符变量。因此，您可以定义元素的约束列表向量、查询并调用函数，如下所示：

x<-c(0123, 234, 2348, 345, 3454)
query <- "SELECT top 10 [AxiomaDate] 
  ,[RiskModelID]
,[AxiomaID]
,[Factor1]
FROM [PortfolioAnalytics].[Data_Axioma].[SecurityExposures]
Where AxiomaID IN ()"
finalQuery <- InsertListInQuery(query, x)

最终查询的值为：

finalQuery
[1] "SELECT top 10 [AxiomaDate] \n  ,[RiskModelID]\n,[AxiomaID]\n,[Factor1]\nFROM [PortfolioAnalytics].[Data_Axioma].[SecurityExposures]\nWhere AxiomaID IN ( 123 , 234 , 2348 , 345 ,3454)"

注意带有特殊字符 \n 的 return 行。

希望对您有所帮助。

通过 R 在 SQL 查询中粘贴值

Pasting Values in SQL Query through R

sql

r

rodbc