VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - SQL Server 7.0 中新增用户及为此用户设置访问权限的方法
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:10285, 日期:2001-04-27
`建立三个Text控件,分别命名为Text1、Text2、Text3;
`Text1为输入的新用户名;Text2为口令;Text3为口令验证
`本例只新增了用户和设置了访问权限,没有对用户名是否
`已经存在、Text1是否为空、口令与验证口令是否相等情况
`做错误检测,这些代码可自行编写。

    Dim cString As String
    Dim cn As ADODB.Connection
    
    Set cn = New ADODB.Connection
    `本例中DSN:School; UID:sa;PWD:空。此三处根据你自己的实际情况自行修改
    cn.Open "DSN=School;UID=sa;PWD=;"

    cString = "EXEC sp_addlogin  `" & Text1.Text & _
                "`, `" & Text2.Text & "`,`Eschool`" `Eschool为数据库名称,根据你自己的实际情况自行修改
    cn.Execute (cString)
    

    cString = "EXEC sp_grantdbaccess  `" & Text1.Text & _
                "`, `" & Text1.Text & "`"
    cn.Execute (cString)

    cString = "EXEC sp_addrolemember  `db_owner`,`" & Text1.Text & "`"  `db_owner为访问权限,建议此处不要修改
    cn.Execute (cString)

    cn.Close
    Set cn = Nothing
    
`以上代码在VB5.0、SQL Server 7.0中调试通过。
`有关sp_addlogin、sp_grantdbaccess、sp_addrolemember的详细用法
`和说明请参见SQL Server 7.0的T-SQL语法帮助。