在VB中更改SQL Server数据库结构

NULL],…)

---- 说明：table_name为新建的表名，field_name为字段名，data_type为数据类型。
（注意下面的fileid int IDENTITY字段自动计数，
datetime NOT NULL DEFAULT(GETDATE())字段每当入
库时有个缺省值，由数据库生成当时的时间）。
sql = "CREATE TABLE " & TableName & "
(fileid int IDENTITY, filetime datetime NOT
NULL DEFAULT(GETDATE()),fileimage image NULL )"
conn.Execute sql '建立表格

三、建立用户组用户
---- 建立用户组和用户不能直接通过SQL语句完成，需要执行SQL Server的存储过程sp_addlogin,sp_addgroup, sp_adduser。我们假设新建登录账号是username1,用户名是username1,组名是group1，则步骤如下：
---- 1）建立用户的登录账号

语法：sp_addlogin login_name,password[,defdb]
其中，login_name是用户的登录名，password是用
户的口令，defdb上登录的缺省数据库名称。建立数
据库DatabaseName的登录账号：
sql = "EXECUTE sp_addlogin " & username1 & ","
& password1 & "," & DatabaseName & ""
Set rs = conn.Execute(sql)

---- 2）增加用户组
语法：sp_addgroup group_name
其中，group_name 是新建组名
sql = "EXECUTE sp_addgroup " & group1 & ""
Set rs = conn.Execute(sql)

---- 3）增加用户
语法：sp_adduser login_name
[,name_in_db[,grpname]]
其中，login_name用户名，name_in_db是用户在当
前数据库中的名字（这里是第一步建立的登录账号
username1）,grpname是要将用户加入的那个组的组名。

在数据库DatabaseName增加用户username1：
sql = "EXECUTE sp_adduser " & username1 & "," &
username1 & "," & group1& ""
'注：第一个username1是用户名，第二个username1是
数据库DatabaseName的登录账号
Set rs = conn.Execute(sql)

四、分配权限
---- 语法：grant permission_list on object_name to who
---- 其中，permission_list是所要分配的权限清单，object_name是在这个对象上的权限，who是接受授权的用户。

---- 凉山州林业局"系统需要将特殊用户建立的表授权给其他用户，所以先从系统表sysobjects得到所有的用户建立表格名（type='U'）

sql = "select name from sysobjects where type='U'"
Set rs = conn.Execute(sql)

---- 然后从中选取所需要的表格来分配权限给其他用户。例如，这里选择将tablename3的读取权限分配给组group1。
sql = "grant select on " & tablename3 &
" to " & group1 & ""
conn.Execute sql

---- 由于这个小工具的使用，使SQL Server数据库配置变得简单、方便了。

关键词：在VB中更改SQL Server数据库结构