Visual Basic第12章 数据库编程.pptVIP

12.5 数据库记录的操作 例如：假设数据库Student内student表的索引字段为学号，满足学号字段值大于等于0003的第1条记录可使用以下程序代码： Data1.RecordsetType = 0??????????????? ’设置记录集类型为Table Data1.RecordSource = student??????? ’打开基本情况表单 Data1.Refresh Data1.Recordset.Index = sno????? ’打开名称为jbqk_no的索引 Data1.Recordset.Seek =, 0003 12.5 数据库记录的操作 12.5.3 如何添加记录 AddNew方法在记录集中增加新记录。增加记录的步骤为： (1)调用AddNew方法。 语法： 记录集.AddNew [字段名, 字段值] (2)给各字段赋值。给字段赋值格式为：Recordset.Fields(”字段名”)=值。 (3)调用Update方法，确定所做的添加，将缓冲区内的数据写入数据库。 12.5 数据库记录的操作 12.5.4 如何修改记录 数据控件自动提供了修改现有记录的能力，当直接改变被数据库所约束的绑定控件的内容后，需单击数据控件对象的任一箭头按钮来改变当前记录，确定所做的修改。也可通过程序代码来修改记录，使用程序代码修改当前记录的步骤为： (1)调用Edit方法。 (2)给各字段赋值。 (3)调用Update方法，确定所做的修改。 注意：如果要放弃对数据的所有修改，可用Refresh方法，重读数据库，没有调用Update方法，数据的修改没有写入数据库，所以这样的记录会在刷新记录集时丢失。 12.5 数据库记录的操作 12.5.5 如何删除记录 要从记录集中删除记录的操作分为三步： (1)定位被删除的记录使之成为当前记录。 (2)调用Delete方法。 用记录集的Delete方法删除记录。 语法： 记录集.Delete [AffectRecords] 其中，AffectRecords参数（受影响的记录）可取以下值： AdAffectCurrent：默认。仅删除当前记录。 AdAffectGroup：删除满足记录集Filter属性设置的记录。 AdAffectAll：删除所有记录。 AdAffectAllChapters：删除所有子集记录 12.5 数据库记录的操作 (3)移动记录指针。 例如：用记录集的Delete方法删除当前记录。 Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF And _ Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveLast 说明：删除当前记录后，数据绑定控件（如文本框等）仍将保持已被删除的记录内容而不刷新。将记录指针移动到下一条记录，可以让用户感觉到记录已被删除，同时自动调用Update方法更新数据库。 12.6 ADO编程模型简介 12.6.1 ADO的主要对象 ADO的核心是Connection、Recordset和Command对象。ADO编程模型不使用ADO数据控件，直接用代码通过ADO对象访问数据库。 使用ADO编程模型需添加ADO对象类库的“引用”：执行[工程]菜单中的[引用]命令，打开[引用]对话框，在对话框的列表中选中“Microsoft ActiveX Data Objects 2.x Library”前的复选框，单击[确定]按钮。 添加“引用”后，应声明ADO对象变量： Dim 变量名 As New ADODB.对象 12.3 用控件访问数据库 12.3.2 ADO数据控件 ADO(ActiveX Data Object)数据访问接口是Microsoft处理数据库信息的最新技术。它是一种ActiveX对象，采用了被称为OLE DB的数据访问模式，是数据访问对象DAO、远程数据对象RDO和开放数据库互连ODBC三种方式的扩展。ADO对象模型定义了—个可编程的分层对象集 合，主要由三个对象成员Connection、Command和Recordset对象，以及几个集合对象Errors、Parameters和 Fields等所组成。 12.3 用控件访问数据库 在使用ADO数据控件前，必须先通过[工程][部件]菜单命令选择Microsoft ADO Data Control 6.0(OLEDB)”选项，将ADO数据控件添加到工具箱。ADO数据控件与Visual Basic的内部Data控件很相似，它