Chinaunix首页 | 论坛 | 博客
  • 博客访问: 309977
  • 博文数量: 163
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: -40
  • 用 户 组: 普通用户
  • 注册时间: 2017-03-08 00:28
文章分类

全部博文(163)

文章存档

2015年(2)

2014年(35)

2013年(28)

2012年(30)

2011年(22)

2010年(14)

2009年(8)

2008年(13)

2007年(11)

分类: SQLServer

2013-07-18 10:06:46

/********************导整个数据库*********************************************/

用bcp实现的存储过程


/*
        实现数据导入/导出的存储过程 邹健
         根据不同的参数,可以实现导入/导出整个数据库/单个表
        调用示例:
--导出调用示例
----导出单个表
exec file2table 'zj','','','xzkh_sa..地区资料','c:/zj.txt',1
----导出整个数据库
exec file2table 'zj','','','xzkh_sa','C:/docman',1

--导入调用示例
----导入单个表
exec file2table 'zj','','','xzkh_sa..地区资料','c:/zj.txt',0
----导入整个数据库
exec file2table 'zj','','','xzkh_sa','C:/docman',0

*/
if exists(select 1 from sysobjects where name='File2Table' and objectproperty(id,'IsProcedure')=1)
        drop procedure File2Table
go
create procedure File2Table
@servername varchar(200)                --服务器名
,@username varchar(200)                        --用户名,如果用NT验证方式,则为空''
,@password varchar(200)                        --密码
,@tbname varchar(500)                        --数据库.dbo.表名,如果不指定:.dbo.表名,则导出数据库的所有用户表
,@filename varchar(1000)                --导入/导出路径/文件名,如果@tbname参数指明是导出整个数据库,则这个参数是文件存放路径,

文件名自动用表名.txt
,@isout bit                                                --1为导出,0为导入
as
declare @sql varchar(8000)

if @tbname like '%.%.%' --如果指定了表名,则直接导出单个表
begin
        set @sql='bcp
                +case when @isout=1 then ' out ' else ' in ' end
                +' "" /w'
                +' /S
                +case when isnull(@username,'')='' then '' else ' /U end
                +' /P '+isnull(@password,'')
        exec master..xp_cmdshell @sql
end
else
begin        --导出整个数据库,定义游标,取出所有的用户表
        declare @m_tbname varchar(250)
        if right(@filename,1)<>'/' set @filename=@filename+'/'

        set @m_tbname='declare #tb cursor for select name from where xtype=''U'''
        exec(@m_tbname)
        open #tb
        fetch next from #tb into @m_tbname
        while @@fetch_status=0
        begin
                set @sql='bcp
                        +case when @isout=1 then ' out ' else ' in ' end
                        +' " " /w'
                        +' /S
                        +case when isnull(@username,'')='' then '' else ' /U end
                        +' /P '+isnull(@password,'')
                exec master..xp_cmdshell @sql
                fetch next from #tb into @m_tbname
        end
        close #tb
        deallocate #tb       
end
go


/**********************Excel导到Txt****************************************/
想用
select * into opendatasource(...) from opendatasource(...)
实现将一个Excel文件内容导入到一个文本文件

假设Excel中有两列,第一列为姓名,第二列为很行帐号(16位)
且银行帐号导出到文本文件后分两部分,前8位和后8位分开。


如果要用你上面的语句插入的话,文本文件必须存在,而且有一行:姓名,银行账号1,银行账号2
然后就可以用下面的语句进行插入
注意文件名和目录根据你的实际情况进行修改.

insert into
opendatasource('MICROSOFT.JET.OLEDB.4.0'
,'Text;HDR=Yes;DATABASE=C:/'
)...[aa#txt]
--,aa#txt)
--*/
select 姓名,银行账号1=left(银行账号,8),银行账号2=right(银行账号,8)
from
opendatasource('MICROSOFT.JET.OLEDB.4.0'
,'Excel 5.0;HDR=YES;IMEX=2;DATABASE=c:/a.xls'
--,Sheet1$)
)...[Sheet1$]

 

如果你想直接插入并生成文本文件,就要用bcp

declare @sql varchar(8000),@tbname varchar(50)

--首先将excel表内容导入到一个全局临时表
select @tbname='[##temp'+cast(newid() as varchar(40))+']'
        ,@sql='select 姓名,银行账号1=left(银行账号,8),银行账号2=right(银行账号,8)
into from
opendatasource(''MICROSOFT.JET.OLEDB.4.0''
,''Excel 5.0;HDR=YES;IMEX=2;DATABASE=c:/a.xls''
)...[Sheet1$]'
exec(@sql)

--然后用bcp从全局临时表导出到文本文件
set @sql='bcp "" out "c:/aa.txt" /S"(local)" /P"" /c'
exec master..xp_cmdshell @sql

--删除临时表
exec('drop table )

 

用bcp将文件导入导出到数据库的存储过程:


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

        支持image,text,ntext字段的导入/导出
        image适合于二进制文件;text,ntext适合于文本数据文件

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

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

/*--调用示例
--数据导出
        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+.bak
@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 from(
        select null as 类型
        union all select 0 as 前缀
        union all select as 长度
        union all select null as 结束
        union all select null as 格式
        ) a'
exec(@sql)
select @fname_in=@fname+'_temp'
        ,@sql='bcp "" out "
        +'" /S"
        +case when isnull(@username,'')='' then ''
                else '" /U" end
        +'" /P"'+isnull(@password,'')+'" /c'
exec master..xp_cmdshell @sql
--删除临时表
set @sql='drop table
exec(@sql)

if @isout=1
begin
        set @sql='bcp "select top 1 from '
                isnull(@tj,'') when '' then ''
                        else ' where end
                +'" queryout "
                +'" /S"
                +case when isnull(@username,'')='' then ''
                        else '" /U" end
                +'" /P"'+isnull(@password,'')
                +'" /i"
        exec master..xp_cmdshell @sql
end
else
begin
        --为数据导入准备临时表
        set @sql='select top 0 into '
                from '
        exec(@sql)

        --将数据导入到临时表
        set @sql='bcp "" in "
                +'" /S"
                +case when isnull(@username,'')='' then ''
                        else '" /U" end
                +'" /P"'+isnull(@password,'')
                +'" /i"
        exec master..xp_cmdshell @sql
       
        --将数据导入到正式表中
        set @sql='update
                +' set
                +' from a,'
                b'
                +case isnull(@tj,'') when '' then ''
                        else ' where end
        exec(@sql)

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

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

go


补充说明
/** 导入文本文件
EXEC master..xp_cmdshell 'bcp "dbname..tablename" in c:/DT.txt -c -Sservername -Usa -Ppassword'

改为如下,不需引号
EXEC master..xp_cmdshell 'bcp dbname..tablename in c:/DT.txt -c -Sservername -Usa -Ppassword'

/** 导出文本文件
EXEC master..xp_cmdshell 'bcp "dbname..tablename" out c:/DT.txt -c -Sservername -Usa -Ppassword'
此句需加引号

 

Excel文件导入数据库多个Sheet
 
if exists(select 1 from sysobjects where name=N'p_import_excel' and type='P')
drop proc p_import_excel
go
--调用示例exec p_import_excel 'c:/123.xls','Sheet1;Sheet2;Sheet3','tbl'
create proc p_import_excel
@excfilename nvarchar(100),--文件路径
@sheet nvarchar(1000), --所要导的sheet,以';'分隔,如'Sheet1;Sheet2;Sheet3'
@tblname nvarchar(100)--要导入的表名
as
begin
set @sheet=@sheet+';'
DECLARE @excsheet nvarchar(100)
while charindex(';',@sheet)>0
begin
select @excsheet=left(@sheet,charindex(';',@sheet)-1)
EXEC('SELECT * into   FROM openrowSET(''microsoft.jet.oledb.4.0'',''Excel
8.0;HDR=YES,DATABASE='+@excfileName+''',''select * from ['+@excsheet+'$]'')  ')
set @sheet=stuff(@sheet,1,charindex(';',@sheet),'')
end
end
go
 
无论excel版本是什么,在Extended Properties里都要写Excel 8.0,注意空格
HDR=yes:说明excel文件的第一行是列字,而不是数据。如果第一行也是数据的话,用HDR=no。默认值为yes
IMEX=1:就是将混合型的列转换成文本列  
注意查询语句:工作表名要用[$]框起来

/*******  导出到excel
EXEC master..xp_cmdshell 'bcp SettleDB.dbo.shanghu out c:/temp1.xls -c -q -S"GNETDATA/GNETDATA" -U"sa" -P""'
 
/***********  导入Excel
SELECT *
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:/test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions

SELECT cast(cast(科目编号 as numeric(10,2)) as nvarchar(255))+' ' 转换后的别名
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:/test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions
/** 导入文本文件
EXEC master..xp_cmdshell 'bcp "dbname..tablename" in c:/DT.txt -c -Sservername -Usa -Ppassword'
/** 导出文本文件
EXEC master..xp_cmdshell 'bcp "dbname..tablename" out c:/DT.txt -c -Sservername -Usa -Ppassword'

EXEC master..xp_cmdshell 'bcp "Select * from dbname..tablename" queryout c:/DT.txt -c -Sservername -Usa -Ppassword'
导出到TXT文本,用逗号分开
exec master..xp_cmdshell 'bcp "库名..表名" out "d:/tt.txt" -c -t ,-U sa -P password'

BULK INSERT 库名..表名
FROM 'c:/test.txt'
WITH (
    FIELDTERMINATOR = ';',
    ROWTERMINATOR = '/n'
)

--/* dBase IV文件
select * from
OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
,'dBase IV;HDR=NO;IMEX=2;DATABASE=C:/','select * from [客户资料4.dbf]')
--*/
 
--/* dBase III文件
select * from
OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
,'dBase III;HDR=NO;IMEX=2;DATABASE=C:/','select * from [客户资料3.dbf]')
--*/
 
--/* FoxPro 数据库
select * from openrowset('MSDASQL',
'Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=c:/',
'select * from [aa.DBF]')
--*/
 
/**************导入DBF文件****************/
select * from openrowset('MSDASQL',
'Driver=Microsoft Visual FoxPro Driver;
SourceDB=e:/VFP98/data;
SourceType=DBF',
'select * from customer where country != "USA" order by country')
go

/***************** 导出到DBF ***************/
如果要导出数据到已经生成结构(即现存的)FOXPRO表中,可以直接用下面的SQL语句
insert into openrowset('MSDASQL',
'Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=c:/',
'select * from [aa.DBF]')
select * from 表
说明:
SourceDB=c:/  指定foxpro表所在的文件夹
aa.DBF        指定foxpro表的文件名.
 

/*************导出到Access********************/
insert into openrowset('Microsoft.Jet.OLEDB.4.0',
   'x:/A.mdb';'admin';'',A表) select * from 数据库名..B表
 
/*************导入Access********************/
insert into B表 selet * from openrowset('Microsoft.Jet.OLEDB.4.0',
   'x:/A.mdb';'admin';'',A表)
 
*********************  导入 xml 文件
DECLARE @idoc int
DECLARE @doc varchar(1000)
--sample XML document
SET @doc ='

 
     
      Customer was very satisfied
     

  

  
     
            Important
            Happy Customer.
     

     
  


'
-- Create an internal representation of the XML document.
EXEC sp_xml_preparedocument @idoc OUTPUT, @doc
-- Execute a SELECT statement using OPENXML rowset provider.
SELECT *
FROM OPENXML (@idoc, '/root/Customer/Order', 1)
      WITH (oid     char(5),
            amount  float,
            comment ntext 'text()')
EXEC sp_xml_removedocument @idoc

原文地址: http://blog.csdn.net/minisunny/article/details/1801706
阅读(2253) | 评论(0) | 转发(1) |
给主人留下些什么吧!~~