Designating the Cursor Location : Recordset Cursor « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Recordset Cursor

Designating the Cursor Location

 
Sub CursorLocation()
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset

    rst.ActiveConnection = CurrentProject.Connection
    rst.CursorType = adOpenStatic
    rst.LockType = adLockOptimistic
    rst.CursorLocation = adUseServer

    rst.Open Source:="Select * from Employees ", _
        Options:=adCmdText

    rst("City") = "New City"
    rst.Update
    Debug.Print rst("City")

    rst.Close
    Set rst = Nothing

End Sub

 

Related examples in the same category