向VB.NET安装项目中的所有用户授予对SQL Server数据库的读/写权限

Question

如果不向所有用户授予读/写权限，他们将无法写入SQL Server数据库。

目前，它是手动完成的。而且手工方式对最终用户来说太麻烦了。

在VB.NET安装项目中，有没有办法在安装过程中为所有用户提供权限？

Answer 1

如果您的用户被声明为数据库用户，则可以启动该SQL脚本：

DECLARE @name NVARCHAR(128)

DECLARE @users TABLE(name NVARCHAR(128))

INSERT INTO @users
SELECT name
FROM sys.sysusers 
WHERE issqluser = 1
    AND [sid] IS NOT NULL
    AND hasdbaccess = 1
    AND name <> 'dbo'

WHILE EXISTS(SELECT 1 FROM @users)
BEGIN
    SELECT TOP 1 @name = name 
    FROM @users

    EXEC sp_addrolemember N'db_datawriter', @name
    EXEC sp_addrolemember N'db_datareader', @name

    DELETE @users 
    WHERE name = @name
END