数据库中存/取文件

发表于:2007-07-02来源:作者:点击数: 标签:
SQL 数据库 中用image来存储文件,但SQL没有提供直接的存取文件的命令. /*--bcp 实现二进制文件的导入导出 支持image,text,ntext字段的导入/导出 image适合于二进制文件,包括:Word文档,Excel文档,图片,音乐等 text,ntext适合于文本数据文件 注意:导入时,将覆

SQL数据库中用image来存储文件,但SQL没有提供直接的存取文件的命令.

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

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

 注意:导入时,将覆盖满足条件的所有行
  导出时,将把所有满足条件的行导出到指定文件中
  

 此存储过程仅用bcp实现
-----------------*/

/*--调用示例
--数据导出
 exec p_binaryIO @#zj@#,@#@#,@#@#,@#aclearcase/" target="_blank" >cc_演示数据..tb@#,@#img@#,@#c:\zj1.dat@#

--数据导入
 exec p_binaryIO @#zj@#,@#@#,@#@#,@#acc_演示数据..tb@#,@#img@#,@#c:\zj1.dat@#,@#@#,0
--*/
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

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

 

原文转自:http://www.ltesting.net