我的 R 代码没有从 SQL Server 获取数据

Question

虽然 R 上使用的普通 Select 语句正在获取数据，但我无法在以下查询中使用 SQL 获取数据： SQL 部分正在 SQL Server 2008 上运行。另外，我正在使用 RStudio 有什么建议吗？

qf<-sqlQuery(mycon,"USE MDM_STAT
+ DECLARE @RUNMONTH INT;
+              DECLARE @RUNYEAR INT;
+              DECLARE @PERIOD INT;
+              DECLARE @FISCALRUNYEAR INT;
+              DECLARE @FISCALRUNYEAR_BEGIN INT;
+              SET @RUNMONTH=MONTH(GETDATE());
+              SET @RUNYEAR=YEAR(GETDATE());
+              SET @PERIOD=
+              CASE 
+              WHEN @RUNMONTH>3 THEN (@RUNMONTH-3)
+              ELSE 9+@RUNMONTH
+              END
+              ;
+              SET @FISCALRUNYEAR=
+              CASE
+              WHEN @RUNMONTH>3 THEN @RUNYEAR
+              ELSE @RUNYEAR-1
+              END
+              ;
+              SET @FISCALRUNYEAR_BEGIN=
+              CASE
+              WHEN @PERIOD=12 THEN @FISCALRUNYEAR
+              ELSE @FISCALRUNYEAR-1
+              END
+              ;
+              
+              select * from dbo.TEMP_CUST_OPERATING_PROFIT OP
+              where OP.Sales_Year=@FISCALRUNYEAR
+              AND OP.PERIOD<=@PERIOD
+              UNION
+              select * from dbo.TEMP_CUST_OPERATING_PROFIT OP
+              where OP.Sales_Year=@FISCALRUNYEAR_BEGIN
+              AND OP.PERIOD>@PERIOD")

Answer 1

我建议您按照以下步骤操作：

1) 您应该确保连接字符串设置正确，以便与数据库建立正确的连接。 这里有一个很好的解释：short youtube tutorial

2) 在 R 中写：

library(RODBC)   
channel = odbcConnect("The_database_name_your_are_connecting_to")
...
sqlQuery(channel ,"your query here")
close(channel)

我建议你从最简单的查询开始，在你确定它有效之后， 使用更复杂的查询

希望它对你有用，祝你好运！