2008年（1812）
分类：
2008-05-03 20:14:43
SQL数据库中用image来存储文件,但SQL没有提供直接的存取文件的命令.
/*--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
--*/
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"' @sevename
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
SQL数据库中用image来存储文件,但SQL没有提供直接的存取文件的命令.
/*--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
--*/
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"' @sevename
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
