1、在 VB 中访问数据库：数据库查询和数据库显示,第十二章,回顾,在Windows中建立ODBC数据源 ADO及使用 ADO连接对象 属性 方法 事件,目标,理解和使用 RecordSet 对象的属性和方法 使用 ADO RecordSet 对象进行数据查询 使用 RecordSet 对象对数据库进行操作 使用MSFlexGrid控件显示查询结果数据,复习：ADO和连接对象,Connection对象的用途是什么？ 如何使用ADO Connection与ACCESS和SQL Server进行数据库连接？,RecordSet 对象,RecordSet对象允许进行以下操作 指定可以对那些行进行操作 定
2、位行 指定可能要进行定位的行序 添加、删除和更改行 声明和定义RecordSet对象,Dim rs As ADODB.Recordset,使用Record对象的Open方法,参数描述：Source表名或 SQL 语句ActiveConnection连接对象CursorType游标类型LockType记录的锁定类型Options指示提供者如何计算 Source 参数,Recordset.OpenSource,ActiveConnection,CursorType,LockType,Options,Fields和Field对象,Field表示“域”，也就是记录集的列信息 Fields是一个集合对象
3、，表示当前记录集的域或者字段集合 Field对象表示当前记录集中的单个域 一个或多个Field组成Fields。,Fields集合的属性和方法,Field的属性,RecordSet对象的属性,RecordSet 对象的方法,记录集操作-定位记录集的行,rst.MovePrevious If rst.BOF=True Then MsgBox “已经是记录集的开头“ rst.MoveFirst End Ifrst.MoveNextIf rst.EOF=True Then MsgBox “已经是记录集的结尾“ rst.MoveLastEnd If,定位记录集的行,记录集操作-添加记录,rstemp.
4、AddNew rstemp.Fields(“Customer_ID”) = txtCust_ID.Text rstemp.Fields(“ContactName”) = txtCont_Name.Textrstemp.Update,添加记录,记录集操作-更新记录,Rspub.MoveFirstRspub.Fields(“ContactName”) = txtCont_Name.TextRspub.Fields(“City”) = txtCity.Textrspub.Update,更新记录,记录集操作-删除记录,If MsgBox(“要删除此记录吗?“, vbYesNo) = vbYes The
5、nrsemp.Deletersemp.MoveFirstEnd if,删除记录,记录集操作-查找记录,rscust.Find “Age 40“, 0, adSearchForward, adBookmarkCurrent,查找记录-注意：Find 方法仅能用于可滚动的记录集。,示例讲解：概述,示例概述A、雇员管理系统的供应商列表B、使用NorthWind示范数据库C、表Suppliers 的结构（参看学生用书 表12.10）,示例讲解： 实现过程说明,实现过程说明A、数据查询有条件模糊查询B、使用MSFlexGrid 控件显示多行数据C、分窗口实现数据的增删改操作,示例讲解：界面设计,请演示制
6、作好的界面设计 查询窗体界面 查询结果窗体界面 增加供应商窗体界面 修改供应商窗体界面,示例讲解：数据查询函数,Public Function QueryData(ByVal strSQL As String) As Boolean On Error Resume NextSet g_TblRct = New ADODB.RecordsetCall g_TblRct.Open(strSQL, g_DBCon, adOpenDynamic, adLockOptimistic, -1)If Err.Number 0 ThenErr.ClearQueryData = FalseElseQueryDa
7、ta = TrueEnd If End Function,示例讲解：组合查询条件,Dim strQuerySql As StringstrQuerySql = EmptyIf Trim(txtName.Text) Empty Then 模糊查询，使用LIKE子句strQuerySql = “(CompanyName LIKE %“ & Trim(txtName.Text) & “%)“End IfIf Trim(txtAddress.Text) Empty ThenIf strQuerySql Empty Then 多条件情况下，使用AND进行条件连接strQuerySql = strQuer
8、ySql & “ AND (Address LIKE %“ & Trim(txtAddress.Text) & “%)“ElsestrQuerySql = “(Address LIKE %“ & Trim(txtAddress.Text) & “%)“End IfEnd If,示例讲解：用MSFlexGrid显示,On Error Resume Nextg_TblRct.MoveFirstIf Err.Number 0 Then Exit SubDo While Not g_TblRct.EOFgrdTBL.AddItem (Empty)grdTBL.Row = grdTBL.Rows - 1
9、grdTBL.Col = 0grdTBL.Text = CStr(g_TblRct.Fields(“SupplierID“).Value)grdTBL.CellAlignment = flexAlignCenterCentergrdTBL.RowData(grdTBL.Row) = g_TblRct.Fields(“SupplierID“).Valueg_TblRct.MoveNextLoop,示例讲解： 添加数据,g_TblRct.AddNewg_TblRct.Fields(“CompanyName“).Value = txtName.Textg_TblRct.Fields(“Contact
10、Name“).Value = txtContactName.Textg_TblRct.Fields(“ContactTitle“).Value = txtContactTitle.Text。g_TblRct.Update,示例讲解：修改数据,g_TblRct.Fields(“CompanyName“).Value = txtName.Textg_TblRct.Fields(“ContactName“).Value = txtContactName.Textg_TblRct.Fields(“ContactTitle“).Value = txtContactTitle.Textg_TblRct.F
11、ields(“Address“).Value = txtAddress.Textg_TblRct.Fields(“City“).Value = “BeiJing“g_TblRct.Fields(“Region“).Value = “HaiDian“g_TblRct.Fields(“PostalCode“).Value = txtPostCode.Textg_TblRct.Fields(“Country“).Value = “China“g_TblRct.Fields(“Phone“).Value = txtPhone.Textg_TblRct.Fields(“Fax“).Value = txt
12、Phone.Textg_TblRct.Update,示例讲解：删除数据,g_TblRct.MoveFirstg_TblRct.Filter = “SupplierID = “ & CStr(lngSelectID)g_TblRct.DeleteIf g_TblRct.EOF Theng_TblRct.MoveFirstElseg_TblRct.MoveNextEnd IfCall g_TblRct.UpdateBatch(adAffectAllChapters),总结 2-1,使用ADO的RecordSet对象 RecordSet对象及作用 在程序中定义和声明RecordSet对象 使用RecordSet获取查询结果集 Open方法及参数说明 RecordSet及相关对象的属性和方法 Fields和Field对象及使用 Fields对象的主要属性和方法 RecordSet对象的主要属性和方法,总结 2-2,使用RecordSet的属性和方法操作数据 定位记录的行 添加，修改，删除，查找记录 使用RecordSet的示例 界面设计 连接到数据库 使用RecordSet进行数据查询 使用MsFlexGrid显示数据 添加、修改和删除数据,
