对SQL Server 2000中所有表，视图，过程的GRANT权限

我想知道是否存在使用SQL Server 2000语法的T-SQL来对特定数据库的所有表和视图进行GRANT SELECT，INSERT，UPDATE，DELETE的相当有效的方法，但不包括100个对象中的2个或3个。我还希望能够对所有存储过程授予EXEC特权。

目前，我正在使用以下代码逐一更改它们。对大约100个表和100个视图执行此操作将花费太长时间，并且通过GUI花费的时间甚至更长（除非我也做错了）。

use [DATABASE_NAME]
GO
GRANT DELETE ON [dbo].[table_name]TO [user_name]
GO
use [DATABASE_NAME]
GO
GRANT INSERT ON [dbo].[table_name]TO [user_name]
GO
use [DATABASE_NAME]
GO
GRANT SELECT ON [dbo].[table_name]TO [user_name]
GO
use [DATABASE_NAME]
GO
GRANT UPDATE ON [dbo].[table_name]TO [user_name]
GO

如何使用T-SQL在所有用户表和视图之间循环以授予某些特权，同时排除几个对象？

gh，2000年。

假设所有对象归拥有dbo，您可以生成一个脚本，例如：

SELECT N'GRANT INSERT, UPDATE, DELETE, SELECT ON dbo.' + QUOTENAME(name)
  + N' TO [user];'
FROM sysobjects WHERE type IN (N'U', N'V');

SELECT N'GRANT EXECUTE ON dbo.' + QUOTENAME(name)
  + N' TO [user];'
FROM sysobjects WHERE type = N'P';

现在，您可以复制并粘贴输出，以防您要排除任何条目或进行验证。如果您只想盲目执行，则可以执行此操作，但是它依赖于<4K的任何单个命令集的内容：

DECLARE @sql NVARCHAR(4000) = N'';

SELECT @sql = @sql + N'GRANT INSERT, UPDATE, DELETE, SELECT ON dbo.' + QUOTENAME(name)
  + N' TO [user];'
FROM sysobjects WHERE type = N'U';

EXEC sp_executesql @sql;

SET @sql = N'';

SELECT @sql = @sql + N'GRANT INSERT, UPDATE, DELETE, SELECT ON dbo.' + QUOTENAME(name)
  + N' TO [user];'
FROM sysobjects WHERE type = N'V';

EXEC sp_executesql @sql;

SET @sql = N'';

SELECT @sql = @sql + N'GRANT EXECUTE ON dbo.' + QUOTENAME(name)
  + N' TO [user];'
FROM sysobjects WHERE type = N'P';

EXEC sp_executesql @sql;