原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
一个数据库应用系统的设计与实现;2 数据库设计;2 数据库设计;2.2 设计关系模式 确定表中各属性的详细信息;2.3 确定数据库应用的功能;3 数据库开发环境;3.1 Visual Basic中的数据访问;3.2 Visual Basic 数据库体系结构;2.数据库应用程序的存放
远程数据库
客户机/服务器数据库;4 创建数据库;4.1 可视化数据管理器;所进行的增、删、改、查等操作直接更新数据库中的数据;1、建立数据库;2.录入数据;3.建立查询;4.2 数据访问对象; DAO分层结构图;DAO创建数据库的步骤：
创建新数据库的第一步是创建Database对象本身，然后添加与设计相一致的TableDef和Field对象来定义其结构，方法：
1、使用Dim语句给数据库中的每一个对象创建对象变量。除了构造构成环境的DBEnigne和缺省的Workspace对象外，还需要：
一个Database对象
·每个表需要一个TableDef对象
·每个表中的每个字段需要一个Field对象
·每个表中的每个索引需要一个Index对象
如：用如下代码创建一个数据库对象变量：（数据库名： JXGL.mdb ）
Dim MyDb As Database, MyWs As Workspace
Dim StuTd As TableDef, TeaTd As TableDef, CosTd As TableDef, XKTd As TableDef, SKTd As TableDef
Dim StuFlds(5) As Field, TeaFlds(4) As Field, CosFlds(4) As Field,＿
XKFlds(5) As Field, SKFlds(5) As Field
Dim StuIdx As Index, TeaIdx As Index, CosIdx As Index, XKIdx(2) As Index, SKIdx(2) As Index;4.2 数据访问对象 DAO创建数据库的步骤;4、使用TableDef对象的CreateField方法，为表中每个字段创建Field对象，然后设置每个字段的属性来定义字段的长度、数据类型和其它所需的属性。例如，下面的代码用来创建JXGL.mdb数据库中的课程表：
Set CosFlds(0) = CosTd.CreateField(“课程号”,dbText)
Set CosFlds(0).Size = 10
Set CosFlds(1) = CosTd.CreateField(“课程名”,dbText)
Set CosFlds(1).Size = 20
Set CosFlds(2) = CosTd.CreateField(“授课学期”,dbInteger)
Set CosFlds(3) = CosTd.CreateField(“学时数”,dbInteger)
5、用Append方法把每个字段添加到表中，并把每个表添加到数据库中。例如：
CosTd.Fields.Append CosFlds(0)
CosTd.Fields.Append CosFlds(1)
CosTd.Fields.Append CosFlds(2)
CosTd.Fields.Append CosFlds(3)
MyDb.TableDefs.Append CosTd;
用数据库表添加索引的步骤：
1.用TableDef对象中的CreateIndex方法给每个表创建索引，并设置其属性：
Set CosIdx = CosTd.CreateIndex(“课程号”)
CosIdx.Primary = True ’是主码
CosIdx.Unique = Ture ’值不重
2.用Index对象的Createfield方法给每个索引对象创建字段：
Set NewFld = CosIdx.CreateField(“课程号”)
3.把字段追加到Index中，然后把Index追究到TableDef对象中：
CosIdx.Fields.Append NewFld
CosTd.Indexes.Append AuIdx
注意：用Index对象中的CreateField方法创建的字段不添加到TableDef中，而是添加到Index对象中，并给Name属性赋值，该属性与被索引的TableDef字段中的Name属性相同。不用指定Index对象中字段的Type(类型)和Size(大小)属性。;4.4 添加关系和引用完整性;5 创建数据库应用程序 5.1 数据控件（Data Control）;5 创建数据库应用程序 5.2 创建一个简单的应用程序; 2.浏览数据
文档评论（0）