vbsession12TP北大青鸟(vb).ppt

在 VB 中访问数据库：数据库查询和数据库显示 第十二章 回顾 在Windows中建立ODBC数据源 ADO及使用 ADO连接对象 属性 方法 事件 目标 理解和使用 RecordSet 对象的属性和方法 使用 ADO RecordSet 对象进行数据查询 使用 RecordSet 对象对数据库进行操作 使用MSFlexGrid控件显示查询结果数据 复习：ADO和连接对象 Connection对象的用途是什么？ 如何使用ADO Connection与ACCESS和SQL Server进行数据库连接？ RecordSet 对象 使用Record对象的Open方法 参数描述： Source——表名或 SQL 语句 ActiveConnection——连接对象 CursorType——游标类型 LockType——记录的锁定类型 Options——指示提供者如何计算 Source 参数 Fields和Field对象 Field表示“域”，也就是记录集的列信息 Fields是一个集合对象，表示当前记录集的域或者字段集合 Field对象表示当前记录集中的单个域 一个或多个Field组成Fields。 Fields集合的属性和方法 Field的属性 RecordSet对象的属性 RecordSet 对象的方法 记录集操作-定位记录集的行 记录集操作-添加记录 rstemp.AddNew rstemp.Fields(“Customer_ID”) = txtCust_ID.Text rstemp.Fields(“ContactName”) = txtCont_Name.Text rstemp.Update 记录集操作-更新记录 Rspub.MoveFirst Rspub.Fields(“ContactName”) = txtCont_Name.Text Rspub.Fields(“City”) = txtCity.Text rspub.Update 记录集操作-删除记录 If MsgBox(要删除此记录吗?, vbYesNo) = vbYes Then rsemp.Delete rsemp.MoveFirst End if 记录集操作-查找记录 rscust.Find Age 40, 0, adSearchForward, adBookmarkCurrent 示例讲解：概述 示例概述 A、雇员管理系统的供应商列表 B、使用NorthWind示范数据库 C、表Suppliers 的结构 （参看学生用书 表12.10） 示例讲解： 实现过程说明 实现过程说明 A、数据查询有条件模糊查询 B、使用MSFlexGrid 控件显示多行数据 C、分窗口实现数据的增删改操作 示例讲解：界面设计 请演示制作好的界面设计 查询窗体界面 查询结果窗体界面 增加供应商窗体界面 修改供应商窗体界面 示例讲解：数据查询函数 Public Function QueryData(ByVal strSQL As String) As Boolean On Error Resume Next Set g_TblRct = New ADODB.Recordset Call g_TblRct.Open(strSQL, g_DBCon, adOpenDynamic, adLockOptimistic, -1) If Err.Number 0 Then Err.Clear QueryData = False Else QueryData = True End If End Function 示例讲解：组合查询条件 Dim strQuerySql As String strQuerySql = Empty If Trim(txtName.Text) Empty Then 模糊查询，使用LIKE子句 strQuerySql = (CompanyName LIKE % Trim(txtName.Text) %) End If If Trim(txtAddress.Text) Empty Then If strQuerySql Empty Then 多条件情况下，使用AND进行条件连接 strQuerySql = strQuerySql AND (Address LIKE % Trim(txtAddress.Text