Empty all tables in SQL Server

In day-by-day programmer life you need a magic script to clean up data you’ve inserted in the application you work on. Of course, you can do this by running ‘CREATE TABLE’ statements and recreate your database from scratch. This is perfect valid, but most of the times you want to keep data in some tables like: configuration tables, catalogues tables, so recreating database is not appropriate in this case.

The following script, interrogates sysobjects table to get all user tables. Then it tries to delete rows from tables. Some of the tables’ rows could be deleted most probably because of reference integrity will be broken. If so, I reiterate all tables and retrying to delete rows. This operation continues until no error is raised while deleting rows from all tables. I must admit this solution uses brute- force, but I found it very simple. I’ve tested it on medium size databases and the results were very good.

If you need to keep data in some tables, you just need to add a clause to the SQL statement getting all user tables in current database:
AND name NOT IN ('author', 'titles', ‘table X’)

SET NOCOUNT ON
DECLARE @TABLE_NAME NVARCHAR(255), @HAS_IDENTITY NUMERIC(15), @HAS_ERROR BIT

-- Create a cursor with all table names
DECLARE TABLES_CURSOR CURSOR SCROLL FOR
SELECT name
FROM sysobjects
WHERE xtype = 'U' AND name <> 'dtproperties'
--AND name NOT IN ('author', 'titles', ...)

SET @HAS_ERROR = 1
OPEN TABLES_CURSOR
WHILE @HAS_ERROR <> 0
BEGIN
       SET @HAS_ERROR = 0
       FETCH FIRST FROM TABLES_CURSOR INTO @TABLE_NAME
       WHILE @@FETCH_STATUS = 0
       BEGIN        
             EXECUTE ('DELETE ' + @TABLE_NAME)
             IF @@ERROR<>0
                    -- Table rows can't be deleted.
                    SET @HAS_ERROR = 1
             ELSE
                    BEGIN
                           --Reset identity for emptied table
                           SET @HAS_IDENTITY = (SELECT IDENT_CURRENT(@TABLE_NAME))
                           IF @HAS_IDENTITY IS NOT NULL
                           BEGIN
                                 DBCC CHECKIDENT (@TABLE_NAME, reseed, 0) WITH NO_INFOMSGS
                           END
                    END

             FETCH NEXT FROM TABLES_CURSOR INTO @TABLE_NAME
       END
END

CLOSE TABLES_CURSOR
DEALLOCATE TABLES_CURSOR

Your suggestions are welcomed.

Is this useful?