怎样建一个登录，使其只能读取某个数据库的某个表？

zlp321002(逮捕令) ( ) :
--把游标部分,修改你要的表名就可以了!参考:
/**********************************************************************
存储过程:  P_SYSTEM_GrantRoleToAllUserTable
功能:         为数据库添加角色,赋予该角色对所有用户表的查询条件、
                  添加登录用户、设置默认密码、默认数据库
                  为登录用户设置安全帐号
                  添加安全帐号为角色的成员

参数:        角色名称 (@RoleName)
                 登录用户名(@LoginUserName)
                 登录密码(@LoginUserPwd)
                 默认数据库(@DbName)
                 安全帐号(@SafeAccount)
  
返回:        无
调用方法:
                  完成如下功能：
                  添加角色: "Test_Role" 对数据库 "Test" 所有表查询权限
                 添加登录用户:  在"TEST"数据库中添加,"LVPIN" 和密码 "B78ECA8C3C"
                 为登录用户 "LVPIN"添加安全帐号"Test_SafeAccount"
                  添加安全帐号为角色成员
 
  调用如下：
  P_SYSTEM_GrantRoleToAllUserTable 'Test_Role','LVPIN','B78ECA8C3C','TEST','Test_SafeAccount'
 疑问联系:        zlp321001@hotmail.com
最后更改日期: 2005-12-29 
**********************************************************************/

Create PROC P_SYSTEM_GrantRoleToAllUserTable
@RoleName  varchar(20),
@LoginUserName  varchar(10),
@LoginUserPwd   varchar(10),
@DbName  varchar(20),
@SafeAccount  varchar(10)
WITH ENCRYPTION
AS
Begin
--创建角色
EXEC sp_addrole @RoleName
--授予数据库中所有用户表查询权限给某一个角色
declare @UserTablename varchar(20)
Declare Cur Cursor For
     select Name from sysobjects where xtype='u' and status>=0 and Name='指定的表'
declare @SQL Varchar(200)
Open Cur
Fetch Cur Into @UserTablename
While @@FETCH_STATUS=0
         BEGIN
                Set @sql='GRANT SELECT ON '+@UserTablename+' TO '+@RoleName+''
  Exec(@sql)
                Fetch Cur Into @UserTablename
         End
Close Cur
Deallocate cur
--添加登录,设置密码,默认数据库
EXEC sp_addlogin @LoginUserName,@LoginUserPwd,@DbName
--为登录在数据库中添加安全账户
EXEC sp_grantdbaccess @LoginUserName,@SafeAccount
--添加安全帐户为角色的成员
EXEC sp_addrolemember @RoleName,@SafeAccount

End
GO