将压缩的电子邮件附件中的CSV导入SQL Server

时间:2016-12-05 11:00:41

标签: sql-server-2008 csv access-vba unzip exchange-server-2013

我每天都会收到来自外部第三方的电子邮件,其中包含以压缩CSV格式附加的数据。

我想要做的是自动将此数据导入SQL Server数据库。电子邮件不是服务器本地的,因此我可能需要将文件解压缩并保存到服务器可以看到的某个文件夹中,然后只是批量插入它?

是否可以让Exchange服务器自动执行此保存和解压缩,或者是否需要通过其他应用程序执行此操作?我有一个按日计划运行的访问数据库,可以想象这样做。访问数据库也可以链接到SQL表并执行插入,但我不知道这样做的相对优点和性能与批量插入或基于SQL的替代方法相比?

1 个答案:

答案 0 :(得分:0)

我有一些时间来处理这个问题,虽然它并不漂亮,但我已经开始工作了。

首先,我使用outlook vba从网上的片段拼凑而成,这里将附件保存到文件夹中,然后解压缩

然后我在SQL中使用以下内容循环遍历同一文件夹并导入csv文件。

CREATE TABLE #ALLFILENAMES(WHICHPATH VARCHAR(255),WHICHFILE varchar(255))

--some variables
declare @filename varchar(255),
        @path     varchar(255),
        @sql      varchar(8000),
        @cmd      varchar(1000)


--get the list of files to process:
SET @path = Full_UNC_Path
SET @cmd = 'dir ' + @path + '*.csv /b'
print @cmd
INSERT INTO  #ALLFILENAMES(WHICHFILE)
EXEC Master..xp_cmdShell @cmd
UPDATE #ALLFILENAMES SET WHICHPATH = @path where WHICHPATH is null


--cursor loop
declare c1 cursor for SELECT WHICHPATH,WHICHFILE FROM #ALLFILENAMES where WHICHFILE like '%.csv%'
open c1
fetch next from c1 into @path,@filename
While @@fetch_status <> -1
  begin

  --bulk insert won't take a variable name, so make a sql and execute it instead:
   set @sql = 'BULK INSERT tbl_MyInbound FROM ''' + @path + @filename + ''' '
       + '     WITH ( 
               FIELDTERMINATOR = '','', 
               ROWTERMINATOR = ''\n'', 
               FIRSTROW = 2 
            ) '
print @sql
exec (@sql)

  fetch next from c1 into @path,@filename
  end
close c1
deallocate c1


--Extras

--delete from ALLFILENAMES where WHICHFILE is NULL
--select * from #ALLFILENAMES
drop table #ALLFILENAMES

if (@prevXpCmdshell = 0)
begin
exec sp_configure 'xp_cmdshell', 0
reconfigure
end

if (@prevAdvancedOptions = 0)
begin
exec sp_configure 'show advanced options', 0
reconfigure
end

但是,我也想在导入后删除该文件以防止重新导入等。我尝试了以下操作,但它没有工作,输出Access is denied

set @cmd = 'del ' + @path + @filename
EXEC master..cp_cmdShell @cmd

如果我能弄清楚为什么我不能删除该文件,那么我会很开心。有什么想法吗?