Contents Index Topic Contents |
This example uses the Status property to display which records have been modified in a batch operation before a batch update has occurred.
Public Sub StatusX() Dim rstTitles As ADODB.Recordset Dim strCnn As String ' Open recordset for batch update. strCnn = "driver={SQL Server};server=srv;" & _ "uid=sa;pwd=;database=pubs" Set rstTitles = New ADODB.Recordset rstTitles.CursorType = adOpenKeyset rstTitles.LockType = adLockBatchOptimistic rstTitles.Open "titles", strCnn, , , adCmdTable ' Change the type of psychology titles. Do Until rstTitles.EOF If Trim(rstTitles!Type) = "psychology" Then rstTitles!Type = "self_help" End If rstTitles.MoveNext Loop ' Display Title ID and status. rstTitles.MoveFirst Do Until rstTitles.EOF If rstTitles.Status = adRecModified Then Debug.Print rstTitles!title_id & " - Modified" Else Debug.Print rstTitles!title_id End If rstTitles.MoveNext Loop ' Cancel the update because this is a demonstration. rstTitles.CancelBatch rstTitles.Close End Sub
Top of Page
© 1997 Microsoft Corporation. All rights reserved. Terms of Use.