Создание файла xlsx с помощью хранимой процедуры TSQL - PullRequest
Новая
       8

Создание файла xlsx с помощью хранимой процедуры TSQL

0 голосов
/ 31 января 2019

Я пытаюсь создать файл xlsx (новый формат) из хранимой процедуры TSQL, но не могу найти решение.На данный момент я пытаюсь с этим кодом: РЕДАКТИРОВАТЬ: я использую MSSQL 2014. 

CREATE PROCEDURE spExecute_ADODB_SQL 
@DDL VARCHAR(2000), 
@DataSource VARCHAR(100), 
@Worksheet VARCHAR(100)=NULL, 
@ConnectionString VARCHAR(255) 
    = 'Provider=Microsoft.ACE.OLEDB.12.0; 
Data Source=%DataSource; 
Extended Properties=Excel 12.0' 
AS 
DECLARE 
    @objExcel INT, 
    @hr INT, 
    @command VARCHAR(255), 
    @strErrorMessage VARCHAR(255), 
    @objErrorObject INT, 
    @objConnection INT, 
    @bucket INT 


SELECT @ConnectionString 
    =REPLACE (@ConnectionString, '%DataSource', @DataSource) 
IF @Worksheet IS NOT NULL 
    SELECT @DDL=REPLACE(@DDL,'%worksheet',@Worksheet) 


SELECT @strErrorMessage='Making ADODB connection ', 
            @objErrorObject=NULL 
EXEC @hr=sp_OACreate 'ADODB.Connection', @objconnection OUT 
IF @hr=0 
    SELECT @strErrorMessage='Assigning ConnectionString property "' 
            + @ConnectionString + '"', 
            @objErrorObject=@objconnection 
IF @hr=0 EXEC @hr=sp_OASetProperty @objconnection, 
            'ConnectionString', @ConnectionString 
IF @hr=0 SELECT @strErrorMessage 
        ='Opening Connection to XLS, for file Create or Append' 
IF @hr=0 EXEC @hr=sp_OAMethod @objconnection, 'Open' 
IF @hr=0 SELECT @strErrorMessage 
        ='Executing DDL "'+@DDL+'"' 
IF @hr=0 EXEC @hr=sp_OAMethod @objconnection, 'Execute', 
        @Bucket out , @DDL 
IF @hr<>0 
    BEGIN 
    DECLARE 
        @Source VARCHAR(255), 
        @Description VARCHAR(255), 
        @Helpfile VARCHAR(255), 
        @HelpID INT 

    EXECUTE sp_OAGetErrorInfo @objErrorObject, @source output, 
        @Description output,@Helpfile output,@HelpID output 
    SELECT @strErrorMessage='Error whilst ' 
        +COALESCE(@strErrorMessage,'doing something')+', ' 
        +COALESCE(@Description,'') 
    RAISERROR (@strErrorMessage,16,1) 
    END 
EXEC @hr=sp_OADestroy @objconnection 
GO 



spExecute_ADODB_SQL @DDL='Create table CambridgePubs 
(Pubname Text, Address Text, Postcode Text)', 
@DataSource ='R:\ExportPriceList\CambridgePubs1.xlsx'

Он создает файл xlsx, но когда я пытаюсь открыть его, он не работает и говорит, что форматэто неправильно. Есть идеи?

...