在VB中更改SQLServer数据库结构

定州环卫工冤魂

定州环卫工冤魂

2016-02-19 18:11

岁数大了,QQ也不闪了,微信也不响了,电话也不来了,但是图老师依旧坚持为大家推荐最精彩的内容,下面为大家精心准备的在VB中更改SQLServer数据库结构,希望大家看完后能赶快学习起来。
笔者在开发"凉山州林业局"天然林资源保护综合管理系统中,需要为程序建立SqlServer数据库的运行环境。为了方便用户,笔者开发了这个数据库配置工具。完成在SQLServer数据库中建立设备,建立数据库,建立表格,分配权限的功能,"凉山州林业局"系统中的所有数据库配置操作都可以通过这个小工具完成。方便了数据库应用程序所需SqlServer环境的建立,根本不用启动SQLEnterpriseManager配置数据库。
  
  ----这个小工具由VB开发,利用ADO访问数据库,实现更改数据库结构,其他语言也可以此作为参考。启动VB6.0,新建一个工程,在菜单-工程-引用里选"MicrosoftActiveXDataObjects2.0Library",代码里需要有
  
  dimconnAsNewADODB.Connection
  '定义ADO数据库对象
  conn.ConnectionString="driver={SQLServer};"&_
  "server="&ServerName&";uid="&UserName&";
  pwd="&Password&";database="&DatabaseName&""
  '连接数据串
  conn.open'连接数据库
  
  ----注:ServerName为服务器名;UserName为用户名;Password为用户口令;DatabaseName要登录的数据库名,可以为空。
  ----核心代码如下:
  
  一、建立数据库
  ----原理:建立数据库先要初始化一个数据库设备,然后在此设备上建立数据库。所有的设备名在系统表"sysdevices"里有记录,所有的数据库名在系统表"sysdatabases"里有记录。在建立之前,最好先查询这两个系统表,看名称是否已经存在。在建立设备之前,还需要的一个物理名和空闲的设备标识号。
  初始化设备语法:
  DISKINITNAME="device_name",PHYNAME=
  "physical_name",VDEVNO=device_number,
  SIZE=numberofblock
  
  ----说明:这里,NAME是数据库设备名(一个有效的标识符),PHYNAME(数据库设备的物理名)是原始的磁盘分区UNIX或外设(vms)名,或者是操作系统的文件名。VDEVNO时数据库的设备标识号,合法值为1-255,SIZE的单位是2KB的块,例如1MB(1024KB)时SIZE值为512。
  ----建立数据库语法:CREATEDATABASEdatabase_name[ONdatabase_device]
  
  ----说明:database_name是要建的数据库名,database_device是设备名
  
  ----要新建立一个数据库,就需要设备名,数据库名,物理名和设备号。具体步骤如下:
  
  ----我们假设用户要新建立设备dbName,在设备dbName上建立数据库dbName。
  
  ----1)得到设备名。dbName是用户给出的设备名;先查询系统表sysdevices,看用户给出的设备名dbName是否已经存在,如果此设备名存在,就需要更换一个设备名,因为设备名是唯一的。
  
  sql="select*fromsysdevices
  wherename='"&dbName&"'"
  Setrs=conn.Execute(sql)
  IfNotrs.EOFThen
  MsgBox"设备名""&dbName&""
  已存在!",16,"请重新输入名称"
  ExitSub
  EndIf
  
  ----2)得到数据库名。dbName是用户给出的数据库名;查询系统表sysdatabases,看用户给出的数据库名dbName是否已经存在,如果此数据库存在,就需要更换一个数据库名,像设备名一样,数据库名也是唯一的
  sql="select*fromsysdatabases
  wherename='"&dbName&"'"
  Setrs=conn.Execute(sql)'下面代码略
  
  ----3)得到PHYNAME物理名。查询服务器上数据库文件的物理位置serverpath,典型的,我们可以从系统表sysdevices中查询master(这是SQLServer的主库名)数据库的位置,例如G:MSSQLDATAMASTER.DAT,则我们的数据库可以建在"G:MSSQLDATA"目录下。
  sql="selectname,phynamefromsysdevices"
  'low/16777216为设备号
  Setrs=conn.Execute(sql)
  然后遍历记录对象rs,当name="master"时,取出phyname,
  从而可以得到物理位置serverpath=G:MSSQLDATA。
  
  ----4)得到一个空闲的设备号vdevno。设备号合法值1~255,遍历这些号,查找出未被使用的空闲设备号,下面程序得到已有的设备号
  sql="selectdistinctlow/16777216
  fromsysdevicesorderbylow/16777216"
  'low/16777216为设备号
  
  ----5)建立数据库。所需的信息都准备完毕,可以建立数据库了(注:下面的""&Chr(34)&""就是一个"""双引号,这样处理后,才能满足语法要求;数据库为20M,则dbSize=512*20)
  sql="DISKINITNAME="&Chr(34)&""
  &dbName&""&Chr(34)&",PHYSNAME="
  &Chr(34)&""&serverpath&""&dbName
  &".dat"&Chr(34)&",VDEVNO="&vdevno
  &",SIZE="&dbSize&""
  Setrs=conn.Execute(sql)'初始化设备
  sql="CREATEDATABASE"&dbName&"
  on"&dbName&"="&dbSize&""
  '注:
  第一个dbName是数据库名,
  第二个dbName是设备名
  Setrs=conn.Execute(sql)'
  在设备dbName上建立数据库dbName
  MsgBox"数据库""&dbName&""建在服务器上
  ""&serverpath&""&dbName&".dat",
  建立成功!",64,"成功"
  
  二、建立表格
  ----建立表格比较简单,这里用到了自动计数字段和缺省值字段类型,语法如下:
  CREATETABLEtable_name
  (field_namedata_type[NOTNULL|NULL],…)
  
  ----说明:table_name为新建的表名,field_name为字段名,data_type为数据类型。
  (注意下面的fileidintIDENTITY字段自动计数,
  datetimeNOTNULLDEFAULT(GETDATE())字段每当入
  库时有个缺省值,由数据库生成当时的时间)。
  sql="CREATETABLE"&TableName&"
  (fileidintIDENTITY,filetimedatetimeNOT
  NULLDEFAULT(GETDATE()),fileimageimageNULL)"
  conn.Executesql'建立表格
  
  三、建立用户组用户
  ----建立用户组和用户不能直接通过SQL语句完成,需要执行SQLServer的存储过程sp_addlogin,sp_addgroup,sp_adduser。我们假设新建登录账号是username1,用户名是username1,组名是group1,则步骤如下:
  ----1)建立用户的登录账号
  
  语法:sp_addloginlogin_name,password[,defdb]
  其中,login_name是用户的登录名,password是用
  户的口令,defdb上登录的缺省数据库名称。建立数
  据库DatabaseName的登录账号:
  sql="EXECUTEsp_addlogin"&username1&","
  &password1&","&DatabaseName&""
  Setrs=conn.Execute(sql)
  
  ----2)增加用户组
  语法:sp_addgroupgroup_name
  其中,group_name是新建组名
  sql="EXECUTEsp_addgroup"&group1&""
  Setrs=conn.Execute(sql)
  
  ----3)增加用户
  语法:sp_adduserlogin_name
  [,name_in_db[,grpname]]
  其中,login_name用户名,name_in_db是用户在当
  前数据库中的名字(这里是第一步建立的登录账号
  username1),grpname是要将用户加入的那个组的组名。
  
  在数据库DatabaseName增加用户username1:
  sql="EXECUTEsp_adduser"&username1&","&
  username1&","&group1&""
  '注:第一个username1是用户名,第二个username1是
  数据库DatabaseName的登录账号
  Setrs=conn.Execute(sql)
  
  四、分配权限
  ----语法:grantpermission_listonobject_nametowho
  ----其中,permission_list是所要分配的权限清单,object_name是在这个对象上的权限,who是接受授权的用户。
  
  ----凉山州林业局"系统需要将特殊用户建立的表授权给其他用户,所以先从系统表sysobjects得到所有的用户建立表格名(type='U')
  
  sql="selectnamefromsysobjectswheretype='U'"
  Setrs=conn.Execute(sql)
  
  ----然后从中选取所需要的表格来分配权限给其他用户。例如,这里选择将tablename3的读取权限分配给组group1。
  sql="grantselecton"&tablename3&
  "to"&group1&""
  conn.Executesql
  
  ----由于这个小工具的使用,使SQLServer数据库配置变得简单、方便了。->

展开更多 50%)
分享

猜你喜欢

在VB中更改SQLServer数据库结构

编程语言 网络编程
在VB中更改SQLServer数据库结构

在VB中更改SQL 数据库结构

编程语言 网络编程
在VB中更改SQL 数据库结构

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

在VB中压缩ACCESS数据库

vb
在VB中压缩ACCESS数据库

数据库的结构---VB数据库入门之(二)

编程语言 网络编程
数据库的结构---VB数据库入门之(二)

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

用VB建立Access数据库结构

编程语言 网络编程
用VB建立Access数据库结构

在VB中存取数据库中的图片

编程语言 网络编程
在VB中存取数据库中的图片

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

可靠帅气的男生网名 霸气丶寒先生

可靠帅气的男生网名 霸气丶寒先生

关闭屏幕保护功能改变屏保等待

关闭屏幕保护功能改变屏保等待
下拉加载更多内容 ↓