155.bcp 实现二进制文件的导入导出

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_binaryIO]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_binaryIO]
GO

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

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

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

	此存储过程仅用bcp实现

/*--调用示例
--数据导出
	exec p_binaryIO 'zj','','','acc_演示数据..tb','img','c:\zj1.dat'

--数据导入
	exec p_binaryIO 'zj','','','acc_演示数据..tb','img','c:\zj1.dat','',0
--*/
Create proc p_binaryIO
@servename varchar (30),--服务器名称
@username varchar (30), --用户名
@password varchar (30),	--密码
@tbname varchar (500), 	--数据库..表名
@fdname varchar (30), 	--字段名
@fname varchar (1000),	--目录+文件名,处理过程中要使用/覆盖:@filename+_temp
@tj varchar (1000)='', 	--处理条件.对于数据导入,如果条件中包含@fdname,请指定表名前缀
@isout bit=1			--1导出((默认),0导入
AS 
declare @fname_in varchar(1000)	--bcp处理应答文件名
	,@fsize varchar(20)			--要处理的文件的大小
	,@m_tbname varchar(50)		--临时表名
	,@sql varchar(8000)

--则取得导入文件的大小
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 #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'
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+case isnull(@tj,'') when '' then ''
			else ' where '+@tj end
		+'" queryout "'+@fname
		+'" /S"'+@servename
		+case when isnull(@username,'')='' then '' 
			else '" /U"'+@username end
		+'" /P"'+isnull(@password,'')
		+'" /i"'+@fname_in+'"'
	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+'"'
	exec master..xp_cmdshell @sql
	
	--将数据导入到正式表中
	set @sql='update '+@tbname
		+' set '+@fdname+'=b.'+@fdname
		+' from '+@tbname+' a,'
		+@m_tbname+' b'
		+case isnull(@tj,'') when '' then ''
			else ' where '+@tj end
	exec(@sql)

	--删除数据处理临时表
	set @sql='drop table '+@m_tbname
end

--删除数据处理应答文件
set @sql='del '+@fname_in
exec master..xp_cmdshell @sql
go