vb第8章：数据库Newppt课件

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控件连接设置连接属性ADO控件属性说明ConnectionString包含了用于与数据源建立连接的相关信息（ADO控件没有DatabaseName属性） 。RecordSource确定具体可访问的数据，这些数据构成记录集对象Recordset。第八章第八章 数数 据据 库库连接操作-鼠标右击ADO控件，选择快捷菜单

7、“ADODC属性命令，打开ADO控件属性页窗：单击第八章第八章 数数 据据 库库选定第八章第八章 数数 据据 库库选择服务器选择数据库第八章第八章 数数 据据 库库选择命令类型选择数据源第八章第八章 数数 据据 库库设置完成后，ADO控件的ConnectionString属性为： Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=学生信息管理;Data Source=LCHRecordSource属性为：Select * From 学生表ADO控件的的其他操作与Dat

8、a控件相同。第八章第八章 数数 据据 库库8.4.3 ADO控件上绑定控件的使用网格控件比较网格控件分 类功能说明MSFlexGrid标准不能进行编辑，有图形功能。MSHFlexGridOLEDB不能进行编辑，可分层处理网格，有图形功能。DataGridOLEDB可以进行编辑操作，显示文本。MSFlexGridMSHFlexGridDataGridMSChartDataComboDataList例例 使用使用ADO控件和控件和DataGrid网格控件浏览数据库。网格控件浏览数据库。 第八章第八章 数数 据据 库库一、如何往数据库中添加数据第八章第八章 数数 据据 库库Private Sub C

9、ommand2_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.Text Adodc1.Recordset.Fields(年龄) = Val(Text3.Text) Adodc1.Recordset.F

10、ields(入学年份) = 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 Then Adodc1.RecordSource = Select * From 学生表 Where 姓名= & Text5.Text

11、 & 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.Fields(性别) = 女, True, False) Combo1.Text = Adodc1.Recordset.

12、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第八章第八章 数数 据据 库库第八章第八章 数数 据据 库库四、如何删除指定条件的记录第八章第八章 数数 据据 库库Private Su

13、b 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 = vbYes Then Adodc1.Recordset.Delete End If Else MsgBox 该学生不存在, vbInformation End If End IfEnd Su