SQL使用存储过程导入和导出Excel

《SQL使用存储过程导入和导出Excel》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、--从Excel文件中,导入数据到SQL数据库中,很简单,直接用下面的语句:/*===================================================================*/--如果接受数据导入的表已经存在insertinto表select*fromOPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel5.0;HDR=YES;DATABASE=c:test.xls',sheet1$)--如果导入数据并生成表select*into表fromOPENROWSET('MICROSOFT.JET.OLEDB.4.0','Ex

2、cel5.0;HDR=YES;DATABASE=c:test.xls',sheet1$)/*===================================================================*/--如果从SQL数据库中,导出数据到Excel,如果Excel文件已经存在,而且已经按照要接收的数据创建好表头,就可以简单的用:insertintoOPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel5.0;HDR=YES;DATABASE=c:test.xls',sheet1$)select*from表--如果Excel文件不存

3、在,也可以用BCP来导成类Excel的文件,注意大小写:--导出表的情况EXECmaster..xp_cmdshell'bcp数据库名.dbo.表名out"c:test.xls"/c-/S"服务器名"/U"用户名"-P"密码"'--导出查询的情况EXECmaster..xp_cmdshell'bcp"SELECTau_fname,au_lnameFROMpubs..authorsORDERBYau_lname"queryout"c:test.xls"/c-/S"服务器名"/U"用户名"-P"密码"'/*--说明:c:test.xls  为导入/导出的Excel文件名.sheet1$   

4、   为Excel文件的工作表名,一般要加上$才能正常使用.--*/--下面是导出真正Excel文件的方法:ifexists(select*fromdbo.sysobjectswhereid=object_id(N'[dbo].[p_exporttb]')andOBJECTPROPERTY(id,N'IsProcedure')=1)dropprocedure[dbo].[p_exporttb]GO/*--数据导出EXCEL导出表中的数据到Excel,包含字段名,文件为真正的Excel文件,如果文件不存在,将自动创建文件,如果表不存在,将自动创建表基于通用性考虑,仅支持导出标准数据类型--邹建2

5、003.10(引用请保留此信息)--*//*--调用示例p_exporttb@tbname='地区资料',@path='c:',@fname='aa.xls'--*/createprocp_exporttb@tbnamesysname,    --要导出的表名@pathnvarchar(1000),   --文件存放目录@fnamenvarchar(250)=''  --文件名,默认为表名asdeclare@errint,@srcnvarchar(255),@descnvarchar(255),@outintdeclare@objint,@constrnvarchar(1000),@sqlv

6、archar(8000),@fdlistvarchar(8000)--参数检测ifisnull(@fname,'')=''set@fname=@tbname+'.xls'--检查文件是否已经存在ifright(@path,1)<>''set@path=@path+''createtable#tb(abit,bbit,cbit)set@sql=@path+@fnameinsertinto#tbexecmaster..xp_fileexist@sql--数据库创建语句set@sql=@path+@fnameifexists(select1from#tbwherea=1)set@constr='

7、DRIVER={MicrosoftExcelDriver(*.xls)};DSN='''';READONLY=FALSE'       +';CREATE_DB="'+@sql+'";DBQ='+@sqlelseset@constr='Provider=Microsoft.Jet.OLEDB.4.0;ExtendedProperties="Excel8.0;HDR=YES'    +';DATAB