说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

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

HTML文档下载 WORD文档下载 PDF文档下载
在VB中更改SQL Server数据库结构
四川省冕宁县
陈锦平
---- 笔者在开发"凉山州林业局"天然林资源保护综合管理系统中,需要为程序建立Sql Server数据库的运行环境。为了方便用户,笔者开发了这个数据库配置工具。完成在SQL Server数据库中建立设备,建立数据库,建立表格,分配权限的功能,"凉山州林业局"系统中的所有数据库配置操作都可以通过这个小工具完成。方便了数据库应用程序所需Sql Server环境的建立,根本不用启动SQL Enterprise Manager配置数据库。

---- 这个小工具由VB开发,利用ADO 访问数据库,实现更改数据库结构,其他语言也可以此作为参考。启动VB6.0,新建一个工程,在菜单-工程-引用里选"Microsoft ActiveX Data Objects 2.0 Library",代码里需要有 dim conn As New ADODB.Connection 注释:定义ADO数据库对象 conn.ConnectionString = "driver={SQL Server};" & _
"server=" & ServerName & ";uid=" & UserName &
";pwd=" & Password & ";database=" & DatabaseName & "" 注释:连接数据串 conn.open 注释:连接数据库 注:ServerName为服务器名;UserName为用户名;Password为用户口令; DatabaseName要登录的数据库名,可以为空。核心代码如下:

一、 建立数据库

---- 原理:建立数据库先要初始化一个数据库设备,然后在此设备上建立数据库。所有的设备名在系统表"sysdevices"里有记录,所有的数据库名在系统表"sysdatabases"里有记录。在建立之前,最好先查询这两个系统表,看名称是否已经存在。在建立设备之前,还需要的一个物理名和空闲的设备标识号。

---- 初始化设备语法:DISK INIT NAME="device_name",PHYNAME="physical_name",VDEVNO=device_number, SIZE=numberofblock 说明:这里,NAME是数据库设备名(一个有效的标识符),PHYNAME(数据库设备的物理名)是原始的磁盘分区UNIX或外设(vms)名,或者是操作系统的文件名。VDEVNO时数据库的设备标识号,合法值为1-255,SIZE的单位是2KB的块,例如1MB(1024KB)时SIZE值为512。

---- 建立数据库语法:CREATE DATABASE database_name [ON database_device]

---- 说明:database_name是要建的数据库名,database_device是设备名

---- 要新建立一个数据库,就需要设备名,数据库名,物理名和设备号。具体步骤如下:

---- 我们假设用户要新建立设备dbName,在设备dbName上建立数据库dbName。

---- 1)得到设备名。dbName是用户给出的设备名;先查询系统表sysdevices,看用户给出的设备名dbName是否已经存在,如果此设备名存在,就需要更换一个设备名,因为设备名是唯一的。

sql = "select * from sysdevices
where name=注释:" & dbName & "注释:"
Set rs = conn.Execute(sql)
If Not rs.EOF Then
MsgBox "设备名"" & dbName &
""已存在!", 16, "请重新输入名称"
Exit Sub
End If
---- 2)得到数据库名。dbName是用户给出的数据库名;查询系统表sysdatabases,看用户给出的数据库名dbName是否已经存在,如果此数据库存在,就需要更换一个数据库名,像设备名一样,数据库名也是唯一的
sql = "select * from sysdatabases
where name=注释:" & dbName & "注释:"
Set rs = conn.Execute(sql) 注释:下面代码略
---- 3)得到PHYNAME物理名。查询服务器上数据库文件的物理位置serverpath,典型的,我们可以从系统表sysdevices中查询master(这是SQL Server的主库名)数据库的位置,例如G:\MSSQL\DATA\MASTER.DAT,则我们的数据库可以建在"G:\MSSQL\DATA\"目录下。 sql = "select name,phyname from sysdevices " 注释:low/16777216为设备号Set rs = conn.Execute(sql) 然后遍历记录对象rs,当name="master"时,取出phyname,从而可以得到物理位置serverpath =G:\MSSQL\DATA\。
---- 4)得到一个空闲的设备号vdevno

---- 设备号合法值1~255,遍历这些号,查找出未被使用的空闲设备号,下面程序得到已有的设备号 sql = "select distinct low/16777216 from sysdevices order by low/16777216" 注释:low/16777216为设备号 5)建立数据库。所需的信息都准备完毕,可以建立数据库了(注:下面的"" & Chr(34) & ""就是一个"""双引号,这样处理后,才能满足语法要求;数据库为20M,则dbSize=512*20)

---- sql = "DISK INIT NAME=" & Chr(34) & "" & dbName & "" & Chr(34) & ",PHYSNAME=" & Chr(34) & "" & serverpath & "" & dbName & ".dat" & Chr(34) & ",VDEVNO=" & vdevno & ",SIZE=" & dbSize & ""

---- Set rs = conn.Execute(sql) 注释:初始化设备

---- sql = "CREATE DATABASE " & dbName & " on " & dbName & "=" & dbSize & ""

---- 注释:注:第一个dbName是数据库名,第二个dbName是设备名

---- Set rs = conn.Execute(sql)注释:在设备dbName上建立数据库dbName

---- MsgBox "数据库"" & dbName & ""建在服务器上"" & serverpath & "" & dbName & ".dat",建立成功!", 64, "成功"

二、建立表格

---- 建立表格比较简单,这里用到了自动计数字段和缺省值字段类型,语法如下:

CREATE TABLE table_name(field_name data_type [NOT NULL|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数据库配置变得简单、方便了。
消息称苹果正在寻找新任CEO取代库克 请别人云亦云 PC仍然重要且活得很好 比预想晚几年!IBM x86服务器或终将卖给联想 App推广的节操呢? iMessage垃圾短信产业链暗访 Apkudo CEO访谈:免费为Android开发者提供测试 Web API核查表:设计、测试、发布API时需思考的43件事 开源Android构建工具Buck 速度超Ant两倍 从史上八大MySQL事故中学到的经验 OpenStack Heat向应用市场更近一步 初创公司Ionic Security:云安全必须与时俱进 谷歌董事长:一年后消费者才能用上Goolge Glass Windows 8.1重新推出的“开始按钮”毫无意义 手眼并用 代码泄露三种Google Glass手势操作 Google新论文 CPI²:基于Linux的世界级跨数据中心服务器CPU监控 20款非常实用的Web工具和资源列表 数据库界大事件 随机写性能巨好的TokuDB开源了 CMDN Club 26期:数字渠道营销主题沙龙 暴强:用iOS设备控制的HTML5“小蜜蜂”游戏 Leap Motion:500元体感,精确到0.01毫米 大事件:三大运营商将发布融合计费SDK 再培养一个扎克伯克:六款适合儿童上手编程的App 首届中国软件工程标准高峰论坛:软件开发的新机遇与挑战 Verizon研究显示:中国成为2012年度网络间谍攻击的主要来源 Clang宣布全面支持C++11标准 北大陈钟:SEMAT—中国软件工程发展的新机遇 超华尔街预期:苹果第二财季营收为436亿美元 跨平台游戏引擎Spaceport已被Facebook收购 文科生开发GPU数据库 性能超传统数据库70倍 开发者赚了90亿:从苹果Q2财报,看iOS生态 备受开发者青睐的13款热门开源项目 Netflix赌赢《纸牌屋》背后的秘密武器:大数据分析 以下程序中,若输入12345,ABC,则输出的结果是什么 请问大师门,我引用数据库为什么不行呀? ----在线程里的SOCKET为什么关不掉 请问如何有破解excel2000文件密码的工具或方法吗?300分酬谢,急等.谢谢! 在SQL*PLUS下怎样查看一个字段的属性,如是否为主关键字。 帮小弟一把,我仅有的36分了,各位 在vc中如何将字符串转化成其对应的ascii码?用什么函数? 天啊!!怎么办啊,救命啊 内存分配的一个小问题 无聊,散分。只给前面十个。 用image控件可以互相转换ico,bmp,jpg三种格式的图片吗? 请问哪有NGWS下载? ?有没有啊 以下程序的输出值是 哪位朋友知晓如果Table与DbGrid绑定后,如何实现非第一索引的排序。 请问MSDN有中文版的吗?我们这的全是英文版的 我的 Win2000 出大问题了,急盼各位大虾赐教 请问那里有VB.NET软件下载呀 什么delphi命令可以打开网页呢? 到底有没有人知道如何可以在panel中动态的调用frame或者是form呢? 哪里有windowsXP下载? 送我能给的最大分,请教很小的问题,中高手进 聊天请进(thinkingdog) 大家来谈谈 IBM都有些什么认证???什么认证现在比较吃香???谢谢!!! 打印数窗问题求助! 如何使用UrlDownloadtoFile下载文件使用进度条? 如何用在两次用getTime()中得到两个不同的时间。 一个类似于牛角尖的问题(多余的CONST),不能忽视,请各位高手详细说明!!谢谢! 怎样读写注册表,每次都不成功,气死我也~! 各位救命啊,用 TClientDataSet.Load XML 的问题。。。。 娃呀呀,pb8怎么这么难安装?jaguar组建就用了5分钟,regester window又用了10分钟,重启动后,还没完,偶不敢装了,把碟退了出来,大家是不是也这样?//牛虻 请教高手一个ado的问题. 请问一个TWebBrowser的问题 请问:系统崩溃后,找不到BOOT,系统告诉:DOS基本分区为格式化?无法引导启动! 在VB.NET的tabcontrol上放置AxMSFlexGrid控件问题,急 java3D 现在大家是用Oracle 8还是 Oracle 9??? C++问题求助! 请教一个错误的原因. 各位大侠请问Jeffrey Richter的windows核心程序设计是不是就是andvanced windows程序设计的第四版 SCJP里的那些什么300-020,020是什么意思啊? 请问一个关于document.write()方法的问题。急啊! 初学者,欢迎灌水。 Delphi6的Bug?不兼容? 为什么我用GetProfileString()却总是得不到结果 sos 请教各位大侠一个问题 delphi6中的installShield 请介绍接收端CRC校验传输内容是否正确的方法,资料或代码。谢谢! 各位大侠请问Jeffrey Richter的windows核心程序设计是不是就是andvanced windows程序设计的第四版? 谁会做软件狗?有钱赚了!!! 为什么我用QuickRep作的报表只能显示一条记录,而且columnHeaderBand上内容也显示不出来 气温略高于0°C,有风的时候晒在室外的湿衣服会结冰吗 用二氧焊进行单面焊双面成型时,打底焊后,焊缝上出现裂纹,并非收弧时也出现,是何原因,如何避免? 上午12时在太阳光下的影子最长吗? 在寒冷的阴天,气温未达到0摄氏度,但晾在室外的湿衣服会结冰,什么原因?工程热力学 焊接符号 焊接双面焊符合怎么表示?单面焊又怎么表示呢 如何利用太阳光下的影子测量旗子的高度啊?怎么利用太阳光下的影子测旗杆的高度? 正常铁路轨道寿命多少年 请问:原电池中,若电解质溶液为0.5mol/L硫酸溶液,电极为铜片和铝片,则电流计指针为什么偏向铝?另外请问:稀HNO3与Fe反应放H2吗?若不放出H2,那该放出哪种气体? 请问这个焊接符号圆圈里的43是什么意思? 铁路轨道衡是什么作用 Al 和Cu组成原电池 若电解质溶液为稀硫酸,则电流表的指针偏向铝还是铜?究竟电流表的偏转方向是偏向正极还是负极? 机械制图中焊接符号的表示法 HIV在空气中能存活多长时间?请问HIV在空气中到底能存活多长时间?好像听人说也就几个小时,有点疑虑的是,既然离开人体后马上会死亡,那为什么输带有HIV血的血浆时会感染HIV(因为血浆中的血 原电池中的电流计指针偏转方向为什么在Cu-Zn原电池间接上灵敏电流计,指针偏向Cu?电流计指针偏转方向不是应该和电流方向一样吗 形成西伯利亚地区大面积沼泽地的原因有多种,除了河水泛滥外,还可能有什么原因? 艾滋病在空气中能存活多久并且伴随着春天的阳光和春天的温度 将表面去掉氧化膜的镁片与铝片用带电流表的导线连接,插入盛烧碱溶液的烧杯中,此时发现电流计指针偏转,判断此原电池的正负极,并写出电极反应式和总反应方程式.铝片做负极,镁作正极负 西西伯利亚平原的沼泽是怎么形成的 HIV 暴露在空气中的存活时间是多少? 电极材料:镁铝,电解质溶液:氢氧化钠溶液,电流表指针变转方向:偏向镁,铝做负极的原因是—— 影子的方向和太阳的位置的关系太阳的变化 来的 艾滋病病毒在空气中能存活多长时间,听说过因为修眉毛而得上艾滋病的,那么,他得在刀具上存在多长时间才能消失.这种感染艾滋病的机率有多大? 谁的影子最长? 阳光下任何( )的物体都有影子,影子都在( )的一面,在同一时刻,同一地点,直立的物体的影子方向都?阳光下任何( )的物体都有影子,影子都在( )的一面,在同一时刻,同一地点,直 熔化吸热 凝固放热日常生活中有那些利用熔化吸热,凝固放热的例子?什么情况下熔化吸热,凝固放热会给我们带来不利影响?怎样避免? 永动机是可以实现的,如果分子永远在运动.这是可以做永动机的实验依据的啊设计了好几个方案,见教!==假设一第三类永动机:利用一种永不枯竭的能源,实现永动^^如果分子可以永动,这说 在一天当中,物体在太阳光下的影子的方向是如何变化的 用汽油擦除衣服上的污渍时,汽油很快跑掉了,这是什么物态变化,过程中是吸热还是放热 科学会把怎样的运动当作永动机如果永动机每分钟转动12转,对物理学意义 有多大? 为什么上午太阳光下物体的影子方向应为北偏西 请问中国男性的阴茎的长度和直径标准? 写出下列物态变化的名称,并指出该物态变化是吸热还是放热1 夏天冰欺凌冒白气2 水结冰3 秋天的露水 用什么胶可以把塑料画现在漆墙上?就是白墙 甲乙两人在铁路轨道旁背向而行,速度都是每秒1米,一列火车匀速地向甲迎面驰来,列车在甲旁开过用了16秒,而在乙身旁开过用18秒,问这列火车多长? 太阳光照射旗杆从早晨到中午.下午之间的影子变化啥时候最长,最短,垂直?旗杆和影子垂直 焊接符号表示方法 下午的影子最长还是上午的影子最长 每小时太阳光照射的影子的角度是多少? 焊接符号怎么表示? 在早上、中午、下午哪个时间你的影子最长? 为什么在太阳光照射下,人在地面上的影子早晚长,中午短? 这个是表示什么焊接符号呀 为什么早上影子最长? 眼睛被太阳光照射到有影子被太阳强光反射到 求焊件符号的表示图纸焊件符号表示的意思. 我有急用 由镁、铝、氢氧化钠溶液组成的原电池,负极和正极反应式分别是? 布朗运动是液体颗粒运动还是固体颗粒运动?那 “布朗运动是悬浮在液体中的固体颗粒分子无规则运动的反映”哪错了? 这个焊接符号是啥意思?请指点. 那什么物态变化,要吸热放热的,应该怎么记?我老是记不住,求学习方法 悬浮在液体中的大颗粒固体会做布朗运动吗 太阳光下AC与A'C'是平行的,同一时刻的2根相同高度的木杆在太阳光照射下的影子一样吗?说说你的理由.要过程(初一下学期第五章三角形的复习题)最好有证明 单面焊双面成型!立焊单面焊双面成型是左右摆动在断弧还是只要在中间点一点不用摆动就断弧?不是开坡口的两块板,是类似立角焊的样子,两个板成V形组装,最好也说一下开坡口的,他们两种是 NAOH做电解液,连接好铝和镁组成原电池,正极和负极电子式分别是什么,为什么 某一时刻测的一根竹竿的影子是这根竹竿的两倍长那么此时的太阳光与地面成多少度角? Y电焊单面焊双面成型技能 镁和铝插入NAOH溶液中连接成原电池 铝表面有氧化膜为什么不必处理氧化铝和NAOH反应不是氧化还原啊 怎么构成原电池 如图,太阳光线AC与A‘C‘是平行的,同一时候两根高度相同的木杆在太阳光照射下的影子一样长吗?说说你的理由 镁—铝—氢氧化钠 ,构成的原电池中,为什么负极是铝? 平焊对接单面焊双面成型时,第一道焊焊枪角度是多少,第二道焊缝因离铁板平面多高? 在同一时刻两根木杆在太阳光下的影子如图所示,其中木杆ab=2米,它的影子bc=1.6米,木杆pq的影子又一部分落在了墙上,qm=1.2米,mn=0.8米,求木杆pq的长度
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn