SQL Server 7.0 中新增用户及为此用户设置访问权限的方法

领测软件测试网

　　 
　　`建立三个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语法帮助。

文章来源于领测软件测试网 https://www.ltesting.net/