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

在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数据库配置变得简单、方便了。
CocoaChina开发者大会 全新引擎Cocos 3d-x开源 Oracle和微软的抱团,以及对抗Amazon霸主的5个可用点 Agile已死 Agility长存? 论程序员的自我修炼 Github女员工因遭性别歧视离职 继七年iPhone、四年iPad后,苹果的下一城:Healthbook 普元CTO焦烈焱:专注于基础软件 在Spark上的深入实践 Python 3.4.0正式发布 未添加任何新语法特性 谷歌受困邮件挖掘丑闻,企图抹掉庭审记录 Python 3.4.0发布,增加了多个功能模块 美的+阿里,“云端”战略第一把火是智慧家居 对产业互联网战略的战术思考——争夺企业信息入口的战争 加入Cassandra,OpenStack发力DBaaS生态圈 死磕Google Keep,微软正式发布Mac免费版OneNote 《近匠》安管云CTO石磊:降维安全的开放平台 2014 Unity亚洲开发者大会&#183;中国站讲师名单议题全部出炉 【独家专访】红旗Linux元老:猎猎红旗永飘扬 借助三大技巧 助你提升API状态页面 集成GemFire,Hadoop生态圈的又一把火 次世代光照体验:Unity 5面世,功能系统全升级 深入浅出,以咖啡店为例演示Web应用程序扩展 百度Clouda:可依赖的实时JavaScript开发框架 Oracle发布Java 8正式版及JDK 8 编程语言中一些令人抓狂的规则 廉颇未老,微软股价创14年新高 中国云计算大会PPT集萃(三):核心架构及应用实践 特性是增多了,但是Google的云服务仍然不温不火 全国云计算大数据创新项目评选活动正式启动 【独家专访】Perl发明者首次来华:将在OSTC大会分享其编程人生 腾讯核心创始人张志东半年后卸任首席技术官 改任终身荣誉顾问和学院讲师 咱们约会吧,Web设计师教你不一样的语言 这个问题怎么办?? (ADO OPEN) Up 有分! 母亲生日,你觉得送什么礼物为好? 用c++ 写的 hello 程序在unix g++ 编译通过后,运行出错 如下几个初级问题要问,高手们请进-> SQLSERVER高手进来聊聊........ 怎样用代码实现两台电脑之间的文件传输? 哪位知道Microsoft Firewall Client 的下载地址? 关于RECORDset的问题,求教 如何在web页面使用 Windows 窗体控件,最好有例子! 使用DOM的XMLHttpRequest对象来发送xml请求,但当返回的响应带有中文时候,在PDA上无法正常显示,我使用MultiByteToWideChar也没用。有人 请问在窗口中放置控件时,PB是否有靠近格线对齐的功能。如果有,在哪设置? DELPHI中FASTNET组件使用方法 请问在SELECT查询中怎样娶得行号? 在一般的类中如何得到当前文档的指针? 巨菜问题:重装xp后grub启动菜单消失,怎么办? FIP上传问题,非常着急,在线等,解决就结贴, 用javaScript打开窗口后,原窗口的gif动画不动了 FindWindow的用法 反正没几个人能回答,发来玩玩。 在当前文档中如何实现刷新操作? 构造sql语句时,表名或字段有可能是sql的保留字段,如何解决? 小弟急需文件操作和线程管理方面方法技巧的资料,望各位英雄赐教 怎么将power point打包成exe 如何恢复execl中vba的密码 怎样在ISA中设置带宽限制? 如何实现数据库的更新?? 搜胡首页是<<美英百架战机空袭伊拉克 攻伊序幕已拉开>>,但... string 读取的问题。 正在看c++primer的请看(高手当然也能看拉) 有哪位高手用过bcp_exec导入数据吗? vb数据库安全问题 大学新生师弟师妹们很快要来报告了,大家能不能帮我想想一些迎新的宣传标语? 数据窗口中dddw下拉前触发的事件是哪一个(使用pbm_dwndropdown无效)? 有关的vs.net的简单问题! 下周可能要去勞動局!矛盾激化! 博士,硕士,教授等请进,关于前途的问题: 如果明天csdn也被封了,我们还能做什么???? 请问SQL SERVER区分大小写吗 关于lcc-win32 winme下如何调整显示器的刷新率 大家练练手,征集下面这个小程序的算法!!!(很有趣的阿!!) 消失的古代王朝---亚述 Web services 的应用。 关于EXCEL中,连接到其他文件的删除问题 30 分 大侠们,怎么打包BDE,在线等待,急 关于VB的报表打印问题 请教:如何判断Varient变量是否为空? Sygate中的带宽具体怎样设置? 一个循环显示和记录集相关的问题? 请问为什么会这样? 用VC开发软件的朋友是用MFC(即选MFC Appwizard)还是用API(即选WIN32 Application)开发软件?社会上一般用哪种? “我就是抄下来的”怎么翻译成英语 求缘是天意 份在人为的英文翻译! 请问青藏铁路经过了那几地方我问的是青藏铁路经过了那几地方,地方 地方 姐姐 不对 还是不对大姐 英语翻译:缘分怎么说?有例子更好. 这是一种缘份!让我们祝他们生日快乐!英语翻译 青藏铁路经过了哪些地方 1.I'm going to go to Hainan(同义句转换) 2.Are you going to go swimming.(同义句转换) tomorrow we are going to go to Hainan .中的tomorrow应该在前还是在后,为什么? 青藏铁路沿途都过哪些地方啊? 高中地理人教版必修一考题.识图题.等压线分布图. 池塘里的莲池塘里的莲,托着荷叶的是_______,顶着荷花的是,莲真正的茎是横卧在污泥里的_________,藕内布满的细丝是______组织 青藏铁路沿途要经过哪些地区 广州话 距噶 英语 we're going to go to 无论你是缘分或是知己,我都珍惜.英文翻译 广州话噶口语“几啦”是什么意思? 四川盆地周围的主要山脉? 怎样在电脑上查英文,比如快速方便查找句子意思和单词,有这样的软件吗. 广州话噶口语“几啦”是什么意思! 生物角度讲莲是什么科 如图 2题 答案上的解析没看懂 英文短语“注意安全” 荷花和莲花是一种生物吗?它们的科、属、纲、目完全相同吗?为什么莲花和荷花的形象有明显区分呢?荷中间花心部分有莲蓬,而莲只是有黄色的花芯而已啊. 快捷键中ctrl x 这个x是哪个单词的缩写 交通安全的英语短语不要闯红灯.... We are going Hainan tomorrow.改病句 在word中,写出以下快捷键组合的意思:Ctrl+A:Ctrl+B:Ctrl+C:Ctrl+U:Ctrl+D:Ctrl+X:Ctrl+E:在word中,写出以下快捷键组合的意思:\x05Ctrl+A:\x05\x05Ctrl+B:\x05\x05\x05\x05Ctrl+C:\x05\x05Ctrl+U:\x05\x05Ctrl+D I'm going to go to middle school this September.(变成一般疑问句)按要求完成句子 求人教版高中地理必修一全教案 快捷键ctrl+C,ctrl+V,ctrl+X,ctrl+A,ctrl+Z 中的 C,V,X,A,Z,分别是哪个英文单词? 英文翻译 梅菜笋丝 求文档: 珠峰的岩石层中为什么有远古代的海洋生物的化石 “笋”的英语单词是什么? 人教版高中地理必修二总结第一章是人口的变化的那本书,要全书的知识点概括,是概括,太多的就不要发了. 求动物介绍 英文的要一篇英文的动物介绍 不要太长 英语翻译hull 是指果实类的壳吧能用在这里修饰笋的壳吗?请大家给点在国际贸易中,关于笋壳的常用词汇吧 "你是指"笋壳鱼"吗?应该是"blue code"如果我没记错的话..." 不好意思不是的,我的 艺术创新如何做到科学发展 在标准键盘上,“ctrl”、“esc”、“alt”键分别是什么单词的简写? 英语翻译纯鲜榨雪梨汁纯鲜榨凉瓜雪梨汁纯鲜榨苹果甘笋汁纯鲜榨西芹甘笋汁柠七可乐煲姜鲜奶加蛋橙汁西米露麦片鲜奶什果宾治薄荷宾治薄荷七喜红豆冰什果西米露柠蜜西洋菜蜜西柚汁柠 《创新与想象》 关于艺术与科学,本文作者的观点是什么 “手机”英语翻译? 类是于街霸里的哈都跟 午休噶 一类的发音还有什么 哈都跟 和 午休噶 是什么意识? 结婚和笋用英文怎么写 We're going to go to Hainan 中文翻译是什么?在1月九号之前给我答复,星期一就不用答案了 什么是铁制剂 四川盆地和塔里木盆地的差异有哪些?从民居,服饰,饮食,文化等方面来考虑 going,to,are,to,go,we,Hainan(连词成句) 促进离子铁吸收的因素有哪些? 四川盆地和塔里木盆地区别地形特点,气候类型,干湿状况,温度带,主要河流及特征,主要农作物 英语翻译请帮我翻译一下这个菜单 已知有一芳香烃结构式为CxHy,怎么由它得到y≤2x-6?我想知道为什么y要小于等于2x-6 四川盆地及塔里木盆地自然环境要素的异同自然环境要素包括气候,土壤,地形,水文,植被. 英语翻译我现在手机界面是英文的了.我想把英文换成中文.在手机的那个项目个找阿. 芳香烃的结构式是否一定的画苯环,谢C6H5. 四川盆地和塔里木盆地分别是在什么温度带 北京自然博物馆的古生物大厅里,陈列着一具大象的骨架,这就是古代黄河象骨骼的化石.这句如何缩句? 英语翻译274.It is not unusual for you to work for an organization that has a multicultural workforce. 相遇是缘 学着去珍惜所以的缘份.的英文翻译 6元环的所有碳原子都在一个平面上吗?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘