Microsoft KB Archive/194653

= FIX: MSHFLexGrid Does Not Display More Than 2048 Rows =

Article ID: 194653

Article Last Modified on 3/14/2005

-

APPLIES TO


 * Microsoft Visual Basic 6.0 Enterprise Edition

-



This article was previously published under Q194653



SYMPTOMS
The Hierarchical FlexGrid control always displays a maximum of 2048 rows regardless of the number of records in the data source.



RESOLUTION
Although the record-count of the mshflexgrid is correct, only the first 2048 records are displayed. If you need to display more than 2048, you need to open the recordset and populate the grid using the GetString method of ADO and the Clip property of the MSHFlexGrid.

The code below can be used in place of the code in the Command1_Click event in the MORE INFORMATION section to work around this behavior: Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim rsVar As Variant Dim i As Integer cn.Open "Testing" '<-- Your DSN

rs.Open "select * from Cies", cn, adOpenStatic, adLockOptimistic rs.MoveLast

rs.MoveFirst ' Assuming that rs is your ADO recordset MSHFlexGrid1.Rows = rs.RecordCount + 1

rsVar = rs.GetString(adClipString, rs.RecordCount)

MSHFlexGrid1.Cols = rs.Fields.Count

' Set column names in the grid For i = 0 To rs.Fields.Count - 1

MSHFlexGrid1.TextMatrix(0, i) = rs.Fields(i).Name

Next

MSHFlexGrid1.Row = 1 MSHFlexGrid1.Col = 0

' Set range of cells in the grid MSHFlexGrid1.RowSel = MSHFlexGrid1.Rows - 1 MSHFlexGrid1.ColSel = MSHFlexGrid1.Cols - 1 MSHFlexGrid1.Clip = rsVar

' Reset the grid's selected range of cells MSHFlexGrid1.RowSel = MSHFlexGrid1.Row MSHFlexGrid1.ColSel = MSHFlexGrid1.Col

rs.Close Set rs = Nothing cn.Close Set cn = Nothing



STATUS
Microsoft has confirmed that this is a bug in the Microsoft products that are listed at the beginning of this article.

This bug was corrected in Visual Studio 6.0 Service Pack 3.

For more information about Visual Studio service packs, please see the following articles in the Microsoft Knowledge Base:

194022 INFO: Visual Studio 6.0 Service Packs, What, Where, Why

194295 HOWTO: Tell That Visual Studio 6.0 Service Packs Are Installed



MORE INFORMATION
This behavior of the MSHFlexGrid can be demonstrated against various back- ends including SQL Server, Access, etc.

Test Table
  Create a simple table with the following fields:     Name         Data Type (SQL Server)       Data Type(Access) --

PartID         Integer                      Integer PartName       VarChar (10)                 Text (10)  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. Save your table as "Test."

NOTE: You can choose any other back-end to perform the test.

Visual Basic Client
 Start a new Standard EXE project in Visual Basic. Form1 is created by default.</li> Select "Components" on the Project menu, and choose the following components: <ul> Microsoft ADO Data Control 6.0 (OLE DB).</li> Microsoft Hierarchical FlexGrid Control 6.0.</li></ul>

</li> Select References on the Project menu, and click "Microsoft ActiveX Data Objects 2.0 Library."</li>  Place the following objects on the form: <pre class="fixed_text">   Control             Name                  Caption ---

CommandButton      Command1           Using ADO Recordset CommandButton      Command2           Using ADODC CommandButton      Command3           Free MSHFlexGrid MSHFlexGrid        MSHFlexGrid1       Testing MSHFlexGrid Display ADODC              Adodc1 </li> Bind ADODC via your DSN or via your native OLEDB provider (if it exists). In the RecordSource property, write: Select * From Test.</li>  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 </li> 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.</li></ol>

Keywords: kbbug kbfix kbvs600sp3fix KB194653

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.