SQL2000导入.docVIP

SQL2000导入/导出EXCEL 1。从Excel文件中,导入数据到SQL数据库中,很简单,直接用下面的语句:/*===================================================================*/--如果接受数据导入的表已经存在insert into 表 select * from OPENROWSET(MICROSOFT.JET.OLEDB.4.0,Excel 5.0;HDR=YES;DATABASE=c:\test.xls,sheet1$) --如果导入数据并生成表select * into 表 from OPENROWSET(MICROSOFT.JET.OLEDB.4.0,Excel 5.0;HDR=YES;DATABASE=c:\test.xls,sheet1$) 2。如果从SQL数据库中,导出数据到Excel,如果Excel文件已经存在,而且已经按照要接收的数据创建好表头, ? --简单的用：insert into OPENROWSET(MICROSOFT.JET.OLEDB.4.0,Excel 5.0;HDR=YES;DATABASE=c:\test.xls,sheet1$)select * from 表 --如果Excel文件不存在,也可以用BCP来导成类Excel的文件,注意大小写:--导出表的情况EXEC master..xp_cmdshell bcp 数据库名.dbo.表名 out c:\test.xls /c -/S服务器名 /U用户名 -P密码 --导出查询的情况EXEC master..xp_cmdshell bcp SELECT au_fname, au_lname FROM pubs..authors ORDER BY au_lname queryout c:\test.xls /c -/S服务器名 /U用户名 -P密码 --说明:c:\test.xls? 为导入/导出的Excel文件名.sheet1$????? 为Excel文件的工作表名,一般要加上$才能正常使用.--*/ 3。下面是导出真正Excel文件的方法: if exists (select * from dbo.sysobjects where id = object_id(N[dbo].[p_exporttb]) and OBJECTPROPERTY(id, NIsProcedure) = 1)drop procedure [dbo].[p_exporttb]GO ?p_exporttb @tbname=地区资料,@path=c:\,@fname=aa.xls--*/create proc p_exporttb@tbname sysname,????--要导出的表名@path nvarchar(1000),???--文件存放目录@fname nvarchar(250)=??--文件名,默认为表名asdeclare @err int,@src nvarchar(255),@desc nvarchar(255),@out intdeclare @obj int,@constr nvarchar(1000),@sql varchar(8000),@fdlist varchar(8000) --参数检测if isnull(@fname,)=?set @fname=@tbname+.xls --检查文件是否已经存在if right(@path,1)\ set @path=@path+\create table #tb(a bit,b bit,c bit)set @sql=@path+@fnameinsert into #tb exec master..xp_fileexist @sql --数据库创建语句set @sql=@path+@fnameif exists(select 1 from #tb where a=1)?set @constr=DRIVER={Microsoft Excel Driver (*.xls)};DSN=;READONLY=FALSE??? ???+;CREATE_DB=+@sql+;DBQ=+@sqlelse?set @constr=Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;HDR=YES????+;DATABASE=+@sql+ --连接数据库exec @err=sp_oacreate adodb.connection,@obj outif @err0 goto lberr exec @