Mega Code Archive

 

Categories / VisualBasic Script / Access

 

AdAsyncFetchNonBlocking - The main thread never blocks when fetching

Sub OptionsParameter()     Dim rst As ADODB.Recordset     Set rst = New ADODB.Recordset     rst.ActiveConnection = CurrentProject.Connection     rst.CursorType = adOpenStatic     rst.LockType = adLockOptimistic     rst.Open "Select * from Employees", _         Options:=adAsyncFetchNonBlocking     rst("City") = "Village"     rst.Update     Debug.Print rst("City")     rst.Close     Set rst = Nothing End Sub