XiaoLian

首先，手動產生Excel檔做為輸出範本。 程式部分： <% 'Sample檔 reportfile =Server.MapPath("/client/user/客戶匯出格式.xls") '欲匯出檔 FileXLS = Server.MapPath("/client/user/客戶.xls") '檔案複製 set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.GetFile( reportfile ) f.Copy FileXLS set f=nothing : set fs=nothing sqlstr="SELECT * FROM [Customer]" set rs=Exec_Record(sqlstr) if not rs.eof then '建立Excel連線 set cn= Server.createobject("Adodb.connection") cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & FileXLS & ";" & _ "Extended Properties=""Excel 8.0;HDR=YES;""" ' 【註二】 可以自行產生標題（Excel範本無標題前提之下） do while not rs.eof '標題定義過的寫法 【註一】 'cn.Execute "INSERT INTO [MyTable] (名稱,公司電話,公司傳真) VALUES ('aaa','123','456')" 'TEST sql="INSERT INTO [ Sheet1$ ] " & _ "([名稱],[國家],[城市],[公司電話],[公...

/*列出重複出現一次以上的資料*/ SELECT 欄位名稱, COUNT(*) FROM Table_Name GROUP BY 欄位名稱 HAVING COUNT(*) > 1 COUNT(*) /*重複出現的次數*/ Ex1：找出客戶資料表中有哪些 客戶名稱重複 SELECT Company,COUNT(*) as counts FROM [Customer] GROUP BY [Company] HAVING COUNT(*) > 1 Ex2：客戶 aim 是否在客戶資料表中重複 SELECT Company,COUNT(*) as counts FROM [Customer] GROUP BY [Company] HAVING COUNT(*) > 1 and [Company] ='aim'