2022年用编程方式访问数据库 .pdf

《2022年用编程方式访问数据库 .pdf》由会员分享，可在线阅读，更多相关《2022年用编程方式访问数据库 .pdf（6页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、用编程方式访问数据库VB 6.0 数据库设计技术讲座（3）（作者：倪秉书）在第一讲已经介绍过VB 数据库中可以包括多于一个的表,其实除了表之外,VB 数据库还可以包含查询定义、记录集、关系等可操作的元素,每个元素用一个对象名表示,可利用对象的属性和方法进行访问。VB 数据库就是通过这些对象按照一定的层次结构组合而成的，如图 1。在 VB 数据库中的表、查询、记录集、关系等对象可能都不只一个，而是由多个组成一个同性质的对象集合，在层次结构图中，为那些可以多个组成一个集合的对象名后加（s） ，比如， 可有多个 Database对象就表示为Database(s)在这些对象中， 最高顶级的DBEngi

2、ne 对象只有惟一的一个。了解这个层次结构图，就可以知晓数据库中每个对象所在的层次位置，比如 RecordSet 对象包含在Database对象中； 并且借助该表还能方便直观地写出访问这些嵌套对象的语法。比如：Debug.Print VBdatabase.Recordsets. Count 表明引用所定义的VBdatabase 数据库对象下的Recordsets 对象集合中的Count属性，即在“立即”窗中打印出数据库对象中包含的记录集的个数。以下介绍常用对象的具体概念、定义和引用方法。数据访问对象(Data Access Object) VB 对数据库中各元素的操作都要通过定义相应类型的数据

3、访问对象，让其与VB 所提供的各种元素相关联,然后通过引用这些对象的属性和方法进行对象的访问，对象类似高级语言中所定义的变量。VB 常用有以下几种对象：1. VB 数据库引擎对象 （VB DBEngine Object ） ：在对象层次结构模型中处于最高顶级的一个对象，是VB 的数据库管理系统（DBMS ） ，它在用户信息库和系统信息库中检索和保存数据；2.工作空间对象： （WorkSpace Object）:VB 数据库引擎访问数据源的工作区。3.数据库对象 (Database Object): 代表一个已打开的数据库，数据库对象是对数据库实施操作时首先要使用的对象。可用OpenDataba

4、se函数打开一个库。4.表对象（TableDef Object） ： 代表数据库中已定义和存在的一个表。与数据库对象类似，要操作一个表， 首先要定义一个表对象，使其和特定的表相对应，然后引用它的属性和方法，比如通过 Name 属性可得到表的名称，Count 属性可得到表的个数等。5. 查询对象（ QueryDef Object ） ：代表数据库中存在的一个查询定义。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 6 页 - - - - - - - - - 6.记录集对象（

5、 Recordset Object） ：VB 表中的记录不允许直接操作，必须通过记录集对象进行浏览与操作。第一讲中已经介绍过，创建记录集可有三种类型：表类型记录集 （Tabletype Recordset） 、动态类型记录集(Dynasettype Recordset)、快照记录集 （Snapshot type Recordset） ，相应的也有三种类型的记录集对象与之对应，所有这些记录集最终也都要通过这些记录集对象所提供的属性和方法来进行操作。可通过数据库对象的OpenRecordset方法打开一个表，创建一个记录集。务必注意的是，在进行对象的定义和引用之前,要确保已首先引用了数据访问对象(

6、DAO) ，否则将不能定义各种数据访问对象，且运行时会出错。要引用DAO ，可点击“工程”选单，选择“引用”选项，然后点击“Microsoft DAO 3.5 Object Library”复选框，按确定。可以通过在代码窗的声明节中加入如下代码格式来定义一个指定类型的对象：dim 对象名as 对象类型名； 并通过如下代码格式来把一个对象赋予一个对象变量：set 对象变量 =对象名， 其中对象名的位置也可以是所声明的相同对象类型的其它变量，或者返回相同对象类型的函数或方法所组成的表达式。各对象都有多种的属性与方法，不同对象的属性与方法一般互不相同，但像name等属性是对象所共同拥有的，在书写引用

7、一个对象变量的格式时，系统会出现一个与该对象相关的所有属性与方法的下拉式列表框，可把光标移到相应的属性名和方法名中，按F1 寻求帮助。对象常用属性应用实例以下通过修改第二讲中所介绍工程的四个Command 控件的 Click 事件，在不使用Data控件的情况下，完全利用DAO 来实现Data 控件的功能，通过它来具体熟悉如何定义各种对象以及如何引用对象的各种属性与方法：Option Explicit Dim DbWorkspace As Workspace Dim DbDatabase As Database Dim DbRecordset As Recordset以上定义各数据访问对象Pri

8、vate Sub CmdFirst Click() UpdateRecord 如果有对当前记录做改变，则调用自定义函数保存任何的改变DbRecordset.MoveFirst 移动到记录集中的首记录名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 6 页 - - - - - - - - - DisplayFields 调用自定义函数显示当前记录各字段的内容TxtName.SetFocus End Sub Private Sub CmdLast Click() UpdateR

9、ecord 保存任何的改变DbRecordset.MoveLast 移动到记录集中的末记录DisplayFields TxtName.SetFocus End Sub Private Sub CmdNext Click() If TxtName.Text And TxtPhone.Text And TxtAddress.Text Then UpdateRecord 当姓名、电话和地址三字段都不为空时，在记录集中保存本文框的内容DbRecordset.MoveNext 移动到记录集的下一个记录If DbRecordset.EOF Then NewRecord 如果在记录集的EOF，则调用自定义函

10、数，插入一个新记录DisplayFields End If TxtName.SetFocus End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 6 页 - - - - - - - - - Private Sub CmdPrevious Click() UpdateRecord DbRecordset.MovePrevious 移动到记录集的前一个记录If DbRecordset.BOF Then DbRecordset.MoveNext 如果在记录集的BOF

11、，则移到下一个记录，即回到首记录。DisplayFields TxtName.SetFocus End Sub Private Sub FormLoad() Set DbWorkspace = DBEngine.Workspaces(0) 用 Set 语句将 VB 数据引擎默认的工作区引用赋给所定义的工作区对象变量Set DbDatabase = DbWorkspace.OpenData_ base(c:myfile.mdb) 通过工作区对象的Opendatabase 方法打开一个库文件，并赋给所定义的数据库对象变量Set DbRecordset = DbDatabase.OpenRecor_

12、 dset(phone, dbOpenTable) 通过数据库对象的OpenRecordset 方法打开库文件中的一个表，创建一个记录集，并赋给记录集对象变量If DbRecordset.BOF And DbRecordset.EOF Then NewRecord 如果是空库，则加入一个新记录名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 6 页 - - - - - - - - - DbRecordset.MoveFirst 移动到首记录DisplayFields End

13、 Sub Private Sub UpdateRecord() 实现把文本框中的任何改变保存到数据库的自定义函数DbRecordset.Edit 记录集对象的一个方法，充许对记录进行编辑与修改DbRecordset!姓名= TxtName.Text 把文本框的内容保存到记录集的相应字段中DbRecordset!电话= TxtPhone.Text DbRecordset!地址= TxtAddress.Text DbRecordset.Update 把对记录的任何改变写回数据库中End Sub Private Sub NewRecord() 实现向记录集中插入一条新记录的自定义函数DbRecord

14、set.AddNew 向一个可修改的记录集对象插入一条新记录DbRecordset!姓名= 给新记录的各字段赋初值DbRecordset!电话= DbRecordset!地址= DbRecordset.Update 把对记录的任何改变写回数据库中，取代旧的记录DbRecordset.MoveLast End Sub Private Sub DisplayFields() 实现把指定记录的各字段值显示在文本框中的自定义函名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 6 页 - - - - - - - - - 数TxtName.Text = DbRecordset! 姓名在文本框中显示指定的字段值TxtPhone.Text = DbRecordset! 电话TxtAddress.Text = DbRecordset! 地址End Sub 图 1 VB 数据库数据访问对象（DAO ）层次结构图名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 6 页 - - - - - - - - -