T-SQL: Delete All Values in Tables

deleteAll.sql

DECLARE @TableName NVARCHAR(128)
DECLARE @SQL NVARCHAR(500)

DECLARE TableCursor CURSOR FOR
SELECT TABLE_NAME 
FROM INFORMATION_SCHEMA.TABLES 
WHERE TABLE_TYPE = 'BASE TABLE'

OPEN TableCursor
FETCH NEXT FROM TableCursor INTO @TableName

WHILE @@FETCH_STATUS = 0
BEGIN
    SET @SQL = 'DELETE FROM  [' + @TableName + ']'
    BEGIN TRY
        EXECUTE sp_executesql @SQL
        PRINT 'Truncate table' + @TableName
    END TRY
    BEGIN CATCH
        PRINT 'Failed to truncate table ' + @TableName + '. Error message: ' + ERROR_MESSAGE()
    END CATCH
    FETCH NEXT FROM TableCursor INTO @TableName
END

CLOSE TableCursor
DEALLOCATE TableCursor