|
Sub BatchUpdates()
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
Dim strSQL As String
Dim lngUpdated As Long
rst.ActiveConnection = CurrentProject.Connection
rst.CursorType = adOpenKeyset
rst.CursorLocation = adUseClient
rst.LockType = adLockBatchOptimistic
rst.Open ("Select * from Products ")
strSQL = "UnitPrice < 30000"
lngUpdated = 0
rst.Find strSQL
Do Until rst.EOF
lngUpdated = lngUpdated + 1
rst("UnitPrice") = rst("UnitPrice") * 1.1
rst.Find strSQL, 1, adSearchForward
Loop
rst.UpdateBatch
Debug.Print lngUpdated & " Records Updated"
rst.Close
Set rst = Nothing
End Sub
|