在Recordset对象中查询记录的方法
| 无论是 DAO 还是 ADO 都有两种从 Recordset 对象中查询记录的方法： Find 方法和 Seek 方法。在这两种方法中可以让你指定条件进行查询与其相应的记录 , 一般而言，在相同条件下， Seek 方法提供了比 Find 方法更好的性能，因为 Seek 方法是基于索引的。因为这个原因基本提供者必须支持 Recordset 对象上的索引，可以用 Supports ( adSeek ) 方法确定基本提供者是否支持 Seek ，用 Supports ( adIndex ) 方法确定提供者是否支持索引。（例如， OLE DB Provider for Microsoft Jet 支持 Seek 和 Index 。），请将 Seek 方法和 Index 属性结合使用。如果 Seek 没有找到所需的行，将不会产生错误，该行将被放在 Recordset 的结尾处。执行此方法前，请先将 Index 属性设置为所需的索引。此方法只受服务器端游标支持。如果 Recordset 对象的 CursorLocation 属性值为 adUseClient ，将不支持 Seek 。只有当 CommandTypeEnum 值为 adCmdTableDirect 时打开 Recordset 对象，才可以使用此方法。
用 ADO Find 方法 DAO 包含了四个“ Find ”方法： FindFirst,FindLast,FindNext 和 FindPrevious . DAO 方法 ADO Find 方法 下面的一个例子示范了如何用 ADO Find 方法查询记录： Sub FindRecord(strDBPath As String, _ strTable As String, _ strCriteria As String, _ strDisplayField As String) ' This procedure finds a record in the specified table by ' using the specified criteria. ' For example, to use this procedure to find records ' in the Customers table in the Northwind database ' that have " USA " in the Country field, you can ' use a line of code like this: ' FindRecord _ ' "c:\Program Files\Microsoft office\Office\Samples\Northwind.mdb", _ ' "Customers", "Country=' USA '", "CustomerID" Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset ' Open the Connection object. Set cnn = New ADODB.Connection With cnn .Provider = "Microsoft.Jet.OLEDB.4.0" .Open strDBPath End With Set rst = New ADODB.Recordset With rst ' Open the table by using a scrolling ' Recordset object. .Open Source:=strTable, _ ActiveConnection:=cnn, _ CursorType:=adOpenKeyset, _ LockType:=adLockOptimistic ' Find the first record that meets the criteria. .Find Criteria:=strCriteria, SearchDirection:=adSearchForward ' Make sure record was found (not at end of file). If Not .EOF Then ' Print the first record and all remaining ' records that meet the criteria. Do While Not .EOF Debug.Print .Fields(strDisplayField).Value ' Skip the current record and find next match. .Find Criteria:=strCriteria, SkipRecords:=1 Loop Else MsgBox "Record not found" End If ' Close the Recordset object. .Close End With ' Close connection and destroy object variables. cnn.Close Set rst = Nothing Set cnn = Nothing End Sub 例如，用用这个过程查询“罗期文商贸”示例数据库中“客户”表的“国家”等于 USA 的记录，可以使用下面的代码： FindRecord “c:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb”, _ “Customers”, “Country=' USA '”, ”CustomerID” ( 译者注：如果你安装的是简体中文版要将相应的字段名改成中文 ) 用 ADO Seek 方法 因为 ADO Seek 方法使用 Index ， |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
