none
VB6.0+SQL Server 2000开发数据库,怎么激活SQL Server 2000中的应用程序角色 RRS feed

  • 问题

  • VB6.0+SQL Server 2000开发数据库,怎么激活SQL Server 2000中的应用程序角色。

    1)执行sp_setapprole系统存储过程以激活该角色:
    USE Northwind     
    EXEC sp_setapprole 'order_entry','password'
    '以上代码为查询分析器中激活应用程序角色的语句。
       有那位老师知道在VB6.0中怎么激活SQL Server 2000中的应用程序角色。

    我是想通过应用程序角色来控制操作员使用其他的方式去访问SQL Server 2000中的数据。比如:Access(*.adp)
    希望各位老师帮忙看看!谢谢



    时刻都在努力学习!
    2009年11月18日 4:57

答案

  • 这是一个例子,不知道是不是符合你要求  ,当然,要引用SQLDMO


    Private Sub Command1_Click()
    Dim MyServer As SQLDMO.SQLServer
      Dim MyDatabaseRole As SQLDMO.DatabaseRole
      Set MyServer = CreateObject("SQLDMO.SQLServer")
      MyServer.Connect ".", "sa", ""   'servername,uid,passoword
      Set MyDatabaseRole = CreateObject("SQLDMO.DatabaseRole")
      MyDatabaseRole.Name = "'order_entry"
      MyDatabaseRole.AppRole = True
      MyDatabaseRole.Password = "password"
      MyServer.Databases("Northwind").DatabaseRoles.Add MyDatabaseRole
    End Sub
    • 已标记为答案 张三宾 2009年12月1日 4:44
    2009年11月18日 12:18

全部回复

  • 一样,用ADO执行这条SQL
    http://feiyun0112.cnblogs.com/
    2009年11月18日 4:59
    版主
  • 这是一个例子,不知道是不是符合你要求  ,当然,要引用SQLDMO


    Private Sub Command1_Click()
    Dim MyServer As SQLDMO.SQLServer
      Dim MyDatabaseRole As SQLDMO.DatabaseRole
      Set MyServer = CreateObject("SQLDMO.SQLServer")
      MyServer.Connect ".", "sa", ""   'servername,uid,passoword
      Set MyDatabaseRole = CreateObject("SQLDMO.DatabaseRole")
      MyDatabaseRole.Name = "'order_entry"
      MyDatabaseRole.AppRole = True
      MyDatabaseRole.Password = "password"
      MyServer.Databases("Northwind").DatabaseRoles.Add MyDatabaseRole
    End Sub
    • 已标记为答案 张三宾 2009年12月1日 4:44
    2009年11月18日 12:18
  • 谢谢你!
    我试试看哦!
    时刻都在努力学习!
    2009年11月19日 2:00
  • 这是一个例子,不知道是不是符合你要求  ,当然,要引用SQLDMO


    Private Sub Command1_Click()
    Dim MyServer As SQLDMO.SQLServer
      Dim MyDatabaseRole As SQLDMO.DatabaseRole
      Set MyServer = CreateObject("SQLDMO.SQLServer")
      MyServer.Connect ".", "sa", ""   'servername,uid,passoword
      Set MyDatabaseRole = CreateObject("SQLDMO.DatabaseRole")
      MyDatabaseRole.Name = "'order_entry"
      MyDatabaseRole.AppRole = True
      MyDatabaseRole.Password = "password"
      MyServer.Databases("Northwind").DatabaseRoles.Add MyDatabaseRole
    End Sub

     MyServer.Databases("Northwind").DatabaseRoles.Add MyDatabaseRole
    这行代码不是要添加一个新的应用程序角色吗?
    好像不是激活所选择的应用程序角色?
    时刻都在努力学习!
    2009年11月19日 2:56