sql - RODBC:执行包含多个语句的查询

Question

我有一个返回 varbinary 输出参数的存储过程。我想从 R 调用它并捕获返回变量。我尝试过:

qq <- "declare @mm varbinary(max); exec spTrain_df_to_op @mm_outer = @mm output; select @mm as model;"
conStr <- "Driver={SQL Server};Server=.;Database=airline_new;Trusted_Connection=TRUE;"
dbhandle <- odbcDriverConnect(conStr, rows_at_time = 1)
result <- sqlQuery(dbhandle, qq)

此操作失败，结果显示为字符(0)。 RODBC 可能不想执行本质上是一系列查询的操作。我该如何解决这个问题？

谢谢!

这是存储过程:

ALTER PROCEDURE [dbo].[spTrain_df_to_op]
  @mm_outer varbinary(max) output
AS
  BEGIN TRY
    exec sp_execute_external_script
      @language = N'R',
      @script = N'
        func <- function() {
          in_df[,"DayOfWeek"] <- factor(in_df[,"DayOfWeek"], levels=as.character(1:7))
          # The model formula
          formula <- ArrDelay ~ CRSDepTime + DayOfWeek + CRSDepHour:DayOfWeek
          # Train the model
          rxSetComputeContext("local")
          mm <- rxLinMod(formula, data=in_df, transformFunc=NULL, transformVars=NULL)
          mm <<- serialize(mm, connection=NULL)
        }
        result = func()
      ',
      @input_data_1 = N'select top 10000 ArrDelay,CRSDepTime,DayOfWeek,CRSDepHour from cleanData',
      @input_data_1_name = N'in_df',
      @params = N'@mm varbinary(max) output',
      @mm = @mm_outer output
  END TRY
  BEGIN CATCH
    THROW;
  END CATCH;

为了踢球，我尝试了以下方法:

qq = "declare @mm varbinary(max); select 2 as hello; select 1 as model"
conStr <- "Driver={SQL Server};Server=.;Database=airline_new;Trusted_Connection=TRUE;"
dbhandle <- odbcDriverConnect(conStr, rows_at_time = 1)
result <- sqlQuery(dbhandle, qq)

这仅返回第一个查询的结果:

  hello
1     2

我还尝试将查询设置为

qq = paste0("SET NOCOUNT ON; declare @mm varbinary(max); ",
           "exec spTrain_df_to_op @mm_outer = @mm output; ",
           "SET NOCOUNT OFF; select @mm as model;")

仍然产生字符(0)。

从查询中创建存储过程不是一个选项。

Answer 1

诚然，我没有像您的用例那样针对 PL/SQL 尝试过此操作，但认为它应该可以工作，如果不能的话，希望它对其他人运行存储在单个脚本中的多个查询有用。

您应该能够通过首先将脚本拆分为单独的查询来完成此任务。如果您使用分号作为分隔符(无论如何设置了多少个查询，以及如何构建第二次尝试)，您可以将查询拆分为查询向量，并通过循环单独运行每个查询。如果某些查询有您想要稍后访问的结果，您可以返回它们并将它们存储在列表中。

library(RODBC)

# an example SQL Script containing multiple queries, seperated by semi-colon
example_script <- 
"select sysdate from dual;
commit;
select sysdate from dual;"

# split the string into a character vector of queries to run
split_queries <- strsplit(example_script, ";",)[[1]]

#prepeare a list to store results
list_of_results <- list() 


ch <- odbcConnect("XX",uid="XX", pwd="XX")

# loop through and run the queries, storing results (if any) in the list
for (i in 1:length(split_queries)) {

  list_of_results[[i]] <- sqlQuery(ch,
                                   split_queries[i],
                                   errors = FALSE)

  Sys.sleep(2)

}

odbcClose(ch)

# show list of results, of course these elements could be anything from strings to data.frames
list_of_results

[[1]]
              SYSDATE
1 2018-03-28 17:15:26

[[2]]
[1] -2

[[3]]
              SYSDATE
1 2018-03-28 17:15:30

• 我已经提交了“提交”；来说明一个命令不 有结果只会在结果列表中返回一个负整数 位置。

• 我在 sqlQuery 中包含errors = FALSE，因为这将允许像这样的命令 当表不存在时“删除表” 不停止循环。

我有一个大型脚本，其中有多个删除表创建表查询对。这种方法可以让我将整个脚本一次性导入R并运行。通常，我只在最终查询的结果之后，所以我不会将内容存储在列表中，而是只有一个输出变量，该变量在循环运行时被覆盖，直到最终的 select 语句将结果转储到变量。