BUG: RecordsetChangeComplete Does Not Fire on Recordset.Open

• ActiveX Data Objects (ADO), version 2.0
• Microsoft Visual Basic Enterprise Edition for Windows, versions 5.0, 6.0

SYMPTOMS

The RecordsetChangeComplete event of an ADO Recordset does not fire on the Recordset.Open event.

RESOLUTION

You can issue a Recordset.MoveFirst immediately after the Recordset.Open as a workaround, which causes the RecordsetChangeComplete event to fire.

STATUS

Microsoft has confirmed this to be a bug in the Microsoft products listed at the beginning of this article.

MORE INFORMATION

Steps to Reproduce Behavior

1. Open a Standard .exe project.



2. From the Projects menu, choose Components, and then select the Microsoft ActiveX Data Objects 2.0 Library.



3. Remove Form1 from the project.



4. Insert a module (.bas) with the following code:

   
         Sub main()
         Dim myADOEvents As New ADOEvents
         Dim cn As New ADODB.Connection
         Dim rs As New ADODB.Recordset
         Set myADOEvents.rsEvent = rs
   
         cn.Provider = "sqloledb"
         cn.Open "Data Source=zjason2;Initial Catalog=pubs;", "sa", ""
   
         'rs.open does not fire the RecordsetChangeComplete which it should.
         rs.Open "Select * from authors", cn, adOpenForwardOnly, _
         adLockReadOnly
         'rs.MoveFirst 'if you uncomment this line than the
         'RecordsetChangeEvent.
         DoEvents
         Stop
         'Does fire the RecordsetChangeEvent, which is expected.
         rs.Close
         DoEvents
         End Sub 




5. Insert a class module and name it ADOEvents in the Name property.



6. Paste the following code in this ADOEvents class module:

   
         Public WithEvents rsEvent As ADODB.Recordset
   
         Private Sub rsEvent_RecordsetChangeComplete(ByVal adReason As
         ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As
         ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
         Debug.Print "RecordsetChangeComplete"
         End Sub 




7. Run the project.

Additional query words: kbADO200bug kbVBP500 kbVBP600

Keywords          : kbADO200bug kbVBp500 kbVBp600 
Version           : WINDOWS:2.0,5.0,6.0
Platform          : WINDOWS 
Issue type        : kbbug 

Last Reviewed: May 17, 1999