RODBC：执行包含多个语句的查询

Posted 2023-03-29

【中文标题】RODBC：执行包含多个语句的查询

【英文标题】：RODBC: execute a query containing multiple statements

【发布时间】：2016-08-03 22:55:12

【问题描述】：

我有一个返回 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）。

不能从查询中创建存储过程。

【问题讨论】：

qq 的东西是错字对不起。您是否建议在存储过程的末尾添加一个 select 语句，以选择所有输出参数？

问题是存储过程还返回一个不是输出参数的结果集。有时我需要结果集，有时需要输出参数。 .

它只是返回字符（0）作为结果

SQL Server中对应的行输出什么？

相同的查询通过 SSMS 正常工作，并在列模型下的表中返回一个 varbinary 作为单个条目。

【参考方案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 中包含错误 = FALSE，因为这将允许类似的命令 当表不存在时“删除表”开始工作 不停止循环。

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