《数据库访问技术.ppt》由会员分享，可在线阅读，更多相关《数据库访问技术.ppt（40页珍藏版）》请在三一办公上搜索。
1、第14章 数据库访问技术,141 数据库概述 142Access 2000数据库143使用数据控件144 使用ADO控件,数据库（DataBase）是计算机应用的一个主要方向。VB提供了一个相当好用的数据控件Data，通过该控件你甚至不必写代码就可以处理现存数据库中的数据。当然，你也可以加入一些代码，使你的数据库管理系统具备更强大的功能。此外，VB还提供了多种数据存取对象，更强化了其处理数据库的能力。限于篇幅和时间，本章只讲述VB中处理数据库的基本方法。,141 数据库概述,VB中提供了多种访问数据库的方法，可以访问的数据库类型有dBase、FoxPro、Excel和Access数据库。另外可
2、以通过其它方式访问MS SQL Server、Oracle和Sybase等，并以客户机服务器（C/S）方式存取数据库中的数据。一、数据库的概念 二、关系型数据库,一、数据库的概念,指一组排列成易于处理或读取的相关信息，它是由一个或多个表对象组成的集合。这有些类似于Excel的工作簿和工作表。,1.数据库,是指在操作系统支持下为数据库建立、使用和维护而配置的庞大软件，如Microsoft SQL Server和Microsoft Access等等。,2.数据库管理系统,是指用VB、FoxPro等开发工具设计的、实现某种特定数据库访问功能的应用程序。,3.数据库应用程序,二、关系型数据库,数据库按
3、其结构可分为层次模型、网状模型和关系模型三种。每一种模型对应一种格式的数据库，使用最多、最容易管理的是关系数据库。VB默认的数据库是Microsoft Access数据库，扩展名为.MDB，因此，VB处理Access数据库的速度最快。不过，VB亦可处理其它格式的数据库，如Excel、dBase、FoxBase、FoxPro、Paradox等。无论各种数据库内部格式如何不同，VB都会自动将其转变为关系数据库。,二、关系数据库,数据表是一组相关的数据按行、列排列的二维表格，简称为表。每个数据表都有一个名字，一个数据库一般都由一个或多个数据表构成，如：dBase、FoxBase、FoxPro等数据库
4、均由一个数据表构成，Excel数据库可以由多个表（Sheet1、Sheet2、Sheet3等）构成，Access数据库由一个或多个数据表构成。,1.数据表：Table,二、关系数据库,数据表由多行多列组成，每一列称为一个字段(Field)；数据表表头中的每一个数据项的名称称为字段名。如姓名、性别、职务等。,表头（字段名）下面的每一行称为一个记录(Record)；如每一个人的信息所在的行就是一条记录。,2.字段：Field,3.记录：Record,142 Access 2000数据库,Access 2000数据库管理系统是Microsoft Office 2000的一个组件，是最常用的本地数据库
5、之一。在VB中可以方便地使用Data控件和ADO控件来操作Access数据库。,一、创建Access数据库和表,1.创建Access数据库,一、创建Access数据库和表,2.创建Access数据表,二、创建查询,二、创建查询,143使用数据控件,为了便于访问数据库，VB专门提供了一个数据控件：Data，这是一个简单、方便、快捷的数据库访问对象，借助它我们只需在程序中编写少量的代码就可以访问各种格式的数据库。,一、数据控件的属性,1.DataBaseName属性决定欲连接的数据库文件名。2.RecordSource属性决定欲连接的数据表名。3.Connect属性指明欲存取的数据库格式。4.Ex
6、clusive属性决定数据库是否供单人使用。5.ReadOnly属性决定是否将所连接的数据库设为只读。,通过设定Data控件的有关属性，可以将其与有关的数据库建立起关联。但这个控件不具备显示数据库中相应字段的能力，只能借助数据库连接控件（数据感知控件、数据绑定控件）：如TextBox、Label、ListBox、ComboBox、ImageBox、PictureBox等来显示数据库中的某一字段的内容。“数据库文件”通过Data控件和“数据库连接控件”建立起联系。,二、数据绑定控件,数据绑定控件的两个重要属性：DataSource属性设定欲连接的Data控件的名称。DataField属性设定欲连
7、接的字段名称。,二、数据绑定控件,三、数据控件的事件,1.Error事件：当数据库存取发生错误时激发Error事件；用于捕获错误并创建错误处理过程。2.Reposition事件：当用户单击Data控件上某个箭头按钮，或者在代码中使用了某个Move或Find方法使某条新记录成为当前记录时，将激发Reposition事件。当一个新记录成为当前记录之后发生。3.Validate事件：当一个新记录成为当前记录之前发生。,四、数据控件的方法,1.Refresh方法：刷新记录集。用来建立或重新显示与Data控件相连接的数据库记录集。2.UpdateRecord方法：在修改数据后调用该方法来确认修改。3.U
8、pdateControls方法：将数据从数据库中重新读入到数据绑定控件中，即可以使用该方法放弃对数据绑定控件中数据的修改。4.Close方法：用于关闭数据库或记录集，并且将该对象设置为空。,数据库中的所有记录（或查询后的所有记录）构成了一个记录集：Recordset，此记录集又是一个对象，借助这个对象，可以对数据库中的记录进行各种操作：,五、记录集对象（Recordset）,BOF和EOF属性。AbsolutePosition属性。Bookmark属性。RecordCount属性。,1.Recordset对象的属性,五、记录集对象（Recordset）,2.Recordset对象的方法,六、程
9、序举例,案例程序3：信封通,案例程序2：双向词典,案例程序1：多媒体数据库,演示,演示,演示,144 ADO数据对象访问技术,一、ADO编程模型简介二、使用ADO编程模型三、使用ADO控件四、使用数据环境设计器五、创建数据报表,1.连 接（Connection）对象2.命 令（Command）对象 3.记录集（Recordset）对象,一、ADO编程模型简介,Dim cnn As New ADODB.Connection,rst As New ADODB.RecordsetPrivate Sub Form_Load()s=Provider=Microsoft.Jet.OLEDB.3.51;Pe
10、rsist Security Info=False;&Data Source=d:VB6lxrsgl.mdb cnn.CursorLocation=adUseClient cnn.Open s:Set rst=New Recordset rst.Open 职工工资,cnn,adOpenStatic,adLockOptimistic For Each aa In text1 Set aa.DataSource=r 绑定所有文本框到记录源 Next Combo1.AddItem“全体”初始化组合框 Combo1.AddItem 保卫 Combo1.AddItem 财务 Combo1.AddItem
11、 技术 Combo1.AddItem 生产 Combo1.AddItem 供销 Combo1.Text=Combo1.List(0)End Sub,二、使用ADO编程模型,编写命令按钮控件数组Command1()的Click事件代码：Private Sub Command1_Click(Index As Integer)n=Index Select Case n Case 0 rst.MoveFirst Case 1 上一个 rst.MovePrevious If rst.BOF Then rst.MoveFirst Case 2 下一个 rst.MoveNext If rst.EOF The
12、n rst.MoveLast Case 3 末一个 rst.MoveLast End SelectEnd Sub,二、使用ADO编程模型,编写组合框Combo1的Click事件代码：Private Sub Combo1_Click()t=Combo1.Text If t=全体 Then rst.Filter=Else rst.Filter=部门=&t&End If rst.Resync adAffectAllChaptersEnd Sub,二、使用ADO编程模型,添加ADO Data控件 2.ADO Data控件的属性 ADO Data控件对数据的操作 4.使用ADO Data控件【例12-3
13、】使用ADO Data控件建立的工资管理数据窗体，如图12-25所示。,三、使用ADO对象,设计步骤如下：(1)建立应用程序用户界面。(2)设置对象属性。(3)编写代码。Private Sub command1_Click(Index As Integer)Select Case Index Case 0 添加确定按钮 If command1(0).Caption=添加(&A)Then command1(0).Caption=确定(&O)command1(1).Caption=取消(&C)aa(False)Else command1(0).Caption=添加(&A),三、使用ADO对象,Ad
14、odc1.Recordset.UpdateBatch adAffectAll aa(True)End If Case 1 编辑取消按钮 If command1(1).Caption=编辑(&E)Then command1(0).Caption=确定(&O)command1(1).Caption=取消(&C)aa(False)Else command1(0).Caption=添加(&A)command1(1).Caption=编辑(&E)Adodc1.Refresh aa(True)End If,三、使用ADO对象,Case 2 删除按钮 Case 3 关闭按钮 Unload Me End Se
15、lectEnd Sub 其中调用了通用Sub过程aa：Private Sub aa(l As Boolean)Dim oTxt As TextBox For Each oTxt In text1 oTxt.Locked=l Next command1(2).Visible=l command1(3).Visible=lEnd Sub,三、使用ADO对象,为文本框控件组Text1编写计算“实发工资”的过程代码：Private Sub text1_Validate(Index As Integer,_ Cancel As Boolean)Dim a(3 To 8)As Single Select
16、Case Index Case 3 To 8 For i=3 To 8 a(i)=Val(text1(i).Text)Next text1(9).Text=a(3)+a(4)+a(5)+a(6)-a(7)-a(8)End SelectEnd Sub,三、使用ADO对象,为显示当前记录位置，编写adodc1的MoveComplete事件代码Private Sub adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum,ByVal pError As ADODB.Error,adStatus As ADODB.EventStatusE
17、num,ByVal pRecordset As ADODB.Recordset)Adodc1.Caption=记录：&(Adodc1.Recordset.AbsolutePosition)End Sub,三、使用ADO对象,1.向工程中添加数据环境2.创建连接对象3.创建命令对象 4.使用数据环境【例12-4】在例12-2的数据查看窗体中使用数据环境。设计步骤如下：(1)建立应用程序用户界面。(2)建立数据环境。(3)修改属性设置。,四、使用数据环境设计器,Private Sub Form_Load()Combo1.AddItem 全体 Combo1.AddItem 保卫 Combo1.Add
18、Item 财务 Combo1.AddItem 技术 Combo1.AddItem 生产 Combo1.AddItem 供销 Combo1.Text=Combo1.List(0)End Sub,四、使用数据环境设计器,Private Sub command1_Click(Index As Integer)Select Case Index Case 0 Case 1 If DataEnvironment1.rsCommand1.BOF()Then End If Case 2 If DataEnvironment1.rsCommand1.EOF()Then End If,四、使用数据环境设计器,C
19、ase 3 End SelectEnd Sub 修改组合框的事件代码：Private Sub Combo1_Click()t=Combo1.Text If t=全体 Then DataEnvironment1.rsCommand1.Filter=Else=部门=&t&End IfEnd Sub,四、使用数据环境设计器,1.设计数据环境 2.添加DataReport 在属性窗口中设置DataReport1对象的属性：DataSource属性改为：DataEnvironment1 DataMember属性改为：Command1_分组3.设计报表中界面 4.编写代码 编写DataReport1的In
20、itialize事件代码：Private Sub DataReport_Initialize()DataReport1.Title=大江电机厂&Month(Date)&月份工资报表End Sub5.运行报表,五、创建数据报表,五、数据窗体设计器,1新建一个标准EXE工程,五、数据窗体设计器,2打开数据窗体设计器 打开“可视化数据管理器”打开要浏览的数据库 从“实用程序”菜单中选择“数据窗体设计器”,五、数据窗体设计器,3设计窗体 输入窗体名称，如：StuData 选择记录源 选择相应字段 调整字段的先后位置 生成窗体（窗体名由“frm输入的窗体名称”统一构成）,五、数据窗体设计器,4用Show方法等在工程中将其呈现出来 如：frmStuData.Show,
