Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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