经过SQL语句直接实现Excel与数据库的导入导出
一、在SQL数据库中直接从Excel里面查询数据：sql
select \* from
OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
,'Excel 5.0;HDR=YES;DATABASE=c:\\test.xls',sheet1$)
二、从Excel文件中,导入数据到SQL数据库中,
shell
select \* into 表 from
 OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
 ,'Excel 5.0;HDR=YES;DATABASE=c:\\test.xls',sheet1$)
三、从SQL数据库中,导出数据到Excel(excel存在),数据库
insert into OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
 ,'Excel 5.0;HDR=YES;DATABASE=c:\\test.xls',sheet1$)
 select \* from 表
四、从SQL数据库中,导出数据到Excel(excel不存在),
服务器
\---- 导出表 EXEC master..xp\_cmdshell 'bcp 数据库名.dbo.表名 out "c: est.xls" /c -/S"服务器名" /U"用户名" -P"密码"' ---- 导出查询语句 EXEC master..xp\_cmdshell 'bcp "SELECT au\_fname, au\_lname FROM pubs..authors ORDER BY au\_lname" queryout "c: est.xls" /c -/S"服务器名" /U"用户名" -P"密码"'
五、导入导出的存储过程ide
\--下面是导出真正Excel文件的方法:（请将一下全部代码复制到存储过程当中）
ifexists (select\*from dbo.sysobjects where id \=object\_id(N'\[dbo\].\[p\_exporttb\]') andOBJECTPROPERTY(id, N'IsProcedure') \=1)
dropprocedure\[dbo\].\[p\_exporttb\]
GO
/\*\--数据导出EXCEL
 导出表中的数据到Excel,包含字段名,文件为真正的Excel文件
 ,若是文件不存在,将自动建立文件
 ,若是表不存在,将自动建立表
 基于通用性考虑,仅支持导出标准数据类型
\--邹建 2003.10(引用请保留此信息)--\*/
/\*\--调用示例
 p\_exporttb @tbname='地区资料',@path='c:',@fname='aa.xls'
\--\*/
createproc p\_exporttb
@tbname sysname, \--要导出的表名
@pathnvarchar(1000), \--文件存放目录
@fnamenvarchar(250)\=''\--文件名,默认为表名
as
declare@errint,@srcnvarchar(255),@descnvarchar(255),@outint
declare@objint,@constrnvarchar(1000),@sqlvarchar(8000),@fdlistvarchar(8000)
\--参数检测
ifisnull(@fname,'')\=''set@fname\=@tbname+'.xls'
\--检查文件是否已经存在
ifright(@path,1)<>''set@path\=@path+''
createtable #tb(a bit,b bit,c bit)
set@sql\=@path+@fname
insertinto #tb exec master..xp\_fileexist @sql
\--数据库建立语句
set@sql\=@path+@fname
ifexists(select1from #tb where a\=1)
 set@constr\='DRIVER={Microsoft Excel Driver (\*.xls)};DSN='''';READONLY=FALSE'
 +';CREATE\_DB="'+@sql+'";DBQ='+@sql
else
 set@constr\='Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties="Excel 8.0;HDR=YES'
 +';DATABASE='+@sql+'"'
\--链接数据库
exec@err\=sp\_oacreate 'adodb.connection',@obj out
if@err<>0goto lberr
exec@err\=sp\_oamethod @obj,'open',null,@constr
if@err<>0goto lberr
/\*\--若是覆盖已经存在的表,就加上下面的语句
\--建立以前先删除表/若是存在的话
select @sql='drop table \['+@tbname+'\]'
exec @err=sp\_oamethod @obj,'execute',@out out,@sql
\--\*/
\--建立表的SQL
select@sql\='',@fdlist\=''
select@fdlist\=@fdlist+',\['+a.name+'\]'
 ,@sql\=@sql+',\['+a.name+'\] '
 +case
 when b.name like'%char'
 thencasewhen a.length\>255then'memo'
 else'text('+cast(a.length asvarchar)+')'end
 when b.name like'%int'or b.name\='bit'then'int'
 when b.name like'%datetime'then'datetime'
 when b.name like'%money'then'money'
 when b.name like'%text'then'memo'
 else b.name end
FROM syscolumns a leftjoin systypes b on a.xtype\=b.xusertype
where b.name notin('image','uniqueidentifier','sql\_variant','varbinary','binary','timestamp')
 andobject\_id(@tbname)\=id
select@sql\='create table \['+@tbname
 +'\]('+substring(@sql,2,8000)+')'
 ,@fdlist\=substring(@fdlist,2,8000)
exec@err\=sp\_oamethod @obj,'execute',@out out,@sql
if@err<>0goto lberr
exec@err\=sp\_oadestroy @obj
\--导入数据
set@sql\='openrowset(''MICROSOFT.JET.OLEDB.4.0'',''Excel 8.0;HDR=YES;IMEX=1
 ;DATABASE='+@path+@fname+''',\['+@tbname+'$\])'
exec('insert into '+@sql+'('+@fdlist+') select '+@fdlist+' from '+@tbname)
return
lberr:
 exec sp\_oageterrorinfo 0,@src out,@desc out
lbexit:
 selectcast(@errasvarbinary(4)) as 错误号
 ,@srcas 错误源,@descas 错误描述
 select@sql,@constr,@fdlist
go
ifexists (select\*from dbo.sysobjects where id \=object\_id(N'\[dbo\].\[p\_exporttb\]') andOBJECTPROPERTY(id, N'IsProcedure') \=1)
dropprocedure\[dbo\].\[p\_exporttb\]
GO
/\*\--数据导出EXCEL
 导出查询中的数据到Excel,包含字段名,文件为真正的Excel文件
 若是文件不存在,将自动建立文件
 若是表不存在,将自动建立表
 基于通用性考虑,仅支持导出标准数据类型
\--邹建 2003.10(引用请保留此信息)--\*/
/\*\--调用示例
 p\_exporttb @sqlstr='select \* from 地区资料'
 ,@path='c:',@fname='aa.xls',@sheetname='地区资料'
\--\*/
createproc p\_exporttb
@sqlstrvarchar(8000), \--查询语句,若是查询语句中使用了order by ,请加上top 100 percent
@pathnvarchar(1000), \--文件存放目录
@fnamenvarchar(250), \--文件名
@sheetnamevarchar(250)\=''\--要建立的工做表名,默认为文件名
as
declare@errint,@srcnvarchar(255),@descnvarchar(255),@outint
declare@objint,@constrnvarchar(1000),@sqlvarchar(8000),@fdlistvarchar(8000)
\--参数检测
ifisnull(@fname,'')\=''set@fname\='temp.xls'
ifisnull(@sheetname,'')\=''set@sheetname\=replace(@fname,'.','#')
\--检查文件是否已经存在
ifright(@path,1)<>''set@path\=@path+''
createtable #tb(a bit,b bit,c bit)
set@sql\=@path+@fname
insertinto #tb exec master..xp\_fileexist @sql
\--数据库建立语句
set@sql\=@path+@fname
ifexists(select1from #tb where a\=1)
 set@constr\='DRIVER={Microsoft Excel Driver (\*.xls)};DSN='''';READONLY=FALSE'
 +';CREATE\_DB="'+@sql+'";DBQ='+@sql
else
 set@constr\='Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties="Excel 8.0;HDR=YES'
 +';DATABASE='+@sql+'"'
\--链接数据库
exec@err\=sp\_oacreate 'adodb.connection',@obj out
if@err<>0goto lberr
exec@err\=sp\_oamethod @obj,'open',null,@constr
if@err<>0goto lberr
\--建立表的SQL
declare@tbname sysname
set@tbname\='##tmp\_'+convert(varchar(38),newid())
set@sql\='select \* into \['+@tbname+'\] from('+@sqlstr+') a'
exec(@sql)
select@sql\='',@fdlist\=''
select@fdlist\=@fdlist+',\['+a.name+'\]'
 ,@sql\=@sql+',\['+a.name+'\] '
 +case
 when b.name like'%char'
 thencasewhen a.length\>255then'memo'
 else'text('+cast(a.length asvarchar)+')'end
 when b.name like'%int'or b.name\='bit'then'int'
 when b.name like'%datetime'then'datetime'
 when b.name like'%money'then'money'
 when b.name like'%text'then'memo'
 else b.name end
FROM tempdb..syscolumns a leftjoin tempdb..systypes b on a.xtype\=b.xusertype
where b.name notin('image','uniqueidentifier','sql\_variant','varbinary','binary','timestamp')
 and a.id\=(select id from tempdb..sysobjects where name\=@tbname)
if@@rowcount\=0return
select@sql\='create table \['+@sheetname
 +'\]('+substring(@sql,2,8000)+')'
 ,@fdlist\=substring(@fdlist,2,8000)
exec@err\=sp\_oamethod @obj,'execute',@out out,@sql
if@err<>0goto lberr
exec@err\=sp\_oadestroy @obj
\--导入数据
set@sql\='openrowset(''MICROSOFT.JET.OLEDB.4.0'',''Excel 8.0;HDR=YES
 ;DATABASE='+@path+@fname+''',\['+@sheetname+'$\])'
exec('insert into '+@sql+'('+@fdlist+') select '+@fdlist+' from \['+@tbname+'\]')
set@sql\='drop table \['+@tbname+'\]'
exec(@sql)
return
lberr:
 exec sp\_oageterrorinfo 0,@src out,@desc out
lbexit:
 selectcast(@errasvarbinary(4)) as 错误号
 ,@srcas 错误源,@descas 错误描述
 select@sql,@constr,@fdlist
go
相关文章
- 1. 导入导出mysql数据库 语句 .
- 2. .net数据库实现Excel的导入与导出
- 3. JAVA实现数据库数据导入/导出到Excel（POI）
- 4. Java实现Excel导入数据库，数据库中的数据导入到Excel
- 5. Excel数据导入Sql Server出现Null
- 6. 在javaweb中实现excel的导入导出到数据库（mysql）
- 7. SQL数据库的导入和导出
- 8. SQL server 导入数据 （excel导入到SQL server数据库）
- 9. mysql数据导入导出语句
- 10. Excel导入导出数据库
- 更多相关文章...
- • ionic 导航 - ionic 教程
- • C# 文件的输入与输出 - C#教程
- • TiDB 在摩拜单车在线数据业务的应用和实践
- • ☆基于Java Instrument的Agent实现
相关标签/搜索
每日一句
-
每一个你不满意的现在，都有一个你没有努力的曾经。
欢迎关注本站公众号,获取更多信息
