《vb第8章数据库Newppt课件》由会员分享，可在线阅读，更多相关《vb第8章数据库Newppt课件（23页珍藏版）》请在金锄头文库上搜索。
1、V i s u a l B A S I C 程程序序设设计计第第8 8章章数数 据据 库库本章要点本章要点: : 可视化数据管理器可视化数据管理器 数据控件和数据绑定控件数据控件和数据绑定控件 使用使用ADOADO访问数据访问数据第第八八章章 数数 据据 库库8.1 数据访问对象模型数据访问对象模型 在在VB中，要对数据库进行访问，需要通过数据中，要对数据库进行访问，需要通过数据访问对象进行，数据访问对象包括访问对象进行，数据访问对象包括:1. DAO: Data Access Object 数据访问对象数据访问对象2. RDO: Remote Data Object 远程数据对象远程数据对象
2、3. ADO: ActiveX Data Object ActiveX数据对象数据对象 ADO是是DAO/RDO的后继产物，它扩展了的后继产物，它扩展了DAO和和RDO所使用的对象模型，包含较少的对象，更所使用的对象模型，包含较少的对象，更多的属性、事件和方法。多的属性、事件和方法。 通过通过ADO可以访问各种各样的数据源。可以访问各种各样的数据源。第第八八章章 数数 据据 库库8.2 8.2 可视化数据管理器可视化数据管理器 提供可视界面，用于建立数据库；对数据库进提供可视界面，用于建立数据库；对数据库进行修改、添加、删除、查询等操作。行修改、添加、删除、查询等操作。第第八八章章 数数 据据
3、 库库8.2.1 数据的增加、删除、修正数据的增加、删除、修正表类型表类型动态集类型动态集类型快照类型快照类型使用使用Data控件控件不使用不使用Data控件控件使用使用DBGrid控件控件开始事务开始事务回滚当前事务回滚当前事务 提交当前事务提交当前事务 第第八八章章 数数 据据 库库8.2 8.2 数据控件和数据绑定控件数据控件和数据绑定控件数据控件数据控件: 可以对数据库中的数据进行操作，却不可以对数据库中的数据进行操作，却不能显示数据库中的数据能显示数据库中的数据绑定控件绑定控件: 用于显示由数据控件所确定的记录集中用于显示由数据控件所确定的记录集中的数据。的数据。 绑定控件、数据控件
4、和数据库之间的关系如下绑定控件、数据控件和数据库之间的关系如下:绑定控件绑定控件数据控件数据控件数据库数据库第第八八章章 数数 据据 库库8.3 数据绑定控件数据绑定控件 要使数据绑定控件能够显示数据库记录集中要使数据绑定控件能够显示数据库记录集中的数据，必须首先在设计时或在运行时设置这些的数据，必须首先在设计时或在运行时设置这些控件的两个属性控件的两个属性:DataSource属性属性: 返回或设置一个数据源，通过该返回或设置一个数据源，通过该数据源，数据绑定控件被绑定到一个数据库。数据源，数据绑定控件被绑定到一个数据库。DataField属性属性: 返回或设置数据绑定控件将被绑定返回或设置
5、数据绑定控件将被绑定到的字段名。到的字段名。第第八八章章 数数 据据 库库8.4 ADO数据控件 ADO是Microsoft处理数据库信息的最新技术，它是一种ActiveX对象，采用了被称为OLE DB的数据访问模式。它是数据访问对象DAO、远程数据对象RDO和开放数据库互连ODBC三种方式的扩展。ADO对象模型更为简化，不论是存取本地的还是远程的数据，都提供了统一的接口。8.4.2 使用使用ADO数据控件数据控件8.4.1 ADO对象模型对象模型 在使用ADO数据控件前，必须先通过“工程/部件菜单命令选择“Microsoft ADO Data Control 6.0(OLE DB)”选项，将
6、ADO数据控件添加到工具箱。ADO数据控件与Visual Basic的内部数据控件很相似，它允许使用ADO数据控件的基本属性快速地创建与数据库的连接。第第八八章章 数数 据据 库库工具箱内ADO控件图标形状 画在窗体上的外观能够利用三种记录集对象访问数据库中的数据，连接方法：第第八八章章 数数 据据 库库连接操作-鼠标右击ADO控件，选择快捷菜单 “ADODC属性命令，打开ADO控件属性页窗：单击第第八八章章 数数 据据 库库选定第第八八章章 数数 据据 库库选择服务器选择数据库第第八八章章 数数 据据 库库选择命令类型选择数据源第第八八章章 数数 据据 库库设置完成后，ADO控件的Conne
7、ctionString属性为： Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=学生信息管理;Data Source=LCHRecordSource属性为：Select * From 学生表ADO控件的的其他操作与Data控件相同。第第八八章章 数数 据据 库库8.4.3 ADO控件上绑定控件的使用MSFlexGridMSHFlexGridDataGridMSChartDataComboDataList例例 使用使用ADO控件和控件和DataGrid网格控件浏览数据
8、库。网格控件浏览数据库。 第第八八章章 数数 据据 库库一、如何往数据库中添加数据第第八八章章 数数 据据 库库Private Sub Command2_Click() Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(学号) = Text1.Text Adodc1.Recordset.Fields(姓名) = Text2.Text Adodc1.Recordset.Fields(性别) = IIf(Option1.Value, 男, 女) Adodc1.Recordset.Fields(所在院系) = Combo1.
9、Text Adodc1.Recordset.Fields(年龄) = Val(Text3.Text) Adodc1.Recordset.Fields(入学年份) = Text4.Text Adodc1.Recordset.Update Text1.Text = Text2.Text = Text3.Text = Text4.Text = Combo1.Text = End Sub第第八八章章 数数 据据 库库二、如何查询指定条件数据第第八八章章 数数 据据 库库Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Th
10、en Adodc1.RecordSource = Select * From 学生表 Where 姓名= & Text5.Text & Adodc1.Refresh If Not Adodc1.Recordset.EOF Then Text1.Text = Adodc1.Recordset.Fields(学号) Text2.Text = Adodc1.Recordset.Fields(姓名) Option1.Value = IIf(Adodc1.Recordset.Fields(性别) = 男, True, False) Option2.Value = IIf(Adodc1.Recordset
11、.Fields(性别) = 女, True, False) Combo1.Text = Adodc1.Recordset.Fields(所在院系) Text3.Text = Adodc1.Recordset.Fields(年龄) Text4.Text = Adodc1.Recordset.Fields(入学年份) Else MsgBox 该学生不存在, vbInformation End If End IfEnd Sub第第八八章章 数数 据据 库库三、用表格显示满足条件数据步骤：1、添加DataGrid控件 2、将DataGrid控件的DataSource属性设置为Adodc1第第八八章章
12、数数 据据 库库第第八八章章 数数 据据 库库四、如何删除指定条件的记录第第八八章章 数数 据据 库库Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Adodc1.RecordSource = Select * From 学生表 Where 姓名= & Text5.Text & Adodc1.Refresh If Not Adodc1.Recordset.EOF Then sel = MsgBox(确认要删除 & Text5.Text & 吗?, vbQuestion + vbYesNo) If sel
13、 = vbYes Then Adodc1.Recordset.Delete End If Else MsgBox 该学生不存在, vbInformation End If End IfEnd Sub第第八八章章 数数 据据 库库 上机作业上机作业1、用、用SQL Server建立一个建立一个“学生学生信息管理数据库，其中包含一个信息管理数据库，其中包含一个学生表字段包括：学号、姓名、学生表字段包括：学号、姓名、性别、年龄）性别、年龄）2、建立一个可以添加信息的窗口、建立一个可以添加信息的窗口3、建立一个可以查询信息的窗口、建立一个可以查询信息的窗口4、建立一个可以删除信息的窗口、建立一个可以删除信息的窗口
