Office中国论坛/Access中国论坛

标题: 怎样判断recordset.findfirst方法是否找到了记录？ [打印本页]
作者: 网络蜘蛛    时间: 2013-4-27 11:22
标题: 怎样判断recordset.findfirst方法是否找到了记录？
能否判断recordset.findfirst方法是否找到了记录？还是先判断记录是否存在，如果是再用这个方法定位？
作者: roych    时间: 2013-4-27 13:13
先找,找不到再判断不存在.
作者: 网络蜘蛛    时间: 2013-4-27 14:14
roych 发表于 2013-4-27 13:13
先找,找不到再判断不存在.

如何判断找不到？
if me.序号.Value<>me.txtSearch.Value then......?
作者: t小宝    时间: 2013-4-27 15:56
rst.NoMatch=false 就是找到了，否则找不到
作者: roych    时间: 2013-4-27 23:58
帮助文档里写得还是比较详尽的……一般FindFirst会结合Bookmark来使用【关于这个属性我已经发过两篇帖子，讲得应该算是比较清楚了，这里不再细说】，用于定位记录集。
此外，需要注意的是，FindFirst是DAO的方法，对应的ADO则是Find方法。
  1. Sub FindFirstX()

  3.    Dim dbsNorthwind As Database
  4.    Dim rstCustomers As Recordset
  5.    Dim strCountry As String
  6.    Dim varBookmark As Variant
  7.    Dim strMessage As String
  8.    Dim intCommand As Integer

  10.    Set dbsNorthwind = OpenDatabase("Northwind.mdb")
  11.    Set rstCustomers = dbsNorthwind.OpenRecordset( _
  12.       "SELECT CompanyName, City, Country " & _
  13.       "FROM Customers ORDER BY CompanyName", _
  14.       dbOpenSnapshot)

  16.    Do While True
  17.       ' Get user input and build search string.
  18.       strCountry = _
  19.          Trim(InputBox("Enter country for search."))
  20.       If strCountry = "" Then Exit Do
  21.       strCountry = "Country = '" & strCountry & "'"

  23.       With rstCustomers
  24.          ' Populate recordset.
  25.          .MoveLast
  26.          ' Find first record satisfying search string. Exit
  27.          ' loop if no such record exists.
  28.          .FindFirst strCountry
  29.          If .NoMatch Then
  30.             MsgBox "No records found with " & _
  31.                strCountry & "."
  32.             Exit Do
  33.          End If

  35.          Do While True
  36.             ' Store bookmark of current record.
  37.             varBookmark = .Bookmark
  38.             ' Get user choice of which method to use.
  39.             strMessage = "Company: " & !CompanyName & _
  40.                vbCr & "Location: " & !City & ", " & _
  41.                !Country & vbCr & vbCr & _
  42.                strCountry & vbCr & vbCr & _
  43.                "[1 - FindFirst, 2 - FindLast, " & _
  44.                vbCr & "3 - FindNext, " & _
  45.                "4 - FindPrevious]"
  46.             intCommand = Val(Left(InputBox(strMessage), 1))
  47.             If intCommand < 1 Or intCommand > 4 Then Exit Do

  49.             ' Use selected Find method. If the Find fails,
  50.             ' return to the last current record.
  51.             If FindAny(intCommand, rstCustomers, _
  52.                   strCountry) = False Then
  53.                .Bookmark = varBookmark
  54.                MsgBox "No match--returning to " & _
  55.                   "current record."
  56.             End If

  58.          Loop

  60.       End With

  62.       Exit Do
  63.    Loop

  65.    rstCustomers.Close
  66.    dbsNorthwind.Close

  68. End Sub
复制代码
作者: 网络蜘蛛    时间: 2013-4-28 22:34
本帖最后由 网络蜘蛛 于 2013-4-28 22:36 编辑
t小宝 发表于 2013-4-27 15:56
rst.NoMatch=false 就是找到了，否则找不到

成功了，多谢版主。
作者: 网络蜘蛛    时间: 2013-4-28 22:38
roych 发表于 2013-4-27 23:58
帮助文档里写得还是比较详尽的……一般FindFirst会结合Bookmark来使用【关于这个属性我已经发过两篇帖子，讲 ...

多谢版主深夜还在回复我的问题。



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3