SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO

/*--bcp 实现二进制文件的导入导出

支持image,text,ntext字段的导入/导出
image适合于二进制文件,包括:Word文档,Excel文档,图片,音乐等
text,ntext适合于文本数据文件

注意:导入不会新增记录,所以导入前要对表进行初始化,即插入记录
导入时,将覆盖满足条件的所有行
导出时,将把所有满足条件的行导出到指定文件中

此存储过程仅用bcp实现

---*/

/*--调用示例
--数据导出
exec p_file_get_or_set '.','sa','123','JSSY..tbl_fileinfo','filedata','E:\A','住院医生工作站.rar'
--数据导入
exec p_file_get_or_set '.','sa','123','JSSY..tbl_fileinfo','filedata','e:','住院医生工作站.rar',0
--*/
ALTER        proc dbo.p_file_get_or_set
@servename varchar (30),--服务器名称
@username varchar (30), --用户名
@password varchar (30),--密码
@tbname varchar (500), --数据库..表名
@fdname varchar (30), --字段名
@f_path varchar(1000),--目录
@f_name varchar (30),--文件名,处理过程中要使用/覆盖:@filename+_temp
@isout bit=1--1导出((默认),0导入
AS
declare @fname_in varchar(1000)--bcp处理应答文件名
,@fsize varchar(20)--要处理的文件的大小
,@m_tbname varchar(50)--临时表名
,@sql varchar(8000) ,
@fname varchar(1000)
select @fname =@f_path+'\'+@f_name
--则取得导入文件的大小
if @isout=1
 set @fsize='0'
else
begin
 create table #tb(可选名 varchar(20),大小 int
 ,创建日期 varchar(10),创建时间 varchar(20)
 ,上次写操作日期 varchar(10),上次写操作时间 varchar(20)
 ,上次访问日期 varchar(10),上次访问时间 varchar(20),特性 int)
 --insert into tb1
 --exec master..xp_getfiledetails @fname
 insert into #tb
 exec master..xp_getfiledetails @fname
 select @fsize=大小 from #tb
 drop table #tb
 if @fsize is null
 begin
  print '文件未找到'
  return
 end

end
--生成数据处理应答文件
set @m_tbname='[##temp'+cast(newid() as varchar(40))+']'
set @sql='select * into '+@m_tbname+' from(
select null as 类型
union all select 0 as 前缀
union all select '+@fsize+' as 长度
union all select null as 结束
union all select null as 格式
) a'
exec(@sql)

select @fname_in=@fname+'_temp'
,@sql='bcp "'+@m_tbname+'" out "'+@fname_in
+'" /S"'+@servename
+case when isnull(@username,'')='' then ''
else '" /U"'+@username end
+'" /P"'+isnull(@password,'')+'" /c'
--select @tj=@tbname+'.img_name='''+@fname_in+''''
exec master..xp_cmdshell @sql
--删除临时表
set @sql='drop table '+@m_tbname
exec(@sql)
if @isout=1
begin
 set @sql='bcp "select top 1 '+@fdname+' from '
 +@tbname+' where tbl_fileinfo.filename='''+@f_name+''''
 +'" queryout "'+@fname
 +'" /S"'+@servename
 +case when isnull(@username,'')='' then ''
 else '" /U"'+@username end
 +'" /P"'+isnull(@password,'')
 +'" /i"'+@fname_in+'"'
 print @sql
 exec master..xp_cmdshell @sql
end
else
begin
 --为数据导入准备临时表
 set @sql='select top 0 '+@fdname+' into '
 +@m_tbname+' from ' +@tbname
 exec(@sql)
 
 --将数据导入到临时表
 set @sql='bcp "'+@m_tbname+'" in "'+@fname
 +'" /S"'+@servename
 +case when isnull(@username,'')='' then ''
 else '" /U"'+@username end
 +'" /P"'+isnull(@password,'')
 +'" /i"'+@fname_in+'"'
 --print @sql
 exec master..xp_cmdshell @sql
 if exists( select 1 from tbl_fileinfo where filename=@f_name)
 begin--导入时 如果发现数据库已经有该文件 则默认更新该文件，此处可根据时间需要修改，我目前是当遇到文件名存在则马上更新
  set @sql='update tbl_fileinfo set filesize='+@fsize+',filedata=b.'+@fdname+',updatetime=getdate()'
    +' from '
  +@m_tbname+' b, tbl_fileinfo where filename=''' +@f_name+''''
  exec(@sql)
 end
 else
 begin--导入时，发现表中没有该数据 则新增一条，版本号默认为1，如需求要版本号这将版本号做为参数处理
  set @sql='insert into tbl_fileinfo(version,filename,filesize,filedata,updatetime,userid,subsys) select 1, '''+@f_name +''','+@fsize+',b.'+@fdname
    +', getdate(), null,null  from '
  +@m_tbname+' b'
    --print @sql
    exec(@sql)
 end
 --删除数据处理临时表
 set @sql='drop table '+@m_tbname
end

--删除数据处理应答文件
set @sql='del '+@fname_in
exec master..xp_cmdshell @sql
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO