Finding the Record Position : Recordset Find « 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 Find 




Finding the Record Position
 
Sub FindRecordPosition()
   Dim conn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim strConn As String

   strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & CurrentProject.Path & _
      "\mydb.mdb"

   Set conn = New ADODB.Connection
   conn.Open strConn

   Set rst = New ADODB.Recordset
   With rst
      .Open "Select * from Employees", conn, adOpenKeyset, _
          adLockOptimistic, adCmdText
   Debug.Print .AbsolutePosition
      .Move ' move forward records
      Debug.Print .AbsolutePosition
      .MoveLast ' move to the last record
      Debug.Print .AbsolutePosition
      Debug.Print .RecordCount
      .Close
   End With

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

 














Related examples in the same category
1.Change column data case
2.Simple Select statement
3.SQL with where clause
4.Select specific column in select statement
5.Finding Records Using the Find Method
6.Finding a Record Based on Multiple Criteria
7.Finding a Specific Record in a Recordset
8.Find record by using Recordset.FindFirst
9.NoMatch property in Recordset
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.