FIX: FetchProgress Event Returns Incorrect Data with MDAC 2.1

Steps to Reproduce Behavior

1. Create a new Standard EXE in Visual Basic. Form1 is created by default.
2. On the Project Menu, click to select References, and then select ActiveX Data Objects Library 2.1.
3. Add the following code to Form1:

      Option Explicit
   
      Const strConn = "Northwind"
      Const strSQL = "SELECT * FROM Employees"
   
      Dim WithEvents rs As ADODB.Recordset
   
      Private Sub Form_Load()
         Dim cn As ADODB.Connection
         Set cn = New ADODB.Connection
         cn.Open strConn
      
         Set rs = New ADODB.Recordset
         With rs
            Set .ActiveConnection = cn
            .CursorLocation = adUseClient
            .Properties("Initial Fetch Size") = 1
            .Open strSQL, cn, , , adAsyncFetch
         End With
      End Sub
   
      Private Sub rs_FetchProgress(ByVal Progress As Long, _
                                   ByVal MaxProgress As Long, _
                                   adStatus As ADODB.EventStatusEnum,  _
                                   ByVal pRecordset As ADODB.Recordset)
         Debug.Print "Progress: " & Progress & "  MaxProgress: " & MaxProgress
      End Sub
   					

4. Change the Constant strConn so that it has a valid connection string to a Northwind database.
5. Run the code, and note that "Progress: 0 MaxProgress: 1" appears in the Immediate window.

Back to the top