原创 將表或查詢存儲爲標準的XML文件

/*--存爲XML 將表/查詢存儲爲標準的XML文件--*/ /*--調用示例 --用SQL用winows身份驗證的情況 exec p_savexml @sql='地區資料',@fname='c:/地區資料.xml'  --用指定的用戶 

原创 應用實例,生成1000個5位的不重複隨機數

表的字段爲: ID、會員卡號、卡類型、密碼 會員卡   13000張   卡號不能重複卡號要求爲:長度爲12位數   2000001013000——2000001000001密碼隨機生成 貴賓卡:5000張  卡號不能重複卡號要求爲:長度

原创 C#中的Action和Func和Predicate

其實他們都是委託【代理】的簡寫形式。 一、【action<>】指定那些只有輸入參數,沒有返回值的委託 namespace EventDemo { class Program { public delegat

原创 數據庫數據複製

/*--數據庫數據複製  將一個數據庫中的數據複製到另一個數據庫 如果某列在目標數據庫中爲標識列,將不會被複制  適用範圍:數據庫結構發生了變化,想將舊數據庫進行升級  這樣就可以根據新的數據庫結構創建一個空庫,然後  將舊數據庫的所有數

原创 逐記錄導出text ntext字段值爲文本文件

--測試數據create table tb(id varchar(50) primary key,detail text)insert tb select 'aaa','11111'union all select 'bbb','4342

原创 壓縮數據庫的通用存儲過程

經常在CSDN上看到網友發帖說,壓縮日誌文件處理不當,導致數據庫損壞,甚至不能恢復數據,於是就寫了一個通用的數據庫日誌文件壓縮的存儲過程來解決此問題: /*--壓縮數據庫的通用存儲過程  壓縮日誌及數據庫文件大小 因爲要對數據庫進行分離處

原创 模擬字符串處理函數 stuff 處理 Ntext 字段

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

原创 利用SQL移動硬盤文件

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

原创 自動遷離的腳本(自動實現分離+複製文件+附加)

改系統表方法的具體實現腳本:-- 自動遷離的腳本(自動實現分離+複製文件+附加) -- 注意根據需要修改下面的--** 註釋的部分. -- 鄒建2006.07 (引用請保留此信息)  --步驟1-- 備份數目錄信息和分離數據庫IF OBJ

原创 以下代碼生成的編號長度爲12,前6位爲日期信息,格式爲YYMMDD,後6位爲流水號

引用鄒建的:--以下代碼生成的編號長度爲12,前6位爲日期信息,格式爲YYMMDD,後6位爲流水號。--創建得到當前日期的視圖CREATE VIEW v_GetDateASSELECT dt=CONVERT(CHAR(6),GETDATE

原创 用存儲過程實現的分頁程序

/*--用存儲過程實現的分頁程序  顯示指定表、視圖、查詢結果的第X頁 對於表中主鍵或標識列的情況,直接從原表取數查詢,其它情況使用臨時表的方法 如果視圖或查詢結果中有主鍵,不推薦此方法 --*/ /*--調用示例 exec p_show

原创 小寫金額轉換成大寫

--函數/********************************************************功能:小寫金額轉換成大寫參數:n_LowerMoney 小寫金額v_TransType 種類 -- 1: direc

原创 特殊日期加減函數

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[f_DateADD]') and xtype in (N'FN', N'IF', N'TF')) 

原创 在文本文件中追加數據

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

原创 顯示數據庫中的表結構(新增了索引及表的描述信息)

SELECT  表名=case when a.colorder=1 then d.name else '' end, 表說明=case when a.colorder=1 then isnull(f.value,'') else '' e