亚洲韩日午夜视频,欧美日韩在线精品一区二区三区,韩国超清无码一区二区三区,亚洲国产成人影院播放,久草新在线,在线看片AV色

您好,歡迎來到思海網絡,我們將竭誠為您提供優質的服務! 誠征網絡推廣 | 網站備案 | 幫助中心 | 軟件下載 | 購買流程 | 付款方式 | 聯系我們 [ 會員登錄/注冊 ]
促銷推廣
客服中心
業務咨詢
有事點擊這里…  531199185
有事點擊這里…  61352289
點擊這里給我發消息  81721488
有事點擊這里…  376585780
有事點擊這里…  872642803
有事點擊這里…  459248018
有事點擊這里…  61352288
有事點擊這里…  380791050
技術支持
有事點擊這里…  714236853
有事點擊這里…  719304487
有事點擊這里…  1208894568
有事點擊這里…  61352289
在線客服
有事點擊這里…  531199185
有事點擊這里…  61352288
有事點擊這里…  983054746
有事點擊這里…  893984210
當前位置:首頁 >> 技術文章 >> 文章瀏覽
技術文章

SQL Server與Excel數據互導

添加時間:2013-1-4 17:20:21  添加: 思海網絡 

從SQL Server中導入/導出 Excel 的基本方法

/*=================== 導入/導出 Excel 的基本方法 ===================*/

從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$)

/*========================================================*/

--如果從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文件的工作表名,一般要加上$才能正常使用.

--*/

--上面已經說過,用BCP導出的是類Excel文件,其實質為文本文件,

--要導出真正的Excel文件.就用下面的方法

/*--數據導出EXCEL

導出表中的數據到Excel,包含字段名,文件為真正的Excel文件

,如果文件不存在,將自動創建文件

,如果表不存在,將自動創建表

基于通用性考慮,僅支持導出標準數據類型

--鄒建 2003.10--*/

/*--調用示例

p_exporttb @tbname='地區資料',@path='c:',@fname='aa.xls'

--*/

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_exporttb]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)

drop procedure [dbo].[p_exporttb]

GO

create proc p_exporttb

@tbname sysname,   --要導出的表名

@path nvarchar(1000),   --文件存放目錄

@fname nvarchar(250)='' --文件名,默認為表名

as

declare @err int,@src nvarchar(255),@desc nvarchar(255),@out int

declare @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+@fname

insert into #tb exec master..xp_fileexist @sql

--數據庫創建語句

set @sql=@path+@fname

if exists(select 1 from #tb where a=1)

set @constr='DRIVER={Microsoft Excel Driver (*.xls)};DSN='''';READONLY=FALSE'

    +';CREATE_DB="   +';DATABASE='+@sql+'"'

--連接數據庫 www.knowsky.com

exec @err=sp_oacreate 'adodb.connection',@obj out

if @err<>0 goto lberr

exec @err=sp_oamethod @obj,'open',null,@constr

if @err<>0 goto 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 in('char','nchar','varchar','nvarchar') then

  'text('+cast(case when a.length>255 then 255 else a.length end as varchar)+')'

  when b.name in('tynyint','int','bigint','tinyint') then 'int'

  when b.name in('smalldatetime','datetime') then 'datetime'

  when b.name in('money','smallmoney') then 'money'

  else b.name end

FROM syscolumns a left join systypes b on a.xtype=b.xusertype

where b.name not in('image','text','uniqueidentifier','sql_variant','ntext','varbinary','binary','timestamp')

and object_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<>0 goto lberr

exec @err=sp_oadestroy @obj

--導入數據

set @sql='openrowset(''MICROSOFT.JET.OLEDB.4.0'',''Excel 5.0;HDR=YES

 

;DATABASE='+@path+@fname+''',['+@tbname+'$])'

exec('insert into '+@sql+'('+@fdlist+') select '+@fdlist+' from '+@tbname)

return

lberr:

exec sp_oageterrorinfo 0,@src out,@desc out

lbexit:

select cast(@err as varbinary(4)) as 錯誤號

,@src as 錯誤源,@desc as 錯誤描述

select @sql,@constr,@fdlist

go

--上面是導表的,下面是導查詢語句的.

關鍵字:SQL Server、數據互導、SQL數據庫

分享到:

頂部 】 【 關閉
版權所有:佛山思海電腦網絡有限公司 ©1998-2024 All Rights Reserved.
聯系電話:(0757)22630313、22633833
中華人民共和國增值電信業務經營許可證: 粵B1.B2-20030321 備案號:粵B2-20030321-1
網站公安備案編號:44060602000007 交互式欄目專項備案編號:200303DD003  
察察 工商 網安 舉報有獎  警警  手機打開網站