无法写入mysql的数据表成csv文件，使用R脚本

Question

这里我使用下列R-外部脚本编写SQL数据库tableas csv文件。

我知道如何使用数据导出和导入向导出口。

但我一直在使用脚本来导出数据。

        declare @file_path varchar(300)
        select @file_path = 'C:/NB/DATA/DB/arima.csv' 
        EXEC sp_execute_external_script
            @language = N'R'
            ,@script = N'
             write.csv(data,file=file_path,row.names=FALSE);'
            ,@input_data_1_name = N'data'
            ,@input_data_1= N'select * from [dbo].[fcst_model]'
            ,@params = N'@file_path varchar(300)' 
            ,@file_path = @file_path;

注意：

1. fcst_model是数据库表
2. 它有两列

在执行脚本我有以下错误。

Msg 39004, Level 16, State 20, Line 305
A 'R' script error occurred during execution of 'sp_execute_external_script' 
with HRESULT 0x80004004.
Msg 39019, Level 16, State 2, Line 305
An external script error occurred: 
Error in file(file, ifelse(append, "a", "w")) : 
cannot open the connection
Calls: source ... write.csv -> eval.parent -> eval -> eval -> write.table -> 
file
In addition: Warning message:
In file(file, ifelse(append, "a", "w")) :
cannot open file 'C:/NB/DATA/DB/arima.csv': Permission denied

谁能帮我解决这个问题。

提前致谢。

Answer 1

drop proc if exists to_csv;
go
create proc to_csv(@param1 varchar(MAX))
as
begin
    exec sp_execute_external_script
    @language =  N'R'
    ,@script = N'           
                write.csv(df,output_path)'
    ,@input_data_1 = N'select * from fcst_data1'
    ,@input_data_1_name=N'df'
    ,@params = N'@output_path varchar(MAX) '
    ,@output_path = @param1;
end;
go

exec to_csv "C:\\NB\\DB\\SQL_R\\data\\data.csv"