保存数据库中其他对象不变，删除数据库中所有数据的实现方法

原帖内容：
怎样把数据库中所有数据删除，然后把所有的自动增量复位？
表太多，无法手工完成。
http://community.csdn.net/Expert/topic/3094/3094555.xml?temp=.2920954

/*
--原本打算这样
--先禁用所有外键约束
exec sp_msforeachtable "alter table ? nocheck CONSTRAINT all"
--然后删除数据
exec sp_msforeachtable "truncate table ?"
--再启用所有外键约束
exec sp_msforeachtable "alter table ? check constraint all"
--但是禁用了以后，truncate table 不行，会提示冲突
*/

--现在我的想法是（语句待优化）：


--第一部分，生成建立外键的语句保存到#tmp
declare @name varchar(200),@tmp1 varchar(500),@tmp2 varchar(500)

create table #tmp
(
string varchar(8000)
)

SELECT  表名称=object_name(b.fkeyid)
 ,外键名称=a.name
 ,引用的列名=(SELECT name FROM syscolumns WHERE colid=b.fkey AND id=b.fkeyid)
 ,引用的表名=object_name(b.rkeyid)
 ,已引用的列名=(SELECT name FROM syscolumns WHERE colid=b.rkey AND id=b.rkeyid)
into #t FROM sysobjects a
 join sysforeignkeys b on a.id=b.constid
 join sysobjects c on a.parent_obj=c.id
where a.xtype=@#f@# AND c.xtype=@#U@#

declare cur_test cursor for
 select a.name from sysobjects a join sysobjects c on a.parent_obj=c.id where a.xtype=@#f@# and c.xtype=@#U@#
open cur_test
FETCH NEXT FROM cur_test INTO @name
WHILE (@@fetch_status <> -1)
BEGIN
 IF (@@fetch_status <> -2)
 BEGIN
  select @tmp1=@#@#,@tmp2=@#@#
  select @tmp1=@tmp1+@#[@#+引用的列名+@#],@#,@tmp2=@tmp2+@#[@#+已引用的列名+@#],@# from #t where 外键名称=@name
  insert into #tmp select top 1 @#ALTER TABLE [DBO].[@#+表名称+@#] ADD CONSTRAINT [@#+@name+@#] FOREIGN KEY ( @#+left(@tmp1,len(@tmp1)-1)+@# ) REFERENCES [@#+引用的表名+@#] ( @#+left(@tmp2,len(@tmp2)-1)+@# )@# from #t where 外键名称=@name
 END
 FETCH NEXT FROM cur_test INTO @name
END

CLOSE cur_test
DEALLOCATE cur_test
drop table #t

--第二部分，删除所有外键
DECLARE @STRING VARCHAR(8000)
WHILE EXISTS(SELECT NAME FROM SYSOBJECTS WHERE TYPE=@#F@#)
BEGIN
 SELECT @STRING=@#ALTER TABLE @#+B.NAME+@# DROP CONSTRAINT @#+A.NAME+CHAR(13)
  FROM (SELECT PARENT_OBJ,NAME FROM SYSOBJECTS WHERE TYPE=@#F@#) A,
        (SELECT ID,NAME FROM SYSOBJECTS WHERE OBJECTPROPERTY(ID, N@#ISUSERTABLE@#) = 1) B
    WHERE A.PARENT_OBJ=B.ID
 EXEC(@STRING)
END

--第三部分，删除所有表的记录，并且把identity复位
exec sp_msforeachtable "truncate table ?"

--第4部分，执行#tmp里面的建立外键的语句，恢复外键
declare cur_test2 cursor for select string from #tmp

open cur_test2
FETCH NEXT FROM cur_test2 INTO @string
WHILE (@@fetch_status <> -1)
BEGIN
 IF (@@fetch_status <> -2)
 BEGIN
  exec(@string)
  PRINT @STRING
 END
 FETCH NEXT FROM cur_test2 INTO @string
END

CLOSE cur_test2
DEALLOCATE cur_test2

drop table #tmp

原文转自：http://www.ltesting.net