怎样判断recordset.findfirst方法是否找到了记录？

网络蜘蛛

能否判断recordset.findfirst方法是否找到了记录？还是先判断记录是否存在，如果是再用这个方法定位？

roych

先找,找不到再判断不存在.

网络蜘蛛

roych 发表于 2013-4-27 13:13
先找,找不到再判断不存在.

如何判断找不到？
if me.序号.Value<>me.txtSearch.Value then......?

t小宝

rst.NoMatch=false 就是找到了，否则找不到

roych

帮助文档里写得还是比较详尽的……一般FindFirst会结合Bookmark来使用【关于这个属性我已经发过两篇帖子，讲得应该算是比较清楚了，这里不再细说】，用于定位记录集。
此外，需要注意的是，FindFirst是DAO的方法，对应的ADO则是Find方法。

1. Sub FindFirstX()
   
2. 
   
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
   
9. 
   
10.    Set dbsNorthwind = OpenDatabase("Northwind.mdb")
    
11.    Set rstCustomers = dbsNorthwind.OpenRecordset( _
    
12.       "SELECT CompanyName, City, Country " & _
    
13.       "FROM Customers ORDER BY CompanyName", _
    
14.       dbOpenSnapshot)
    
15. 
    
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 & "'"
    
22. 
    
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
    
34. 
    
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
    
48. 
    
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
    
57. 
    
58.          Loop
    
59. 
    
60.       End With
    
61. 
    
62.       Exit Do
    
63.    Loop
    
64. 
    
65.    rstCustomers.Close
    
66.    dbsNorthwind.Close
    
67. 
    
68. End Sub
    

复制代码

网络蜘蛛

t小宝 发表于 2013-4-27 15:56
rst.NoMatch=false 就是找到了，否则找不到

成功了，多谢版主。

网络蜘蛛

roych 发表于 2013-4-27 23:58
帮助文档里写得还是比较详尽的……一般FindFirst会结合Bookmark来使用【关于这个属性我已经发过两篇帖子，讲 ...

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