Status Property Example (Recordset) (VB)

This example uses the Status property to display which records have been modified in a batch operation before a batch update has occurred.

'BeginStatusRecordsetVB
Public Sub StatusX()

    'To integrate this code
    'replace the data source and initial catalog values
    'in the connection string

    ' connection and recordset variables
   Dim rstTitles As ADODB.Recordset
   Dim Cnxn As ADODB.Connection
   Dim strCnxn As String
   Dim strSQLTitles As String

    ' open connection
   Set Cnxn = New ADODB.Connection
   strCnxn = "Provider=sqloledb;Data Source=MyServer;Initial Catalog=Pubs;User Id=sa;Password=; "
   Cnxn.Open strCnxn
   
    ' open recordset for batch update
   Set rstTitles = New ADODB.Recordset
   strSQLTitles = "Titles"
   rstTitles.Open strSQLTitles, Cnxn, adOpenKeyset, adLockBatchOptimistic, adCmdTable

   ' change the type of psychology titles
   Do Until rstTitles.EOF
      If Trim(rstTitles!Type) = "psychology" Then rstTitles!Type = "self_help"
      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
   
    ' clean up
   rstTitles.Close
   Cnxn.Close
   Set rstTitles = Nothing
   Set Cnxn = Nothing

End Sub
'EndStatusRecordsetVB

Status Property Example (Recordset) (VB)

See Also