-- 读取excel文件
-- sheet名字可能存在问题
-- 文件必需和SQL服务器在同一台机器上
select * from
OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
,'Excel 5.0;HDR=YES;IMEX=2;DATABASE=C:/1.xls',[sheet1$])
-- 读取csv等文本文件
select * from OpenRowset('MSDASQL', 'Driver={Microsoft Text Driver (*.txt; *.csv)};
DefaultDir=c:/temp;','select * from aaaa.txt')
-----------------------------------------------
--SQL语句导入导出大全- -
--Tag:SQL语句导入导出
/*导出到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 [客户资料.dbf]’)
--*/
--/* dBase III文件
select * from
OPENROWSET(’MICROSOFT.JET.OLEDB.4.0’
,’dBase III;HDR=NO;IMEX=2;DATABASE=C:/’,’select * from [客户资料.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
/********************导整个数据库*********************************************/
用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 ’+@tbname
+case when @isout=1 then ’out ’else ’in ’end
+’"’+@filename+’" /w’
+’/S ’+@servername
+case when isnull(@username,’’)=’’then ’’else ’/U ’+@username 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 ’+@tbname+’..sysobjects where xtype=’’U’’’
exec(@m_tbname)
open #tb
fetch next from #tb into @m_tbname
while @@fetch_status=0
begin
set @sql=’bcp ’+@tbname+’..’+@m_tbname
+case when @isout=1 then ’out ’else ’in ’end
+’"’+@filename+@m_tbname+’.txt " /w’
+’/S ’+@servername
+case when isnull(@username,’’)=’’then ’’else ’/U ’+@username 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位)
且银行帐号导出到文本文件后分两部分,前位和后位分开。
如果要用你上面的语句插入的话,文本文件必须存在,而且有一行:姓名,银行账号,银行账号
然后就可以用下面的语句进行插入
注意文件名和目录根据你的实际情况进行修改.
insert into
opendatasource(’MICROSOFT.JET.OLEDB.4.0’
,’Text;HDR=Yes;DATABASE=C:/’
)...[aa#txt]
--,aa#txt)
--*/
select 姓名,银行账号=left(银行账号,8),银行账号=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 姓名,银行账号=left(银行账号,8),银行账号=right(银行账号,8)
into ’+@tbname+’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 "’+@tbname+’" out "c:/aa.txt" /S"(local)" /P"" /c’
exec master..xp_cmdshell @sql
--删除临时表
exec(’drop table ’+@tbname)
--用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=’’
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
/*导入文本文件*/
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’
--此句需加引号
/*创建一个自定义函数,用来group by 以下数据
A 1
B 2
A 3
B 4
要得到以下样式:
A 1,3
B 2,4 */
Create FUNCTION dbo.GetMenth
(
@p1 nvarchar(1000)
)
RETURNS varchar(8000)
AS
BEGIN
-- Declare the return variable here
DECLARE @Result varchar(8000)
set @Result= ''
select @Result=@Result+','+rtrim(FK_CC) from CCAssignmentHistory
where FK_Client=@p1
-- Add the T-SQL statements to compute the return value here
SELECT @Result =stuff(@Result,1,1,'')
-- Return the result of the function
RETURN @Result
END
GO
if exists(select * from sysobjects where name='#temp') drop table #temp
select dbo.GetMenth(FK_Client) as Oldcc,FK_Client into #temp from CCAssignmentHistory group by FK_Client
-- 修改数据
Update Client set Oldcc=tbl.Oldcc
from
(
select FK_Client,Oldcc from #temp
)tbl
where tbl.FK_Client=Client.PKID
/*从一系列字符串里得到数字,比如:由io4muio465n4k54p得到:*/
declare @a varchar(100)
declare @i int
set @i=1
set @a='4fskfhsdk4432fjsdl'
while @i <=len(@a)
begin
if(ascii(substring(@a,@i,1))>=48 and ascii(substring(@a,@i,1))<=57)
print substring(@a,@i,1)
set @i=@i+1
end
/*
Autor: Stone.Yang
Date: 2008-08-21
Description: 自定义函数用来更改client表里的OldCC值,原Oldcc存储的值格式为'3,134,204' ,先更改为'[3,24][134,24][204,17,48,50,58,64,66,69,71,73,75]',第一个数字为FK_CC,其他的值都是相应的地区权限fk_dictionary
Test: select dbo.f_split('3,134,204',',')
*/
/*创建个自定义函数用来Split(@p1,@p2) 字符串*/
Create function f_split
(
@c nvarchar(max),
@split varchar(2)
)
returns nvarchar(max)
as
begin
Declare @center nvarchar(max)
Declare @fk_c nvarchar(max)
Declare @re nvarchar(max)
Set @re=''
while(charindex(@split,@c)<>0)
begin
Set @fk_c='' /*每次循环后让fk_cc为空*/
Set @center='' /*每次循环后让centers为空*/
set @fk_c= substring(@c,1,charindex(@split,@c)-1) /*获得FK_CC*/
select @center=@center+','+ ltrim(fk_dictionary) from UserDataPermission where fk_user=@fk_c /*获得中心*/
set @re=@re+'['+@fk_c+@center+']'
set @c = stuff(@c,1,charindex(@split,@c),'') /*每次循环后让第一个','及其前的字符为空,然后让@c再重新循环下去*/
end
Set @center='' /*每次循环后让centers为空*/
Set @fk_c=@c /*循环完成后fk_cc=@c*/
select @center=@center+','+ ltrim(fk_dictionary) from UserDataPermission where fk_user=@fk_c
set @re=@re+'['+@fk_c+@center+']'
return @re
end
go
--Test: select dbo.f_split('3,134,204',',')
Begin transaction
Update client set oldcc=tbl.result
from
(
select pkid,dbo.f_split(oldcc,',') as result from client where oldcc is not null
)tbl
where client.pkid=tbl.pkid
commit
select oldcc from client where oldcc is not null
--rollback