MS SQL Server)SQL語句匯入匯出大全[轉] [2005-2-1] 標題 （MS SQL Server）SQL語句匯入匯出大全 選擇自 lchzh 的 Blog 關鍵字 （MS SQL Server）SQL語句匯入匯出大全 出處 http://dev.csdn.net/develop/article/61/61087.shtm SQL語句匯入匯出大全 /******* 匯出到excel EXEC master..xp_cmdshell ’bcp SettleDB.dbo.shanghu out c:\temp1.xls -c -q -S"GNETDATA/GNETDATA" -U"sa" -P""’ /*********** 匯入Excel SELECT * FROM OpenDataSource( ’Microsoft.Jet.OLEDB.4.0’, ’Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0’)...xactions SELECT cast(cast(科目編號 as numeric(10,2)) as nvarchar(255))+’ ’ 轉換後的別名 FROM OpenDataSource( ’Microsoft.Jet.OLEDB.4.0’, ’Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0’)...xactions /** 匯入文字檔 EXEC master..xp_cmdshell ’bcp "dbname..tablename" in c:\DT.txt -c -Sservername -Usa -Ppassword’ /** 匯出文字檔 EXEC master..xp_cmdshell ’bcp "dbname..tablename" out c:\DT.txt -c -Sservername -Usa -Ppassword’ 或 EXEC master..xp_cmdshell ’bcp "Select * from dbname..tablename" queryout c:\DT.txt -c -Sservername -Usa -Ppassword’ 匯出到TXT文本，用逗號分開 exec master..xp_cmdshell ’bcp "庫名..表名" out "d:\tt.txt" -c -t ,-U sa -P password’ BULK INSERT 庫名..表名 FROM ’c:\test.txt’ WITH ( FIELDTERMINATOR = ’;’, ROWTERMINATOR = ’\n’ ) --/* dBase IV檔案 select * from OPENROWSET(’MICROSOFT.JET.OLEDB.4.0’ ,’dBase IV;HDR=NO;IMEX=2;DATABASE=C:\’,’select * from [客戶資料4.dbf]’) --*/ --/* dBase III檔案 select * from OPENROWSET(’MICROSOFT.JET.OLEDB.4.0’ ,’dBase III;HDR=NO;IMEX=2;DATABASE=C:\’,’select * from [客戶資料3.dbf]’) --*/ --/* FoxPro 資料庫 select * from openrowset(’MSDASQL’, ’Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=c:\’, ’select * from [aa.DBF]’) --*/ /**************匯入DBF檔案****************/ select * from openrowset(’MSDASQL’, ’Driver=Microsoft Visual FoxPro Driver; SourceDB=e:\VFP98\data; SourceType=DBF’, ’select * from customer where country != "USA" order by country’) go /***************** 匯出到DBF ***************/ 如果要匯出資料到已經產生結構(即現存的)FOXPRO表中,可以直接用下面的SQL語句 insert into openrowset(’MSDASQL’, ’Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=c:\’, ’select * from [aa.DBF]’) select * from 表 說明: SourceDB=c:\ 指定foxpro表所在的檔案夾 aa.DBF 指定foxpro表的檔案名稱. /*************匯出到Access********************/ insert into openrowset(’Microsoft.Jet.OLEDB.4.0’, ’x:\A.mdb’;’admin’;’’,A表) select * from 資料庫名..B表 /*************匯入Access********************/ insert into B表 selet * from openrowset(’Microsoft.Jet.OLEDB.4.0’, ’x:\A.mdb’;’admin’;’’,A表) ********************* 匯入 xml 檔案 DECLARE @idoc int DECLARE @doc varchar(1000) --sample XML document SET @doc =’ <root> <Customer cid= "C1" name="Janine" city="Issaquah"> <Order oid="O1" date="1/20/1996" amount="3.5" /> <Order oid="O2" date="4/30/1997" amount="13.4">Customer was very satisfied </Order> </Customer> <Customer cid="C2" name="Ursula" city="Oelde" > <Order oid="O3" date="7/14/1999" amount="100" note="Wrap it blue white red"> <Urgency>Important</Urgency> Happy Customer. </Order> <Order oid="O4" date="1/20/1996" amount="10000"/> </Customer> </root> ’ -- Create an internal representation of the XML document. EXEC sp_xml_preparedocument @idoc OUTPUT, @doc -- Execute a SELECT statement using OPENXML rowset provider. SELECT * FROM OPENXML (@idoc, ’/root/Customer/Order’, 1) WITH (oid char(5), amount float, comment ntext ’text()’) EXEC sp_xml_removedocument @idoc /********************導整個資料庫*********************************************/ 用bcp實現的預存程序 /* 實現資料匯入/匯出的預存程序 根據不同的參數,可以實現匯入/匯出整個資料庫/單個表 調用樣本: --匯出調用樣本 ----匯出單個表 exec file2table ’zj’,’’,’’,’xzkh_sa..地區資料’,’c:\zj.txt’,1 ----匯出整個資料庫 exec file2table ’zj’,’’,’’,’xzkh_sa’,’C:\docman’,1 --匯入調用樣本 ----匯入單個表 exec file2table ’zj’,’’,’’,’xzkh_sa..地區資料’,’c:\zj.txt’,0 ----匯入整個資料庫 exec file2table ’zj’,’’,’’,’xzkh_sa’,’C:\docman’,0 */ if exists(select 1 from sysobjects where name=’File2Table’ and objectproperty(id,’IsProcedure’)=1) drop procedure File2Table go create procedure File2Table @servername varchar(200) --伺服器名 ,@username varchar(200) --使用者名稱,如果用NT驗證方式,則為空白’’ ,@password varchar(200) --密碼 ,@tbname varchar(500) --資料庫.dbo.表名,如果不指定:.dbo.表名,則匯出資料庫的所有使用者表 ,@filename varchar(1000) --匯入/匯出路徑/檔案名稱,如果@tbname參數指明是匯出整個資料庫,則這個參數是檔案存放路徑,檔案名稱自動用表名.txt ,@isout bit --1為匯出,0為匯入 as declare @sql varchar(8000) if @tbname like ’%.%.%’ --如果指定了表名,則直接匯出單個表 begin set @sql=’bcp ’+@tbname +case when @isout=1 then ’ out ’ else ’ in ’ end +’ "’+@filename+’" /w’ +’ /S ’+@servername +case when isnull(@username,’’)=’’ then ’’ else ’ /U ’+@username end +’ /P ’+isnull(@password,’’) exec master..xp_cmdshell @sql end else begin --匯出整個資料庫,定義遊標,取出所有的使用者表 declare @m_tbname varchar(250) if right(@filename,1)<>’\’ set @filename=@filename+’\’ set @m_tbname=’declare #tb cursor for select name from ’+@tbname+’..sysobjects where xtype=’’U’’’ exec(@m_tbname) open #tb fetch next from #tb into @m_tbname while @@fetch_status=0 begin set @sql=’bcp ’+@tbname+’..’+@m_tbname +case when @isout=1 then ’ out ’ else ’ in ’ end +’ "’+@filename+@m_tbname+’.txt " /w’ +’ /S ’+@servername +case when isnull(@username,’’)=’’ then ’’ else ’ /U ’+@username end +’ /P ’+isnull(@password,’’) exec master..xp_cmdshell @sql fetch next from #tb into @m_tbname end close #tb deallocate #tb end go /**********************Excel導到Txt****************************************/ 想用 select * into opendatasource(...) from opendatasource(...) 實現將一個Excel檔案內容匯入到一個文字檔 假設Excel中有兩列，第一列為姓名，第二列為很行帳號(16位) 且銀行帳號匯出到文字檔後分兩部分，前8位和後8位分開。 如果要用你上面的語句插入的話,文字檔必須存在,而且有一行:姓名,銀行帳號1,銀行帳號2 然後就可以用下面的語句進行插入 注意檔案名稱和目錄根據你的實際情況進行修改. insert into opendatasource(’MICROSOFT.JET.OLEDB.4.0’ ,’Text;HDR=Yes;DATABASE=C:\’ )...[aa#txt] --,aa#txt) --*/ select 姓名,銀行帳號1=left(銀行帳號,8),銀行帳號2=right(銀行帳號,8) from opendatasource(’MICROSOFT.JET.OLEDB.4.0’ ,’Excel 5.0;HDR=YES;IMEX=2;DATABASE=c:\a.xls’ --,Sheet1$) )...[Sheet1$] 如果你想直接插入並產生文字檔,就要用bcp declare @sql varchar(8000),@tbname varchar(50) --首先將excel表內容匯入到一個全域暫存資料表 select @tbname=’[##temp’+cast(newid() as varchar(40))+’]’ ,@sql=’select 姓名,銀行帳號1=left(銀行帳號,8),銀行帳號2=right(銀行帳號,8) into ’+@tbname+’ from opendatasource(’’MICROSOFT.JET.OLEDB.4.0’’ ,’’Excel 5.0;HDR=YES;IMEX=2;DATABASE=c:\a.xls’’ )...[Sheet1$]’ exec(@sql) --然後用bcp從全域暫存資料表匯出到文字檔 set @sql=’bcp "’+@tbname+’" out "c:\aa.txt" /S"(local)" /P"" /c’ exec master..xp_cmdshell @sql --刪除暫存資料表 exec(’drop table ’+@tbname) 用bcp將檔案匯入匯出到資料庫的預存程序: /*--bcp-二進位檔案的匯入匯出 支援image,text,ntext欄位的匯入/匯出 image適合於二進位檔案;text,ntext適合於文本資料檔案 注意:匯入時,將覆蓋滿足條件的所有行 匯出時,將把所有滿足條件的行也出到指定檔案中 此預存程序僅用bcp實現 鄒建 2003.08-----------------*/ /*--調用樣本 --資料匯出 exec p_binaryIO ’zj’,’’,’’,’acc_示範資料..tb’,’img’,’c:\zj1.dat’ --資料匯出 exec p_binaryIO ’zj’,’’,’’,’acc_示範資料..tb’,’img’,’c:\zj1.dat’,’’,0 --*/ if exists (select * from dbo.sysobjects where id = object_id(N’[dbo].[p_binaryIO]’) and OBJECTPROPERTY(id, N’IsProcedure’) = 1) drop procedure [dbo].[p_binaryIO] GO Create proc p_binaryIO @servename varchar (30),--伺服器名稱 @username varchar (30), --使用者名稱 @password varchar (30), --密碼 @tbname varchar (500), --資料庫..表名 @fdname varchar (30), --欄位名 @fname varchar (1000), --目錄+檔案名稱,處理過程中要使用/覆蓋:@filename+.bak @tj varchar (1000)=’’, --處理條件.對於資料匯入,如果條件中包含@fdname,請指定表名首碼 @isout bit=1 --1匯出((預設),0匯入 AS declare @fname_in varchar(1000) --bcp處理應答檔案名稱 ,@fsize varchar(20) --要處理的檔案的大小 ,@m_tbname varchar(50) --暫存資料表名 ,@sql varchar(8000) --則取得匯入檔案的大小 if @isout=1 set @fsize=’0’ else begin create table #tb(可選名 varchar(20),大小 int ,建立日期 varchar(10),建立時間 varchar(20) ,上次寫操作日期 varchar(10),上次寫操作時間 varchar(20) ,上次訪問日期 varchar(10),上次訪問時間 varchar(20),特性 int) insert into #tb exec master..xp_getfiledetails @fname select @fsize=大小 from #tb drop table #tb if @fsize is null begin print ’檔案未找到’ return end end --產生資料處理應答檔案 set @m_tbname=’[##temp’+cast(newid() as varchar(40))+’]’ set @sql=’select * into ’+@m_tbname+’ from( select null as 類型 union all select 0 as 首碼 union all select ’+@fsize+’ as 長度 union all select null as 結束 union all select null as 格式 ) a’ exec(@sql) select @fname_in=@fname+’_temp’ ,@sql=’bcp "’+@m_tbname+’" out "’+@fname_in +’" /S"’+@servename +case when isnull(@username,’’)=’’ then ’’ else ’" /U"’+@username end +’" /P"’+isnull(@password,’’)+’" /c’ exec master..xp_cmdshell @sql --刪除暫存資料表 set @sql=’drop table ’+@m_tbname exec(@sql) if @isout=1 begin set @sql=’bcp "select top 1 ’+@fdname+’ from ’ +@tbname+case isnull(@tj,’’) when ’’ then ’’ else ’ where ’+@tj end +’" queryout "’+@fname +’" /S"’+@servename +case when isnull(@username,’’)=’’ then ’’ else ’" /U"’+@username end +’" /P"’+isnull(@password,’’) +’" /i"’+@fname_in+’"’ exec master..xp_cmdshell @sql end else begin --為資料匯入準備暫存資料表 set @sql=’select top 0 ’+@fdname+’ into ’ +@m_tbname+’ from ’ +@tbname exec(@sql) --將資料匯入到暫存資料表 set @sql=’bcp "’+@m_tbname+’" in "’+@fname +’" /S"’+@servename +case when isnull(@username,’’)=’’ then ’’ else ’" /U"’+@username end +’" /P"’+isnull(@password,’’) +’" /i"’+@fname_in+’"’ exec master..xp_cmdshell @sql --將資料匯入到正式表中 set @sql=’update ’+@tbname +’ set ’+@fdname+’=b.’+@fdname +’ from ’+@tbname+’ a,’ +@m_tbname+’ b’ +case isnull(@tj,’’) when ’’ then ’’ else ’ where ’+@tj end exec(@sql) --刪除資料處理暫存資料表 set @sql=’drop table ’+@m_tbname end --刪除資料處理應答檔案 set @sql=’del ’+@fname_in exec master..xp_cmdshell @sql go /** 匯入文字檔 EXEC master..xp_cmdshell ’bcp "dbname..tablename" in c:\DT.txt -c -Sservername -Usa -Ppassword’ 改為如下，不需引號 EXEC master..xp_cmdshell ’bcp dbname..tablename in c:\DT.txt -c -Sservername -Usa -Ppassword’ /** 匯出文字檔 EXEC master..xp_cmdshell ’bcp "dbname..tablename" out c:\DT.txt -c -Sservername -Usa -Ppassword’ 此句需加引號 By [zbkid] in [程式碼程式庫] at 21:15:02 | Comments[0] | 37 views 用Asp隱藏檔案路徑,實現防盜鏈 [2005-1-30] 出處：http://siyizhu.com/blogview.asp?logID=330 如果我們知道一個靜態檔案的實際路徑如：http://www.xx.com/download/51windows.pdf，如果伺服器沒有作特別的限制設定，我們就可以毫不費力的把它下載下來！當網站提供51windows.pdf下載時，怎麼樣才能讓下載者無法得到他的實際路徑呢！本文就來介紹如何使用Asp來隱藏檔案的實際下載路徑。 我們在管理網站檔案時，可以把副檔名一樣的檔案放在同一個目錄下，起一個比較特別名字，例如放pdf檔案目錄為the_pdf_file_s，把下面代碼另存新檔down.asp，他的網上路徑為http://www.xx.com/down.asp，我們就可以用http://www.xx.com/down.asp?FileName=51windows.pdf來下載這個檔案了，而且下載者無法看到這個檔案實際下載路徑的！在down.asp中我們還可以設定下載檔案是否需要登陸，判斷下載的來源頁是否為外部網站，從而可以做到防止檔案被盜鏈。 範例程式碼: <% From_url = Cstr(Request.ServerVariables("HTTP_REFERER")) Serv_url = Cstr(Request.ServerVariables("SERVER_NAME")) if mid(From_url,8,len(Serv_url)) <> Serv_url then response.write "非法連結！" '防止盜鏈 response.end end if if Request.Cookies("Logined")="" then response.redirect "/login.asp" '需要登陸！ end if Function GetFileName(longname)'/folder1/folder2/file.asp=>file.asp while instr(longname,"/") longname = right(longname,len(longname)-1) wend GetFileName = longname End Function Dim Stream Dim Contents Dim FileName Dim TrueFileName Dim FileExt Const adTypeBinary = 1 FileName = Request.QueryString("FileName") if FileName = "" Then Response.Write "無效檔案名稱！" Response.End End if FileExt = Mid(FileName, InStrRev(FileName, ".") + 1) select Case UCase(FileExt) Case "ASP", "ASA", "ASPX", "ASAX", "MDB" Response.Write "非法操作！" Response.End End select Response.Clear if lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" then Response.ContentType = "image/*" '對影像檔不出現下載對話方塊 else Response.ContentType = "application/ms-download" end if Response.AddHeader "content-disposition", "attachment; filename=" & GetFileName(Request.QueryString("FileName")) Set Stream = server.createObject("ADODB.Stream") Stream.Type = adTypeBinary Stream.Open if lcase(right(FileName,3))="pdf" then '設定pdf類型檔案目錄 TrueFileName = "/the_pdf_file_s/"&FileName end if if lcase(right(FileName,3))="doc" then '設定DOC類型檔案目錄 TrueFileName = "/my_D_O_C_file/"&FileName end if if lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" then TrueFileName = "/all_images_/"&FileName '設定影像檔目錄 end if Stream.LoadFromFile Server.MapPath(TrueFileName) While Not Stream.EOS Response.BinaryWrite Stream.Read(1024 * 64) Wend Stream.Close Set Stream = Nothing Response.Flush Response.End %>
