Finding Records Using the Seek Method (Seek constants) : Recordset Seek « Access « VBA / Excel / Access / Word

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
VBA / Excel / Access / Word » Access » Recordset Seek 




Finding Records Using the Seek Method (Seek constants)
 
Constant         Value    Description
adSeekFirstEQ    1        Seeks the first key equal to KeyValues.
adSeekLastEQ     2        Seeks the last key equal to KeyValues.
adSeekAfterEQ    4        Seeks either a key equal to KeyValues or just after where that match would have occurred.
adSeekAfter      8        Seeks a key just after where a match with KeyValues would have occurred.
adSeekBeforeEQ   16       Seeks either a key equal to KeyValues or just before where that match would have occurred.
adSeekBefore     32       Seeks a key just before where a match with KeyValues would have occurred.


Sub Find_WithSeek()
   Dim conn As ADODB.Connection
   Dim rst As ADODB.Recordset

   Set conn = New ADODB.Connection
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & _
      "\mydb.mdb"

   Set rst = New ADODB.Recordset
   With rst
      .Index = "Region"
      .Open "Customers", conn, adOpenKeyset, adLockOptimistic, _
          adCmdTableDirect
      MsgBox rst.Supports(adSeek)
      .Seek "SP", adSeekFirstEQ
   End With

   If Not rst.EOF Then
      Debug.Print rst.Fields("CompanyName").Value
   End If

   rst.Close
   Set rst = Nothing
   conn.Close
   Set conn = Nothing
End Sub

 














Related examples in the same category
1.Use seek method in Recordset
2.Use Do while to loop through until EOF
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.