天天看點

SQL SERVER 與ACCESS、EXCEL的資料導入導出轉換

* 說明:複制表(隻複制結構,源表名:a 新表名:b)

      select * into b from a where 1<>1

    * 說明:拷貝表(拷貝資料,源表名:a 目标表名:b)

      insert into b(a, b, c) select d,e,f from b;

    * 說明:顯示文章、送出人和最後回複時間

      select a.title,a.username,b.adddate from table a,(select max(adddate) adddate from table where table.title=a.title) b

    * 說明:外連接配接查詢(表名1:a 表名2:b)

      select a.a, a.b, a.c, b.c, b.d, b.f from a LEFT OUT JOIN b ON a.a = b.c

    * 說明:日程安排提前五分鐘提醒

      select * from 日程安排 where datediff('minute',f開始時間,getdate())>5

    * 說明:兩張關聯表,删除主表中已經在副表中沒有的資訊

      delete from info where not exists ( select * from infobz where info.infid=infobz.infid )

    * 說明:--

      SQL:

      SELECT A.NUM, A.NAME, B.UPD_DATE, B.PREV_UPD_DATE

      FROM TABLE1,

      (SELECT X.NUM, X.UPD_DATE, Y.UPD_DATE PREV_UPD_DATE

      FROM (SELECT NUM, UPD_DATE, INBOUND_QTY, STOCK_ONHAND

      FROM TABLE2

      WHERE TO_CHAR(UPD_DATE,'YYYY/MM') = TO_CHAR(SYSDATE, 'YYYY/MM')) X,

      (SELECT NUM, UPD_DATE, STOCK_ONHAND

      WHERE TO_CHAR(UPD_DATE,'YYYY/MM') =

      TO_CHAR(TO_DATE(TO_CHAR(SYSDATE, 'YYYY/MM') || '/01','YYYY/MM/DD') - 1, 'YYYY/MM') ) Y,

      WHERE X.NUM = Y.NUM (+)

      AND X.INBOUND_QTY + NVL(Y.STOCK_ONHAND,0) <> X.STOCK_ONHAND ) B

      WHERE A.NUM = B.NUM

      select * from studentinfo where not exists(select * from student where studentinfo.id=student.id) and 系名稱='"&strdepartmentname&"' and 專業名稱='"&strprofessionname&"' order by 性别,生源地,聯考總成績

    * 從資料庫中去一年的各機關電話費統計(電話費定額賀電化肥清單兩個表來源)

      SELECT a.userper, a.tel, a.standfee, TO_CHAR(a.telfeedate, 'yyyy') AS telyear,

      SUM(decode(TO_CHAR(a.telfeedate, 'mm'), '01', a.factration)) AS JAN,

      SUM(decode(TO_CHAR(a.telfeedate, 'mm'), '02', a.factration)) AS FRI,

      SUM(decode(TO_CHAR(a.telfeedate, 'mm'), '03', a.factration)) AS MAR,

      SUM(decode(TO_CHAR(a.telfeedate, 'mm'), '04', a.factration)) AS APR,

      SUM(decode(TO_CHAR(a.telfeedate, 'mm'), '05', a.factration)) AS MAY,

      SUM(decode(TO_CHAR(a.telfeedate, 'mm'), '06', a.factration)) AS JUE,

      SUM(decode(TO_CHAR(a.telfeedate, 'mm'), '07', a.factration)) AS JUL,

      SUM(decode(TO_CHAR(a.telfeedate, 'mm'), '08', a.factration)) AS AGU,

      SUM(decode(TO_CHAR(a.telfeedate, 'mm'), '09', a.factration)) AS SEP,

      SUM(decode(TO_CHAR(a.telfeedate, 'mm'), '10', a.factration)) AS OCT,

      SUM(decode(TO_CHAR(a.telfeedate, 'mm'), '11', a.factration)) AS NOV,

      SUM(decode(TO_CHAR(a.telfeedate, 'mm'), '12', a.factration)) AS DEC

      FROM (SELECT a.userper, a.tel, a.standfee, b.telfeedate, b.factration

      FROM TELFEESTAND a, TELFEE b

      WHERE a.tel = b.telfax) a

      GROUP BY a.userper, a.tel, a.standfee, TO_CHAR(a.telfeedate, 'yyyy')

    * 說明:四表聯查問題

      select * from a left inner join b on a.a=b.b right inner join c on a.a=c.c inner join d on a.a=d.d where ..

    * 說明:得到表中最小的未使用的ID号

    * SELECT (CASE WHEN EXISTS(SELECT * FROM Handle b WHERE b.HandleID = 1) THEN MIN(HandleID) + 1 ELSE 1 END) as HandleID  FROM Handle WHERE NOT HandleID IN (SELECT a.HandleID - 1 FROM Handle a)

    * 一個SQL語句的問題:行列轉換

      select * from v_temp

      上面的視圖結果如下:

      user_name role_name

      -------------------------

      系統管理者 管理者

      feng 管理者

      feng 一般使用者

      test 一般使用者

      想把結果變成這樣:

      ---------------------------

      系統管理者 管理者

      feng 管理者,一般使用者

      ===================

      create table a_test(name varchar(20),role2 varchar(20))

      insert into a_test values('李','管理者')

      insert into a_test values('張','管理者')

      insert into a_test values('張','一般使用者')

      insert into a_test values('常','一般使用者')

      create function join_str(@content varchar(100))

      returns varchar(2000)

      as

      begin

      declare @str varchar(2000)

      set @str=''

      select @str=@str+','+rtrim(role2) from a_test where [name]=@content

      select @str=right(@str,len(@str)-1)

      return @str

      end

      go

      --調用:

      select [name],dbo.join_str([name]) role2 from a_test group by [name]

      --select distinct name,dbo.uf_test(name) from a_test

    * 快速比較結構相同的兩表

      結構相同的兩表,一表有記錄3萬條左右,一表有記錄2萬條左右,我怎樣快速查找兩表的不同記錄?

      ============================

      給你一個測試方法,從northwind中的orders表取資料。

      select * into n1 from orders

      select * into n2 from orders

      select * from n1

      select * from n2

      --添加主鍵,然後修改n1中若幹字段的若幹條

      alter table n1 add constraint pk_n1_id primary key (OrderID)

      alter table n2 add constraint pk_n2_id primary key (OrderID)

      select OrderID from (select * from n1 union select * from n2) a group by OrderID having count(*) > 1

      應該可以,而且将不同的記錄的ID顯示出來。

      下面的适用于雙方記錄一樣的情況,

      select * from n1 where orderid in (select OrderID from (select * from n1 union select * from n2) a group by OrderID having count(*) > 1)

      至于雙方互不存在的記錄是比較好處理的

      --删除n1,n2中若幹條記錄

      delete from n1 where orderID in ('10728','10730')

      delete from n2 where orderID in ('11000','11001')

      --*************************************************************

      -- 雙方都有該記錄卻不完全相同

      select * from n1 where orderid in(select OrderID from (select * from n1 union select * from n2) a group by OrderID having count(*) > 1)

      union

      --n2中存在但在n1中不存的在10728,10730

      select * from n1 where OrderID not in (select OrderID from n2)

      --n1中存在但在n2中不存的在11000,11001

      select * from n2 where OrderID not in (select OrderID from n1)

    * 四種方法取表裡n到m條紀錄:

      1.

      select top m * into 臨時表(或表變量) from tablename order by columnname -- 将top m筆插入

      set rowcount n

      select * from 表變量 order by columnname desc

      2.

      select top n * from (select top m * from tablename order by columnname) a order by columnname desc

      3.如果tablename裡沒有其他identity列,那麼:

      select identity(int) id0,* into #temp from tablename

      取n到m條的語句為:

      select * from #temp where id0 >=n and id0 <= m

      如果你在執行select identity(int) id0,* into #temp from tablename這條語句的時候報錯,那是因為你的DB中間的select into/bulkcopy屬性沒有打開要先執行:

      exec sp_dboption 你的DB名字,'select into/bulkcopy',true

      4.如果表裡有identity屬性,那麼簡單:

      select * from tablename where identitycol between n and m

    * 如何删除一個表中重複的記錄?

      create table a_dist(id int,name varchar(20))

      insert into a_dist values(1,'abc')

      insert into a_dist values(1,'abc')

      exec up_distinct 'a_dist','id'

      select * from a_dist

      create procedure up_distinct(@t_name varchar(30),@f_key varchar(30))

      --f_key表示是分組字段﹐即主鍵字段

      as

      declare @max integer,@id varchar(30) ,@sql varchar(7999) ,@type integer

      select @sql = 'declare cur_rows cursor for select

'+@f_key+'

,count(*) from '

+@t_name

+' group by '

+@f_key

+' having count(*) > 1'

      exec(@sql)

      open cur_rows

      fetch cur_rows into @id,@max

      while @@fetch_status=0

      select @max = @max -1

      set rowcount @max

      select @type = xtype from syscolumns where id=object_id(@t_name) and

name=@f_key

      if @type=56

      select @sql = 'delete from

'+@t_name+'

where ' + @f_key+' = '+ @id

      if @type=167

where ' + @f_key+' = '+''''+ @id +''''

      end

      close cur_rows

      deallocate cur_rows

      set rowcount 0

      select * from systypes

      select * from syscolumns where id = object_id('a_dist')

    * 查詢資料的最大排序問題(隻能用一條語句寫)

      CREATE TABLE hard (qu char (11) ,co char (11) ,je numeric(3, 0))

      insert into hard values ('A','1',3)

      insert into hard values ('A','2',4)

      insert into hard values ('A','4',2)

      insert into hard values ('A','6',9)

      insert into hard values ('B','1',4)

      insert into hard values ('B','2',5)

      insert into hard values ('B','3',6)

      insert into hard values ('C','3',4)

      insert into hard values ('C','6',7)

      insert into hard values ('C','2',3)

      要求查詢出來的結果如下:

      qu co je

      ----------- ----------- -----

      A 6 9

      A 2 4

      B 3 6

      B 2 5

      C 6 7

      C 3 4

      就是要按qu分組,每組中取je最大的前2位!!

      而且隻能用一句sql語句!!!

      select * from hard a where je in (select top 2 je from hard b where a.qu=b.qu order by je)

    * 求删除重複記錄的sql語句?

      怎樣把具有相同字段的紀錄删除,隻留下一條。

      例如,表test裡有id,name字段

      如果有name相同的記錄 隻留下一條,其餘的删除。

      name的内容不定,相同的記錄數不定。

      有沒有這樣的sql語句?

      ==============================

      A:一個完整的解決方案:

      将重複的記錄記入temp1表:

      select [标志字段id],count(*) into temp1 from [表名]

      group by [标志字段id]

      having count(*)>1

      2、将不重複的記錄記入temp1表:

      insert temp1 select [标志字段id],count(*) from [表名] group by [标志字段id] having count(*)=1

      3、作一個包含所有不重複記錄的表:

      select * into temp2 from [表名] where 标志字段id in(select 标志字段id from temp1)

      4、删除重複表:

      delete [表名]

      5、恢複表:

      insert [表名] select * from temp2

      6、删除臨時表:

      drop table temp1

      drop table temp2

      ================================

      B:

    * 行列轉換--普通

      假設有張學生成績表(CJ)如下

      Name Subject Result

      張三 國文 80

      張三 數學 90

      張三 實體 85

      李四 國文 85

      李四 數學 92

      李四 實體 82

      想變成

      姓名 國文 數學 實體

      張三 80 90 85

      李四 85 92 82

      declare @sql varchar(4000)

      set @sql = 'select Name'

      select @sql = @sql + ',sum(case Subject when '''+Subject+''' then Result end) ['+Subject+']'

      from (select distinct Subject from CJ) as a

      select @sql = @sql+' from test group by name'

      行列轉換--合并

      有表A,

      id pid

      1 1

      1 2

      1 3

      2 1

      2 2

      3 1

      如何化成表B:

      1 1,2,3

      2 1,2

      建立一個合并的函數

      create function fmerg(@id int)

      returns varchar(8000)

      declare @str varchar(8000)

      set @str=''

      select @str=@str+','+cast(pid as varchar) from 表A where

id=@id

      set @str=right(@str,len(@str)-1)

      return(@str)

      End

      --調用自定義函數得到結果

      select distinct id,dbo.fmerg(id) from 表A

    * 如何取得一個資料表的所有列名

      方法如下:先從SYSTEMOBJECT系統表中取得資料表的SYSTEMID,然後再SYSCOLUMN表中取得該資料表的所有列名。

      SQL語句如下:

      declare @objid int,@objname char(40)

      set @objname = 'tablename'

      select @objid = id from sysobjects where id = object_id(@objname)

      select 'Column_name' = name from syscolumns where id = @objid order by colid

      或

      SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME ='users'

    * 通過SQL語句來更改使用者的密碼

      修改别人的,需要sysadmin role

      EXEC sp_password NULL, 'newpassword', 'User'

      如果帳号為SA執行EXEC sp_password NULL, 'newpassword', sa

    * 怎麼判斷出一個表的哪些字段不允許為空?

      select COLUMN_NAME from INFORMATION_SCHEMA.COLUMNS where IS_NULLABLE='NO' and TABLE_NAME=tablename

    * 如何在資料庫裡找到含有相同字段的表?

      a. 查已知列名的情況

      SELECT b.name as TableName,a.name as columnname

      From syscolumns a INNER JOIN sysobjects b

      ON a.id=b.id

      AND b.type='U'

      AND a.name='你的字段名字'

    * 未知列名查所有在不同表出現過的列名

      Select o.name As tablename,s1.name As columnname

      From syscolumns s1, sysobjects o

      Where s1.id = o.id

      And o.type = 'U'

      And Exists (

      Select 1 From syscolumns s2

      Where s1.name = s2.name

      And s1.id <> s2.id

      )

    * 查詢第xxx行資料

      假設id是主鍵:

      select * from (select top xxx * from yourtable) aa where not exists(select 1 from (select top xxx-1 * from yourtable) bb where aa.id=bb.id)

      如果使用遊标也是可以的

      fetch absolute [number] from [cursor_name]

      行數為絕對行數

    * SQL Server日期計算

      a. 一個月的第一天

      SELECT DATEADD(mm, DATEDIFF(mm,0,getdate()), 0)

      b. 本周的星期一

      SELECT DATEADD(wk, DATEDIFF(wk,0,getdate()), 0)

      c. 一年的第一天

      SELECT DATEADD(yy, DATEDIFF(yy,0,getdate()), 0)

      d. 季度的第一天

      SELECT DATEADD(qq, DATEDIFF(qq,0,getdate()), 0)

      e. 上個月的最後一天

      SELECT dateadd(ms,-3,DATEADD(mm, DATEDIFF(mm,0,getdate()), 0))

      f. 去年的最後一天

      SELECT dateadd(ms,-3,DATEADD(yy, DATEDIFF(yy,0,getdate()), 0))

      g. 本月的最後一天

      SELECT dateadd(ms,-3,DATEADD(mm, DATEDIFF(m,0,getdate())+1, 0))

      h. 本月的第一個星期一

      select DATEADD(wk, DATEDIFF(wk,0,

      dateadd(dd,6-datepart(day,getdate()),getdate())

      ), 0)

      i. 本年的最後一天

      SELECT dateadd(ms,-3,DATEADD(yy, DATEDIFF(yy,0,getdate())+1, 0))。

    * 擷取表結構[把 'sysobjects' 替換 成 'tablename' 即可]

      SELECT CASE IsNull(I.name, '')

      When '' Then ''

      Else '*'

      End as IsPK,

      Object_Name(A.id) as t_name,

      A.name as c_name,

      IsNull(SubString(M.text, 1, 254), '') as pbc_init,

      T.name as F_DataType,

      CASE IsNull(TYPEPROPERTY(T.name, 'Scale'), '')

      WHEN '' Then Cast(A.prec as varchar)

      ELSE Cast(A.prec as varchar) + ',' + Cast(A.scale as varchar)

      END as F_Scale,

      A.isnullable as F_isNullAble

      FROM Syscolumns as A

      JOIN Systypes as T

      ON (A.xType = T.xUserType AND A.Id = Object_id('sysobjects') )

      LEFT JOIN ( SysIndexes as I

      JOIN Syscolumns as A1

      ON ( I.id = A1.id and A1.id = object_id('sysobjects') and (I.status & 0x800) = 0x800 AND A1.colid <= I.keycnt) )

      ON ( A.id = I.id AND A.name = index_col('sysobjects', I.indid, A1.colid) )

      LEFT JOIN SysComments as M

      ON ( M.id = A.cdefault and ObjectProperty(A.cdefault, 'IsConstraint') = 1 )

      ORDER BY A.Colid ASC

    * 提取資料庫内所有表的字段詳細說明的SQL語句

      SELECT

      (case when a.colorder=1 then d.name else '' end) N'表名',

      a.colorder N'字段序号',

      a.name N'字段名',

      (case when COLUMNPROPERTY( a.id,a.name,'IsIdentity')=1 then '√'else ''

      end) N'辨別',

      (case when (SELECT count(*)

      FROM sysobjects

      WHERE (name in

      (SELECT name

      FROM sysindexes

      WHERE (id = a.id) AND (indid in

      (SELECT indid

      FROM sysindexkeys

      WHERE (id = a.id) AND (colid in

      (SELECT colid

      FROM syscolumns

      WHERE (id = a.id) AND (name = a.name))))))) AND

      (xtype = 'PK'))>0 then '√' else '' end) N'主鍵',

      b.name N'類型',

      a.length N'占用位元組數',

      COLUMNPROPERTY(a.id,a.name,'PRECISION') as N'長度',

      isnull(COLUMNPROPERTY(a.id,a.name,'Scale'),0) as N'小數位數',

      (case when a.isnullable=1 then '√'else '' end) N'允許空',

      isnull(e.text,'') N'預設值',

      isnull(g.[value],'') AS N'字段說明'

      FROM syscolumns a

      left join systypes b

      on a.xtype=b.xusertype

      inner join sysobjects d

      on a.id=d.id and d.xtype='U' and d.name<>'dtproperties'

      left join syscomments e

      on a.cdefault=e.id

      left join sysproperties g

      on a.id=g.id AND a.colid = g.smallid

      order by object_name(a.id),a.colorder

    * 快速擷取表test的記錄總數[對大容量表非常有效]

      快速擷取表test的記錄總數:

      select rows from sysindexes where id = object_id('test') and indid in (0,1)

      update 2 set KHXH=(ID+1)\2 2行遞增編号

      update [23] set id1 = 'No.'+right('00000000'+id,6) where id not like 'No%' //遞增

      update [23] set id1= 'No.'+right('00000000'+replace(id1,'No.',''),6) //補位遞增

      delete from [1] where (id%2)=1

      奇數

    * 替換表名字段

      update [1] set domurl = replace(domurl,'Upload/Imgswf/','Upload/Photo/') where domurl like '%Upload/Imgswf/%'

    * 截位

      SELECT LEFT(表名, 5)

 熟悉SQL SERVER 2000的資料庫管理者都知道,其DTS可以進行資料的導入導出,其實,我們也可以使用Transact-SQL語句進行導入導出操作。在 Transact-SQL語句中,我們主要使用OpenDataSource函數、OPENROWSET 函數,關于函數的詳細說明,請參考SQL聯機幫助。利用下述方法,可以十分容易地實作SQL SERVER、ACCESS、EXCEL資料轉換,詳細說明如下:

一、SQL SERVER 和ACCESS的資料導入導出

正常的資料導入導出:

使用DTS向導遷移你的Access資料到SQL Server,你可以使用這些步驟:

  ○1在SQL SERVER企業管理器中的Tools(工具)菜單上,選擇Data Transformation

  ○2Services(資料轉換服務),然後選擇  czdImport Data(導入資料)。

  ○3在Choose a Data Source(選擇資料源)對話框中選擇Microsoft Access as the Source,然後鍵入你的.mdb資料庫(.mdb檔案擴充名)的檔案名或通過浏覽尋找該檔案。

  ○4在Choose a Destination(選擇目标)對話框中,選擇Microsoft OLE DB Prov ider for SQL Server,選擇資料庫伺服器,然後單擊必要的驗證方式。

  ○5在Specify Table Copy(指定表格複制)或Query(查詢)對話框中,單擊Copy tables(複制表格)。

    ○6在Select Source Tables(選擇源表格)對話框中,單擊Select All(全部標明)。下一步,完成。

Transact-SQL語句進行導入導出:

1.在SQL SERVER裡查詢access資料:

SELECT * FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source="c:\DB.mdb";User ID=Admin;Password=')表名

2.将access導入SQL server

在SQL SERVER 裡運作:

SELECT * INTO newtable FROM OPENDATASOURCE ('Microsoft.Jet.OLEDB.4.0','Data Source="c:\DB.mdb";User ID=Admin;Password=' )...表名

3.将SQL SERVER表裡的資料插入到Access表中

在SQL SERVER 裡運作:

insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=" c:\DB.mdb";User ID=Admin;Password=')...表名 (列名1,列名2) select 列名1,列名2  from  sql表

執行個體:

insert into  OPENROWSET('Microsoft.Jet.OLEDB.4.0','C:\db.mdb';'admin';'', Test) select id,name from Test

INSERT INTO OPENROWSET('Microsoft.Jet.OLEDB.4.0', 'c:\trade.mdb'; 'admin'; '', 表名) SELECT * FROM sqltablename

二、SQL SERVER 和EXCEL的資料導入導出

1、在SQL SERVER裡查詢Excel資料:

SELECT * FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')[Sheet1$]

下面是個查詢的示例,它通過用于 Jet 的 OLE DB 提供程式查詢 Excel 電子表格。

SELECT * FROM OpenDataSource ( 'Microsoft.Jet.OLEDB.4.0','Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions

2、将Excel的資料導入SQL server :

SELECT * into newtable FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]

執行個體:

SELECT * into newtable FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions

3、将SQL SERVER中查詢到的資料導成一個Excel檔案

T-SQL代碼:

EXEC master..xp_cmdshell 'bcp 庫名.dbo.表名out c:\Temp.xls -c -q -S"servername" -U"sa" -P""'

參數:S 是SQL伺服器名;U是使用者;P是密碼

說明:還可以導出文本檔案等多種格式

執行個體:EXEC master..xp_cmdshell 'bcp saletesttmp.dbo.CusAccount out c:\temp1.xls -c -q -S"pmserver" -U"sa" -P"sa"'

EXEC master..xp_cmdshell 'bcp "SELECT au_fname, au_lname FROM pubs..authors ORDER BY au_lname" queryout C:\ authors.xls -c -Sservername -Usa -Ppassword'

在VB6中應用ADO導出EXCEL檔案代碼:

Dim cn  As New ADODB.Connection

cn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"

cn.execute "master..xp_cmdshell 'bcp "SELECT col1, col2 FROM 庫名.dbo.表名" queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"

4、在SQL SERVER裡往Excel插入資料:

insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source="c:\Temp.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...table1 (A1,A2,A3) values (1,2,3)

作者:

從此啟程/範存威

出處:

http://www.cnblogs.com/fancunwei/

本文版權歸作者和部落格園共有,歡迎轉載,但未經作者同意必須保留此段聲明,且在文章頁面明顯位置給出原文連結。如文章對您有用,煩請點個推薦再走,感謝! 本部落格新開通打賞,滑鼠移到右側打賞浮動處,即可賞部落客點零花錢,感謝您的支援!