《数据库访问技术》PPT课件.ppt

第14章数据库访问技术,141数据库概述142Access2000数据库143使用数据控件144使用ADO控件,数据库（DataBase）是计算机应用的一个主要方向。VB提供了一个相当好用的数据控件Data，通过该控件你甚至不必写代码就可以处理现存数据库中的数据。当然，你也可以加入一些代码，使你的数据库管理系统具备更强大的功能。此外，VB还提供了多种数据存取对象，更强化了其处理数据库的能力。限于篇幅和时间，本章只讲述VB中处理数据库的基本方法。,141数据库概述,VB中提供了多种访问数据库的方法，可以访问的数据库类型有dBase、FoxPro、Excel和Access数据库。另外可以通过其它方式访问MSSQLServer、Oracle和Sybase等，并以客户机服务器（C/S）方式存取数据库中的数据。一、数据库的概念二、关系型数据库,一、数据库的概念,指一组排列成易于处理或读取的相关信息，它是由一个或多个表对象组成的集合。这有些类似于Excel的工作簿和工作表。,1.数据库,是指在操作系统支持下为数据库建立、使用和维护而配置的庞大软件，如MicrosoftSQLServer和MicrosoftAccess等等。,2.数据库管理系统,是指用VB、FoxPro等开发工具设计的、实现某种特定数据库访问功能的应用程序。,3.数据库应用程序,二、关系型数据库,数据库按其结构可分为层次模型、网状模型和关系模型三种。每一种模型对应一种格式的数据库，使用最多、最容易管理的是关系数据库。VB默认的数据库是MicrosoftAccess数据库，扩展名为.MDB，因此，VB处理Access数据库的速度最快。不过，VB亦可处理其它格式的数据库，如Excel、dBase、FoxBase、FoxPro、Paradox等。无论各种数据库内部格式如何不同，VB都会自动将其转变为关系数据库。,二、关系数据库,数据表是一组相关的数据按行、列排列的二维表格，简称为表。每个数据表都有一个名字，一个数据库一般都由一个或多个数据表构成，如：dBase、FoxBase、FoxPro等数据库均由一个数据表构成，Excel数据库可以由多个表（Sheet1、Sheet2、Sheet3等）构成，Access数据库由一个或多个数据表构成。,1.数据表：Table,二、关系数据库,数据表由多行多列组成，每一列称为一个字段(Field)；数据表表头中的每一个数据项的名称称为字段名。如姓名、性别、职务等。,表头（字段名）下面的每一行称为一个记录(Record)；如每一个人的信息所在的行就是一条记录。,2.字段：Field,3.记录：Record,142Access2000数据库,Access2000数据库管理系统是MicrosoftOffice2000的一个组件，是最常用的本地数据库之一。在VB中可以方便地使用Data控件和ADO控件来操作Access数据库。,一、创建Access数据库和表,1.创建Access数据库,一、创建Access数据库和表,2.创建Access数据表,二、创建查询,二、创建查询,143使用数据控件,为了便于访问数据库，VB专门提供了一个数据控件：Data，这是一个简单、方便、快捷的数据库访问对象，借助它我们只需在程序中编写少量的代码就可以访问各种格式的数据库。,一、数据控件的属性,1.DataBaseName属性决定欲连接的数据库文件名。2.RecordSource属性决定欲连接的数据表名。3.Connect属性指明欲存取的数据库格式。4.Exclusive属性决定数据库是否供单人使用。5.ReadOnly属性决定是否将所连接的数据库设为只读。,通过设定Data控件的有关属性，可以将其与有关的数据库建立起关联。但这个控件不具备显示数据库中相应字段的能力，只能借助数据库连接控件（数据感知控件、数据绑定控件）：如TextBox、Label、ListBox、ComboBox、ImageBox、PictureBox等来显示数据库中的某一字段的内容。“数据库文件”通过Data控件和“数据库连接控件”建立起联系。,二、数据绑定控件,数据绑定控件的两个重要属性：DataSource属性设定欲连接的Data控件的名称。DataField属性设定欲连接的字段名称。,二、数据绑定控件,三、数据控件的事件,1.Error事件：当数据库存取发生错误时激发Error事件；用于捕获错误并创建错误处理过程。2.Reposition事件：当用户单击Data控件上某个箭头按钮，或者在代码中使用了某个Move或Find方法使某条新记录成为当前记录时，将激发Reposition事件。当一个新记录成为当前记录之后发生。3.Validate事件：当一个新记录成为当前记录之前发生。,四、数据控件的方法,1.Refresh方法：刷新记录集。用来建立或重新显示与Data控件相连接的数据库记录集。2.UpdateRecord方法：在修改数据后调用该方法来确认修改。3.UpdateControls方法：将数据从数据库中重新读入到数据绑定控件中，即可以使用该方法放弃对数据绑定控件中数据的修改。4.Close方法：用于关闭数据库或记录集，并且将该对象设置为空。,数据库中的所有记录（或查询后的所有记录）构成了一个记录集：Recordset，此记录集又是一个对象，借助这个对象，可以对数据库中的记录进行各种操作：,五、记录集对象（Recordset）,BOF和EOF属性。AbsolutePosition属性。Bookmark属性。RecordCount属性。,1.Recordset对象的属性,五、记录集对象（Recordset）,2.Recordset对象的方法,六、程序举例,案例程序3：信封通,案例程序2：双向词典,案例程序1：多媒体数据库,演示,演示,演示,144ADO数据对象访问技术,一、ADO编程模型简介二、使用ADO编程模型三、使用ADO控件四、使用数据环境设计器五、创建数据报表,1.连接（Connection）对象2.命令（Command）对象3.记录集（Recordset）对象,一、ADO编程模型简介,DimcnnAsNewADODB.Connection,rstAsNewADODB.RecordsetPrivateSubForm_Load()s=Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;&DataSource=d:VB6lxrsgl.mdbcnn.CursorLocation=adUseClientcnn.Opens:Setrst=NewRecordsetrst.Open职工工资,cnn,adOpenStatic,adLockOptimisticForEachaaIntext1Setaa.DataSource=r绑定所有文本框到记录源NextCombo1.AddItem“全体”初始化组合框Combo1.AddItem保卫Combo1.AddItem财务Combo1.AddItem技术Combo1.AddItem生产Combo1.AddItem供销Combo1.Text=Combo1.List(0)EndSub,二、使用ADO编程模型,编写命令按钮控件数组Command1()的Click事件代码：PrivateSubCommand1_Click(IndexAsInteger)n=IndexSelectCasenCase0rst.MoveFirstCase1上一个rst.MovePreviousIfrst.BOFThenrst.MoveFirstCase2下一个rst.MoveNextIfrst.EOFThenrst.MoveLastCase3末一个rst.MoveLastEndSelectEndSub,二、使用ADO编程模型,编写组合框Combo1的Click事件代码：PrivateSubCombo1_Click()t=Combo1.TextIft=全体Thenrst.Filter=Elserst.Filter=部门=&t&EndIfrst.ResyncadAffectAllChaptersEndSub,二、使用ADO编程模型,添加ADOData控件2.ADOData控件的属性ADOData控件对数据的操作4.使用ADOData控件【例12-3】使用ADOData控件建立的工资管理数据窗体，如图12-25所示。,三、使用ADO对象,设计步骤如下：(1)建立应用程序用户界面。(2)设置对象属性。(3)编写代码。PrivateSubcommand1_Click(IndexAsInteger)SelectCaseIndexCase0添加确定按钮Ifcommand1(0).Caption=添加(&A)Thencommand1(0).Caption=确定(&O)command1(1).Caption=取消(&C)Adodc1.Recordset.AddNewaa(False)Elsecommand1(0).Caption=添加(&A),三、使用ADO对象,Adodc1.Recordset.UpdateBatchadAffectAllaa(True)EndIfCase1编辑取消按钮Ifcommand1(1).Caption=编辑(&E)Thencommand1(0).Caption=确定(&O)command1(1).Caption=取消(&C)aa(False)Elsecommand1(0).Caption=添加(&A)command1(1).Caption=编辑(&E)Adodc1.Recordset.CancelUpdateAdodc1.Refreshaa(True)EndIf,三、使用ADO对象,Case2删除按钮Adodc1.Recordset.DeleteAdodc1.Recordset.MoveNextCase3关闭按钮UnloadMeEndSelectEndSub其中调用了通用Sub过程aa：PrivateSubaa(lAsBoolean)DimoTxtAsTextBoxForEachoTxtIntext1oTxt.Locked=lNextcommand1(2).Visible=lcommand1(3).Visible=lEndSub,三、使用ADO对象,为文本框控件组Text1编写计算“实发工资”的过程代码：PrivateSubtext1_Validate(IndexAsInteger,_CancelAsBoolean)Dima(3To8)AsSingleSelectCaseIndexCase3To8Fori=3To8a(i)=Val(text1(i).Text)Nexttext1(9).Text=a(3)+a(4)+a(5)+a(6)-a(7)-a(8)EndSelectEndSub,三、使用ADO对象,为显示当前记录位置，编写adodc1的MoveComplete事件代码PrivateSubadodc1_MoveComplete(ByValadReasonAsADODB.EventReasonEnum,ByValpErrorAsADODB.Error,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)Adodc1.Caption=记录：&(Adodc1.Recordset.AbsolutePosition)EndSub,三、使用ADO对象,1.向工程中添加数据环境2.创建连接对象3.创建命令对象4.使用数据环境【例12-4】在例12-2的数据查看窗体中使用数据环境。设计步骤如下：(1)建立应用程序用户界面。(2)建立数据环境。(3)修改属性设置。,四、使用数据环境设计器,PrivateSubForm_Load()Combo1.AddItem全体Combo1.AddItem保卫Combo1.AddItem财务Combo1.AddItem技术Combo1.AddItem生产Combo1.AddItem供销Combo1.Text=Combo1.List(0)EndSub,四、使用数据环境设计器,PrivateSubcommand1_Click(IndexAsInteger)SelectCaseIndexCase0DataEnvironment1.rsCommand1.MoveFirstCase1DataEnvironment1.rsCommand1.MovePreviousIfDataEnvironment1.rsCommand1.BOF()ThenDataEnvironment1.rsCommand1.MoveFirstEndIfCase2DataEnvironment1.rsCommand1.MoveNextIfDataEnvironment1.rsCommand1.EOF()ThenDataEnvironment1.rsCommand1.MoveLastEndIf,四、使用数据环境设计器,Case3DataEnvironment1.rsCommand1.MoveLastEndSelectEndSub修改组合框的事件代码：PrivateSubCombo1_Click()t=Combo1.TextIft=全体ThenDataEnvironment1.rsCommand1.Filter=ElseDataEnvironment1.rsCommand1.Filter=部门=&t&EndIfEndSub,四、使用数据环境设计器,1.设计数据环境2.添加DataReport在属性窗口中设置DataReport1对象的属性：DataSource属性改为：DataEnvironment1DataMember属性改为：Command1_分组3.设计报表中界面4.编写代码编写DataReport1的Initialize事件代码：PrivateSubDataReport_Initialize()DataReport1.Title=大江电机厂&Month(Date)&月份工资报表EndSub5.运行报表,五、创建数据报表,五、数据窗体设计器,1新建一个标准EXE工程,五、数据窗体设计器,2打开数据窗体设计器打开“可视化数据管理器”打开要浏览的数据库从“实用程序”菜单中选择“数据窗体设计器”,五、数据窗体设计器,3设计窗体输入窗体名称，如：StuData选择记录源选择相应字段调整字段的先后位置生成窗体（窗体名由“frm输入的窗体名称”统一构成）,五、数据窗体设计器,4用Show方法等在工程中将其呈现出来如：frmStuData.Show,