第12节 数据库开发.pptVIP

第12章 数据库访问 12.1 数据库基本知识 12.2 数据库的创建 12.3 Data控件及应用 12.4 ADO Data控件及应用 12.5 SQL语言 12.6 ADO对象及应用 12.1 数据库基本知识 12.2 数据库的创建 12.2.1 利用可视化数据管理器（VisData）创建数据库 12.2.2 用DAO对象创建数据库 1、对DAO对象的引用 【例12.1】用DAO对象来创建数据库student.mdb。 ?Dim MyData As Database Dim MyTable As TableDef Dim MyField As Field Set MyData = Workspaces(0).CreateDatabase(e:\student.mdb, dbLangGeneral, dbversion70) Set MyTable = MyData.CreateTableDef(jbqk) Set MyField = MyTable.CreateField(学号, dbText, 6) MyTable.Fields.Append MyField Set MyField = MyTable.CreateField(姓名, dbText, 10) MyTable.Fields.Append MyField Set MyField = MyTable.CreateField(性别, dbText, 10) MyTable.Fields.Append MyField Set MyField = MyTable.CreateField(班级, dbText, 20) MyTable.Fields.Append MyField Set MyField = MyTable.CreateField(英语, dbInteger) MyTable.Fields.Append MyField Set MyField = MyTable.CreateField(计算机, dbInteger) MyTable.Fields.Append MyField Set MyField = MyTable.CreateField(照片, dbText, 60) MyTable.Fields.Append MyField MyData.TableDefs.Append MyTable 12.3 Data控件及应用 Data数据控件提供了一种访问数据库中数据的方法。数据控件只是负责数据库和工程之间的数据交换，本身并不显示数据，要借助Visual Basic控件中的绑定控件来显示数据表中的数据。数据控件使得用户可以不编写任何代码就能完成对数据库的大部分操作。Data数据控件可以操作如Microsoft Access，Microsoft FoxPro和dBase等数据库。也可用Data控件来访问Microsoft Excel，Lotust 和标准ASCII文本文件等数据源。此外，Data控件还可访问和操作远程的开放式数据库互连（ODBC）数据库，如Microsoft SQL服务器和Oracle。 12.3.1 Data控件的基本功能及常用属性 1.Data控件常用属性 Connect：设置或返回数据数据库类型。可通过【属性】窗口设置Connect属性，也可以在运行时通过代码来设置，例： Data1.Connect=”Excel 9.0” 如果处理的是Access格式的数据库，则不需要设置此属性。 DatabaseName：设置或返回被访问数据库的名称或路径。可在设计时用【属性】窗口设置该属性；也可以在运行时通过代码来设置，例： Data1.DatabaseName= App.Path + \student .mdb App.Path：表示当前路径。 RecordSource：设置或返回数据库中表或查询的名称。也可以在运行时通过代码来设置，例： Data1.RecordSource =jbqk RecordsetType：在通过代码或其他数据控件建立记录集时设置这个属性，但必须确保绑定的数据控件的DataField属性与记录集中的域匹配。 ReadOnly：在对数据库只查看不修改时，通常将此属性设置为True； Exclusive：当这个属性值设置为True时，则在通过关闭数据库撤消这个设置前，其他任何用户都不能对数据库进行访问（独占模式）。默认值为False。 2.Data控件常用事件 Reposition：当用户单击Data控件两端的或按钮来改变当前记录时，触发该事件。 12.3.2 使用data控件