FIX: MSHFLexGrid Does Not Display More Than 2048 Rows

Steps to Reproduce Behavior

Test Table

1. Create a simple table with the following fields:

   
        Name         Data Type (SQL Server)       Data Type(Access) 
     ------------------------------------------------------------------
   
        PartID          Integer                      Integer
        PartName        VarChar (10)                 Text (10)
    

2. Insert about 3000 - 10000 rows in your table. For simplicity, you can create a loop and insert the same record in a counter of 3000 to 10000.
   
3. Save your table as "Test."
   
   NOTE: You can choose any other back-end to perform the test.
   

Visual Basic Client

1. Start a new Standard EXE project in Visual Basic. Form1 is created by default.
   
2. Select "Components" on the Project menu, and choose the following components:
   • Microsoft ADO Data Control 6.0 (OLE DB).
   • Microsoft Hierarchical FlexGrid Control 6.0.
   
   
3. Select References on the Project menu, and click "Microsoft ActiveX Data Objects 2.0 Library."
   
4. Place the following objects on the form:

   
       Control             Name                  Caption
      -------------------------------------------------------------------
   
      CommandButton       Command1           Using ADO Recordset
      CommandButton       Command2           Using ADODC
      CommandButton       Command3           Free MSHFlexGrid
      MSHFlexGrid         MSHFlexGrid1       Testing MSHFlexGrid Display
      ADODC               Adodc1
    

5. Bind ADODC via your DSN or via your native OLEDB provider (if it exists). In the RecordSource property, write: Select * From Test.
   
6. Place the following code in the General Declaration section of Form1:

          Option Explicit
   
          Private Sub Command1_Click()
   
             Dim cn As New ADODB.Connection
             Dim rs As New ADODB.Recordset
   
             cn.Open "Testing"               '<-- Your DSN
   
             rs.Open "select * from Test", cn, adOpenStatic, adLockOptimistic
             rs.MoveLast
   
             ' Check the number records in your ADO recordset
             ' The RecordCount property of the ADO recordset reflects the
             ' actual number of records
   
             Debug.Print "ADO recordset record-count: " & vbTab & _
                 rs.RecordCount
   
             Form1.Caption = "Loading grid... please wait..."
   
             Set MSHFlexGrid1.Recordset = rs
   
             ' Check the number of rows that the Hierarchical FlexGrid
             ' contains The RecordCount property of the Hierarchical
             ' FlexGrid also reflects the actual number of records
   
             Debug.Print "MSHFlexGrid1 Recordset record-count: " & vbTab &  _
                MSHFlexGrid1.Recordset.RecordCount
   
             Form1.Caption = "MSHFlexGrid Display Sample"
   
             ' Free resources
             rs.Close
             Set rs = Nothing
             cn.Close
             Set cn = Nothing
   
          End Sub
   
          Private Sub Command2_Click()
   
             Form1.Caption = "Loading data... please wait..."
   
             ' Set the Grid's source to be ADODC
             Set MSHFlexGrid1.DataSource = Adodc1
   
             ' Check the number of records in ADODC recordset
             Debug.Print "ADO data control record-count: " & vbTab &  _
                Adodc1.Recordset.RecordCount
             Form1.Caption = "MSHFlexGrid Display Sample"
          End Sub
   
          Private Sub Command3_Click()
             MSHFlexGrid1.Clear
             Form1.Caption = "Grid is clear now..."
          End Sub
   

7. Press the F5 key to run the code, and note that only 2048 records are displayed in the MSHFlexGrid.
   
   NOTE: Connecting to the data source using the OLEDB Provider for ODBC or using the native OLEDB Provider has no effect on the Hierarchical FlexGrid behavior.