如题,想让不同的用户具有对数据库的不同操作功能,请问该如何设置,谢谢。
解决方案 »
- 不用控件的文件选择对话框怎么实现?
- [原创/探讨]Windows 核心编程研究系列之一(改变进程 PTE)
- 請教連接數據庫錯誤原因
- 100分 VB 里如何把一个本地文件流传给WEB服务器上的上传组件(如aspupload)
- 莫明其妙!大家有没有遇到此类事情!
- 我发现,当屏幕处于800*600的方式时,屏幕横向其实不止800个点!!
- vbRichClient5_文本框不能输入中文的问题_20 first simple Widgets (GUI-Controls)
- 如何在vb6设置窗体的透明度,就如vb.net的透明度属性一样
- 如何判断某个指定的WORD文件是否处于开启状态?
- 那里有MSDN,谢谢。
- 关于VB6.0编写手机短信发送
- 谁来教教我"方块矩阵"?算法?详细的!
双击表,对用户可以分配select, insert ,update,exec等到权限
具体情况是这样的
我现在做一个信息系统挂历的软件 ,想让进入这个系统的不同的用户具有不同的操作权限,包括对系统的功能的使用权限和对数据库操作的权限,对于功能的权限设置我考虑是用一个表来存储不同用户具有不同的权限,然后实现用户是否可以有这样的操作。对于队数据库的操作的权限。我考虑在sql中建立不同的数据库操作用户,然后当进入系统(自己写的信息管理系统)的时候,让不同的用户(信息管理系统中的用户)对应数据库中不同的用户(设置了对数据库操作权限的用户),请问这个思路对么,多谢!
Dim objLogin As New SQLDMO.Login
Dim objUser As New SQLDMO.User
Private Sub Command1_Click()
objLogin.Name = "Test"
objLogin.Database = "Northwind"
objLogin.SetPassword "", "MyPassword"
objServer.Logins.Add objLogin
objUser.Name = "Test"
objUser.Login = objLogin.Name
objServer.Databases("Northwind").Users.Add objUser
objServer.Databases("Northwind").DatabaseRoles("db_owner").AddMember objUser.Name
End SubPrivate Sub Form_Load()
Command1.Caption = "增加用户"
objServer.Connect "(Local)", "sa", "lxc"
End SubPrivate Sub Form_Unload(Cancel As Integer)
Set objServer = Nothing
Set objLogin = Nothing
Set objUser = Nothing
End Sub