DOC: RDO UpdateCriteria Documentation Incorrect

MORE INFORMATION

The code below demonstrates the usage of the UpdateCriteria property and also shows the query that is sent to the database, depending on which constant is used. This sample code assumes that you are using a SQL Server database with the pubs database.

1. Start a new Visual Basic Standard EXE project and add a a reference to the Microsoft Remote Data Objects Library.
2. Add a command button to the default form.
3. Add the following code to the form.
   
   Note You must modify the connection string to point to your database. Make sure that the uid <username> has the appropriate permissions to perform the required operations on the database.

      Private Sub Command1_Click()
   
       Const szConnect = "DSN=yourDSN;uid=<username>;pwd=<strong password>"
       On Error GoTo errhandler
       Dim cn As rdoConnection
       Dim rs As rdoResultset
       Dim SQL As String
   
       Set cn = New rdoConnection
       With cn
           .CursorDriver = rdUseClientBatch
           .Connect = szConnect
           .EstablishConnection rdDriverNoPrompt, False
       End With
   
       SQL = "SELECT * FROM Authors"
       Set rs = cn.OpenResultset(SQL, rdOpenKeyset, rdConcurBatch, 0)
       Debug.Print "Update Criteria (Default): " & rs.UpdateCriteria
   
       With rs
   
           rs.MoveFirst
           rs.UpdateCriteria = rdCriteriaKey       '0
           rs.Edit
           rs(1).Value = "Mike1"
           rs.BatchUpdate
           Debug.Print "BatchUpdate w/Criteria: " & rs.UpdateCriteria
           'SQL TRACE: UPDATE Authors SET au_lname='Mike1' WHERE
           'au_id='172-32-1176'
   
           rs.MoveFirst
           rs.UpdateCriteria = rdCriteriaAllCols   '1
           rs.Edit
           rs(1).Value = "Mike2"
           rs.BatchUpdate
           Debug.Print "BatchUpdate w/Criteria: " & rs.UpdateCriteria
           'SQL TRACE: UPDATE Authors SET au_lname='Mike2' WHERE
           'au_id='172-32-1176' AND au_lname='Mike1' AND au_fname='John' AND
           'phone='408 496-7223' AND address='10932 Bigge Rd.' AND city='Menlo
           'Park' AND state='CA' AND zip='94025' AND contract=1
   
           rs.MoveFirst
           rs.UpdateCriteria = rdCriteriaUpdCols   '2
           rs.Edit
           rs(1).Value = "Mike3"
           rs.BatchUpdate
           Debug.Print "BatchUpdate w/Criteria: " & rs.UpdateCriteria
           'SQL TRACE: UPDATE Authors SET au_lname='Mike3' WHERE
           'au_id='172-32-1176' AND au_lname='Mike2'
   
       End With
   
       Exit Sub
   
      errhandler:
       Debug.Print "--ERRORS OCCURRED--"
       Debug.Print "Err.Number: " & Err.Number & "   "
       Debug.Print "Err.Description: " & Err.Description & "   "
   
      End Sub
   					

4. Run the code then click the command button. You may want to run the SQL Trace utility while running this code so that you can see the queries that are actually being issued against the database when the BatchUpdate method is executed. Samples of these SQL Trace results have been included in the preceding code for demonstration.

(c) Microsoft Corporation 1999, All Rights Reserved. Contributions by Mike Ruthruff, Microsoft Corporation.