Use seek method in Recordset : 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 




Use seek method in Recordset
 

Sub UsingSeek()
  Dim rs As ADODB.Recordset
  Dim conn As ADODB.Connection
  Dim strSQL As String
  Set rs = New ADODB.Recordset
  Set conn = CurrentProject.Connection

  With rs
    .Open Source:="Customers", ActiveConnection:=conn, _
      CursorType:=adOpenKeyset, LockType:=adLockOptimistic, _
      Options:=adCmdTableDirect
    .Index = "CompanyName"
    .Seek ("T")
  End With

  Debug.Print rs!CompanyName & " " & rs!ContactTitle & " " & rs!ContactName

End Sub

 














Related examples in the same category
1.Finding Records Using the Seek Method (Seek constants)
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.