Microsoft KB Archive/172375

From BetaArchive Wiki
Knowledge Base

Article ID: 172375

Article Last Modified on 7/13/2004


  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic 6.0 Enterprise Edition

This article was previously published under Q172375

For a Microsoft Visual Basic .NET version of this article, see 310370.


The Visual Basic documentation states that the Status property of an rdoResultset object can be modified to arrange whether the current row will be updated and if it is updated, how it will be updated. It is a common desire to set the Status to rdRowUnmodified so that no updates are made to the current row. However, this is an error in the documentation because the Status property is read-only and cannot be modified at run-time.

Although less intuitive, undoing changes for the current row of an rdoResultset object can be accomplished with the CancelBatch method using the optional parameter, SingleRow.


When you use the optimistic batch cursor library, the CancelBatch method of the rdoResultset object cancels all uncommitted changes in the local cursor. By using the optional parameter, SingleRow, you can cancel a change to a particular row only.

Step-by-step example

  1. Start Visual Basic and create a standard EXE. Form1 is added by default.
  2. Add a reference to "Microsoft Remote Data Object 2.0" in Project/ References.
  3. Add two CommandButtons, called Command1 and Command2, to Form1.
  4. Set the Caption property of Command1 to "Edit and Undo" and the Caption property of Command2 to "Delete and Undo".
  5. Copy and paste the following code to the General Declarations section of Form1.

    Note You must change UID <username> and PWD to the correct values before you run this code. Make sure that UID has the appropriate permissions to perform this operation on the database.

         Dim cn As New rdoConnection
         Dim rs As rdoResultset
         Private Sub Form_Load()
             cn.CursorDriver = rdUseClientBatch
             cn.Connect = "dsn=my_pubs_server;uid=<username>;pwd=<strong password>"
             cn.EstablishConnection rdDriverNoPrompt, False
             Set rs = cn.OpenResultset("select * from authors", rdOpenStatic, _
         End Sub
         Private Sub Command1_Click()
             rs(1) = "New Value"
             MsgBox "Status before CancelBatch: " & rs.Status
             rs.CancelBatch SingleRow:=True
             MsgBox "Status after CancelBatch: " & rs.Status
         End Sub
         Private Sub Command2_Click()
             On Error Resume Next
             rs.AbsolutePosition = 1
             MsgBox "Status before CancelBatch: " & rs.Status
             rs.CancelBatch SingleRow:=True
             MsgBox "Status after CancelBatch: " & rs.Status
         End Sub
         Private Sub Form_Unload(Cancel As Integer)
             Set rs = Nothing
             Set cn = Nothing
         End Sub
  6. Finally, press the F5 key to run.

NOTE: In Command2_Click, the Move methods do not recognize deleted rows. Therefore, the AbsolutePosition property was used to position the current row to the deleted row. Also, run-time error "40056" occurs when the current row positions to a deleted row. By using "On Error Resume Next", this error can be trapped and ignored.

Additional query words: kbVBp500 kbVBp600 kbdse kbDSupport kbVBp kbRDO

Keywords: kbhowto KB172375