VB中直接创建访问SQL-Server的用户，并授予相应的表权限、存储权限。

Question

sqldmo中的login对象可以实现，具体可以去看sqldmo的帮助，在机器上安装sqlserver后就可以看到帮助了

Answer 1

用户
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=master;Data Source=服务器;password=" & Sapsd
conn.Open
sql = "execute sp_addlogin " & Username & "," & Userpsd & "," & "数据库名"
Set rs = conn.Execute(sql)
密码
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=数据库名;Data Source=服务器;password=" & Sapsd
conn.Open
sql = "execute sp_adduser " & Username & "," & Username
Set rs = conn.Execute(sql)给表权限sql = "grant all on 表名 to 新建用户名"
conn.Execute sql