Visual BasicNET 程序设计第九章.pptVIP

Next colVal = colVal vbCrLf End While MsgBox(colName vbCrLf colVal) 关闭对象,释放资源 Rd.Close() conn.Close() conn.Dispose() ［运行结果］ 按F5键运行程序，如图9-61所示。 图9-61 案例9-7运行结果 9.7.2 使用OleDbDataAdapter与DataSet读取数据 【案例9-8】 为案例9-7中的数据库添加一个“订单表”，将两个表的数据读取到DataSet，根据用户选择查看每个表的数据。 表结构和数据如图9-62与图9-63所示。 图9-62 “订单表”的结构 图9-63 “订单表”中的数据 ［知识点分析］ （1）DataSet对象。图9-64 DataSet对象模型 ADO.NET结构的主要组件，功能是从数据源中检索到的数据在内存中的缓存。DataSet表示整个数据集，其中包含表、约束和表之间的关系。DataSet对象模型如图9-64所示。 （2）使用DataSet的方法有若干种，可以单独应用或组合应用。 以编程方式在DataSet中创建DataTable、DataRelation和Constraint，并使用数据填充表。 通过DataAdapter用现有关系数据源中的数据表填充DataSet。 用XML加载和保持DataSet内容。 图9-64 DataSet对象模型 图9-35 新建的查询方法出现在订单中 图9-36 向导航控件添加控件 Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.Event Args) Handles ToolStripButton1.Click 订单表TableAdapter.FillBy(Me.Db1DataSet.订单表, ToolStripTextBox1.Text) End Sub 程序运行时，在查询文本框中输入订单号，单击查询按钮，数据表的内容自动更 新为查询结果。 如图9-37所示，新建立的查询“FillBy”已经出现在对象的方法列表中。 【案例9-4】 建立删除与更新方法，将数据更新到源数据库。 ［知识点分析］ （1）建立删除和更新方法的操作过程与建立查询相同。 图9-37 新建查询FillBy已在对象的方法列表中 （2）对于没有主键的表（如“订单表”），默认的DeleteCommand属性和 UpdateCommand属性为空。如果有主键，则自动生成。原因：主键值是唯一的 ，可以作为更新操作的依据。若在数据导航控件中删除某个记录，执行“保存”时， 将看到如图9-38所示的出错信息提示。 图9-38 出错信息提示 （3）建立删除与更新过程的思路如下。 当记录删除时，按照什么条件来删除？ 当更新记录时，只更新部分字段值还是全部已经修改的字段值？ ［建立删除过程］ 以DeleteCommand属性设置为例（如图9-39所示），建立默认的删除过程，该过程由Delete方法默认调用。 图9-39 DeleteCommand属性设置 打开查询生成器，如图9-40所示，输入删除的依据：什么字段满足什 么值要求则删除。 图9-40 查询生成器 再次运行程序，在数据导航控件中删除记录，执行“保存”后，打开源数据表“订单表”，可以看到记录被正确删除，程序运行正常。 若直接调用Delete方法，需要手动指定删除的条件，如图9-41所示。 图9-41 手动指定删除的条件 有读者会问：使用导航控件中的删除按钮时，没有调用Delete方法；VB.NET 自动调用时，“？”号参数如何被填充？答案是：数据适配器智能填充！ 订单表TableAdapter]自动保存字段的当前值和原始值，需要执行默认的删除或更新操作时，将自动读出这些值，按参数集合的顺序填充需要参数的地方（每个命令文本都有参数集合属性，根据[查询设计器]中输入的SQL语句，自动得到每个参数保存的原始值或当前值）。 如图9-42所示是[订单表TableAdapter]的DeleteCommand属性集中的参数集属性。 图9-42 参数集合编辑器 同样，更新记录时，如果UpdateCommand属性为空，在数据表格控件中修改了任何值，如果要保存到源数据库中去，必须设置UpdateCommand属性。 在查询设计器中输入以下的SQL语句： UPDATE订单表 SET订单编号=?, 客户编号=?, 产品编号=?, 数量=?, 单价=?, 下订日期=?, 送货日期=?, 经手人=? WHERE （订单编号=?）AND（客户编号=?）